From 8e1395f8c5a2551684da678be868d26c6da60ca0 Mon Sep 17 00:00:00 2001
From: Shawn Boyette <sboyette@esilibrary.com>
Date: Tue, 11 Nov 2008 22:31:35 +0000
Subject: [PATCH] implemented the rest of strip-nines and cleaned up write_record

---
 marc-cleanup |   29 +++++++++++++++++------------
 1 files changed, 17 insertions(+), 12 deletions(-)

diff --git a/marc-cleanup b/marc-cleanup
index ed70c63..eb9cd63 100755
--- a/marc-cleanup
+++ b/marc-cleanup
@@ -275,25 +275,24 @@ sub write_record {
         @record = @trimmed;
     }
 
-    # scrub newlines
-    unless ($conf->{nocollapse}) {
-        s/\n// for (@record);
-    }
-
     # add 903(?) with new record id
     my $renumber = '';
     if ($conf->{'renumber-from'}) {
-        $renumber = join('', '<datafield tag="', $conf->{'renumber-tag'},
-                         '" ind1=" " ind2=" ">',
-                         '<subfield code="', $conf->{'renumber-subfield'}, '">',
-                         $conf->{'renumber-from'}, '</subfield></datafield>');
-        $renumber .= "\n" if $conf->{nocollapse};
-        push @record, $renumber;
+        $renumber = join('', ' <datafield tag="', $conf->{'renumber-tag'},
+                         '" ind1=" " ind2=" "> <subfield code="',
+                         $conf->{'renumber-subfield'}, '">',
+                         $conf->{'renumber-from'}, "</subfield></datafield>\n");
+        my @tmp = @record[0 .. $#record - 1];
+        my $last = @record[$#record];
+        @record = (@tmp, $renumber, $last);
         $conf->{'renumber-from'}++;
     }
 
+    # scrub newlines
+    unless ($conf->{nocollapse})
+      { s/\n// for (@record) }
+
     print $FH @record;
-    print $FH "</record>\n";
 }
 
 sub print_fullcontext {
@@ -608,6 +607,12 @@ sub initialize {
     $c->{'renumber-subfield'} = 'a' unless defined $c->{'renumber-subfield'};
     $c->{window} = 5;
 
+    # autotrash 901, 903 if strip-nines
+    if ($c->{'strip-nines'}) {
+        $c->{trash}{901} = 1;
+        $c->{trash}{903} = 1;
+    }
+
     my @keys = keys %{$c};
     show_help() unless (@ARGV and @keys);
 }
-- 
1.7.2.5