SF.net SVN: ledger-smb: [756] trunk/LedgerSMB/CP.pm

[..hidden..]

Revision: 756
          http://svn.sourceforge.net/ledger-smb/?rev=756&view=rev
Author:   einhverfr
Date:     2007-01-22 11:13:37 -0800 (Mon, 22 Jan 2007)

Log Message:
-----------
Fixing bug 1618938

Modified Paths:
--------------
    trunk/LedgerSMB/CP.pm

Modified: trunk/LedgerSMB/CP.pm
===================================================================
--- trunk/LedgerSMB/CP.pm	2007-01-22 19:03:33 UTC (rev 755)
+++ trunk/LedgerSMB/CP.pm	2007-01-22 19:13:37 UTC (rev 756)
@@ -516,13 +516,13 @@
 			# 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);
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.