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

[svn at svn.open-ils.org]

Author: miker
Date: 2007-12-14 21:58:43 -0500 (Fri, 14 Dec 2007)
New Revision: 8215

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
Log:
MORE 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:55:56 UTC (rev 8214)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2007-12-15 02:58:43 UTC (rev 8215)
@@ -121,7 +121,7 @@
 		compile_query('and', $$args{service}, $$args{search});
 
 	my @results;
-	for (my $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];
@@ -222,7 +222,7 @@
 
 	$logger->info("z3950: search [$query] took ".(time - $start)." seconds");
 
-	return $result if ($async);
+	return $results if ($async);
 
 	my $munged = process_results($results, $limit, $offset);
 	$munged->{query} = $query;