From dbeca7c2e5f64bab69b9ab5dd25dcd455b1860cd Mon Sep 17 00:00:00 2001
From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
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.

Signed-off-by: Caroline Cyr La Rose <caroline.cyr-la-rose@inlibro.com>
---
 misc/cronjobs/writeoff_debts.pl | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/misc/cronjobs/writeoff_debts.pl b/misc/cronjobs/writeoff_debts.pl
index 8d808185391..858c5a2324e 100755
--- a/misc/cronjobs/writeoff_debts.pl
+++ b/misc/cronjobs/writeoff_debts.pl
@@ -24,7 +24,7 @@ GetOptions(
 );
 @type = split( /,/, join( ',', @type ) );
 
-pod2usage(1) if ( $help || !$confirm && !$verbose || !$file && !@type && !$before && !$after );
+pod2usage(1) if ( $help || !$file && !@type && !$before && !$after );
 
 my $where = { 'amountoutstanding' => { '>' => 0 } };
 my $attr = {};
@@ -66,10 +66,15 @@ if (@category_code) {
 }
 
 my $lines = Koha::Account::Lines->search( $where, $attr );
+
+$verbose //= !$confirm;
 if ( $verbose ) {
-    print "Attempting to write off " . $lines->count . " debts";
+    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 " for patron categories " . join(', ', @category_code) if @category_code;
     print " added before " . $before if $before;
+    print " added after " . $after if $after;
     print " from the passed list" if $file;
     print "\n";
 }
-- 
2.43.0