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/RP.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/RP.pm')
-rwxr-xr-x | LedgerSMB/RP.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/LedgerSMB/RP.pm b/LedgerSMB/RP.pm index b1cd54d7..fa036bc8 100755 --- a/LedgerSMB/RP.pm +++ b/LedgerSMB/RP.pm @@ -572,7 +572,7 @@ sub get_accounts { $sth->finish; if ($form->{method} eq 'cash' && !$todate) { - ($todate) = $dbh->selectrow_array(qq|SELECT current_date FROM defaults|); + ($todate) = $dbh->selectrow_array(qq|SELECT current_date|); } if ($fromdate) { @@ -1353,13 +1353,13 @@ sub aging { my $dbh = $form->dbconnect($myconfig); my $invoice = ($form->{arap} eq 'ar') ? 'is' : 'ir'; - my $query = qq|SELECT curr FROM defaults|; + my $query = qq|SELECT value FROM defaults WHERE settings_key = 'curr'|; ($form->{currencies}) = $dbh->selectrow_array($query); ($null, $form->{todate}) = $form->from_to($form->{year}, $form->{month}) if $form->{year} && $form->{month}; if (! $form->{todate}) { - $query = qq|SELECT current_date FROM defaults|; + $query = qq|SELECT current_date|; ($form->{todate}) = $dbh->selectrow_array($query); } @@ -1721,7 +1721,7 @@ sub tax_report { my $todate = $form->{todate}; if (! $todate) { - ($todate) = $dbh->selectrow_array(qq|SELECT current_date FROM defaults|); + ($todate) = $dbh->selectrow_array(qq|SELECT current_date|); } $cashwhere = qq| |