From ef8dc9da7e9c47b71f040c6a70d45b39aa1a67ec Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Wed, 21 Feb 2007 08:57:09 +0000 Subject: [PATCH] =?utf8?q?Beim=20Drucken=20doch=20nicht=20die=20Arrays=20i?= =?utf8?q?nitialisieren.=20Momentan=20werden=20n=C3=A4mlich=20in=20$form?= =?utf8?q?=20unter=20dem=20selben=20Key=20sowohl=20Skalare=20als=20auch=20?= =?utf8?q?Arrays=20abgelegt=20(beispielsweise=20reqdate).=20Das=20Skalar?= =?utf8?q?=20fliegt=20durch=20die=20Initialisierung=20des=20Arrays=20hinge?= =?utf8?q?gen=20raus.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit 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. --- SL/IS.pm | 2 -- SL/OE.pm | 5 ----- 2 files changed, 7 deletions(-) diff --git a/SL/IS.pm b/SL/IS.pm index 0e652874a..b1df09770 100644 --- 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 8873198c0..5b7c031af 100644 --- 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]; -- 2.20.1