From c440a20c234d4fa586ae30edd77377d08238eb6d Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Mon, 20 Oct 2008 01:16:29 +0000
Subject: Removing ca.pl's list_transactions and CA.pm's all_transactions

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2375 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/GL.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'LedgerSMB/GL.pm')

diff --git a/LedgerSMB/GL.pm b/LedgerSMB/GL.pm
index 63201e69..9d30d604 100644
--- a/LedgerSMB/GL.pm
+++ b/LedgerSMB/GL.pm
@@ -272,9 +272,11 @@ sub all_transactions {
         $apwhere .= " AND lower(ac.memo) LIKE $var";
     }
 
-    ( $form->{datefrom}, $form->{dateto} ) =
-      $form->from_to( $form->{year}, $form->{month}, $form->{interval} )
-      if $form->{year} && $form->{month};
+    if (!form->{datefrom} && !$form->{dateto} 
+		&& form->{year} && $form->{month}){
+        ( $form->{datefrom}, $form->{dateto} ) =
+          $form->from_to( $form->{year}, $form->{month}, $form->{interval} );
+    }
 
     if ( $form->{datefrom} ) {
         $glwhere .= " AND ac.transdate >= " . $dbh->quote( $form->{datefrom} );
-- 
cgit v1.2.3