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/; |
|
|
|
|
6 |
use blib; |
use blib; |
7 |
use WebPAC::Input; |
use WebPAC::Input; |
|
#use base qw/WebPAC::Input/; |
|
8 |
|
|
9 |
=head1 NAME |
=head1 NAME |
10 |
|
|
38 |
sub init { |
sub init { |
39 |
my $self = shift; |
my $self = shift; |
40 |
|
|
41 |
eval "use Biblio::Isis 0.13;"; |
eval "use Biblio::Isis;"; |
42 |
unless ($@) { |
unless ($@) { |
43 |
$self->{have_biblio_isis} = 1 |
$self->{have_biblio_isis} = 1 |
44 |
} else { |
} else { |