From c0f559f7f4e6c1af84a86933baa8b053e260858b Mon Sep 17 00:00:00 2001
From: Shawn Boyette <sboyette@esilibrary.com>
Date: Thu, 8 Jan 2009 20:00:11 +0000
Subject: [PATCH] new edit check for 2+ chars in subfield code

---
 marc_cleanup |    8 ++++++--
 1 files changed, 6 insertions(+), 2 deletions(-)

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++;
     }
-- 
1.7.2.5