Lines 545-551
sub UpdateFine {
Link Here
|
545 |
# - accumulate fines for other items |
545 |
# - accumulate fines for other items |
546 |
# so we can update $itemnum fine taking in account fine caps |
546 |
# so we can update $itemnum fine taking in account fine caps |
547 |
while (my $overdue = $overdues->next) { |
547 |
while (my $overdue = $overdues->next) { |
548 |
if ( $overdue->issue_id == $issue_id && $overdue->status eq 'UNRETURNED' ) { |
548 |
if ( defined $overdue->issue_id && $overdue->issue_id == $issue_id && $overdue->status eq 'UNRETURNED' ) { |
549 |
if ($accountline) { |
549 |
if ($accountline) { |
550 |
$debug and warn "Not a unique accountlines record for issue_id $issue_id"; |
550 |
$debug and warn "Not a unique accountlines record for issue_id $issue_id"; |
551 |
#FIXME Should we still count this one in total_amount ?? |
551 |
#FIXME Should we still count this one in total_amount ?? |
552 |
- |
|
|