Merging fix for 1895526

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2079 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 4 insertions, 2 deletions

diff --git a/LedgerSMB/CP.pm b/LedgerSMB/CP.pm
index 683484fd..b901354b 100644
--- a/LedgerSMB/CP.pm
+++ b/LedgerSMB/CP.pm
@@ -665,7 +665,7 @@ sub post_payments {
 
             # get exchangerate for original
             $query = qq|
-				SELECT $buysell
+				SELECT $buysell AS fx
 				  FROM exchangerate e
 				  JOIN $form->{arap} a 
 				       ON (a.transdate = e.transdate)
@@ -675,7 +675,9 @@ sub post_payments {
             $sth = $dbh->prepare($query);
             $sth->execute( $form->{currency}, $form->{"id_$i"} )
               || $form->dberror( $query, 'CP.pm', 671 );
-            my ($exchangerate) = $sth->fetchrow_array;
+            my $ref = $sth->fetchrow_arrayref();
+            $form->db_parse_numeric(sth => $sth, arrayref => $ref);
+            my ($exchangerate) = @$ref;
 
             $exchangerate ||= 1;