From 7deccc0d0430c08e355be87ada8dcb9a074282ac Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Fri, 8 Jan 2016 07:01:19 -0800 Subject: [PATCH] JBAS-1037 Log patron purge count Signed-off-by: Bill Erickson --- KCLS/utility-scripts/import_students/generate-patrons-from-csv.pl | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) 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"); + } } } -- 2.11.0