SF.net SVN: ledger-smb: [757] branches/1.2/LedgerSMB/CP.pm

[..hidden..]

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

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

Modified Paths:
--------------
    branches/1.2/LedgerSMB/CP.pm

Modified: branches/1.2/LedgerSMB/CP.pm
===================================================================
--- branches/1.2/LedgerSMB/CP.pm	2007-01-22 19:13:37 UTC (rev 756)
+++ branches/1.2/LedgerSMB/CP.pm	2007-01-22 19:15:27 UTC (rev 757)
@@ -520,13 +520,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.