From e79776389bfb8c55a1578e677dac7cae99465c8e Mon Sep 17 00:00:00 2001 From: miker Date: Sat, 15 Dec 2007 02:58:43 +0000 Subject: [PATCH] MORE errors caught by strict git-svn-id: svn://svn.open-ils.org/ILS/trunk@8215 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm index bfaaf75e2c..172375249d 100755 --- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm @@ -121,7 +121,7 @@ sub do_class_search { 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 @@ sub do_search { $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; -- 2.43.2