From fca90cadca0ee4dfda22486318756e06a4c263b8 Mon Sep 17 00:00:00 2001 From: Shawn Boyette Date: Tue, 19 Aug 2008 14:04:48 +0000 Subject: [PATCH] error report cleanups --- fingerprinter | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/fingerprinter b/fingerprinter index a08efea..7c4d1b2 100755 --- a/fingerprinter +++ b/fingerprinter @@ -76,7 +76,7 @@ sub populate_marc { my $my_008 = $record->field('008'); $my_008 = $my_008->as_string() if ($my_008); unless (defined $my_008 and length $my_008 == 40) - { print XF ">> Bad 008 field length in rec. $id\n"; return \%marc } + { print XF ">> Bad 008 length in rec ",$marc{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 @@ -264,7 +264,7 @@ sub dump_exception { unless (defined $marc->{date1}) { print XF "Missing date1. " } else - { print XF "Invalid date1: ", $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}); -- 1.7.2.5