From: Bill Erickson Date: Wed, 18 Nov 2015 16:01:58 +0000 (-0500) Subject: JBAS-980 auth-to-auth uses correct leader position X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=f92663c48639f73ace59fa01ce187d6c0da5d713;p=working%2FEvergreen.git 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 --- 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)) {