|
Lines 60-67
if ($after) {
Link Here
|
| 60 |
} |
60 |
} |
| 61 |
|
61 |
|
| 62 |
my $lines = Koha::Account::Lines->search( $where, $attr ); |
62 |
my $lines = Koha::Account::Lines->search( $where, $attr ); |
| 63 |
if ( $verbose ) { |
63 |
if ( $verbose || !$confirm ) { |
| 64 |
print "Attempting to write off " . $lines->count . " debts"; |
64 |
print "Attempting to write off " . $lines->count . " debts" if $confirm; |
|
|
65 |
print "With --confirm we would write off " . $lines->count . " debts" if !$confirm; |
| 65 |
print " of type " . join(',',@type) if @type; |
66 |
print " of type " . join(',',@type) if @type; |
| 66 |
print " added before " . $before if $before; |
67 |
print " added before " . $before if $before; |
| 67 |
print " from the passed list" if $file; |
68 |
print " from the passed list" if $file; |
|
Lines 115-121
while ( my $line = $lines->next ) {
Link Here
|
| 115 |
); |
116 |
); |
| 116 |
} |
117 |
} |
| 117 |
|
118 |
|
| 118 |
if ($verbose) { |
119 |
if ($verbose || !$confirm) { |
| 119 |
if ($confirm) { |
120 |
if ($confirm) { |
| 120 |
say "Accountline " . $line->accountlines_id . " written off"; |
121 |
say "Accountline " . $line->accountlines_id . " written off"; |
| 121 |
} |
122 |
} |
| 122 |
- |
|
|