Bug 8739 - Partial Fine Payments Saving Amount Paid Incorrectly

Signed-off-by: Owen Leonard <oleonard@myacpl.org>

Confirmed using test plan that the display is corrected.

Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
This commit is contained in:
Kyle Hall 2012-09-07 11:44:22 -04:00 committed by Paul Poulain
parent 761ed98690
commit 5954631aea

View file

@ -760,7 +760,7 @@ sub makepartialpayment {
. 'description, accounttype, amountoutstanding, itemnumber, manager_id) '
. ' VALUES (?, ?, now(), ?, ?, ?, 0, ?, ?)';
$dbh->do( $insert, undef, $borrowernumber, $nextaccntno, $amount,
$dbh->do( $insert, undef, $borrowernumber, $nextaccntno, 0 - $amount,
"Payment, thanks - $user", 'Pay', $data->{'itemnumber'}, $manager_id);
UpdateStats( $user, 'payment', $amount, '', '', '', $borrowernumber, $accountno );