X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=marc_cleanup;h=524109eb3dcde5e7bf41a9717eb01e55c142d6f2;hp=58a68c163e0786ee2ef20ce154ce2de3f3b1e398;hb=43afa94e2a1e3f6a24a731b71ddf5b3e6d30ee0a;hpb=00daef49e8646e7ecd55f44525237241aa9e17a0

diff --git a/marc_cleanup b/marc_cleanup
index 58a68c1..524109e 100755
--- a/marc_cleanup
+++ b/marc_cleanup
@@ -660,6 +660,13 @@ sub initialize {
     $c->{'renumber-tag'} = 903 unless defined $c->{'renumber-tag'};
     $c->{'renumber-subfield'} = 'a' unless defined $c->{'renumber-subfield'};
     $c->{window} = 9;
+	if ($c->{marcfile} and $c->{prefix}) { abort('You can not declare a marc file and prefix.'); }
+    if ($c->{marcfile}) {
+        $c->{output} = join('.',$c->{marcfile},'clean')
+          unless $c->{output};
+        $c->{exception} = join('.',$c->{marcfile},'exception')
+          unless $c->{exception};
+    }
     if ($c->{prefix}) {
         $c->{output} = join('.',$c->{prefix},'clean','marc','xml')
           unless $c->{output};
@@ -685,6 +692,12 @@ sub initialize {
       if ( $c->{'original-tag'} and $c->{trash}->has($c->{'original-tag'}) );
 }
 
+sub abort {
+    my $msg = shift;
+    print STDERR "$0: $msg", "\n";
+    exit 1;
+}
+
 sub show_help {
     print <<HELP;
 Usage is: marc_cleanup [OPTIONS] <filelist>