@@ -, +, @@ --- C4/Accounts.pm | 29 ++++++++++++++--------------- 1 files changed, 14 insertions(+), 15 deletions(-) --- a/C4/Accounts.pm +++ a/C4/Accounts.pm @@ -182,22 +182,21 @@ sub makepayment { $descriptionpayment="Part Payment for account n°".$accountno.",thanks - ".$user." : ".$data->{'description'}; } - $dbh->do( + $sth = $dbh->prepare( "UPDATE accountlines - SET amountoutstanding = $newamountoutstanding - WHERE id = $accountlineid - " - ); - - # create new line - $dbh->do( " - INSERT INTO accountlines - (borrowernumber, accountno, date, time, amount, - description, accounttype, amountoutstanding, - note, meansofpayment, manager_id) - VALUES ($borrowernumber, $nextaccntno, now(), CURRENT_TIME, $payment, - '$descriptionpayment', 'Pay', 0, '$note', '$meansofpayment', '$manager_id') + SET amountoutstanding = ? + WHERE id = ? + "); + $sth->execute($newamountoutstanding,$accountlineid); + + $sth = $dbh->prepare( " + INSERT INTO accountlines + (borrowernumber, accountno, date, time, amount, + description, accounttype, amountoutstanding, note, + meansofpayment, manager_id) + VALUES (?,?, now(), CURRENT_TIME, ?, ?, 'Pay', 0, ?, ?, ?) " ); + $sth->execute($borrowernumber, $nextaccntno, $payment, $descriptionpayment, $note, $meansofpayment, $manager_id); # FIXME - The second argument to &UpdateStats is supposed to be the # branch code. @@ -211,7 +210,7 @@ sub makepayment { returnlost( $borrowernumber, $data->{'itemnumber'} ); } - my $sth = $dbh->prepare("SELECT max(id) AS lastinsertid FROM accountlines"); + $sth = $dbh->prepare("SELECT max(id) AS lastinsertid FROM accountlines"); $sth->execute(); my $datalastinsertid = $sth->fetchrow_hashref; $sth->finish; --