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 aae9c7c..20f174c 100644 (file)
--- 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 = $_;