From 38a35c63244fe7de7dbcc60ddbeb23c908ebf833 Mon Sep 17 00:00:00 2001
From: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Mon, 7 May 2007 01:45:18 +0000
Subject: 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
---
 LedgerSMB/Form.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'LedgerSMB/Form.pm')

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 {
-- 
cgit v1.2.3