Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 25429: Require command line switch to enable, control DAYS via syspref

Browse source 
Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Kyle Hall 2021-05-13 09:28:36 -04:00 committed by Jonathan Druart
parent f28e817ea5
commit 5e4c7ce212
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
misc/cronjobs/cleanup_database.pl
View file

@ -109,7 +109,8 @@ Usage: $0 [-h|--help] [--confirm] [--sessions] [--sessdays DAYS] [-v|--verbose]
--pseudo-transactions-from YYYY-MM-DD and/or --pseudo-transactions-to YYYY-MM-DD
--labels DAYS Purge item label batches last added to more than DAYS days ago.
--cards DAY Purge card creator batches last added to more than DAYS days ago.
--return-claims Purge all resolved return claims older than the number of days specified in
the system preference CleanUpDatabaseReturnClaims.
USAGE
exit $_[0];
}
@ -129,7 +130,7 @@ my $pZ3950;
my $pListShareInvites;
my $pDebarments;
my $allDebarments;
my $return_claims = C4::Context->preference('CleanUpDatabaseReturnClaims');
my $return_claims;
my $pExpSelfReg;
my $pUnvSelfReg;
my $fees_days;
@ -186,6 +187,7 @@ GetOptions(
'pseudo-transactions-to:s' => \$pPseudoTransactionsTo,
'labels' => \$labels,
'cards' => \$cards,
'return-claims' => \$return_claims,
) || usage(1);
# Use default values
@ -528,6 +530,7 @@ if ($pStatistics) {
}
}
$return_claims = C4::Context->preference('CleanUpDatabaseReturnClaims') if $return_claims;
if ($return_claims) {
print "Purging return claims older than $return_claims days.\n" if $verbose;