|
Lines 551-557
sub UpdateFine {
Link Here
|
| 551 |
while (my $rec = $sth->fetchrow_hashref) { |
551 |
while (my $rec = $sth->fetchrow_hashref) { |
| 552 |
if ( $rec->{issue_id} == $issue_id && $rec->{accounttype} eq 'FU' ) { |
552 |
if ( $rec->{issue_id} == $issue_id && $rec->{accounttype} eq 'FU' ) { |
| 553 |
if ($data) { |
553 |
if ($data) { |
| 554 |
warn "Not a unique accountlines record for issue_id $issue_id"; |
554 |
$debug and warn "Not a unique accountlines record for issue_id $issue_id"; |
| 555 |
#FIXME Should we still count this one in total_amount ?? |
555 |
#FIXME Should we still count this one in total_amount ?? |
| 556 |
} |
556 |
} |
| 557 |
else { |
557 |
else { |
|
Lines 566-572
sub UpdateFine {
Link Here
|
| 566 |
if ($total_amount_other + $amount > $maxfine) { |
566 |
if ($total_amount_other + $amount > $maxfine) { |
| 567 |
my $new_amount = $maxfine - $total_amount_other; |
567 |
my $new_amount = $maxfine - $total_amount_other; |
| 568 |
return if $new_amount <= 0.00; |
568 |
return if $new_amount <= 0.00; |
| 569 |
warn "Reducing fine for item $itemnum borrower $borrowernumber from $amount to $new_amount - MaxFine reached"; |
569 |
$debug and warn "Reducing fine for item $itemnum borrower $borrowernumber from $amount to $new_amount - MaxFine reached"; |
| 570 |
$amount = $new_amount; |
570 |
$amount = $new_amount; |
| 571 |
} |
571 |
} |
| 572 |
} |
572 |
} |
| 573 |
- |
|
|