Lines 2433-2438
sub _FixOverduesOnReturn {
Link Here
|
2433 |
if ($exemptfine) { |
2433 |
if ($exemptfine) { |
2434 |
my $amountoutstanding = $accountline->amountoutstanding; |
2434 |
my $amountoutstanding = $accountline->amountoutstanding; |
2435 |
|
2435 |
|
|
|
2436 |
return if $amountoutstanding <= 0; |
2437 |
|
2436 |
my $account = Koha::Account->new({patron_id => $borrowernumber}); |
2438 |
my $account = Koha::Account->new({patron_id => $borrowernumber}); |
2437 |
my $credit = $account->add_credit( |
2439 |
my $credit = $account->add_credit( |
2438 |
{ |
2440 |
{ |
2439 |
- |
|
|