X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=marc_cleanup;fp=marc_cleanup;h=e79180ac2d2f8a37fe4c775ba4c5645ed1db2b85;hp=e2a9390ecf6a33ce6cf52dc91b5664faf2989c36;hb=5a192db46cdadef98017b1b52acfc09946561188;hpb=035aa3d40f901d2510cdfb103ff0fd7e418e6710
diff --git a/marc_cleanup b/marc_cleanup
index e2a9390..e79180a 100755
--- a/marc_cleanup
+++ b/marc_cleanup
@@ -177,6 +177,11 @@ sub do_automated_cleanups {
message("Short leader padded");
}
}
+ if ($c->{'force-utf8'}) {
+ if ($record[$ptr] =~ m|(.........).(.+)|) {
+ $record[$ptr] = "$1a$2\n";
+ }
+ }
if ($record[$ptr] =~ m|(.+?)