X-Git-Url: http://git.indexdata.com/?p=simpleserver-moved-to-github.git;a=blobdiff_plain;f=ztest.pl;h=c879071e55b11e330f710a895cab5f25a4c73d7d;hp=486ff11f11435c4bdf3a8515273ac76a602d5759;hb=dce047d22f3830ef79f4f94695c84c5fca8594c9;hpb=6755a668b35e7ddc4c7ac37fb2550a55fb9858ac

diff --git a/ztest.pl b/ztest.pl
index 486ff11..c879071 100755
--- a/ztest.pl
+++ b/ztest.pl
@@ -5,6 +5,17 @@ use Net::Z3950::SimpleServer;
 use Net::Z3950::OID;
 use strict;
 
+
+sub dump_hash {
+	my $href = shift;
+	my $key;
+
+	foreach $key (keys %$href) {
+		printf("%10s	=>	%s\n", $key, $href->{$key});
+	}
+}
+
+
 sub my_init_handler {
 	my $args = shift;
 	my $session = {};
@@ -58,10 +69,9 @@ 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;
-
 	foreach $field (keys %$href) {
 		$record .= "<" . $field . ">" . $href->{$field} . "</" . $field . ">";
 	}