[Koha-cvs] koha/z3950 search.pl [rel_2_2]

[Henri-Damien LAURENT]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_2_2
Changes by:	Henri-Damien LAURENT <hdl>	07/02/26 15:05:53

Modified files:
	z3950          : search.pl 

Log message:
	Reintroducing limit to 80 results so that long list can get some results.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/z3950/search.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.3.2.17&r2=1.3.2.18

Patches:
Index: search.pl
===================================================================
RCS file: /sources/koha/koha/z3950/search.pl,v
retrieving revision 1.3.2.17
retrieving revision 1.3.2.18
diff -u -b -r1.3.2.17 -r1.3.2.18
--- search.pl	26 Feb 2007 14:03:17 -0000	1.3.2.17
+++ search.pl	26 Feb 2007 15:05:53 -0000	1.3.2.18
@@ -146,7 +146,6 @@
 		}## while fetch
 	}# foreach
 	my $nremaining = $s;
-# 	my $firstresult=1;
 
 	my $k;
 	my $event;
@@ -157,12 +156,12 @@
           my($error, $errmsg, $addinfo, $diagset) = $oConnection[$k-1]->error_x();
           if ($error) {
               warn "$k $serverhost[$k - 1] error $query: $errmsg ($error) $addinfo\n";
-          }
+            }else {
           my $numresults=$oResult[$k-1]->size() ;								
           my $i;
           my $result='';
           if ($numresults>0){
-              for ($i=0; $i<$numresults ; $i++) {
+              for ($i=0; $i<($numresults>80?80:$numresults) ; $i++) {
                   my $rec=$oResult[$k-1]->record($i); 										
                   my $marcrecord;
                   $marcdata = $rec->raw();											
@@ -192,12 +191,12 @@
                   $row_data{oldbiblionumber}=$biblionumber;
                   push (@breeding_loop, \%row_data);
               }
-      
           }#$numresults
           else {
             warn "no results for $serverhost[$k - 1]";
           }
         }
+          }
         
 	}
 
@@ -206,11 +205,4 @@
 	);
 	output_html_with_http_headers $input, $cookie, $template->output;
 
-# 	print  $template->output  if $firstresult !=1;
-#     $firstresult++;
-
-#     MAYBE_AGAIN:
-#         if (--$nremaining > 0) {
-#             goto AGAIN;
-#         }
 } ## if op=search