@@ -, +, @@ --- misc/cronjobs/writeoff_debts.pl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) --- a/misc/cronjobs/writeoff_debts.pl +++ a/misc/cronjobs/writeoff_debts.pl @@ -60,8 +60,9 @@ if ($after) { } my $lines = Koha::Account::Lines->search( $where, $attr ); -if ( $verbose ) { - print "Attempting to write off " . $lines->count . " debts"; +if ( $verbose || !$confirm ) { + print "Attempting to write off " . $lines->count . " debts" if $confirm; + print "With --confirm we would write off " . $lines->count . " debts" if !$confirm; print " of type " . join(',',@type) if @type; print " added before " . $before if $before; print " from the passed list" if $file; @@ -115,7 +116,7 @@ while ( my $line = $lines->next ) { ); } - if ($verbose) { + if ($verbose || !$confirm) { if ($confirm) { say "Accountline " . $line->accountlines_id . " written off"; } --