Converting some selectrow_array calls to fetchrow_array

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

1 files changed, 2 insertions, 2 deletions

diff --git a/LedgerSMB/CP.pm b/LedgerSMB/CP.pm
index b5f0df2d..33d47bcf 100755
--- a/LedgerSMB/CP.pm
+++ b/LedgerSMB/CP.pm
@@ -406,7 +406,7 @@ sub post_payment {
 
 			my $sth = $dbh->prepare($query);
 			$sth->execute($form->{"id_$i"});
-			my ($id) = $dbh->selectrow_array($query);
+			my ($id) = $sth->fetchrow_array;
 
 			$amount = 
 				$form->round_amount(
@@ -671,7 +671,7 @@ sub post_payments {
 			$sth = $sbh->prepare($query);
 			$sth->execute($form->{currency}, $form->{"id_$i"})
 				|| $form->dberror($query, 'CP.pm', 671);
-			my ($exchangerate) = $dbh->selectrow_array($query);
+			my ($exchangerate) = $sth->fetchrow_array;
 
 			$exchangerate ||= 1;