errors caught by strict
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Sat, 15 Dec 2007 02:55:56 +0000 (02:55 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Sat, 15 Dec 2007 02:55:56 +0000 (02:55 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@8214 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm

index c6ad36b..bfaaf75 100755 (executable)
@@ -121,7 +121,7 @@ sub do_class_search {
                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 @@ sub do_class_search {
        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);
                }