summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xLedgerSMB/Form.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index 4f73ea72..2d1db311 100755
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -1769,14 +1769,14 @@ sub get_exchangerate {
my $query = qq|
SELECT $fld FROM exchangerate
WHERE curr = ? AND transdate = ?|;
- $sth = $self->{dbh}->prepare($query);
+ my $sth = $self->{dbh}->prepare($query);
$sth->execute( $curr, $transdate );
($exchangerate) = $sth->fetchrow_array;
$exchangerate = Math::BigFloat->new($exchangerate);
+ $sth->finish;
}
- $sth->finish;
$self->{dbh}->commit;
$exchangerate;
}