#!/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};
-open XF, '>', $conf->{exception};
+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";
for my $file (@ARGV) {
print XF "Processing $file\n";
$batch->strict_off();
$batch->warnings_off();
- while ( $record = $batch->next ) {
+ my $record;
+ while ( 1 ) {
+ eval { $record = $batch->next; };
+ if ($@) {
+ import MARC::File::XML;
+ print "skipping bad record: $@\n";
+ next;
+ }
+ last unless $record;
$count++; progress_ticker();
my $marc = undef;
unless ( defined $record )
$marc{pages} = $1 if (defined $marc{desc} and $marc{desc} =~ /(\d+)/);
$marc{title} = $record->field('245')->subfield('a')
if $record->field('245');
+ $marc{title} .= ' ' . $record->field('245')->subfield('b')
+ if ($record->field('245') and
+ $record->field('245')->subfield('b') and
+ not $conf->{ignoresubtitle});
$marc{edition} = $record->field('250')->subfield('a')
if $record->field('250');
if ($record->field('260')) {
'arbitrarily-lose-below=i',
'newwins',
'excludelist=s',
+ 'ignoresubtitle|i',
'quiet|q',
'help|h',
);
--prefix=<PREFIX>> -p Shared prefix for output/exception files. Will
produce PREFIX.fp and PREFIX.fp.ex
Options
- --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
+ --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.
--fingerprints=LIST Fingerprints to generate, comma separated
Default: oclc,isbn,edition,issn,lccn,accomp,authpub