Solved Bug 503. Patch von TkKleindienst im Forum. Bitte testen.

BTW. kommt die qw-Konstruktion noch zwei weitere Male in dem
Modul vor. Muss das auch angepasst werden?

diff --git a/SL/OE.pm b/SL/OE.pm
index 460e191a069d7675e0641eff1880c5f36fd749bd..f421596374e05d5a67664d17e672bb6cbeeab001 100644 (file)
--- a/SL/OE.pm
+++ b/SL/OE.pm
@@ -1021,7 +1021,9 @@ sub order_details {
       $sameitem = $item->[1];
 
       map { push(@{ $form->{$_} }, "") }
       $sameitem = $item->[1];
 
       map { push(@{ $form->{$_} }, "") }

-        qw(runningnumber number qty ship unit bin partnotes serialnumber reqdate sellprice listprice netprice discount linetotal);
+        qw(runningnumber number qty ship unit bin partnotes 
+        serialnumber reqdate sellprice listprice netprice 
+        discount pdiscountlinetotal);

     }
 
     $form->{"qty_$i"} = $form->parse_amount($myconfig, $form->{"qty_$i"});
     }
 
     $form->{"qty_$i"} = $form->parse_amount($myconfig, $form->{"qty_$i"});