From f813038b3c19ab6e5cf457f6cbac0afad20dd0ab Mon Sep 17 00:00:00 2001 From: Shawn Boyette Date: Thu, 7 Aug 2008 14:26:56 +0000 Subject: [PATCH] exception report sub'd out --- fingerprinter | 31 +++++++++++++++++++++---------- 1 files changed, 21 insertions(+), 10 deletions(-) diff --git a/fingerprinter b/fingerprinter index 25114d5..919744c 100755 --- a/fingerprinter +++ b/fingerprinter @@ -40,20 +40,11 @@ for my $file (@ARGV) { my $marc = populate_marc($record, $id); $marc = normalize_marc($marc); - unless ($marc->{item_form} and ($marc->{date1} =~ /\d{4}/) and $marc->{record_type} and $marc->{bib_lvl} and $marc->{title}) { - 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 record_type. " unless ($marc->{record_type}); - print XF "Missing bib_lvl. " unless ($marc->{bib_lvl}); - print XF "Missing title. " unless ($marc->{title}); - print XF "\n"; + dump_exception($marc); next; } - dump_fingerprints($marc); } } @@ -225,6 +216,26 @@ sub dump_fingerprints { } + +=head2 dump_exception + +Write line of exception report + +=cut + +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 record_type. " unless ($marc->{record_type}); + print XF "Missing bib_lvl. " unless ($marc->{bib_lvl}); + print XF "Missing title. " unless ($marc->{title}); + print XF "\n"; +} + + =head2 initialyze Performs boring script initialization. Handles argument parsing, -- 1.7.2.5