From: Galen Charlton <gmc@esilibrary.com>
Date: Wed, 1 Aug 2012 18:49:34 +0000 (-0400)
Subject: don't crash if record is dumped because it's missing its -ot
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=c427e4db4bbe3c6dc11bb8e5739a964fee6ac381

don't crash if record is dumped because it's missing its -ot

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
---

diff --git a/marc_cleanup b/marc_cleanup
index 4d7354e..c26525c 100755
--- a/marc_cleanup
+++ b/marc_cleanup
@@ -93,7 +93,7 @@ while ( buildrecord() ) {
     until ($ptr == $#record) {
         # get datafield/tag data if we have it
         $rc = stow_record_data() if ($c->{'renumber-from'} and $c->{'original-tag'});
-        return $rc if $rc;
+        next if $rc;
 
         # naked ampersands
         if ($record[$ptr] =~ /&/ && $record[$ptr] !~ /&\w+?;/)