|
Lines 45-51
use Koha::UploadedFiles;
Link Here
|
| 45 |
|
45 |
|
| 46 |
sub usage { |
46 |
sub usage { |
| 47 |
print STDERR <<USAGE; |
47 |
print STDERR <<USAGE; |
| 48 |
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] |
48 |
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] |
| 49 |
|
49 |
|
| 50 |
-h --help prints this help message, and exits, ignoring all |
50 |
-h --help prints this help message, and exits, ignoring all |
| 51 |
other options |
51 |
other options |
|
Lines 89-94
Usage: $0 [-h|--help] [--sessions] [--sessdays DAYS] [-v|--verbose] [--zebraqueu
Link Here
|
| 89 |
--deleted-patrons DAYS Purge deleted patrons older than DAYS days. |
89 |
--deleted-patrons DAYS Purge deleted patrons older than DAYS days. |
| 90 |
--old-issues DAYS Purge old issues older than DAYS days. |
90 |
--old-issues DAYS Purge old issues older than DAYS days. |
| 91 |
--old-reserves DAYS Purge old reserves older than DAYS days. |
91 |
--old-reserves DAYS Purge old reserves older than DAYS days. |
|
|
92 |
--transfers DAYS Purge arrived items transfers older than DAYS days. |
| 92 |
USAGE |
93 |
USAGE |
| 93 |
exit $_[0]; |
94 |
exit $_[0]; |
| 94 |
} |
95 |
} |
|
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 149-154
GetOptions(
Link Here
|
| 149 |
'deleted-patrons:i' => \$pDeletedPatrons, |
151 |
'deleted-patrons:i' => \$pDeletedPatrons, |
| 150 |
'old-issues:i' => \$pOldIssues, |
152 |
'old-issues:i' => \$pOldIssues, |
| 151 |
'old-reserves:i' => \$pOldReserves, |
153 |
'old-reserves:i' => \$pOldReserves, |
|
|
154 |
'transfers:i' => \$pTransfers, |
| 152 |
) || usage(1); |
155 |
) || usage(1); |
| 153 |
|
156 |
|
| 154 |
# Use default values |
157 |
# Use default values |
|
Lines 188-193
unless ( $sessions
Link Here
|
| 188 |
|| $pDeletedPatrons |
191 |
|| $pDeletedPatrons |
| 189 |
|| $pOldIssues |
192 |
|| $pOldIssues |
| 190 |
|| $pOldReserves |
193 |
|| $pOldReserves |
|
|
194 |
|| $pTransfers |
| 191 |
) { |
195 |
) { |
| 192 |
print "You did not specify any cleanup work for the script to do.\n\n"; |
196 |
print "You did not specify any cleanup work for the script to do.\n\n"; |
| 193 |
usage(1); |
197 |
usage(1); |
|
Lines 449-454
if ($pOldReserves) {
Link Here
|
| 449 |
print "Done with purging old reserves.\n" if $verbose; |
453 |
print "Done with purging old reserves.\n" if $verbose; |
| 450 |
} |
454 |
} |
| 451 |
|
455 |
|
|
|
456 |
if ($pTransfers) { |
| 457 |
print "Purging arrived item transfers older than $pTransfers days.\n" if $verbose; |
| 458 |
$sth = $dbh->prepare( |
| 459 |
q{ |
| 460 |
DELETE FROM branchtransfers |
| 461 |
WHERE datearrived < DATE_SUB(CURDATE(), INTERVAL ? DAY) |
| 462 |
} |
| 463 |
); |
| 464 |
$sth->execute($pTransfers); |
| 465 |
print "Done with purging transfers.\n" if $verbose; |
| 466 |
} |
| 467 |
|
| 452 |
exit(0); |
468 |
exit(0); |
| 453 |
|
469 |
|
| 454 |
sub RemoveOldSessions { |
470 |
sub RemoveOldSessions { |
| 455 |
- |
|
|