From ee612528bbf571d48d60b2fef5cda377f350adcc Mon Sep 17 00:00:00 2001
From: Shawn Boyette <sboyette@esilibrary.com>
Date: Sat, 4 Oct 2008 05:48:52 +0000
Subject: [PATCH] dumping record autonotates tag number

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

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