View | Details | Raw Unified | Return to bug 19008
Collapse All | Expand All

(-)a/misc/cronjobs/cleanup_database.pl (-2 / +17 lines)
Lines 44-50 use Koha::UploadedFiles; Link Here
44
44
45
sub usage {
45
sub usage {
46
    print STDERR <<USAGE;
46
    print STDERR <<USAGE;
47
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] [--temp-uploads] [--temp-uploads-days DAYS] [--uploads-missing 0|1 ] [--statistics DAYS] [--deleted-catalog DAYS] [--deleted-patrons DAYS] [--old-issues DAYS] [--old-reserves DAYS]
47
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] [--temp-uploads] [--temp-uploads-days DAYS] [--uploads-missing 0|1 ] [--statistics DAYS] [--deleted-catalog DAYS] [--deleted-patrons DAYS] [--old-issues DAYS] [--old-reserves DAYS] [--transfers DAYS]
48
48
49
   -h --help          prints this help message, and exits, ignoring all
49
   -h --help          prints this help message, and exits, ignoring all
50
                      other options
50
                      other options
Lines 90-95 Usage: $0 [-h|--help] [--sessions] [--sessdays DAYS] [-v|--verbose] [--zebraqueu Link Here
90
   --deleted-patrons DAYS  Purge deleted patrons older than DAYS days.
90
   --deleted-patrons DAYS  Purge deleted patrons older than DAYS days.
91
   --old-issues DAYS       Purge old issues older than DAYS days.
91
   --old-issues DAYS       Purge old issues older than DAYS days.
92
   --old-reserves DAYS     Purge old reserves older than DAYS days.
92
   --old-reserves DAYS     Purge old reserves older than DAYS days.
93
   --transfers DAYS        Purge arrived items transfers older than DAYS days.
93
USAGE
94
USAGE
94
    exit $_[0];
95
    exit $_[0];
95
}
96
}
Lines 120-125 my $pDeletedCatalog; Link Here
120
my $pDeletedPatrons;
121
my $pDeletedPatrons;
121
my $pOldIssues;
122
my $pOldIssues;
122
my $pOldReserves;
123
my $pOldReserves;
124
my $pTransfers;
123
125
124
GetOptions(
126
GetOptions(
125
    'h|help'            => \$help,
127
    'h|help'            => \$help,
Lines 148-153 GetOptions( Link Here
148
    'deleted-patrons:i' => \$pDeletedPatrons,
150
    'deleted-patrons:i' => \$pDeletedPatrons,
149
    'old-issues:i'      => \$pOldIssues,
151
    'old-issues:i'      => \$pOldIssues,
150
    'old-reserves:i'    => \$pOldReserves,
152
    'old-reserves:i'    => \$pOldReserves,
153
    'transfers:i'    => \$pTransfers,
151
) || usage(1);
154
) || usage(1);
152
155
153
# Use default values
156
# Use default values
Lines 186-191 unless ( $sessions Link Here
186
    || $pDeletedPatrons
189
    || $pDeletedPatrons
187
    || $pOldIssues
190
    || $pOldIssues
188
    || $pOldReserves
191
    || $pOldReserves
192
    || $pTransfers
189
) {
193
) {
190
    print "You did not specify any cleanup work for the script to do.\n\n";
194
    print "You did not specify any cleanup work for the script to do.\n\n";
191
    usage(1);
195
    usage(1);
Lines 432-437 if ($pOldReserves) { Link Here
432
    print "Done with purging old reserves.\n" if $verbose;
436
    print "Done with purging old reserves.\n" if $verbose;
433
}
437
}
434
438
439
if ($pTransfers) {
440
    print "Purging arrived item transfers older than $pTransfers days.\n" if $verbose;
441
    $sth = $dbh->prepare(
442
        q{
443
            DELETE FROM branchtransfers
444
            WHERE datearrived < DATE_SUB(CURDATE(), INTERVAL ? DAY)
445
        }
446
    );
447
    $sth->execute($pTransfers);
448
    print "Done with purging transfers.\n" if $verbose;
449
}
450
435
exit(0);
451
exit(0);
436
452
437
sub RemoveOldSessions {
453
sub RemoveOldSessions {
438
- 

Return to bug 19008