initialize($conf);
open OF, '>', $conf->{output} or die "$0: cannot open output file $conf->{output}: $!\n";
-open XF, '>', $conf->{exception} or die "$0: cannot open exception file $conf->{output}: $!\n";
+open XF, '>', $conf->{exception} or die "$0: cannot open exception file $conf->{exception}: $!\n";
for my $file (@ARGV) {
print XF "Processing $file\n";
- my $batch = undef; my $record = undef;
- $batch = MARC::Batch->new($conf->{marctype}, $file);
+ my $batch = MARC::Batch->new($conf->{marctype}, $file);
$batch->strict_off();
$batch->warnings_off();
}
}
- if ($conf->{fingerprints}{edition} and $marc->{edition}) {
+ if ($conf->{fingerprints}{edition} and $marc->{edition} and $marc->{author}) {
print OF join("\t", $marc->{score}, $marc->{id}, "edition",
$marc->{item_form}, $marc->{date1},
$marc->{record_type}, $marc->{bib_lvl},
- $marc->{title}, $marc->{edition}), "\n";
+ $marc->{title}, $marc->{author}, $marc->{edition}), "\n";
}
if ($conf->{fingerprints}{issn} and $marc->{issn}) {
--tag=N -t Which tag to use (default 903)
--subfield=X -s Which subfield to use (default 'a')
--quiet -q Don't write status messages to STDOUT
- --ignoresubtitle -i Ignore 245$b and construct the title from 245$a alone.
+ --ignoresubtitle -i Ignore 245\$b and construct the title from 245\$a alone.
--fingerprints=LIST Fingerprints to generate, comma separated
Default: oclc,isbn,edition,issn,lccn,accomp,authpub