remove config fig.circ_matrix_circ_mod_test

[migration-tools.git] / marc_cleanup

diff --git a/marc_cleanup b/marc_cleanup
index c26525c..e0c20a7 100755 (executable)
--- a/marc_cleanup
+++ b/marc_cleanup
@@ -193,6 +193,12 @@ sub do_automated_cleanups {
             message("Dollar sign corrected");
         }
 
+        # excessive trailing whitespace in subfield contents
+        if ($record[$ptr] =~ m|\s{10,}</subfield>|) {
+            $record[$ptr] =~ s|\s{10,}</subfield>|</subfield>|;
+            message("Trailing whitespace trimmed from subfield contents");
+        }
+
         # automatable subfield maladies
         $record[$ptr] =~ s/code=" ">c/code="c">/;
         $record[$ptr] =~ s/code=" ">\$/code="c">\$/;