Fixing bug 1618938

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

1 files changed, 4 insertions, 4 deletions

diff --git a/LedgerSMB/CP.pm b/LedgerSMB/CP.pm
index 150e226d..635080e1 100755
--- a/LedgerSMB/CP.pm
+++ b/LedgerSMB/CP.pm
@@ -520,13 +520,13 @@ sub post_payment {
 			# update AR/AP transaction
 			$query = qq|
 				UPDATE $form->{arap} 
-				   SET paid = $amount,
-				       datepaid = '$form->{datepaid}'
-				 WHERE id = $form->{"id_$i"}|;
+				   SET paid = ?,
+				       datepaid = ?
+				 WHERE id = ?|;
 
 			$sth = $dbh->prepare($query);
 			$sth->execute(
-				$amount, $$form->{datepaid}, $form->{"id_$i"})
+				$amount, $form->{datepaid}, $form->{"id_$i"})
 					|| $form->dberror($query, 'CP.pm', 
 						530);