Revision ef8dc9da
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| SL/OE.pm | ||
|---|---|---|
| 970 | 970 |
discount p_discount discount_sub nodiscount_sub |
| 971 | 971 |
linetotal nodiscount_linetotal tax_rate projectnumber); |
| 972 | 972 |
|
| 973 |
my @tax_arrays = |
|
| 974 |
qw(taxbase tax taxdescription taxrate taxnumber); |
|
| 975 |
|
|
| 976 |
map({ $form->{$_} = [] } (@arrays, @tax_arrays));
|
|
| 977 |
|
|
| 978 | 973 |
my $sameitem = ""; |
| 979 | 974 |
foreach $item (sort { $a->[1] cmp $b->[1] } @partsgroup) {
|
| 980 | 975 |
$i = $item->[0]; |
Auch abrufbar als: Unified diff
Beim Drucken doch nicht die Arrays initialisieren. Momentan werden nämlich in $form unter dem selben Key sowohl Skalare als auch Arrays abgelegt (beispielsweise reqdate). Das Skalar fliegt durch die Initialisierung des Arrays hingegen raus.
Ja, das ist sehr sehr unsauber, stammt aber noch aus alten Tagen. Muss auch erst einmal so bleiben, bis ich eine geeignete Lösung habe, wie man das sauber trennt, ohne gleich wieder alle Variablen in den Vorlagen umzubenennen.