MORE errors caught by strict
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Sat, 15 Dec 2007 02:58:43 +0000 (02:58 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Sat, 15 Dec 2007 02:58:43 +0000 (02:58 +0000)
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

index bfaaf75..1723752 100755 (executable)
@@ -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;