From 23f6abaa6f0c39c86380113a298b026fc5a9da7c Mon Sep 17 00:00:00 2001
From: Shawn Boyette <sboyette@esilibrary.com>
Date: Tue, 7 Oct 2008 15:04:18 +0000
Subject: [PATCH] * original-tag will never appear in trashtags
 * renumber-tag now configurable

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

diff --git a/marc-cleanup b/marc-cleanup
index 94bb7c6..d625216 100755
--- a/marc-cleanup
+++ b/marc-cleanup
@@ -224,10 +224,10 @@ sub write_record {
         @record = @trimmed;
     }
 
-    # add 903 with new record id
+    # add 903(?) with new record id
     if ($conf->{'renumber-from'}) {
-        print $FH '<datafield tag="903"><subfield code="a">', $conf->{'renumber-from'},
-          '</subfield></datafield>';
+        print $FH '<datafield tag="', $conf->{'renumber-tag'}, '"><subfield code="a">',
+          $conf->{'renumber-from'}, '</subfield></datafield>';
         print $FH "\n" unless $conf->{oneperline};
         $conf->{'renumber-from'}++;
     }
@@ -416,6 +416,10 @@ sub populate_trash {
             die "Unknown chunk $chunk in .trashtags file (line $.)\n";
         }
     }
+
+    # remove original id sequence tag from trash hash if we know it
+    $trash_add($conf->{'original-tag'}, 1)
+      if ($conf->{'original-tag'} and $trash{$conf->{'original-tag'}});
 }
 
 sub trash_add_range {
-- 
1.7.2.5