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 $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 . ">";
}