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