Revision 1f6a2920
Von Waldemar Toews vor fast 11 Jahren hinzugefügt
bin/mozilla/sepa.pl | ||
---|---|---|
1 | 1 |
use strict; |
2 | 2 |
|
3 | 3 |
use List::MoreUtils qw(any none uniq); |
4 |
use List::Util qw(first); |
|
4 |
use List::Util qw(sum first);
|
|
5 | 5 |
use POSIX qw(strftime); |
6 | 6 |
|
7 | 7 |
use SL::BankAccount; |
... | ... | |
105 | 105 |
$form->error($locale->text('You have selected none of the invoices.')); |
106 | 106 |
} |
107 | 107 |
|
108 |
my $total_trans = sum map { $_->{open_amount} } @bank_transfers; |
|
109 |
|
|
108 | 110 |
my ($vc_bank_info); |
109 | 111 |
my $error_message; |
110 | 112 |
|
... | ... | |
136 | 138 |
'bank_account_label' => $bank_account_label_sub, |
137 | 139 |
'error_message' => $error_message, |
138 | 140 |
'vc' => $vc, |
141 |
'total_trans' => $total_trans, |
|
139 | 142 |
}); |
140 | 143 |
|
141 | 144 |
} else { |
Auch abrufbar als: Unified diff
Gesammtbetrag in der Maske für SEPA Überweisung ausgeben.