dumping record autonotates tag number

diff --git a/marc-cleanup b/marc-cleanup
index 044e952..16f7b4f 100755 (executable)
--- 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 {