[open-ils-commits] r8214 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Search

[svn at svn.open-ils.org]

Author: miker
Date: 2007-12-14 21:55:56 -0500 (Fri, 14 Dec 2007)
New Revision: 8214

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
Log:
errors caught by strict

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2007-12-15 02:21:56 UTC (rev 8213)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2007-12-15 02:55:56 UTC (rev 8214)
@@ -121,7 +121,7 @@
 		compile_query('and', $$args{service}, $$args{search});
 
 	my @results;
-	for (var $i = 0; $i < @{$$args{service}}; i++) {
+	for (my $i = 0; $i < @{$$args{service}}; i++) {
 		my %tmp_args = %$args;
 		$tmp_args{service} = $$args{service}[$i];
 		$tmp_args{username} = $$args{username}[$i];
@@ -133,7 +133,7 @@
 	while ((my $index = OpenILS::Utils::ZClient::event( \@results )) != 0) {
 		my $ev = $results[$index - 1]->last_event();
 		if ($ev == OpenILS::Utils::ZClient::Event::END) {
-			my $munged = process_results( $results[$index - 1], $limit, $offset );
+			my $munged = process_results( $results[$index - 1], ($$args{limit} || 10), ($$args{offset} || 0) );
 			$$munged{service} = $$args{service}[$index];
 			$conn->respond($munged);
 		}