From: Bill Erickson <berickxx@gmail.com>
Date: Fri, 29 Sep 2017 14:53:16 +0000 (-0400)
Subject: JBAS-1470 Bib linking script minor cleanup
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=d2cadcbea77d76baa1f120f5098923593e56171d;p=working%2FEvergreen.git

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 <berickxx@gmail.com>
---

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;