diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-31 03:30:39 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-31 03:30:39 +0000 |
| commit | c0e83f8de881755f3b5e9b624c1c17ae2d4649ab (patch) | |
| tree | ed788a6c04e35faf8a6b26e8afe16096efa61608 /LedgerSMB/CP.pm | |
| parent | e2bbcb8d35f48c73d989c3d01bc5a028df8aac32 (diff) | |
Defaults table revision. Most COA's and System->defaults are known to be broken.
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@413 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/CP.pm')
| -rwxr-xr-x | LedgerSMB/CP.pm | 22 |
1 files changed, 16 insertions, 6 deletions
diff --git a/LedgerSMB/CP.pm b/LedgerSMB/CP.pm index 8e1a21f6..8cd22162 100755 --- a/LedgerSMB/CP.pm +++ b/LedgerSMB/CP.pm @@ -88,8 +88,12 @@ sub paymentaccounts { $sth->finish; # get currencies and closedto - $query = qq|SELECT curr, closedto, current_date - FROM defaults|; + $query = qq| + SELECT value, (SELECT value FROM defaults + WHERE setting_key = 'closedto'), + current_date + FROM defaults + WHERE setting_key = 'curr'|; ($form->{currencies}, $form->{closedto}, $form->{datepaid}) = $dbh->selectrow_array($query); @@ -325,8 +329,11 @@ sub post_payment { $form->{exchangerate} = 1; } - my $query = qq|SELECT fxgain_accno_id, fxloss_accno_id - FROM defaults|; + my $query = qq| + SELECT (SELECT value FROM defaults + WHERE setting_key='fxgain_accno_id'), + (SELECT value FROM defaults + WHERE setting_key='fxloss_accno_id'|; my ($fxgain_accno_id, $fxloss_accno_id) = $dbh->selectrow_array($query); @@ -573,8 +580,11 @@ sub post_payments { $form->{exchangerate} = 1; } - my $query = qq|SELECT fxgain_accno_id, fxloss_accno_id - FROM defaults|; + my $query = qq| + SELECT (SELECT value FROM defaults + WHERE setting_key='fxgain_accno_id'), + (SELECT value FROM defaults + WHERE setting_key='fxloss_accno_id'|; my ($fxgain_accno_id, $fxloss_accno_id) = $dbh->selectrow_array($query); |