summaryrefslogtreecommitdiff
path: root/LedgerSMB/GL.pm
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2008-10-20 01:16:29 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2008-10-20 01:16:29 +0000
commitc440a20c234d4fa586ae30edd77377d08238eb6d (patch)
tree17cf782c268b6e1bd92826c63683291c05ea8e18 /LedgerSMB/GL.pm
parent70c29cebc700cf9cd2f63b0a333b61aca85ac30d (diff)
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
Diffstat (limited to 'LedgerSMB/GL.pm')
-rw-r--r--LedgerSMB/GL.pm8
1 files changed, 5 insertions, 3 deletions
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} );