|
Lines 609-615
if ($pOldReserves) {
Link Here
|
| 609 |
print "Purging old reserves older than $pOldReserves days.\n" if $verbose; |
609 |
print "Purging old reserves older than $pOldReserves days.\n" if $verbose; |
| 610 |
my $old_reserves = Koha::Old::Holds->filter_by_last_update( { days => $pOldReserves } ); |
610 |
my $old_reserves = Koha::Old::Holds->filter_by_last_update( { days => $pOldReserves } ); |
| 611 |
my $count = $old_reserves->count; |
611 |
my $count = $old_reserves->count; |
| 612 |
$old_reserves->delete if $verbose; |
612 |
$old_reserves->delete if $confirm; |
| 613 |
if ($verbose) { |
613 |
if ($verbose) { |
| 614 |
say $confirm |
614 |
say $confirm |
| 615 |
? sprintf "Done with purging %d old reserves.", $count |
615 |
? sprintf "Done with purging %d old reserves.", $count |
|
Lines 626-632
if ($pTransfers) {
Link Here
|
| 626 |
} |
626 |
} |
| 627 |
); |
627 |
); |
| 628 |
my $count = $transfers->count; |
628 |
my $count = $transfers->count; |
| 629 |
$transfers->delete if $verbose; |
629 |
$transfers->delete if $confirm; |
| 630 |
if ($verbose) { |
630 |
if ($verbose) { |
| 631 |
say $confirm |
631 |
say $confirm |
| 632 |
? sprintf "Done with purging %d transfers.", $count |
632 |
? sprintf "Done with purging %d transfers.", $count |
| 633 |
- |
|
|