[Koha-patches] [PATCH] Bug 4515 (Three very small errors in opac-search.pl)

[Marcel de Rooy]

---
 opac/opac-search.pl |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/opac/opac-search.pl b/opac/opac-search.pl
index 63435a5..9271c64 100755
--- a/opac/opac-search.pl
+++ b/opac/opac-search.pl
@@ -341,7 +341,7 @@ sub _input_cgi_parse ($) {
 }
 
 ## parse the query_cgi string and put it into a form suitable for <input>s
-my @query_inputs = _input_cgi_parse($query_cgi);
+my @query_inputs = $query_cgi ? _input_cgi_parse($query_cgi) : (); #MR
 $template->param ( QUERY_INPUTS => \@query_inputs );
 
 ## parse the limit_cgi string and put it into a form suitable for <input>s
@@ -400,7 +400,7 @@ if ($@ || $error) {
 # At this point, each server has given us a result set
 # now we build that set for template display
 my @sup_results_array;
-for (my $i=0;$i<=@servers;$i++) {
+for (my $i=0;$i<@servers;$i++) { #MR no <=
     my $server = $servers[$i];
     if ($server =~/biblioserver/) { # this is the local bibliographic server
         $hits = $results_hashref->{$server}->{"hits"};
@@ -583,6 +583,6 @@ if (defined $barshelves) {
 	$template->param( addbarshelvesloop => $barshelves);
 }
 
-my $content_type = ($format eq 'rss' or $format eq 'atom') ? $format : 'html';
+$content_type = ($format eq 'rss' or $format eq 'atom') ? $format : 'html'; #MR
 
 output_html_with_http_headers $cgi, $cookie, $template->output, $content_type;
-- 
1.6.0.6