From: Galen Charlton <gmc@esilibrary.com>
Date: Mon, 30 Jul 2012 17:32:35 +0000 (-0400)
Subject: improve marc_cleanup's parsing of MARCXML files
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=51e8d1e73795adf0fa387794c95495073c5a703e

improve marc_cleanup's parsing of MARCXML files

In particular, ones produced by use of MARC::File::XML->as_xml_record(),
which inserts namespace attributes in the record element.

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

diff --git a/marc_cleanup b/marc_cleanup
index 2c3a005..4d7354e 100755
--- a/marc_cleanup
+++ b/marc_cleanup
@@ -316,7 +316,7 @@ sub buildrecord {
     my $istrash = 0;
     my $trash = $c->{trash};
 
-    $l = <MARC> while (defined $l and $l !~ /<record>/);
+    $l = <MARC> while (defined $l and $l !~ /<record/);
     return $l unless defined $l;
     $c->{ricount}++;