|
Lines 530-543
if ($pStatistics) {
Link Here
|
| 530 |
|
530 |
|
| 531 |
if ($return_claims) { |
531 |
if ($return_claims) { |
| 532 |
print "Purging return claims older than $return_claims days.\n" if $verbose; |
532 |
print "Purging return claims older than $return_claims days.\n" if $verbose; |
| 533 |
$sth = $dbh->prepare( |
533 |
|
| 534 |
q{ |
534 |
$return_claims = Koha::Checkouts::ReturnClaims->filter_by_last_update( |
| 535 |
DELETE FROM return_claims |
535 |
{ |
| 536 |
WHERE resolved_on < DATE_SUB(CURDATE(), INTERVAL ? DAY) |
536 |
timestamp_column_name => 'resolved_on', |
|
|
537 |
days => $return_claims |
| 537 |
} |
538 |
} |
| 538 |
); |
539 |
); |
| 539 |
$sth->execute($return_claims); |
540 |
|
| 540 |
print "Done with purging return claims.\n" if $verbose; |
541 |
my $count = $return_claims->count; |
|
|
542 |
$return_claims->delete if $confirm; |
| 543 |
|
| 544 |
if ($verbose) { |
| 545 |
say $confirm |
| 546 |
? sprintf "Done with purging %d resolved return claims.", $count |
| 547 |
: sprintf "%d resolved return claims would have been purged.", $count; |
| 548 |
} |
| 541 |
} |
549 |
} |
| 542 |
|
550 |
|
| 543 |
if ($pDeletedCatalog) { |
551 |
if ($pDeletedCatalog) { |
| 544 |
- |
|
|