From: dbs <dbs@6d9bc8c9-1ec2-4278-b937-99fde70a366f>
Date: Tue, 21 Apr 2009 04:54:08 +0000 (+0000)
Subject: There are some two-digit tags as well?!?
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=1ef71a3842ad4e51a7eb0221f65ca84d6a6db62e;p=contrib%2FConifer.git

There are some two-digit tags as well?!?


git-svn-id: svn://svn.open-ils.org/ILS-Contrib/conifer/trunk@375 6d9bc8c9-1ec2-4278-b937-99fde70a366f
---

diff --git a/tools/migration-scripts/fix_bad_marcxml.pl b/tools/migration-scripts/fix_bad_marcxml.pl
index aae9c7c601..20f174cd1c 100644
--- a/tools/migration-scripts/fix_bad_marcxml.pl
+++ b/tools/migration-scripts/fix_bad_marcxml.pl
@@ -46,6 +46,10 @@ sub process_file {
 			my $badtag = $1;
 			print STDERR "Bad datafield tag $badtag at line $lineno of file $file\n";
 			$_ =~ s/<datafield tag="(\d)" ind1="."/<datafield tag="${1}00" ind1=" "/o;
+		} elsif ($_ =~ m#<datafield tag="(\d{2})" ind1="."#o) {
+			my $badtag = $1;
+			print STDERR "Bad datafield tag $badtag at line $lineno of file $file\n";
+			$_ =~ s/<datafield tag="(\d{2})" ind1="."/<datafield tag="${1}0" ind1=" "/o;
 		}
 		
 		$lastline = $_;