3 |
use warnings; |
use warnings; |
4 |
use strict; |
use strict; |
5 |
|
|
|
use blib; |
|
|
|
|
6 |
use WebPAC::Input; |
use WebPAC::Input; |
|
use base qw/WebPAC::Input/; |
|
7 |
|
|
8 |
=head1 NAME |
=head1 NAME |
9 |
|
|
11 |
|
|
12 |
=head1 VERSION |
=head1 VERSION |
13 |
|
|
14 |
Version 0.02 |
Version 0.03 |
15 |
|
|
16 |
=cut |
=cut |
17 |
|
|
18 |
our $VERSION = '0.02'; |
our $VERSION = '0.03'; |
19 |
|
|
20 |
|
|
21 |
=head1 SYNOPSIS |
=head1 SYNOPSIS |
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; |