From f92663c48639f73ace59fa01ce187d6c0da5d713 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Wed, 18 Nov 2015 11:01:58 -0500 Subject: [PATCH] JBAS-980 auth-to-auth uses correct leader position 008 indexes are zero-based. We want index 11, not 10. Signed-off-by: Bill Erickson --- KCLS/linking/authority_authority_linker.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/KCLS/linking/authority_authority_linker.pl b/KCLS/linking/authority_authority_linker.pl index 326e216c48..e190016211 100755 --- a/KCLS/linking/authority_authority_linker.pl +++ b/KCLS/linking/authority_authority_linker.pl @@ -157,7 +157,7 @@ while (my ($src, $links) = $sth->fetchrow_array) { my $src_rec = $e->retrieve_authority_record_entry($src) or die $e->die_event; my $src_marc = MARC::Record->new_from_xml($src_rec->marc); - my $Auth_Source_Indic = substr($src_marc->field('008')->data(), 10, 1); + my $Auth_Source_Indic = substr($src_marc->field('008')->data(), 11, 1); for my $link (split ';', $links) { my ($target, $field_id) = split ',', $link; @@ -168,7 +168,7 @@ while (my ($src, $links) = $sth->fetchrow_array) { die $e->die_event; my $target_marc = MARC::Record->new_from_xml($target_rec->marc); my $cni = $target_marc->field('003')->data; - my $Auth_Target_Indic = substr($target_marc->field('008')->data(), 10, 1); + my $Auth_Target_Indic = substr($target_marc->field('008')->data(), 11, 1); my $acsaf = get_acsaf($e, $field_id) or die $e->die_event; for my $field ($src_marc->field($acsaf->tag)) { -- 2.11.0