11 |
|
|
12 |
=head1 VERSION |
=head1 VERSION |
13 |
|
|
14 |
Version 0.04 |
Version 0.05 |
15 |
|
|
16 |
=cut |
=cut |
17 |
|
|
18 |
our $VERSION = '0.04'; |
our $VERSION = '0.05'; |
19 |
|
|
20 |
|
|
21 |
=head1 SYNOPSIS |
=head1 SYNOPSIS |
108 |
|
|
109 |
Return record with ID C<$mfn> from database |
Return record with ID C<$mfn> from database |
110 |
|
|
111 |
my $rec = $self->fetch_rec( $db, $mfn ); |
my $rec = $self->fetch_rec( $db, $mfn, $filter_coderef); |
112 |
|
|
113 |
=cut |
=cut |
114 |
|
|
115 |
sub fetch_rec { |
sub fetch_rec { |
116 |
my $self = shift; |
my $self = shift; |
117 |
|
|
118 |
my ($isis_db, $mfn) = @_; |
my ($isis_db, $mfn, $filter_coderef) = @_; |
119 |
|
|
120 |
my $rec; |
my $rec; |
121 |
|
|
149 |
} elsif ($self->{have_biblio_isis}) { |
} elsif ($self->{have_biblio_isis}) { |
150 |
$rec = $isis_db->to_hash({ |
$rec = $isis_db->to_hash({ |
151 |
mfn => $mfn, |
mfn => $mfn, |
152 |
include_subfields => 1 |
include_subfields => 1, |
153 |
|
hash_filter => $filter_coderef, |
154 |
}); |
}); |
155 |
} else { |
} else { |
156 |
$self->_get_logger()->logdie("hum? implementation missing?"); |
$self->_get_logger()->logdie("hum? implementation missing?"); |