Don't forget ind2, which is usually in good shape

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

diff --git a/tools/migration-scripts/fix_bad_marcxml.pl b/tools/migration-scripts/fix_bad_marcxml.pl
index dd9282b..76a72d9 100644 (file)
--- a/tools/migration-scripts/fix_bad_marcxml.pl
+++ b/tools/migration-scripts/fix_bad_marcxml.pl
@@ -42,9 +42,9 @@ sub process_file {
                } elsif ($_ =~ m#<subfield code="&">#o) {
                        print STDERR "Bad subfield code & at line $lineno of file $file\n";
                        $_ =~ s{<subfield code="&">}{<subfield code="Z">}o;
-               } elsif ($_ =~ m#<datafield tag="6" ind1=".">#o) {
+               } elsif ($_ =~ m#<datafield tag="6" ind1="."#o) {
                        print STDERR "Bad datafield tag 6 at line $lineno of file $file\n";
-                       $_ =~ s{<datafield tag="6" ind1=".">}{<datafield tag="600" ind1=" ">}o;
+                       $_ =~ s{<datafield tag="6" ind1="."}{<datafield tag="600" ind1=" "}o;
                }
                
                $lastline = $_;