diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-09-30 02:40:48 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-09-30 02:40:48 +0000 |
| commit | b72eae997efc9f3319a237195909506fa563ad2a (patch) | |
| tree | dcea1c9c84519e35c64138206b95dd8b203adf93 /LedgerSMB/OE.pm | |
| parent | 5a6080def9976fee0f41f8731b0d32b4c7418b10 (diff) | |
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
Diffstat (limited to 'LedgerSMB/OE.pm')
| -rwxr-xr-x | LedgerSMB/OE.pm | 8 |
1 files 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); |