--- trunk/tools/mods2unimarc.pl	2004/06/02 16:13:57	335
+++ trunk/tools/mods2unimarc.pl	2004/06/10 19:20:05	336
@@ -53,6 +53,7 @@
 my $marc = MARC->new;
 
 my $ENCODING = 'ISO-8859-2';
+$ENCODING = 'windows-1250';
 
 my $twig=XML::Twig->new(
 	twig_roots => { 'mods' => \&mods },
@@ -244,7 +245,9 @@
 	}
 	marc_rep($m_cache,'215');
 
-	marc_add_single($m_cache,'001',undef,$ref->{recordInfo}->{recordIdentifier});
+	my $mfn = $ref->{recordInfo}->{recordIdentifier};
+	$mfn =~ s/[^0-9]//g;
+	marc_add_single($m_cache,'001',undef,$mfn);
 
 	marc_add($m_cache,'200','a',$ref->{titleInfo}->{title});
 	marc_add($m_cache,'200','e',$ref->{titleInfo}->{subTitle});