From 2246e3cb0ce9b44b6113793c427607ae7a1cd0be Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Fri, 7 Sep 2012 11:44:22 -0400 Subject: [PATCH] [SIGNED-OFF] Bug 8739 - Partial Fine Payments Saving Amount Paid Incorrectly Content-Type: text/plain; charset="utf-8" Signed-off-by: Owen Leonard Confirmed using test plan that the display is corrected. --- C4/Accounts.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C4/Accounts.pm b/C4/Accounts.pm index 3606393..d49985e 100644 --- a/C4/Accounts.pm +++ b/C4/Accounts.pm @@ -762,7 +762,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 ); -- 1.7.9.5