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

(-)a/misc/cronjobs/cleanup_database.pl (-2 / +7 lines)
Lines 55-61 use Koha::Patron::Messages; Link Here
55
55
56
sub usage {
56
sub usage {
57
    print STDERR <<USAGE;
57
    print STDERR <<USAGE;
58
Usage: $0 [-h|--help] [--confirm] [--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]
58
Usage: $0 [-h|--help] [--confirm] [--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] [--labels DAYS] [--cards DAYS]
59
59
60
   -h --help          prints this help message, and exits, ignoring all
60
   -h --help          prints this help message, and exits, ignoring all
61
                      other options
61
                      other options
Lines 145-150 my $pOldReserves; Link Here
145
my $pTransfers;
145
my $pTransfers;
146
my ( $pPseudoTransactions, $pPseudoTransactionsFrom, $pPseudoTransactionsTo );
146
my ( $pPseudoTransactions, $pPseudoTransactionsFrom, $pPseudoTransactionsTo );
147
my $pMessages;
147
my $pMessages;
148
my $labels;
149
my $cards;
148
150
149
GetOptions(
151
GetOptions(
150
    'h|help'            => \$help,
152
    'h|help'            => \$help,
Lines 180-185 GetOptions( Link Here
180
    'pseudo-transactions:i'      => \$pPseudoTransactions,
182
    'pseudo-transactions:i'      => \$pPseudoTransactions,
181
    'pseudo-transactions-from:s' => \$pPseudoTransactionsFrom,
183
    'pseudo-transactions-from:s' => \$pPseudoTransactionsFrom,
182
    'pseudo-transactions-to:s'   => \$pPseudoTransactionsTo,
184
    'pseudo-transactions-to:s'   => \$pPseudoTransactionsTo,
185
    'labels'            => \$labels,
186
    'cards'             => \$cards,
183
) || usage(1);
187
) || usage(1);
184
188
185
# Use default values
189
# Use default values
Lines 225-230 unless ( $sessions Link Here
225
    || $pPseudoTransactionsFrom
229
    || $pPseudoTransactionsFrom
226
    || $pPseudoTransactionsTo
230
    || $pPseudoTransactionsTo
227
    || $pMessages
231
    || $pMessages
232
    || $labels
233
    || $cards
228
) {
234
) {
229
    print "You did not specify any cleanup work for the script to do.\n\n";
235
    print "You did not specify any cleanup work for the script to do.\n\n";
230
    usage(1);
236
    usage(1);
231
- 

Return to bug 15563