Lines 2430-2440
sub _FixOverduesOnReturn {
Link Here
|
2430 |
return 0 unless $accountlines->count; # no warning, there's just nothing to fix |
2430 |
return 0 unless $accountlines->count; # no warning, there's just nothing to fix |
2431 |
|
2431 |
|
2432 |
my $accountline = $accountlines->next; |
2432 |
my $accountline = $accountlines->next; |
2433 |
if ($exemptfine) { |
|
|
2434 |
my $amountoutstanding = $accountline->amountoutstanding; |
2435 |
|
2436 |
return if $amountoutstanding <= 0; |
2437 |
|
2433 |
|
|
|
2434 |
my $amountoutstanding = $accountline->amountoutstanding; |
2435 |
if ($exemptfine && ($amountoutstanding != 0)) { |
2438 |
my $account = Koha::Account->new({patron_id => $borrowernumber}); |
2436 |
my $account = Koha::Account->new({patron_id => $borrowernumber}); |
2439 |
my $credit = $account->add_credit( |
2437 |
my $credit = $account->add_credit( |
2440 |
{ |
2438 |
{ |
2441 |
- |
|
|