|
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 |
- |
|
|