--- trunk/run.pl	2006/06/29 15:29:41	540
+++ trunk/run.pl	2006/06/29 23:19:26	547
@@ -19,7 +19,7 @@
 use File::Path;
 use Time::HiRes qw/time/;
 use File::Slurp;
-use MARC::Record;
+use MARC::Record 2.0;	# need 2.0 for utf-8 encoding see marcpm.sf.net
 
 =head1 NAME
 
@@ -226,7 +226,6 @@
 
 		foreach my $normalize (@norm_array) {
 
-			my $rules;
 			my $normalize_path = $normalize->{path} || $log->logdie("can't find normalize path in config");
 
 			$log->logdie("Found '$normalize_path' as normalization file which isn't supported any more!") unless ( $normalize_path =~ m!\.pl$!i );
@@ -269,6 +268,7 @@
 					row => $row,
 					rules => $rules,
 					lookup => $lookup ? $lookup->lookup_hash : undef,
+					marc_encoding => 'utf-8',
 				);
 
 				$db->save_ds(
@@ -285,7 +285,8 @@
 
 				if ($marc_fh) {
 					my $marc = new MARC::Record;
-					$marc->add_fields( WebPAC::Normalize::_get_marc21_fields() );
+					$marc->encoding( 'utf-8' );
+					$marc->add_fields( WebPAC::Normalize::_get_marc_fields() );
 					print $marc_fh $marc->as_usmarc;
 				}