SF.net SVN: ledger-smb: [1141] trunk/LedgerSMB/Form.pm

[..hidden..]

Revision: 1141
          http://svn.sourceforge.net/ledger-smb/?rev=1141&view=rev
Author:   tetragon
Date:     2007-05-06 18:45:31 -0700 (Sun, 06 May 2007)

Log Message:
-----------
Fix interval units in $form->current_date

Modified Paths:
--------------
    trunk/LedgerSMB/Form.pm

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2007-05-07 01:45:18 UTC (rev 1140)
+++ trunk/LedgerSMB/Form.pm	2007-05-07 01:45:31 UTC (rev 1141)
@@ -2425,7 +2425,7 @@
 
         $query = qq|SELECT (to_date(?, ?) 
 				+ ?::interval)::date AS thisdate|;
-        @queryargs = ( $thisdate, $dateformat, $days );
+        @queryargs = ( $thisdate, $dateformat, sprintf('%d days', $days) );
 
     }
     else {


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.