From: Bill Erickson <berickxx@gmail.com>
Date: Fri, 2 Dec 2016 19:02:23 +0000 (-0500)
Subject: JBAS-1437 bib linking log more info
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=7cef84e43cf90e47202e83e72bd0e21080a6ed6a;p=working%2FEvergreen.git

JBAS-1437 bib linking log more info

Signed-off-by: Bill Erickson <berickxx@gmail.com>
---

diff --git a/KCLS/linking/authority_control_fields.pl b/KCLS/linking/authority_control_fields.pl
index 91d9d7e9c4..a560384336 100755
--- a/KCLS/linking/authority_control_fields.pl
+++ b/KCLS/linking/authority_control_fields.pl
@@ -74,8 +74,9 @@ my $result = GetOptions(
 
 sub announce {
     my $msg = shift;
-    return unless $verbose;
-    print DateTime->now->strftime('%F %T') . " $msg\n";
+    my $force = shift;
+    return unless $force || $verbose;
+    print DateTime->now->strftime('%F %T') . " [$$] $msg\n";
 }
 
 if (!$result or $options{help}) {
@@ -710,8 +711,13 @@ sub update_record {
 
 my $count = 0;
 my $total = scalar(@records);
+announce("processing $total bib records", 1);
+
 foreach my $rec_id (@records) {
     $count++;
+
+    announce("processing $count of $total", 1) if ($count % 1000) == 0;
+
     announce("processing bib record $rec_id [$count of $total]");
 
     # State variable; was the record changed?