[Koha-cvs] koha/cataloguing addbooks.pl

[Antoine Farnault]

CVSROOT:	/sources/koha
Module name:	koha
Changes by:	Antoine Farnault <toins>	07/07/13 13:13:42

Modified files:
	cataloguing    : addbooks.pl 

Log message:
	bug fix there was an internal servor error when there is no result

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/addbooks.pl?cvsroot=koha&r1=1.13&r2=1.14

Patches:
Index: addbooks.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/addbooks.pl,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -b -r1.13 -r1.14
--- addbooks.pl	12 Jul 2007 15:28:00 -0000	1.13
+++ addbooks.pl	13 Jul 2007 13:13:41 -0000	1.14
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: addbooks.pl,v 1.13 2007/07/12 15:28:00 toins Exp $
+# $Id: addbooks.pl,v 1.14 2007/07/13 13:13:41 toins Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -78,6 +78,13 @@
         exit;
     }
 
+	if(not defined $marcresults){
+		$template->param(query => $query);
+		warn "no result found";
+		output_html_with_http_headers $input, $cookie, $template->output;
+        exit;
+	}
+
     # format output
     my $total = scalar @$marcresults;
     my @newresults = searchResults( $query, $total, $results_per_page, $page, @$marcresults );