summaryrefslogtreecommitdiff
path: root/LedgerSMB/Form.pm
diff options
context:
space:
mode:
authortetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-05-07 01:45:18 +0000
committertetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-05-07 01:45:18 +0000
commit38a35c63244fe7de7dbcc60ddbeb23c908ebf833 (patch)
treecb87c65c6be5fa86c268cc25e56ebf4d6ec728b2 /LedgerSMB/Form.pm
parentfe037183dc1902663297ced40bebb107e6653a1c (diff)
Fix interval units in $form->current_date
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1140 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/Form.pm')
-rwxr-xr-xLedgerSMB/Form.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index 23b6d866..24504afc 100755
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -2432,7 +2432,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 {