From: Shawn Boyette <sboyette@esilibrary.com>
Date: Wed, 5 Nov 2008 19:48:18 +0000 (+0000)
Subject: line merge is smart now
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=f9721f535515d31a3b138a6bca0543cffbf0bbe7

line merge is smart now
---

diff --git a/marc-cleanup b/marc-cleanup
index 5984c36..fb4f702 100755
--- a/marc-cleanup
+++ b/marc-cleanup
@@ -83,7 +83,6 @@ while ( buildrecord() ) {
         }
         $recptr++;
     }
-
     write_record($NUMARC);
 }
 print $NUMARC "</collection>\n";
@@ -328,10 +327,20 @@ sub substitute {
 }
 
 sub merge_lines {
+    # remove <subfield stuff; extract (probably wrong) subfield code
     $record[$recptr] =~ s/^\s*<subfield code="(.*?)">//;
+    # and move to front of line
     $record[$recptr] = join(' ', $1 , $record[$recptr]);
-    $record[$recptr - 1] =~ s|<subfield>\n||;
+    # tear off trailing subfield tag from preceeding line
+    $record[$recptr - 1] =~ s|</subfield>\n||;
+    # join current line onto preceeding line
     $record[$recptr - 1] = join('', $record[$recptr - 1], $record[$recptr]);
+    # erase current line
+    my @a = @record[0 .. $recptr - 1];
+    my @b = @record[$recptr + 1 .. $#record];
+    @record = (@a, @b);
+    # move recorde pointer to previous line
+    $recptr--;
     print_linecontext();
     return 0;
 }