|
Lines 209-214
unless ( $sessions
Link Here
|
| 209 |
|| $pOldReserves |
209 |
|| $pOldReserves |
| 210 |
|| $pTransfers |
210 |
|| $pTransfers |
| 211 |
|| defined $pPseudoTransactions |
211 |
|| defined $pPseudoTransactions |
|
|
212 |
|| $pPseudoTransactionsFrom |
| 213 |
|| $pPseudoTransactionsTo |
| 212 |
) { |
214 |
) { |
| 213 |
print "You did not specify any cleanup work for the script to do.\n\n"; |
215 |
print "You did not specify any cleanup work for the script to do.\n\n"; |
| 214 |
usage(1); |
216 |
usage(1); |
|
Lines 456-463
if ($pTransfers) {
Link Here
|
| 456 |
print "Done with purging transfers.\n" if $verbose; |
458 |
print "Done with purging transfers.\n" if $verbose; |
| 457 |
} |
459 |
} |
| 458 |
|
460 |
|
| 459 |
if (defined $pPseudoTransactions) { |
461 |
if (defined $pPseudoTransactions or $pPseudoTransactionsFrom or $pPseudoTransactionsTo ) { |
| 460 |
print "Purging pseudonymized transactions older than $pPseudoTransactions days.\n" if $verbose; |
462 |
print "Purging pseudonymized transactions\n" if $verbose; |
| 461 |
Koha::PseudonymizedTransactions->filter_by_last_update( |
463 |
Koha::PseudonymizedTransactions->filter_by_last_update( |
| 462 |
{ |
464 |
{ |
| 463 |
timestamp_column_name => 'datetime', |
465 |
timestamp_column_name => 'datetime', |
| 464 |
- |
|
|