From: Shawn Boyette <sboyette@esilibrary.com>
Date: Sat, 4 Oct 2008 05:48:52 +0000 (+0000)
Subject: dumping record autonotates tag number
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=ee612528bbf571d48d60b2fef5cda377f350adcc

dumping record autonotates tag number
---

diff --git a/marc-cleanup b/marc-cleanup
index 044e952..16f7b4f 100755
--- a/marc-cleanup
+++ b/marc-cleanup
@@ -264,7 +264,7 @@ sub kill_line {
 
 sub dump_record {
     my ($line_in, @explanation) = @_;
-    $recmeta{explanation} = join(' ', @explanation);
+    $recmeta{explanation} = join(' ', 'Tag', $recmeta{tag}, @explanation);
     my $line = <MARC>; $count++;
     update_linecontext();
     until ($line =~ m|</record>|) {
@@ -378,8 +378,6 @@ sub populate_trash {
             die "Unknown chunk $chunk in .trashtags file (line $.)\n";
         }
     }
-    print $OUT join ",", (sort keys %trash);
-    exit
 }
 
 sub trash_add_range {