From a295ff26c39f57d4b36a4115309e5a68b08fbee2 Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Wed, 5 Mar 2008 13:44:44 +0000 Subject: [PATCH] Kosmetik. --- bin/mozilla/oe.pl | 15 ++++++--------- 1 file changed, 6 insertions(+), 9 deletions(-) diff --git a/bin/mozilla/oe.pl b/bin/mozilla/oe.pl index 4d40e0bc7..656089fd9 100644 --- a/bin/mozilla/oe.pl +++ b/bin/mozilla/oe.pl @@ -1798,6 +1798,8 @@ sub purchase_order { sub sales_order { $lxdebug->enter_sub(); + $form->{"Watchdog::currency"} = 1; + check_oe_access(); $auth->assert('sales_order_edit'); @@ -1830,20 +1832,16 @@ sub poso { $form->{transdate} = $form->current_date(\%myconfig); delete $form->{duedate}; - $form->{closed} = 0; + $form->{closed} = 0; $form->{old_employee_id} = $form->{employee_id}; $form->{old_salesman_id} = $form->{salesman_id}; # reset - map { delete $form->{$_} } - qw(id subject message cc bcc printed emailed queued customer vendor creditlimit creditremaining discount tradediscount oldinvtotal); + 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)); + map { $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if ($form->{"${_}_${i}"}) } qw(ship qty sellprice listprice basefactor); } &order_links; @@ -1852,8 +1850,7 @@ sub poso { # format amounts for $i (1 .. $form->{rowcount} - 1) { - map { $form->{"${_}_$i"} =~ s/\"/"/g } - qw(partnumber description unit); + map { $form->{"${_}_$i"} =~ s/\"/"/g } qw(partnumber description unit); } &update; -- 2.20.1