good-ify the output xml

git-svn-id: svn://svn.open-ils.org/ILS/trunk@12015 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/extras/import/marc_add_ids b/Open-ILS/src/extras/import/marc_add_ids
index 4f535bb..6ddb38d 100755 (executable)
--- a/Open-ILS/src/extras/import/marc_add_ids
+++ b/Open-ILS/src/extras/import/marc_add_ids
@@ -38,6 +38,8 @@ for (@fields) {
        $partcount++;
 }
 
+print '<collection xmlns="http://www.loc.gov/MARC21/slim">';
+
 my $count = 0;
 while (<>) {
        chomp;
@@ -99,6 +101,7 @@ while (<>) {
 
                my $x = $r->as_xml_record;
         $x =~ s/\n//gso;
+        $x =~ s/^<[^>]>//o;
         print $x."\n";
         $count++;
         print STDERR "\r$count" unless ($quiet || $count % 100);
@@ -108,4 +111,5 @@ while (<>) {
        };
 }
 
+print '</collection>';