Revision cb9719b1
Von Moritz Bunkus vor etwa 13 Jahren hinzugefügt
| bin/mozilla/sepa.pl | ||
|---|---|---|
| 113 | 113 |
} |
| 114 | 114 |
|
| 115 | 115 |
if ($error_message || !$form->{confirmation}) {
|
| 116 |
my @vc_ids = uniq map { $_->{"${vc}_id"} } @bank_transfers;
|
|
| 116 |
my @vc_ids = uniq map { $_->{vc_id} } @bank_transfers;
|
|
| 117 | 117 |
$vc_bank_info ||= CT->get_bank_info('vc' => $vc,
|
| 118 | 118 |
'id' => \@vc_ids); |
| 119 | 119 |
my @vc_bank_info = sort { lc $a->{name} cmp lc $b->{name} } values %{ $vc_bank_info };
|
| ... | ... | |
| 136 | 136 |
} else {
|
| 137 | 137 |
foreach my $bank_transfer (@bank_transfers) {
|
| 138 | 138 |
foreach (qw(iban bic)) {
|
| 139 |
$bank_transfer->{"vc_${_}"} = $vc_bank_info->{ $bank_transfer->{"${vc}_id"} }->{$_};
|
|
| 139 |
$bank_transfer->{"vc_${_}"} = $vc_bank_info->{ $bank_transfer->{vc_id} }->{$_};
|
|
| 140 | 140 |
$bank_transfer->{"our_${_}"} = $bank_account->{$_};
|
| 141 | 141 |
} |
| 142 | 142 |
|
Auch abrufbar als: Unified diff
IBAN/BIC durch Masken durchreichen
Bei Umstellung von "nur Überweisung" auf "auch Einzug" gingen IBAN/BIC
in den Masken verloren, weil die Eingabefelder "vc_bic" hießen, der
Code aber nach "${vc}_bic" gesucht hat, effektiv also nach
"customer_bic" oder "vendor_bic".