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