From 81f369a04477145665467adb7032a63fd20c8301 Mon Sep 17 00:00:00 2001 From: Shawn Boyette Date: Mon, 1 Dec 2008 14:35:35 +0000 Subject: [PATCH] substitute logic corrected. old $line_in thrown away --- marc-cleanup | 8 ++++---- 1 files changed, 4 insertions(+), 4 deletions(-) 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; -- 1.7.2.5