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 = {};
my $set_id = $args->{SETNAME};
my @database_list = @{ $args->{DATABASES} };
my $query = $args->{QUERY};
- my $hits = 2;
+ my $hits = 3;
print "------------------------------------------------------------\n";
print "Processing query : $query\n";
my $href = $data->[$offset - 1];
$args->{REP_FORM} = Net::Z3950::OID::xml;
-
foreach $field (keys %$href) {
$record .= "<" . $field . ">" . $href->{$field} . "</" . $field . ">";
}
$handler->launch_server("ztest.pl", @ARGV);
+
+## $Log: ztest.pl,v $
+## Revision 1.7 2001-03-13 14:20:21 sondberg
+## Added CVS logging
+##
+