4 |
use strict; |
use strict; |
5 |
|
|
6 |
use WebPAC::Input; |
use WebPAC::Input; |
7 |
use Biblio::Isis 0.23; |
use Biblio::Isis; |
8 |
use base qw/WebPAC::Common/; |
use base qw/WebPAC::Common/; |
9 |
|
|
10 |
=head1 NAME |
=head1 NAME |
72 |
isisdb => $arg->{path}, |
isisdb => $arg->{path}, |
73 |
include_deleted => 1, |
include_deleted => 1, |
74 |
hash_filter => $arg->{filter} ? sub { return $arg->{filter}->(@_); } : undef, |
hash_filter => $arg->{filter} ? sub { return $arg->{filter}->(@_); } : undef, |
75 |
|
ignore_empty_subfields => 1, |
76 |
) or $log->logdie("can't find database $arg->{path}"); |
) or $log->logdie("can't find database $arg->{path}"); |
77 |
|
|
78 |
$self->{_isis_db} = $isis_db; |
$self->{_isis_db} = $isis_db; |