Lines 2429-2438
sub _FixAccountForLostAndReturned {
Link Here
|
2429 |
my $credit_total = $accountline->amountoutstanding + $total_to_refund; |
2429 |
my $credit_total = $accountline->amountoutstanding + $total_to_refund; |
2430 |
|
2430 |
|
2431 |
if ( $credit_total > 0 ) { |
2431 |
if ( $credit_total > 0 ) { |
|
|
2432 |
my $branchcode = C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef; |
2432 |
$credit = $account->add_credit( |
2433 |
$credit = $account->add_credit( |
2433 |
{ amount => $credit_total, |
2434 |
{ amount => $credit_total, |
2434 |
description => 'Item Returned ' . $item_id, |
2435 |
description => 'Item Returned ' . $item_id, |
2435 |
type => 'lost_item_return' |
2436 |
type => 'lost_item_return', |
|
|
2437 |
library_id => $branchcode |
2436 |
} |
2438 |
} |
2437 |
); |
2439 |
); |
2438 |
|
2440 |
|