turns out the inds in empty datafields won't ALWAYS be spaces

[migration-tools.git] / yaz-cleanup

diff --git a/yaz-cleanup b/yaz-cleanup
index a6ebf60..fc08740 100755 (executable)
--- a/yaz-cleanup
+++ b/yaz-cleanup
@@ -6,7 +6,7 @@ open NUMARC, '>', 'incoming.clean.marc.xml';
 $line1 = <MARC>;
 
 while ($line2 = <MARC>) {
-    if ($line1 =~ m/<datafield tag="..." ind1=" " ind2=" ">/) {
+    if ($line1 =~ m/<datafield tag="..." ind1="." ind2=".">/) {
         if ($line2 =~ m|</datafield>|) {
             $line1 = <MARC>;
             next;