First round of tax code replacement, adds cumulative tax support

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@195 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 1 insertions, 1 deletions

diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index cd30803b..e5fa4f61 100755
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -1579,7 +1579,7 @@ sub check_exchangerate {
 
 	my $sth = $self->{dbh}->prepare($query);
 	$sth->execute($currenct, $transdate);
-	my ($exchangerate) = $sth->fetchrow_array($query);
+	my ($exchangerate) = $sth->fetchrow_array;
 
 	$sth->finish;
 	$self->{dbh}->commit;