From 7fe1b078c4978aa1b76816458f6ed7baeb6786ec Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Sun, 24 Feb 2008 03:18:36 +0000
Subject: Merging fix for 1895526

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2079 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/Form.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'LedgerSMB/Form.pm')

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;
 
-- 
cgit v1.2.3