From: Anders S. Mortensen <sondberg@indexdata.dk>
Date: Tue, 12 Sep 2000 09:38:02 +0000 (+0000)
Subject: Corrected and error in ztest.pl
X-Git-Tag: release.0.0.8.lau~73
X-Git-Url: http://git.indexdata.com/?p=simpleserver-moved-to-github.git;a=commitdiff_plain;h=b5817b7f59ccfdc2fdad49e916dea95155b23867

Corrected and error in ztest.pl
---

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 = "<xml>";
 	my $field;
 	my $hits = $session->{__HITS};
-	my $href = $data->[$offset];
+	my $href = $data->[$offset - 1];
 
 	$args->{REP_FORM} = Net::Z3950::OID::xml;