Bugzilla – Attachment 42995 Details for
Bug 14402
Add --fees option to cleanup_database.pl to purge all 0 balance fees and payments older than the given number of days
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug 14402: Add option --fees to /misc/cronjobs/cleanup_database.pl
Bug-14402-Add-option---fees-to-misccronjobscleanup.patch (text/plain), 3.63 KB, created by
Jonathan Druart
on 2015-10-01 09:25:06 UTC
(
hide
)
Description:
Bug 14402: Add option --fees to /misc/cronjobs/cleanup_database.pl
Filename:
MIME Type:
Creator:
Jonathan Druart
Created:
2015-10-01 09:25:06 UTC
Size:
3.63 KB
patch
obsolete
>From 10106e7aa208c8572b39154cf18e0270a234b888 Mon Sep 17 00:00:00 2001 >From: Barton Chittenden <barton@bywatersolutions.com> >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 <nkeener@washoecounty.us> > >Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org> >--- > 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 0766141..c79e4f0 100755 >--- a/misc/cronjobs/cleanup_database.pl >+++ b/misc/cronjobs/cleanup_database.pl >@@ -39,10 +39,11 @@ use C4::Dates; > use C4::Search; > use Getopt::Long; > use C4::Log; >+use C4::Accounts; > > sub usage { > print STDERR <<USAGE; >-Usage: $0 [-h|--help] [--sessions] [--sessdays DAYS] [-v|--verbose] [--zebraqueue DAYS] [-m|--mail] [--merged] [--import DAYS] [--logs DAYS] [--searchhistory DAYS] [--restrictions DAYS] [--all-restrictions] >+Usage: $0 [-h|--help] [--sessions] [--sessdays DAYS] [-v|--verbose] [--zebraqueue DAYS] [-m|--mail] [--merged] [--import DAYS] [--logs DAYS] [--searchhistory DAYS] [--restrictions DAYS] [--all-restrictions] [--fees DAYS] > > -h --help prints this help message, and exits, ignoring all > other options >@@ -60,6 +61,8 @@ Usage: $0 [-h|--help] [--sessions] [--sessdays DAYS] [-v|--verbose] [--zebraqueu > Defaults to 60 days if no days specified. > --z3950 purge records from import tables that are the result > of Z39.50 searches >+ --fees DAYS purge entries accountlines older than DAYS days, where >+ amountoutstanding is 0. > --logs DAYS purge entries from action_logs older than DAYS days. > Defaults to 180 days if no days specified. > --searchhistory DAYS purge entries from search_history older than DAYS days. >@@ -92,6 +95,10 @@ my ( > $allDebarments, > $pExpSelfReg, > $pUnvSelfReg, >+ $fees_days >+ $help, $sessions, $sess_days, $verbose, $zebraqueue_days, >+ $mail, $purge_merged, $pImport, $pLogs, $pSearchhistory, >+ $pZ3950, $pListShareInvites, $pDebarments, $allDebarments, > ); > > GetOptions( >@@ -105,6 +112,7 @@ GetOptions( > 'import:i' => \$pImport, > 'z3950' => \$pZ3950, > 'logs:i' => \$pLogs, >+ 'fees:i' => \$fees_days, > 'searchhistory:i' => \$pSearchhistory, > 'list-invites:i' => \$pListShareInvites, > 'restrictions:i' => \$pDebarments, >@@ -133,6 +141,7 @@ unless ( $sessions > || $purge_merged > || $pImport > || $pLogs >+ || $fees_days > || $pSearchhistory > || $pZ3950 > || $pListShareInvites >@@ -241,6 +250,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; > PurgeSearchHistory($pSearchhistory); >-- >2.1.0
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 14402
:
41043
|
41086
|
41087
|
41088
|
42242
|
42243
|
42244
|
42245
|
42246
|
42477
|
42478
|
42479
|
42480
|
42556
|
42557
|
42815
|
42816
|
42817
|
42818
|
42819
|
42820
|
42993
|
42994
| 42995 |
42996
|
42997
|
44664