From fae3d1a6e7ea31055b477390a422042157362f05 Mon Sep 17 00:00:00 2001
From: Shawn Boyette <sboyette@esilibrary.com>
Date: Wed, 1 Oct 2008 17:28:08 +0000
Subject: [PATCH] only one wrapping collection now

---
 marc-cleanup |    9 +++++----
 1 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/marc-cleanup b/marc-cleanup
index e5dbe4c..9a06e40 100755
--- a/marc-cleanup
+++ b/marc-cleanup
@@ -24,8 +24,11 @@ my $input = shift || 'incoming.marc.xml';
 open MARC, '<', $input;
 open my $NUMARC, '>', 'incoming.clean.marc.xml';
 print $NUMARC '<?xml version="1.0" encoding="UTF-8"?>',"\n";
+print $NUMARC '<collection xmlns="http://www.loc.gov/MARC21/slim">',"\n";
+
 open my $EXMARC, '>', 'incoming.exceptions.marc.xml';
 print $EXMARC '<?xml version="1.0" encoding="UTF-8"?>',"\n";
+print $EXMARC '<collection xmlns="http://www.loc.gov/MARC21/slim">',"\n";
 open MARC2, '<', $input;
 <MARC2>;
 
@@ -106,8 +109,8 @@ while (my $line = getline()) {
     }
 
 }
-print $NUMARC "</xml>\n";
-print $EXMARC "</xml>\n";
+print $NUMARC "</collection>\n";
+print $EXMARC "</collection>\n";
 print $OUT "\nDone.               \n";
 
 =head2 edit
@@ -170,11 +173,9 @@ sub getline {
 
 sub write_record {
     my ($FH) = @_;
-    print $FH '<collection xmlns="http://www.loc.gov/MARC21/slim">',"\n";
     print $FH '<!-- ', $reccontext{explanation}, " -->\n"
       if(defined $reccontext{explanation});
     print $FH @record;
-    print $FH "</collection>\n";
 }
 
 sub update_linecontext {
-- 
1.7.2.5