new edit check for 2+ chars in subfield code

[migration-tools.git] / marc_cleanup

diff --git a/marc_cleanup b/marc_cleanup
index 7d09f27..d1479a4 100755 (executable)
--- a/marc_cleanup
+++ b/marc_cleanup
@@ -88,12 +88,16 @@ while ( buildrecord() ) {
 
         # subfields can't be non-alphanumeric
         if ($record[$ptr] =~ /<subfield code="(.*?)"/) {
-            my $match = $1;
-            if ($match =~ /\P{IsAlnum}/ or $match eq '') {
+            if ($1 =~ /\P{IsAlnum}/ or $1 eq '') {
                 edit("Junk in subfield code/Null subfield code");
                 next;
             }
         }
+        # subfields can't be non-alphanumeric
+        if ($record[$ptr] =~ /<subfield code="(\w{2,})"/) {
+            edit("Subfield code larger than 1 char");
+            next;
+        }
 
         $ptr++;
     }