@@ -, +, @@ --- misc/cronjobs/writeoff_debts.pl | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) --- a/misc/cronjobs/writeoff_debts.pl +++ a/misc/cronjobs/writeoff_debts.pl @@ -24,7 +24,7 @@ GetOptions( ); @type = split( /,/, join( ',', @type ) ); -pod2usage(1) if ( $help || !$file && !@type && !$before && !$after ); +pod2usage(1) if ( $help || !$file && !@type && !$before && !$after && !@category_code ); my $where = { 'amountoutstanding' => { '>' => 0 } }; my $attr = {}; @@ -67,7 +67,6 @@ if (@category_code) { my $lines = Koha::Account::Lines->search( $where, $attr ); -$verbose //= !$confirm; if ( $verbose ) { print "Attempting to write off " . $lines->count . " debts" if $confirm; print "With --confirm we would write off " . $lines->count . " debts" if !$confirm; @@ -202,8 +201,7 @@ This flag set the script to output logging for the actions it will perform. =item B<-c|--confirm> This flag must be provided in order for the script to actually -writeoff debts. If it is not supplied, the script will -only report on the accountline records it would have been written off. +writeoff debts. =back --