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

(-)a/misc/cronjobs/writeoff_debts.pl (-4 / +4 lines)
Lines 60-67 if ($after) { Link Here
60
}
60
}
61
61
62
my $lines = Koha::Account::Lines->search( $where, $attr );
62
my $lines = Koha::Account::Lines->search( $where, $attr );
63
if ( $verbose ) {
63
if ( $verbose || !$confirm ) {
64
    print "Attempting to write off " . $lines->count . " debts";
64
    print "Attempting to write off " . $lines->count . " debts" if $confirm;
65
    print "With --confirm we would write off " . $lines->count . " debts" if !$confirm;
65
    print " of type " . join(',',@type) if @type;
66
    print " of type " . join(',',@type) if @type;
66
    print " added before " . $before if $before;
67
    print " added before " . $before if $before;
67
    print " from the passed list" if $file;
68
    print " from the passed list" if $file;
Lines 115-121 while ( my $line = $lines->next ) { Link Here
115
        );
116
        );
116
    }
117
    }
117
118
118
    if ($verbose) {
119
    if ($verbose || !$confirm) {
119
        if ($confirm) {
120
        if ($confirm) {
120
            say "Accountline " . $line->accountlines_id . " written off";
121
            say "Accountline " . $line->accountlines_id . " written off";
121
        }
122
        }
122
- 

Return to bug 34077