From 48d09502f7e3cf81d76f49dceaf8366f2f9c9e70 Mon Sep 17 00:00:00 2001
From: Shawn Boyette <sboyette@esilibrary.com>
Date: Wed, 8 Oct 2008 17:56:42 +0000
Subject: [PATCH] why are all the common ones c?

---
 marc-cleanup |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)

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;
-- 
1.7.2.5