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

(limited to 'LedgerSMB')

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