Revision fdb14a85
Von Moritz Bunkus vor etwa 15 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 155 | 155 |
|
| 156 | 156 |
my @payment_arrays = qw(payment paymentaccount paymentdate paymentsource paymentmemo); |
| 157 | 157 |
|
| 158 |
map { $form->{TEMPLATE_ARRAYS}{$_} => [] } (@arrays, @tax_arrays, @payment_arrays);
|
|
| 158 |
map { $form->{TEMPLATE_ARRAYS}->{$_} = [] } (@arrays, @tax_arrays, @payment_arrays);
|
|
| 159 | 159 |
|
| 160 | 160 |
foreach $item (sort { $a->[1] cmp $b->[1] } @partsgroup) {
|
| 161 | 161 |
$i = $item->[0]; |
Auch abrufbar als: Unified diff
Auch wirklich $form->{TEMPLATE_ARRAYS}->{...} initialisieren, und nicht nur den Key ansprechen.