From 69427772d0348bb3dcc029933d16800558aed870 Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Fri, 2 Nov 2018 15:10:44 +0000 Subject: [PATCH] Bug 19066: (QA follow-up) Add handling in add_credit --- C4/Circulation.pm | 4 +++- Koha/Account.pm | 6 +++++- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/C4/Circulation.pm b/C4/Circulation.pm index ffab6a986d..25c488c497 100644 --- a/C4/Circulation.pm +++ b/C4/Circulation.pm @@ -2426,12 +2426,14 @@ sub _FixAccountForLostAndReturned { : 0; if ( $total_to_refund > 0 ) { + my $branchcode = C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef; my $account = Koha::Patrons->find( $accountline->borrowernumber )->account; $credit = $account->add_credit( { amount => $total_to_refund, description => 'Item Returned ' . $item_id, - type => 'lost_item_return' + type => 'lost_item_return', + library_id => $branchcode, } ); } diff --git a/Koha/Account.pm b/Koha/Account.pm index b032b9d6bc..3e192c81eb 100644 --- a/Koha/Account.pm +++ b/Koha/Account.pm @@ -357,6 +357,7 @@ sub add_credit { # Insert the account line $line = Koha::Account::Line->new( { borrowernumber => $self->{patron_id}, + accountno => $accountno, date => \'NOW()', amount => $amount, description => $description, @@ -365,7 +366,9 @@ sub add_credit { payment_type => $payment_type, note => $note, manager_id => $user_id, - itemnumber => $item_id + branchcode => $library_id, + itemnumber => $item_id, + lastincrement => undef, } )->store(); @@ -401,6 +404,7 @@ sub add_credit { note => $note, itemnumber => $item_id, manager_id => $user_id, + branchcode => $library_id, } ) ); -- 2.19.1