Added method Hash2grs into GRS1 module.

[simpleserver-moved-to-github.git] / ztest.pl

diff --git a/ztest.pl b/ztest.pl
index 486ff11..02a0042 100755 (executable)
--- 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 . ">";
        }
@@ -81,3 +91,9 @@ my $handler = Net::Z3950::SimpleServer->new({
 
 $handler->launch_server("ztest.pl", @ARGV);
 
+
+## $Log: ztest.pl,v $
+## Revision 1.7  2001-03-13 14:20:21  sondberg
+## Added CVS logging
+##
+