77 |
my $isis = new WebPAC::Input::ISIS( |
my $isis = new WebPAC::Input::ISIS( |
78 |
code_page => $config->{webpac}->{webpac_encoding}, |
code_page => $config->{webpac}->{webpac_encoding}, |
79 |
limit_mfn => $input->{limit}, |
limit_mfn => $input->{limit}, |
80 |
|
lookup => $lookup, |
81 |
); |
); |
82 |
|
|
83 |
my $maxmfn = $isis->open( |
my $maxmfn = $isis->open( |
85 |
code_page => $input->{encoding}, # database encoding |
code_page => $input->{encoding}, # database encoding |
86 |
); |
); |
87 |
|
|
88 |
|
$log->info( Dumper($lookup->{_lookup_data}) ); |
89 |
|
|
90 |
my $n = new WebPAC::Normalize::XML( |
my $n = new WebPAC::Normalize::XML( |
91 |
# filter => { 'foo' => sub { shift } }, |
# filter => { 'foo' => sub { shift } }, |
92 |
db => $db, |
db => $db, |