summaryrefslogtreecommitdiff
path: root/LedgerSMB
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-09-30 02:40:48 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-09-30 02:40:48 +0000
commitb72eae997efc9f3319a237195909506fa563ad2a (patch)
treedcea1c9c84519e35c64138206b95dd8b203adf93 /LedgerSMB
parent5a6080def9976fee0f41f8731b0d32b4c7418b10 (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')
-rwxr-xr-xLedgerSMB/OE.pm8
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);