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