From 9a6d3fe78d25444da9cc6d6582896ef14ff19bf5 Mon Sep 17 00:00:00 2001 From: Maxime Pelletier Date: Tue, 7 Feb 2012 11:10:32 -0500 Subject: [PATCH] Bug 6718 No manager_id saved for writeoff fines. Content-Type: text/plain; charset="utf-8" Signed-off-by: Liz Rea Tested per test plan. Passes prove xt t t/db_dependent --- members/pay.pl | 8 +++++--- 1 files changed, 5 insertions(+), 3 deletions(-) diff --git a/members/pay.pl b/members/pay.pl index 72a109f..e3377bf 100755 --- a/members/pay.pl +++ b/members/pay.pl @@ -111,6 +111,8 @@ output_html_with_http_headers $input, $cookie, $template->output; sub writeoff { my ( $accountnum, $itemnum, $accounttype, $amount ) = @_; + my $manager_id = 0; + $manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv; # if no item is attached to fine, make sure to store it as a NULL $itemnum ||= undef; @@ -118,7 +120,7 @@ sub writeoff { $writeoff_sth->execute( $accountnum, $borrowernumber ); my $acct = getnextacctno($borrowernumber); - $add_writeoff_sth->execute( $borrowernumber, $acct, $itemnum, $amount ); + $add_writeoff_sth->execute( $borrowernumber, $acct, $itemnum, $amount, $manager_id ); UpdateStats( $branch, 'writeoff', $amount, q{}, q{}, q{}, $borrowernumber ); @@ -282,8 +284,8 @@ sub get_writeoff_sth { . 'WHERE accountno=? and borrowernumber=?'; $writeoff_sth = $dbh->prepare($sql); my $insert = -q{insert into accountlines (borrowernumber,accountno,itemnumber,date,amount,description,accounttype)} - . q{values (?,?,?,now(),?,'Writeoff','W')}; +q{insert into accountlines (borrowernumber,accountno,itemnumber,date,amount,description,accounttype,manager_id)} + . q{values (?,?,?,now(),?,'Writeoff','W',?)}; $add_writeoff_sth = $dbh->prepare($insert); } return; -- 1.7.5.4