From 9b4777291fde9257bbfbb1a026d3a64ff71c93f3 Mon Sep 17 00:00:00 2001 From: Maxime Pelletier Date: Tue, 7 Feb 2012 10:37:49 -0500 Subject: [PATCH] Bug 6634 manager_id and itemnumber not populated when paying fines --- C4/Accounts.pm | 14 ++++++++------ 1 files changed, 8 insertions(+), 6 deletions(-) diff --git a/C4/Accounts.pm b/C4/Accounts.pm index 860e187..d2517c2 100644 --- a/C4/Accounts.pm +++ b/C4/Accounts.pm @@ -201,10 +201,10 @@ sub makepayment { my $ins = $dbh->prepare( "INSERT - INTO accountlines (borrowernumber, accountno, date, amount, description, accounttype, amountoutstanding) - VALUES ( ?, ?, now(), ?, 'Payment,thanks', 'Pay', 0)" + INTO accountlines (borrowernumber, accountno, date, amount, itemnumber, description, accounttype, amountoutstanding, manager_id) + VALUES ( ?, ?, now(), ?, ?, 'Payment,thanks', 'Pay', 0, ?)" ); - $ins->execute($borrowernumber, $nextaccntno, $payment); + $ins->execute($borrowernumber, $nextaccntno, $payment, $data->{'itemnumber'}, $manager_id); $ins->finish; } @@ -725,6 +725,8 @@ sub recordpayment_selectaccts { # fills in sub makepartialpayment { my ( $borrowernumber, $accountno, $amount, $user, $branch ) = @_; + my $manager_id = 0; + $manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv; if (!$amount || $amount < 0) { return; } @@ -743,11 +745,11 @@ sub makepartialpayment { # create new line my $insert = 'INSERT INTO accountlines (borrowernumber, accountno, date, amount, ' - . 'description, accounttype, amountoutstanding) ' - . ' VALUES (?, ?, now(), ?, ?, ?, 0)'; + . 'description, accounttype, amountoutstanding, itemnumber, manager_id) ' + . ' VALUES (?, ?, now(), ?, ?, ?, 0, ?, ?)'; $dbh->do( $insert, undef, $borrowernumber, $nextaccntno, $amount, - "Payment, thanks - $user", 'Pay'); + "Payment, thanks - $user", 'Pay', $data->{'itemnumber'}, $manager_id); UpdateStats( $user, 'payment', $amount, '', '', '', $borrowernumber, $accountno ); -- 1.7.2.5