SF.net SVN: ledger-smb: [167] trunk/LedgerSMB/OE.pm

[..hidden..]

Revision: 167
          http://svn.sourceforge.net/ledger-smb/?rev=167&view=rev
Author:   einhverfr
Date:     2006-09-29 19:40:48 -0700 (Fri, 29 Sep 2006)

Log Message:
-----------
Fixed issue of currency fields not populated

Modified Paths:
--------------
    trunk/LedgerSMB/OE.pm

Modified: trunk/LedgerSMB/OE.pm
===================================================================
--- trunk/LedgerSMB/OE.pm	2006-09-30 00:50:15 UTC (rev 166)
+++ trunk/LedgerSMB/OE.pm	2006-09-30 02:40:48 UTC (rev 167)
@@ -71,9 +71,7 @@
 		}
 	}
 
-	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 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 @@
 			$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);


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.