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 5957a50..8009153 100755 (executable)
--- 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;