From: Shawn Boyette <sboyette@esilibrary.com>
Date: Mon, 1 Dec 2008 14:35:35 +0000 (+0000)
Subject: substitute logic corrected. old $line_in thrown away
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=81f369a04477145665467adb7032a63fd20c8301

substitute logic corrected. old $line_in thrown away
---

diff --git a/marc-cleanup b/marc-cleanup
index 02c776e..01ea115 100755
--- a/marc-cleanup
+++ b/marc-cleanup
@@ -354,11 +354,11 @@ sub message {
 #-----------------------------------------------------------------------------------
 
 sub substitute {
-    my ($line_in, @chunks) = @_;
+    my (@chunks) = @_;
 
     my $ofrom = shift @chunks;
-    if ($ofrom =~ /^'/ or !@chunks) {
-        until ($ofrom =~ /'$/)
+    if ($ofrom =~ /^'/) {
+        until ($ofrom =~ /'$/ or !@chunks)
           { $ofrom .= join(' ','',shift @chunks) }
         $ofrom =~ s/^'//; $ofrom =~ s/'$//;
     }
@@ -439,7 +439,7 @@ sub display_lines {
 }
 
 sub dump_record {
-    my ($line_in, @explanation) = @_;
+    my (@explanation) = @_;
     $recmeta{explanation} = join(' ', 'Tag', $recmeta{tag}, @explanation);
     write_record($EXMARC);
     return 1;