From 9f6ac9be117013087fbe1d79879e4e60c66a1ad8 Mon Sep 17 00:00:00 2001 From: Barton Chittenden Date: Sat, 18 Jul 2015 13:29:29 -0700 Subject: [PATCH] Bug 14402: Add option --fees to /misc/cronjobs/cleanup_database.pl This will call C4::Accounts::purge_zero_balance_fees to remove all rows from accountlines which have 0 balance, and are more than DAYS old. Test plan: Run: t/db_dependent/Accounts.t If all unit tests pass, the --fees option to /misc/cronjobs/cleanup_database.pl should act as documented, because it is a straight pass-through to C4::Accounts::purge_zero_balance_fees(). http://bugs.koha-community.org/show_bug.cgi?id=14402 Signed-off-by: Nancy Keener Signed-off-by: Jonathan Druart Signed-off-by: Tomas Cohen Arazi --- misc/cronjobs/cleanup_database.pl | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) diff --git a/misc/cronjobs/cleanup_database.pl b/misc/cronjobs/cleanup_database.pl index e882b4bb59..ef013a1467 100755 --- a/misc/cronjobs/cleanup_database.pl +++ b/misc/cronjobs/cleanup_database.pl @@ -40,10 +40,11 @@ use C4::Search; use C4::Search::History; use Getopt::Long; use C4::Log; +use C4::Accounts; sub usage { print STDERR < \$pImport, 'z3950' => \$pZ3950, 'logs:i' => \$pLogs, + 'fees:i' => \$fees_days, 'searchhistory:i' => \$pSearchhistory, 'list-invites:i' => \$pListShareInvites, 'restrictions:i' => \$pDebarments, @@ -134,6 +142,7 @@ unless ( $sessions || $purge_merged || $pImport || $pLogs + || $fees_days || $pSearchhistory || $pZ3950 || $pListShareInvites @@ -242,6 +251,12 @@ if ($pLogs) { print "Done with purging action_logs.\n" if $verbose; } +if ($fees_days) { + print "Purging records from accountlines.\n" if $verbose; + purge_zero_balance_fees( $fees_days ); + print "Done purging records from accountlines.\n" if $verbose; +} + if ($pSearchhistory) { print "Purging records older than $pSearchhistory from search_history.\n" if $verbose; C4::Search::History::delete({ interval => $pSearchhistory }); -- 2.39.5