Umwandlung von Kunden- in Lieferantenauftag und umgekehrt: prepare_order erwartet...
authorMoritz Bunkus <m.bunkus@linet-services.de>
Fri, 5 Jan 2007 09:49:52 +0000 (09:49 +0000)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Fri, 5 Jan 2007 09:49:52 +0000 (09:49 +0000)
bin/mozilla/oe.pl

index b991278..7209344 100644 (file)
@@ -2481,6 +2481,13 @@ sub poso {
   map { delete $form->{$_} }
     qw(id subject message cc bcc printed emailed queued customer vendor creditlimit creditremaining discount tradediscount oldinvtotal);
 
+  for $i (1 .. $form->{rowcount}) {
+    map({ $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig,
+                                                     $form->{"${_}_${i}"})
+            if ($form->{"${_}_${i}"}) }
+        qw(ship qty sellprice listprice basefactor));
+  }
+
   &order_links;
 
   &prepare_order;