summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authortetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-10-08 21:31:51 +0000
committertetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-10-08 21:31:51 +0000
commit93b41545c84770c2a4376ee31cdad361678131fe (patch)
tree2fa5b8c0a43e8fdce5b6f761fe10e683842c8b82
parentda889e04b6f9d4d914d21c9d5fa31658f87db036 (diff)
Scoping adjustment and fixing 1809384
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1721 4979c152-3d1c-0410-bac9-87ea11338e46
-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;
}