From 8dfbea2b75fd9032cfbe3cd23f947445d9133ccc Mon Sep 17 00:00:00 2001 From: miker Date: Sat, 15 Dec 2007 02:55:56 +0000 Subject: [PATCH] errors caught by strict 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 | 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 c6ad36be5b..bfaaf75e2c 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 (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); } -- 2.11.0