From: Shawn Boyette <sboyette@esilibrary.com>
Date: Wed, 8 Oct 2008 17:56:42 +0000 (+0000)
Subject: why are all the common ones c?
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=48d09502f7e3cf81d76f49dceaf8366f2f9c9e70

why are all the common ones c?
---

diff --git a/marc-cleanup b/marc-cleanup
index 00b1430..f8d916c 100755
--- a/marc-cleanup
+++ b/marc-cleanup
@@ -111,6 +111,7 @@ while (my $line = getline()) {
 
     # automatable subfield maladies
     $line =~ s/code=" ">c/code="c">/;
+    $line =~ s/code=" ">\$/code="c"$>/;
 
     # and stow line back in record
     $record[-1] = $line;