Revision 9c63c160
Von Moritz Bunkus vor mehr als 15 Jahren hinzugefügt
| SL/DN.pm | ||
|---|---|---|
| 714 | 714 |
my $first = 1; |
| 715 | 715 |
while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
|
| 716 | 716 |
if ($first) {
|
| 717 |
map({ $form->{"dn_$_"} = []; } keys(%{$ref}));
|
|
| 717 |
$form->{TEMPLATE_ARRAYS} = {};
|
|
| 718 |
map({ $form->{TEMPLATE_ARRAYS}->{"dn_$_"} = []; } keys(%{$ref}));
|
|
| 718 | 719 |
$first = 0; |
| 719 | 720 |
} |
| 720 | 721 |
map { $ref->{$_} = $form->format_amount($myconfig, $ref->{$_}, 2) } qw(amount netamount paid open_amount fee interest linetotal);
|
| 721 | 722 |
map { $form->{$_} = $ref->{$_} } keys %$ref;
|
| 722 |
map { push @{ $form->{"dn_$_"} }, $ref->{$_}} keys %$ref;
|
|
| 723 |
map { push @{ $form->{TEMPLATE_ARRAYS}->{"dn_$_"} }, $ref->{$_} } keys %$ref;
|
|
| 723 | 724 |
} |
| 724 | 725 |
$sth->finish(); |
| 725 | 726 |
|
Auch abrufbar als: Unified diff
Die Funktionen in Template.pm zum Ersetzen von Schleifenvariablen so erweitert, dass die Schleifenarrays auch in $form->{TEMPLATE_ARRAYS} gesucht werden. Weiterhin die Druckmechanismen in IS.pm, OE.pm und DN.pm so angepasst, dass sie diese Unterebene benutzen, um die Positionswerte zu speichern. Dadurch wird verhindert, dass Elemente direkt in $form sowohl als Skalar als auch als Array benutzt werden (z.B. $form->{reqdate} = ... und push @{ $form->{reqdate} }, ...).