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 { |