summaryrefslogtreecommitdiff
path: root/LedgerSMB/Form.pm
diff options
context:
space:
mode:
authortetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-05-07 01:45:31 +0000
committertetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-05-07 01:45:31 +0000
commit527f333c06aded55551063d3a4f47e2bcb9060fa (patch)
tree04ae6c2985660e9f7eac4108eff70d88414d141b /LedgerSMB/Form.pm
parentbcfae9282d22cd3763e28c20f9b9669ed646f4f7 (diff)
Fix interval units in $form->current_date
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1141 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/Form.pm')
-rw-r--r--LedgerSMB/Form.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index c2fdadf4..955f6310 100644
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -2425,7 +2425,7 @@ sub current_date {
$query = qq|SELECT (to_date(?, ?)
+ ?::interval)::date AS thisdate|;
- @queryargs = ( $thisdate, $dateformat, $days );
+ @queryargs = ( $thisdate, $dateformat, sprintf('%d days', $days) );
}
else {