summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
1e7d14d)
git-svn-id: svn+ssh://llin.lib/home/dpavlin/private/svn/Z3950-HTML-Scraper@13
ae73d1a6-5fa4-44a9-8f13-
f281fb455051
+#!/usr/bin/perl
+
+use warnings;
+use strict;
use Net::Z3950::SimpleServer;
use Net::Z3950::OID;
use COBISS;
use Net::Z3950::SimpleServer;
use Net::Z3950::OID;
use COBISS;
my $max_records = 3; # XXX configure this
my $max_result_sets = 10;
my $max_records = 3; # XXX configure this
my $max_result_sets = 10;
my $setname = $this->{SETNAME};
my $repl_set = $this->{REPL_SET};
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;
my $result;
unless ( $result = COBISS->search( $query ) ) {
$this->{ERR_CODE} = 108;
package Net::Z3950::RPN::Term;
package Net::Z3950::RPN::Term;
+use Data::Dump qw(dump);
use COBISS;
sub render {
my $this = shift;
use COBISS;
sub render {
my $this = shift;
+print "render ", dump($this);
my $attributes = {};
my $prefix = "";
my $attributes = {};
my $prefix = "";