From d2cadcbea77d76baa1f120f5098923593e56171d Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Fri, 29 Sep 2017 10:53:16 -0400 Subject: [PATCH] JBAS-1470 Bib linking script minor cleanup Avoid updating each bib record until all linkining work is done. Minor logging improvements. Signed-off-by: Bill Erickson --- KCLS/authority-control/linking/authority_control_fields.pl | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/KCLS/authority-control/linking/authority_control_fields.pl b/KCLS/authority-control/linking/authority_control_fields.pl index 5957a50962..800915325d 100755 --- a/KCLS/authority-control/linking/authority_control_fields.pl +++ b/KCLS/authority-control/linking/authority_control_fields.pl @@ -527,12 +527,8 @@ foreach my $rec_id (@records) { } if ($is_fast_heading) { - # Update record after potentially removing a bogus - # fast heading above. - update_record($record, $marc) if $changed; - # We don't control fast headings, so there's nothing - # left to do. Move on to the next field... + # elst to do. Move on to the next field... $KU->announce('DEBUG', "No linking performed on FAST heading ". "field on rec=$rec_id and tag=$c_tag"); @@ -577,7 +573,7 @@ foreach my $rec_id (@records) { next; } - $KU->announce('INFO', "Match query returned @$validates"); + $KU->announce('INFO', "Match query returned auth rec(s): @$validates"); # No matches found. Nothing left to do for this field. next if scalar(@$validates) == 0; -- 2.11.0