Fix skipnote spew and syntax.
authorRobin H. Johnson <rjohnson@sitka.bclibraries.ca>
Fri, 7 Oct 2011 20:56:20 +0000 (13:56 -0700)
committerRobin H. Johnson <rjohnson@sitka.bclibraries.ca>
Fri, 7 Oct 2011 20:56:20 +0000 (13:56 -0700)
Signed-off-by: Robin H. Johnson <rjohnson@sitka.bclibraries.ca>
marc_export_custom/marc_export_custom

index 75178af..0580218 100755 (executable)
@@ -49,7 +49,10 @@ GetOptions(
        'output-file=s' => \$output_file,
 );
 
-$cfg = new Config::Simple($exclusion_ini) if ($exclusion_ini);
+if ($exclusion_ini) {
+       die "exclusion ini file does not exist" unless (-r $exclusion_ini and -s $exclusion_ini);
+       $cfg = new Config::Simple($exclusion_ini) 
+}
 
 if ($help) {
 print <<"HELP";
@@ -575,5 +578,9 @@ sub add_bib_holdings {
 } # sub
 
 sub skipnote { 
-       printf(STDOUT "Skipped %s due to config: %s\n",$1,$2); 
+       my $id = shift;
+       my $note = shift;
+       my $outf = *STDERR;
+       $outf = *STDOUT if($output_file) ;
+       printf($outf "Skipped %s due to config: %s\n",$id,$note); 
 }