View | Details | Raw Unified | Return to bug 30914
Collapse All | Expand All

(-)a/misc/cronjobs/cleanup_database.pl (-3 / +2 lines)
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
- 

Return to bug 30914