From: Bill Erickson <berickxx@gmail.com>
Date: Fri, 8 Jan 2016 15:01:19 +0000 (-0800)
Subject: JBAS-1037 Log patron purge count
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=7deccc0d0430c08e355be87ada8dcb9a074282ac;p=working%2FEvergreen.git

JBAS-1037 Log patron purge count

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

diff --git a/KCLS/utility-scripts/import_students/generate-patrons-from-csv.pl b/KCLS/utility-scripts/import_students/generate-patrons-from-csv.pl
index 4ec47fbaa7..25753c96ce 100755
--- a/KCLS/utility-scripts/import_students/generate-patrons-from-csv.pl
+++ b/KCLS/utility-scripts/import_students/generate-patrons-from-csv.pl
@@ -25,6 +25,7 @@ my $alert2_msg      = 'DO NOT MERGE OR EDIT. RECORD MANAGED CENTRALLY.';
 my $alert_type      = 20; # "Alerting note, no Blocks" standing penalty
 my $root_org        = 1; # KCLS org unit for penalty application
 my $expire_age      = 18; # Kent (for now) uses 21. 
+my $purge_count     = 0; # useful for local logging
 my $db_handle;
 my %new_barcodes;
 my @failures;       # one row per student account that failed for any reason
@@ -539,8 +540,11 @@ sub purge_patron {
                 if $err = $@;
         }
 
-        announce('DEBUG', "User $bc (ID $user_id) successfully purged") 
-            unless $err;
+        if (!$err) { # could be set directly above
+            $purge_count++;
+            announce('DEBUG', 
+                "User $bc (ID $user_id) [$purge_count] successfully purged");
+        }
     }
 }