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

(-)a/misc/cronjobs/writeoff_debts.pl (-3 / +7 lines)
Lines 24-30 GetOptions( Link Here
24
);
24
);
25
@type = split( /,/, join( ',', @type ) );
25
@type = split( /,/, join( ',', @type ) );
26
26
27
pod2usage(1) if ( $help || !$confirm && !$verbose || !$file && !@type && !$before && !$after );
27
pod2usage(1) if ( $help || !$file && !@type && !$before && !$after );
28
28
29
my $where = { 'amountoutstanding' => { '>' => 0 } };
29
my $where = { 'amountoutstanding' => { '>' => 0 } };
30
my $attr = {};
30
my $attr = {};
Lines 66-75 if (@category_code) { Link Here
66
}
66
}
67
67
68
my $lines = Koha::Account::Lines->search( $where, $attr );
68
my $lines = Koha::Account::Lines->search( $where, $attr );
69
70
$verbose //= !$confirm;
69
if ( $verbose ) {
71
if ( $verbose ) {
70
    print "Attempting to write off " . $lines->count . " debts";
72
    print "Attempting to write off " . $lines->count . " debts" if $confirm;
73
    print "With --confirm we would write off " . $lines->count . " debts" if !$confirm;
71
    print " of type " . join(',',@type) if @type;
74
    print " of type " . join(',',@type) if @type;
75
    print " for patron categories " . join(', ', @category_code) if @category_code;
72
    print " added before " . $before if $before;
76
    print " added before " . $before if $before;
77
    print " added after " . $after if $after;
73
    print " from the passed list" if $file;
78
    print " from the passed list" if $file;
74
    print "\n";
79
    print "\n";
75
}
80
}
76
- 

Return to bug 34077