From 2f2b53c9d2e2c929a9013dc373aa1dbf07c9743e Mon Sep 17 00:00:00 2001 From: Shawn Boyette Date: Wed, 13 Aug 2008 22:22:46 +0000 Subject: [PATCH] more better error reporting --- fingerprinter | 7 +++++-- 1 files changed, 5 insertions(+), 2 deletions(-) diff --git a/fingerprinter b/fingerprinter index 7bad37e..e89587e 100755 --- a/fingerprinter +++ b/fingerprinter @@ -70,6 +70,8 @@ sub populate_marc { # date1, date2 my $my_008 = $record->field('008'); $my_008 = $my_008->as_string() if ($my_008); + unless (length $my_008 == 40) + { print XF ">> Bad 008 field length in rec. $id\n"; return $marc } $marc{date1} = substr($my_008,7,4) if ($my_008); $marc{date2} = substr($my_008,11,4) if ($my_008); # UNUSED @@ -239,8 +241,9 @@ sub dump_exception { my ($marc) = @_; print XF "Record ", $marc->{id}, " did not make the cut: "; print XF "Missing item_form. " unless ($marc->{item_form}); - print XF "Missing valid date1. " - unless (defined $marc->{date1} and $marc->{date1} =~ /\d{4}/); + print XF "Missing date1. " unless (defined $marc->{date1}); + print XF "Invalid date1: ", $marc->{date1} + unless ($marc->{date1} =~ /\d{4}/); print XF "Missing record_type. " unless ($marc->{record_type}); print XF "Missing bib_lvl. " unless ($marc->{bib_lvl}); print XF "Missing title. " unless ($marc->{title}); -- 1.7.2.5