SF.net SVN: ledger-smb: [1140] branches/1.2/LedgerSMB/Form.pm

[..hidden..]

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

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

Modified Paths:
--------------
    branches/1.2/LedgerSMB/Form.pm

Modified: branches/1.2/LedgerSMB/Form.pm
===================================================================
--- branches/1.2/LedgerSMB/Form.pm	2007-05-07 01:07:27 UTC (rev 1139)
+++ branches/1.2/LedgerSMB/Form.pm	2007-05-07 01:45:18 UTC (rev 1140)
@@ -2432,7 +2432,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.