From f1831cd4420ff3fb7cc8d093268cf70a5d0e4c68 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 10 Jun 2004 19:20:05 +0000
Subject: [PATCH] save MFN as field 001

git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@336 13eb9ef6-21d5-0310-b721-a9d68796d827
---
 tools/mods2unimarc.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/tools/mods2unimarc.pl b/tools/mods2unimarc.pl
index cfca5e2..03892b4 100755
--- a/tools/mods2unimarc.pl
+++ b/tools/mods2unimarc.pl
@@ -53,6 +53,7 @@ my $nr = 0;
 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 @@ sub mods {
 	}
 	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});
-- 
2.20.1