From f08b294b364100063391fa02305e1c29389e92a3 Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Tue, 17 Oct 2023 12:49:55 +0100 Subject: [PATCH] Bug 34077: Update output to match POD This patch adds a check on !$confirm such that we enable verbose output should the confirm flag not be passed. This adheres with what the documentation already states. --- misc/cronjobs/writeoff_debts.pl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/misc/cronjobs/writeoff_debts.pl b/misc/cronjobs/writeoff_debts.pl index 1fc7ce18e38..f546df77b90 100755 --- a/misc/cronjobs/writeoff_debts.pl +++ b/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"; } -- 2.41.0