-
- $overdueItemsCounted++;
- my ($amount,$type,$daycounttotal)=
- CalcFine($data->[$i], $borrower->{'categorycode'}, $branchcode, $datedue, $today);
- # FIXME: $type NEVER gets populated by anything.
- $type ||= '';
- # Don't update the fine if today is a holiday.
- # This ensures that dropbox mode will remove the correct amount of fine.
- if ($mode eq 'production' and ! $isHoliday) {
- UpdateFine($data->[$i]->{'itemnumber'},$data->[$i]->{'borrowernumber'},$amount,$type,output_pref($datedue)) if( $amount > 0 ) ;
- }
- my @cells = ();
- push @cells, map {$borrower->{$_}} @borrower_fields;
- push @cells, map {$data->[$i]->{$_}} @item_fields;
- push @cells, $type, $daycounttotal, $amount;
- print FILE join($delim, @cells), "\n";