--- trunk/lib/WebPAC/Input/MARC.pm	2005/12/31 16:41:35	337
+++ trunk/lib/WebPAC/Input/MARC.pm	2006/02/26 23:21:50	416
@@ -3,7 +3,7 @@
 use warnings;
 use strict;
 
-use MARC::Fast;
+use MARC::Fast 0.03;
 
 =head1 NAME
 
@@ -11,11 +11,11 @@
 
 =head1 VERSION
 
-Version 0.04
+Version 0.05
 
 =cut
 
-our $VERSION = '0.04';
+our $VERSION = '0.05';
 
 
 =head1 SYNOPSIS
@@ -33,7 +33,8 @@
 Returns handle to database
 
   my $db = $open_db(
-  	path => '/path/to/marc.iso'
+  	path => '/path/to/marc.iso',
+	filter => \&code_ref,
   }
 
 =cut
@@ -47,7 +48,10 @@
 
 	$log->info("opening MARC database '$arg->{path}'");
 
-	my $db = new MARC::Fast( marcdb => $arg->{path});
+	my $db = new MARC::Fast(
+		marcdb => $arg->{path},
+		hash_filter => $arg->{filter},
+	);
 	my $db_size = $db->count - 1;	# FIXME
 
 	$self->{_marc_size} = $db_size;