From 2ca5c9fb729d24c6a18c5f81b8ba0890b727b48a Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Thu, 22 Mar 2007 22:20:45 +0000
Subject: Final changes before release changes for -rc5:  2 errors corrected in
 OE.pm and /tools/cli moved to new User constructor

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@986 4979c152-3d1c-0410-bac9-87ea11338e46
---
 bin/pe.pl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'bin/pe.pl')

diff --git a/bin/pe.pl b/bin/pe.pl
index 62450bb3..57aa4bdb 100755
--- a/bin/pe.pl
+++ b/bin/pe.pl
@@ -2524,12 +2524,15 @@ sub generate_sales_orders {
   for (keys %{ $form->{order} }) {
     
     for (qw(type vc defaultcurrency login)) { $order->{$_} = $form->{$_} }
+    for (qw(currency)) { $order->{$_} = $form->{$_} }
     for (split / /, $form->{taxaccounts}) { $order->{"${_}_rate"} = $form->{"${_}_rate"} }
 
     $i = 0;
     $order->{"$order->{vc}_id"} = $_;
 
     AA->get_name(\%myconfig, \%$order);
+    PE->timecard_get_currency(\%$order);
+
 
     foreach $ref (@ {$form->{order}{$_} }) {
       $i++;
@@ -2543,16 +2546,15 @@ sub generate_sales_orders {
     }
     $order->{rowcount} = $i;
     
-    for (qw(currency)) { $order->{$_} = $form->{$_} }
 
     $order->{ordnumber} = $order->update_defaults(\%myconfig, 'sonumber');
     $order->{transdate} = $order->current_date(\%myconfig);
     $order->{reqdate} = $order->{transdate};
     
     for (qw(intnotes employee employee_id)) { delete $order->{$_} }
-    PE->timecard_get_currency(\%$order);
     
-
+    $order->debug;
+    $order->error();
     if (OE->save(\%myconfig, \%$order)) {
       if (! PE->allocate_projectitems(\%myconfig, \%$order)) {
 	OE->delete(\%myconfig, \%$order, ${LedgerSMB::Sysconfig::spool});
-- 
cgit v1.2.3