--- trunk/lib/WebPAC/Input/ISIS.pm	2006/08/23 14:28:48	615
+++ trunk/lib/WebPAC/Input/ISIS.pm	2006/08/25 12:31:06	619
@@ -11,11 +11,11 @@
 
 =head1 VERSION
 
-Version 0.04
+Version 0.05
 
 =cut
 
-our $VERSION = '0.04';
+our $VERSION = '0.05';
 
 
 =head1 SYNOPSIS
@@ -108,14 +108,14 @@
 
 Return record with ID C<$mfn> from database
 
-  my $rec = $self->fetch_rec( $db, $mfn );
+  my $rec = $self->fetch_rec( $db, $mfn, $filter_coderef);
 
 =cut
 
 sub fetch_rec {
 	my $self = shift;
 
-	my ($isis_db, $mfn) = @_;
+	my ($isis_db, $mfn, $filter_coderef) = @_;
 
 	my $rec;
 
@@ -149,7 +149,8 @@
 	} elsif ($self->{have_biblio_isis}) {
 		$rec = $isis_db->to_hash({
 			mfn => $mfn,
-			include_subfields => 1
+			include_subfields => 1,
+			hash_filter => $filter_coderef,
 		});
 	} else {
 		$self->_get_logger()->logdie("hum? implementation missing?");