3 |
use warnings; |
use warnings; |
4 |
use strict; |
use strict; |
5 |
|
|
|
use blib; |
|
6 |
use WebPAC::Input; |
use WebPAC::Input; |
7 |
|
|
8 |
=head1 NAME |
=head1 NAME |
37 |
sub init { |
sub init { |
38 |
my $self = shift; |
my $self = shift; |
39 |
|
|
40 |
eval "use Biblio::Isis 0.13;"; |
eval "use Biblio::Isis;"; |
41 |
unless ($@) { |
unless ($@) { |
42 |
$self->{have_biblio_isis} = 1 |
$self->{have_biblio_isis} = 1 |
43 |
} else { |
} else { |
48 |
|
|
49 |
=head2 open_db |
=head2 open_db |
50 |
|
|
51 |
Returns handle to database |
Returns handle to database and size in records |
52 |
|
|
53 |
my $db = $open_db( |
my ($db,$size) = $open_db( |
54 |
path => '/path/to/LIBRI' |
path => '/path/to/LIBRI' |
55 |
} |
} |
56 |
|
|
130 |
} else { |
} else { |
131 |
$val = $l; |
$val = $l; |
132 |
} |
} |
133 |
push @{$rec->{$k}}, $val; |
push @{$rec->{"$k"}}, $val; |
134 |
} |
} |
135 |
} else { |
} else { |
136 |
push @{$rec->{'000'}}, $mfn; |
push @{$rec->{'000'}}, $mfn; |