Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 21728: Use Koha::Account->add_debit in ChargeReserveFee

Browse source 
Signed-off-by: Josef Moravec <josef.moravec@gmail.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
This commit is contained in:
Martin Renvoize 2018-11-01 11:08:51 +00:00 committed by Nick Clemens
parent 55d18aeca6
commit e7dbe41242
1 changed files with 11 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
C4/Reserves.pm
View file

@ -570,24 +570,20 @@ sub GetOtherReserves {
sub ChargeReserveFee {
my ( $borrowernumber, $fee, $title ) = @_;
return if !$fee || $fee == 0; # the last test is needed to include 0.00
my $branchcode = C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef;
my $nextacctno = C4::Accounts::getnextacctno($borrowernumber);
Koha::Account::Line->new(
Koha::Account->new( { patron_id => $borrowernumber } )->add_debit(
{
borrowernumber => $borrowernumber,
accountno => $nextacctno,
date => dt_from_string(),
amount => $fee,
description => "Reserve Charge - $title",
accounttype => 'Res',
amountoutstanding => $fee,
branchcode => $branchcode
amount => $fee,
description => "Reserve Charge - " . $title,
note => undef,
user_id => C4::Context->userenv ? C4::Context->userenv->{'number'} : 0,
library_id => C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef,
sip => undef,
invoice_type => undef,
type => 'reserve',
item_id => undef
}
)->store();
);
}
=head2 GetReserveFee