[open-ils-commits] r375 - conifer/trunk/tools/migration-scripts (dbs)

[svn at svn.open-ils.org]

Author: dbs
Date: 2009-04-21 00:54:08 -0400 (Tue, 21 Apr 2009)
New Revision: 375

Modified:
   conifer/trunk/tools/migration-scripts/fix_bad_marcxml.pl
Log:
There are some two-digit tags as well?!?


Modified: conifer/trunk/tools/migration-scripts/fix_bad_marcxml.pl
===================================================================
--- conifer/trunk/tools/migration-scripts/fix_bad_marcxml.pl	2009-04-21 04:51:19 UTC (rev 374)
+++ conifer/trunk/tools/migration-scripts/fix_bad_marcxml.pl	2009-04-21 04:54:08 UTC (rev 375)
@@ -46,6 +46,10 @@
 			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 = $_;