From 1ef71a3842ad4e51a7eb0221f65ca84d6a6db62e Mon Sep 17 00:00:00 2001
From: dbs <dbs@6d9bc8c9-1ec2-4278-b937-99fde70a366f>
Date: Tue, 21 Apr 2009 04:54:08 +0000
Subject: [PATCH] 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
---
 tools/migration-scripts/fix_bad_marcxml.pl | 4 ++++
 1 file changed, 4 insertions(+)

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 = $_;
-- 
2.11.0