diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-02-24 03:18:36 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-02-24 03:18:36 +0000 |
| commit | 7fe1b078c4978aa1b76816458f6ed7baeb6786ec (patch) | |
| tree | d68ac84f9ae685f338769db850a2b7159eb2dd16 /LedgerSMB/Form.pm | |
| parent | 239834db495d79c0e1d05ac0d9202dc76b1e6474 (diff) | |
Merging fix for 1895526
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2079 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/Form.pm')
| -rw-r--r-- | LedgerSMB/Form.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index 05a23165..a71d7dca 100644 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -1541,7 +1541,9 @@ sub check_exchangerate { my $sth = $self->{dbh}->prepare($query); $sth->execute( $currency, $transdate ); - my ($exchangerate) = $sth->fetchrow_array; + my @array = $sth->fetchrow_array; + $self->db_parse_numeric(sth => $sth, arrayref => \@array); + my ($exchangerate) = @array; $sth->finish; |