SF.net SVN: ledger-smb: [2066] trunk/LedgerSMB

[..hidden..]

Revision: 2066
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2066&view=rev
Author:   einhverfr
Date:     2008-01-30 12:25:16 -0800 (Wed, 30 Jan 2008)

Log Message:
-----------

Correcting date range dropdown issues in AP Outstanding report.

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

Modified: trunk/LedgerSMB/AA.pm
===================================================================
--- trunk/LedgerSMB/AA.pm	2008-01-30 20:00:19 UTC (rev 2065)
+++ trunk/LedgerSMB/AA.pm	2008-01-30 20:25:16 UTC (rev 2066)
@@ -746,10 +746,12 @@
         $table   = 'ap';
         $buysell = 'sell';
     }
+    $form->{db_dateformat} = $myconfig->{dateformat};
 
     ( $form->{transdatefrom}, $form->{transdateto} ) =
       $form->from_to( $form->{year}, $form->{month}, $form->{interval} )
-      if $form->{year} && $form->{month};
+      if (($form->{year} && $form->{month}) && 
+          (!$form->{transdatefrom} && !$form->{transdateto}));
 
     my @paidargs = ();
     if ( $form->{outstanding} ) {

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2008-01-30 20:00:19 UTC (rev 2065)
+++ trunk/LedgerSMB/Form.pm	2008-01-30 20:25:16 UTC (rev 2066)
@@ -3408,7 +3408,7 @@
     $t[3] = substr( "0$t[3]", -2 );
     $t[5] += 1900;
 
-    ( $self->format_date($fromdate), $self->format_date("$t[5]-$t[4]-$t[3]") );
+    return ( $self->format_date($fromdate), $self->format_date("$t[5]-$t[4]-$t[3]") );
 }
 
 =item $form->audittrail($dbh, $myconfig, $audittrail);


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