From: Shawn Boyette <sboyette@esilibrary.com>
Date: Tue, 7 Oct 2008 18:01:58 +0000 (+0000)
Subject: unless != if
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=ac6bb92564f6afce8d50fa77bb454f662b3b7e57

unless != if
---

diff --git a/marc-cleanup b/marc-cleanup
index 41aff58..a4f7ea5 100755
--- a/marc-cleanup
+++ b/marc-cleanup
@@ -203,8 +203,8 @@ sub write_record {
     print $FH '<!-- ', $recmeta{explanation}, " -->\n"
       if(defined $recmeta{explanation});
 
-    # LOOP OVER %trash TO EXCISE UNWANTED TAGS1
-    if (keys %trash) {
+    # excise unwanted tags
+    if (keys %trash or $conf->{autoscrub}) {
         my @trimmed = ();
         my $istrash = 0;
         for my $line (@record) {
@@ -235,7 +235,7 @@ sub write_record {
         $renumber = join('', '<datafield tag="', $conf->{'renumber-tag'}, '">',
                          '<subfield code="', $conf->{'renumber-subfield'}, '">',
                          $conf->{'renumber-from'}, '</subfield></datafield>');
-        $renumber .= "\n" unless $conf->{nocollapse};
+        $renumber .= "\n" if $conf->{nocollapse};
         push @record, $renumber;
         $conf->{'renumber-from'}++;
     }