From cb9719b1e759da01dbdd5a23ed7cdafd577ee843 Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Thu, 8 Sep 2011 17:34:31 +0200 Subject: [PATCH] IBAN/BIC durch Masken durchreichen MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit 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". --- bin/mozilla/sepa.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/bin/mozilla/sepa.pl b/bin/mozilla/sepa.pl index 9f9f31a22..f559c604b 100755 --- a/bin/mozilla/sepa.pl +++ b/bin/mozilla/sepa.pl @@ -113,7 +113,7 @@ sub bank_transfer_create { } if ($error_message || !$form->{confirmation}) { - my @vc_ids = uniq map { $_->{"${vc}_id"} } @bank_transfers; + my @vc_ids = uniq map { $_->{vc_id} } @bank_transfers; $vc_bank_info ||= CT->get_bank_info('vc' => $vc, 'id' => \@vc_ids); my @vc_bank_info = sort { lc $a->{name} cmp lc $b->{name} } values %{ $vc_bank_info }; @@ -136,7 +136,7 @@ sub bank_transfer_create { } else { foreach my $bank_transfer (@bank_transfers) { foreach (qw(iban bic)) { - $bank_transfer->{"vc_${_}"} = $vc_bank_info->{ $bank_transfer->{"${vc}_id"} }->{$_}; + $bank_transfer->{"vc_${_}"} = $vc_bank_info->{ $bank_transfer->{vc_id} }->{$_}; $bank_transfer->{"our_${_}"} = $bank_account->{$_}; } -- 2.20.1