From: Shawn Boyette Date: Wed, 1 Oct 2008 17:28:08 +0000 (+0000) Subject: only one wrapping collection now X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=fae3d1a6e7ea31055b477390a422042157362f05 only one wrapping collection now --- 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 '',"\n"; +print $NUMARC '',"\n"; + open my $EXMARC, '>', 'incoming.exceptions.marc.xml'; print $EXMARC '',"\n"; +print $EXMARC '',"\n"; open MARC2, '<', $input; ; @@ -106,8 +109,8 @@ while (my $line = getline()) { } } -print $NUMARC "\n"; -print $EXMARC "\n"; +print $NUMARC "\n"; +print $EXMARC "\n"; print $OUT "\nDone. \n"; =head2 edit @@ -170,11 +173,9 @@ sub getline { sub write_record { my ($FH) = @_; - print $FH '',"\n"; print $FH '\n" if(defined $reccontext{explanation}); print $FH @record; - print $FH "\n"; } sub update_linecontext {