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";
}
}
- 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}) {