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 0e65287..b1df097 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 8873198..5b7c031 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];