'force901' => \$force901,
'exclusion_ini=s' => \$exclusion_ini,
'collapse_to_depth=i' => \$collapse_to_depth,
- 'output-file=s' => \$output_file,
+ 'output-file=s' => \$output_file,
);
if ($exclusion_ini) {
- die "exclusion ini file does not exist" unless (-r $exclusion_ini and -s $exclusion_ini);
- $cfg = new Config::Simple($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) {
} otherwise {
my $e = shift;
my $errorid = $id;
- chomp($errorid);
+ chomp($errorid);
chomp($e);
warn "\nERROR ON RECORD $errorid: $e\n";
import MARC::File::XML; # reset SAX parser so that one bad record doesn't kill the entire export
} # sub
sub skipnote {
- 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);
+ 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);
}