3 |
use warnings; |
use warnings; |
4 |
use strict; |
use strict; |
5 |
|
|
|
require Exporter; |
|
|
use vars qw/@ISA @EXPORT/; |
|
|
@ISA = qw/Exporter/; |
|
|
@EXPORT = qw/init open_db fetch_rec/; |
|
|
|
|
|
use blib; |
|
6 |
use WebPAC::Input; |
use WebPAC::Input; |
|
#use base qw/WebPAC::Input/; |
|
7 |
|
|
8 |
=head1 NAME |
=head1 NAME |
9 |
|
|
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 { |
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; |