From ef87675055fd9ff2c92ee90515ae43c737fc5187 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Mon, 16 Oct 2017 13:08:22 +0200 Subject: [PATCH] Bug 19454: (Follow-up) Add a total line when updating Content-Type: text/plain; charset=utf-8 Test plan: [1] Run the script with -doit and -cat [some_category] and verify that the printed total is correct. Signed-off-by: Marcel de Rooy Signed-off-by: Charles Farmer --- misc/maintenance/borrowers-force-messaging-defaults.pl | 3 +++ 1 file changed, 3 insertions(+) diff --git a/misc/maintenance/borrowers-force-messaging-defaults.pl b/misc/maintenance/borrowers-force-messaging-defaults.pl index 897f5df..e327834 100755 --- a/misc/maintenance/borrowers-force-messaging-defaults.pl +++ b/misc/maintenance/borrowers-force-messaging-defaults.pl @@ -60,6 +60,7 @@ WHERE bo.dateenrolled >= ?|; $sql .= " AND categorycode = ?" if $category; my $sth = $dbh->prepare($sql); $sth->execute($since, $category || () ); + my $cnt = 0; while ( my ($borrowernumber, $categorycode) = $sth->fetchrow ) { print "$borrowernumber: $categorycode\n"; next unless $doit; @@ -67,8 +68,10 @@ WHERE bo.dateenrolled >= ?|; borrowernumber => $borrowernumber, categorycode => $categorycode, } ); + $cnt++; } $dbh->commit(); + print "Total borrowers updated: $cnt\n" if $doit; } -- 2.1.4