From: Shawn Boyette <sboyette@esilibrary.com>
Date: Wed, 8 Oct 2008 17:49:35 +0000 (+0000)
Subject: trap null subfield codes
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=bfee0d7bc3f83f5b68902249647d743bea690a1e

trap null subfield codes
---

diff --git a/marc-cleanup b/marc-cleanup
index 76d77be..00b1430 100755
--- a/marc-cleanup
+++ b/marc-cleanup
@@ -129,7 +129,7 @@ while (my $line = getline()) {
     }
 
     # subfields can't be non-alphanumeric
-    if ($line =~ /<subfield code="(.+?)"/) {
+    if ($line =~ /<subfield code="(.*?)"/) {
         my $match = $1;
         if ($match =~ /\P{IsAlnum}/) {
             edit("Junk in subfield code", $line);