X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=marc_cleanup;fp=marc_cleanup;h=53801f3438baf905823f94aaaf87a768761fb271;hp=89f8ab01d4912d167feb0ff1ec9ee6d36f808fe9;hb=26d762670d7610ed9ccb1c36a8dbab3169e4e2a3;hpb=0445ca1b7fb163fd20346fedaaa7e8612f8f93c3

diff --git a/marc_cleanup b/marc_cleanup
index 89f8ab0..53801f3 100755
--- a/marc_cleanup
+++ b/marc_cleanup
@@ -92,12 +92,12 @@ while ( buildrecord() ) {
         }
 
         # subfields can't be non-alphanumeric
-        if ($record[$ptr] =~ /<subfield code="(.*?)"/) {
-            if ($1 =~ /\P{IsAlnum}/ or $1 eq '') {
-                edit("Junk in subfield code/Null subfield code");
-                next;
-            }
-        }
+        #if ($record[$ptr] =~ /<subfield code="(.*?)"/) {
+            #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");