@@ -, +, @@ - Count : select count(*),date(timestamp) from old_reserves group by date(timestamp); - Run cleanup : misc/cronjobs/cleanup_database.pl -v --old-reserves 30 - Recount --- misc/cronjobs/cleanup_database.pl | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) --- a/misc/cronjobs/cleanup_database.pl +++ a/misc/cronjobs/cleanup_database.pl @@ -45,7 +45,7 @@ use Koha::UploadedFiles; sub usage { print STDERR < \$help, @@ -146,6 +148,7 @@ GetOptions( 'deleted-catalog:i' => \$pDeletedCatalog, 'deleted-patrons:i' => \$pDeletedPatrons, 'old-issues:i' => \$pOldIssues, + 'old-reserves:i' => \$pOldReserves, ) || usage(1); # Use default values @@ -184,6 +187,7 @@ unless ( $sessions || $pDeletedCatalog || $pDeletedPatrons || $pOldIssues + || $pOldReserves ) { print "You did not specify any cleanup work for the script to do.\n\n"; usage(1); @@ -433,6 +437,18 @@ if ($pOldIssues) { print "Done with purging old issues.\n" if $verbose; } +if ($pOldReserves) { + print "Purging old reserves older than $pOldReserves days.\n" if $verbose; + $sth = $dbh->prepare( + q{ + DELETE FROM old_reserves + WHERE timestamp < DATE_SUB(CURDATE(), INTERVAL ? DAY) + } + ); + $sth->execute($pOldReserves); + print "Done with purging old reserves.\n" if $verbose; +} + exit(0); sub RemoveOldSessions { --