diff options
Diffstat (limited to 'LedgerSMB/Form.pm')
-rwxr-xr-x | LedgerSMB/Form.pm | 2 |
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; |