From: Shawn Boyette <sboyette@esilibrary.com>
Date: Thu, 8 Jan 2009 20:00:11 +0000 (+0000)
Subject: new edit check for 2+ chars in subfield code
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=c0f559f7f4e6c1af84a86933baa8b053e260858b

new edit check for 2+ chars in subfield code
---

diff --git a/marc_cleanup b/marc_cleanup
index 7d09f27..d1479a4 100755
--- 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++;
     }