Lines 527-534
sub UpdateFine {
Link Here
|
527 |
my $overdues = Koha::Account::Lines->search( |
527 |
my $overdues = Koha::Account::Lines->search( |
528 |
{ |
528 |
{ |
529 |
borrowernumber => $borrowernumber, |
529 |
borrowernumber => $borrowernumber, |
530 |
debit_type_code => 'OVERDUE', |
530 |
debit_type_code => 'OVERDUE' |
531 |
amountoutstanding => { '<>' => 0 } |
|
|
532 |
} |
531 |
} |
533 |
); |
532 |
); |
534 |
|
533 |
|
Lines 562-568
sub UpdateFine {
Link Here
|
562 |
} |
561 |
} |
563 |
} |
562 |
} |
564 |
|
563 |
|
565 |
|
|
|
566 |
if ( $accountline ) { |
564 |
if ( $accountline ) { |
567 |
if ( $accountline->amount != $amount ) { |
565 |
if ( $accountline->amount != $amount ) { |
568 |
$accountline->adjust( |
566 |
$accountline->adjust( |
569 |
- |
|
|