From b72eae997efc9f3319a237195909506fa563ad2a Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Sat, 30 Sep 2006 02:40:48 +0000
Subject: Fixed issue of currency fields not populated

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@167 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/OE.pm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/LedgerSMB/OE.pm b/LedgerSMB/OE.pm
index 5d85faa8..c2b2a283 100755
--- a/LedgerSMB/OE.pm
+++ b/LedgerSMB/OE.pm
@@ -71,9 +71,7 @@ sub transactions {
 		}
 	}
 
-	if ($form->{vc} == 'customer'){ # Sanitize $form->{vc}
-		$form->{vc} = 'customer';
-	} else {
+	if ($form->{vc} ne 'customer'){ # Sanitize $form->{vc}
 		$form->{vc} = 'vendor';
 	}
 	my $query = qq|
@@ -244,7 +242,7 @@ sub transactions {
 
 sub save {
 	my ($self, $myconfig, $form) = @_;
-  
+ 
 	$form->db_prepare_vars("quonumber", "transdate", "vendor_id",
 		"customer_id", "reqdate", "taxincluded", "shippingpoint",
 		"shipvia", "currency", "department_id",
@@ -352,7 +350,7 @@ sub save {
 			$form->{transdate}, $form->{vendor_id},
 			$form->{customer_id}, $form->{reqdate},
 			$form->{shippingpoint}, $form->{shipvia},
-			$form->{notes}, $form->{intnotes}, $form->{curr},
+			$form->{notes}, $form->{intnotes}, $form->{currency},
 			$form->{closed}, $form->{department_id}, 
 			$form->{employee_id}, $form->{language_code}, 
 			$form->{ponumber}, $form->{terms}, $quotation);
-- 
cgit v1.2.3