From f26caf3c919e7c65b48be7f268bee6ade13b2eac Mon Sep 17 00:00:00 2001 From: Shawn Boyette Date: Mon, 3 Nov 2008 18:17:08 +0000 Subject: [PATCH] folding alternative date searching into mainline fingerprinter --- fingerprinter | 9 +++++++++ 1 files changed, 9 insertions(+), 0 deletions(-) diff --git a/fingerprinter b/fingerprinter index 246252d..06f62f7 100755 --- a/fingerprinter +++ b/fingerprinter @@ -80,6 +80,15 @@ sub populate_marc { $marc{date1} = substr($my_008,7,4) if ($my_008); $marc{date2} = substr($my_008,11,4) if ($my_008); # UNUSED + unless ($marc{date1} and $marc{date1} =~ /\d{4}/) { + my $my_260 = $record->field('260'); + my $date1 = $my_260->subfield('c') if $my_260; + if (defined $date1 and $date1 =~ /\d{4}/) { + $marc{date1} = $date1; + print XF ">> using 260c as date1 on $id\n"; + } + } + # item_form if ( $marc{record_type} =~ /[gkroef]/ ) { # MAP, VIS $marc{item_form} = substr($my_008,29,1) if ($my_008); -- 1.7.2.5