git-svn-id: svn+ssh://llin.lib/home/dpavlin/private/svn/Z3950-HTML-Scraper@13
ae73d1a6-5fa4-44a9-8f13-
f281fb455051
-#!/usr/bin/perl -w
+#!/usr/bin/perl
+
+use warnings;
+use strict;
use Net::Z3950::SimpleServer;
use Net::Z3950::OID;
use COBISS;
-use strict;
my $max_records = 3; # XXX configure this
my $max_result_sets = 10;
my $setname = $this->{SETNAME};
my $repl_set = $this->{REPL_SET};
+diag "SETNAME $setname REPL_SET $repl_set";
my $result;
unless ( $result = COBISS->search( $query ) ) {
$this->{ERR_CODE} = 108;
package Net::Z3950::RPN::Term;
+use Data::Dump qw(dump);
use COBISS;
sub render {
my $this = shift;
-print "render ", $this;
+print "render ", dump($this);
my $attributes = {};
my $prefix = "";