From b5817b7f59ccfdc2fdad49e916dea95155b23867 Mon Sep 17 00:00:00 2001 From: "Anders S. Mortensen" Date: Tue, 12 Sep 2000 09:38:02 +0000 Subject: [PATCH] Corrected and error in ztest.pl --- ztest.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ztest.pl b/ztest.pl index 486ff11..62a579f 100755 --- a/ztest.pl +++ b/ztest.pl @@ -35,7 +35,7 @@ sub my_search_handler { my $set_id = $args->{SETNAME}; my @database_list = @{ $args->{DATABASES} }; my $query = $args->{QUERY}; - my $hits = 3; + my $hits = 2; print "------------------------------------------------------------\n"; print "Processing query : $query\n"; @@ -58,7 +58,7 @@ sub my_fetch_handler { my $record = ""; my $field; my $hits = $session->{__HITS}; - my $href = $data->[$offset]; + my $href = $data->[$offset - 1]; $args->{REP_FORM} = Net::Z3950::OID::xml; -- 1.7.10.4