#!/usr/bin/perl
+
+# Copyright 2009-2012, Equinox Software, Inc.
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 2
+# of the License, or (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+
use strict;
use warnings;
use open ':utf8';
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