|
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 |
- |
|
|