@@ -, +, @@ --- misc/cronjobs/cleanup_database.pl | 20 +++++++++++++++++--- 1 file changed, 17 insertions(+), 3 deletions(-) --- a/misc/cronjobs/cleanup_database.pl +++ a/misc/cronjobs/cleanup_database.pl @@ -80,8 +80,11 @@ Usage: $0 [-h|--help] [--confirm] [--sessions] [--sessdays DAYS] [-v|--verbose] Defaults to 180 days if no days specified. --searchhistory DAYS purge entries from search_history older than DAYS days. Defaults to 30 days if no days specified - --list-invites DAYS purge (unaccepted) list share invites older than DAYS - days. Defaults to 14 days if no days specified. + --list-invites DAYS purge (unaccepted) list share invites older than DAYS days. + This parameter is prioritised over the + PurgeListShareInvitesOlderThan system preference. + Defaults to 14 days if neither this parameter or + the PurgeListShareInvitesOlderThan system preference are set. --restrictions DAYS purge patrons restrictions expired since more than DAYS days. Defaults to 30 days if no days specified. --all-restrictions purge all expired patrons restrictions. @@ -197,10 +200,21 @@ $pLogs = DEFAULT_LOGS_PURGEDAYS if defined($pLogs) $zebraqueue_days = DEFAULT_ZEBRAQ_PURGEDAYS if defined($zebraqueue_days) && $zebraqueue_days == 0; $mail = DEFAULT_MAIL_PURGEDAYS if defined($mail) && $mail == 0; $pSearchhistory = DEFAULT_SEARCHHISTORY_PURGEDAYS if defined($pSearchhistory) && $pSearchhistory == 0; -$pListShareInvites = DEFAULT_SHARE_INVITATION_EXPIRY_DAYS if defined($pListShareInvites) && $pListShareInvites == 0; $pDebarments = DEFAULT_DEBARMENTS_PURGEDAYS if defined($pDebarments) && $pDebarments == 0; $pMessages = DEFAULT_MESSAGES_PURGEDAYS if defined($pMessages) && $pMessages == 0; +# Choose the number of days at which to purge unaccepted list invites: +# - list-invites command line parameter is prioritised first +# - PurgeListShareInvitesOlderThan system preference is prioritised second +# - Default value of 14 days (when no days are specified in list-invites parameter) is prioritised last +if ( !defined($pListShareInvites) ) { + if ( C4::Context->preference('PurgeListShareInvitesOlderThan') ) { + $pListShareInvites = C4::Context->preference('PurgeListShareInvitesOlderThan'); + } +} elsif ( defined($pListShareInvites) && $pListShareInvites == 0 ) { + $pListShareInvites = DEFAULT_SHARE_INVITATION_EXPIRY_DAYS; +} + if ($help) { usage(0); } --