--- trunk/lib/WebPAC/Input/MARC.pm	2010/02/02 19:30:48	1326
+++ trunk/lib/WebPAC/Input/MARC.pm	2010/02/09 20:14:23	1327
@@ -37,7 +37,6 @@
 
   my $marc = new WebPAC::Input::MARC(
   	path => '/path/to/marc.iso',
-	filter => \&code_ref,
   }
 
 =cut
@@ -53,9 +52,14 @@
 
 	$log->info("opening MARC database '$arg->{path}'");
 
+	die "no filter support any more!" if $arg->{filter};
+
 	my $db = new MARC::Fast(
 		marcdb => $arg->{path},
-		hash_filter => $arg->{filter},
+		hash_filter => sub {
+			my ( $l, $nr ) = @_;
+			Encode::decode( 'utf-8', $l );
+		},
 	);
 	my $db_size = $db->count - 1;	# FIXME