|
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 |
- |
|
|