Beim Drucken doch nicht die Arrays initialisieren. Momentan werden nämlich in $form...

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.

diff --git a/SL/IS.pm b/SL/IS.pm
index 0e652874a270b77f98bd7cb936563ea382540e24..b1df09770cddc1bf0f3fb9206d3774e2def38a56 100644 (file)
--- a/SL/IS.pm
+++ b/SL/IS.pm
@@ -130,8 +130,6 @@ sub invoice_details {
   my @tax_arrays =
     qw(taxbase tax taxdescription taxrate taxnumber);
 
-  map({ $form->{$_} = [] } (@arrays, @tax_arrays));
-
   foreach $item (sort { $a->[1] cmp $b->[1] } @partsgroup) {
     $i = $item->[0];
 

diff --git a/SL/OE.pm b/SL/OE.pm
index 8873198c07ba4cfa459ab7b2cfdfee1f1dbd8c36..5b7c031afade91762466f608237b6d42d7dfce0e 100644 (file)
--- a/SL/OE.pm
+++ b/SL/OE.pm
@@ -970,11 +970,6 @@ sub order_details {
        discount p_discount discount_sub nodiscount_sub
        linetotal  nodiscount_linetotal tax_rate projectnumber);
 
-  my @tax_arrays =
-    qw(taxbase tax taxdescription taxrate taxnumber);
-
-  map({ $form->{$_} = [] } (@arrays, @tax_arrays));
-
   my $sameitem = "";
   foreach $item (sort { $a->[1] cmp $b->[1] } @partsgroup) {
     $i = $item->[0];