X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/20bb56c1d57dde9492fef150edbfe0149a07ff08..e1cb00366d40cc3a1b07e065b51ad39c84baf7e6:/SL/IS.pm?ds=sidebyside diff --git a/SL/IS.pm b/SL/IS.pm index b19705364..2550393fe 100644 --- a/SL/IS.pm +++ b/SL/IS.pm @@ -155,7 +155,7 @@ sub invoice_details { my @payment_arrays = qw(payment paymentaccount paymentdate paymentsource paymentmemo); - map { $form->{TEMPLATE_ARRAYS}{$_} => [] } (@arrays, @tax_arrays, @payment_arrays); + map { $form->{TEMPLATE_ARRAYS}->{$_} = [] } (@arrays, @tax_arrays, @payment_arrays); foreach $item (sort { $a->[1] cmp $b->[1] } @partsgroup) { $i = $item->[0];