From af59820cb06ba396ba10ecd88f43a92c331a6066 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 8 Jul 2008 15:17:56 +0000
Subject: [PATCH] =?utf8?q?Beim=20Ausdruck=20wurde=20der=20Rabattbetrag=20n?=
 =?utf8?q?icht=20anst=C3=A4ndig=20auf=20ein=20Array=20gepackt,=20weil=20IS?=
 =?utf8?q?::customer=5Fdetails()=20$form->{discount}=20mit=20dem=20Wert=20?=
 =?utf8?q?aus=20der=20Datenbank=20bef=C3=BCllt;=20und=20deswegen=20ist=20$?=
 =?utf8?q?form->{discount}=20kein=20Array.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/IS.pm | 2 ++
 SL/OE.pm | 2 ++
 2 files changed, 4 insertions(+)

diff --git a/SL/IS.pm b/SL/IS.pm
index bf52d5223..e7a9178c5 100644
--- a/SL/IS.pm
+++ b/SL/IS.pm
@@ -130,6 +130,8 @@ sub invoice_details {
   my $subtotal_header = 0;
   my $subposition = 0;
 
+  $form->{discount} = [];
+
   my @arrays =
     qw(runningnumber number description longdescription qty ship unit bin
        deliverydate_oe ordnumber_oe transdate_oe licensenumber validuntil
diff --git a/SL/OE.pm b/SL/OE.pm
index 10b52e5c9..3c10dd38e 100644
--- a/SL/OE.pm
+++ b/SL/OE.pm
@@ -945,6 +945,8 @@ sub order_details {
 
   $form->{"globalprojectnumber"} = $projectnumbers{$form->{"globalproject_id"}};
 
+  $form->{discount} = [];
+
   my @arrays =
     qw(runningnumber number description longdescription qty ship unit bin
        partnotes serialnumber reqdate sellprice listprice netprice
-- 
2.20.1