[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 );