From 0e435524e81dac15e831f30d03cb08da7075082f Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Mon, 22 Jan 2007 19:15:27 +0000
Subject: Fixing bug 1618938

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@757 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/CP.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'LedgerSMB')

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