3 #script to calculate fines
6 use C4::Circulation::Fines;
9 open (FILE,'>/tmp/fines') || die;
10 my ($count,$data)=Getoverdues();
14 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime(time);
17 #my $date=Date_DaysSince999($mon,$mday,$year);
18 my $date=Date_DaysSince999(2,20,2000);
24 for (my $i=0;$i<$count;$i++){
25 my @dates=split('-',$data->[$i]->{'date_due'});
26 my $date2=Date_DaysSince999($dates[1],$dates[2],$dates[0]);
27 my $due="$dates[2]/$dates[1]/$dates[0]";
30 my $difference=$date-$date2;
31 if ($bornum != $data->[$i]->{'borrowernumber'}){
33 $bornum=$data->[$i]->{'borrowernumber'};
34 $borrower=BorType($bornum);
38 my ($amount,$type,$printout)=CalcFine($data->[$i]->{'itemnumber'},$borrower->{'categorycode'},$difference);
43 UpdateFine($data->[$i]->{'itemnumber'},$bornum,$amount,$type,$due);
44 if ($bornum2 == $data->[$i]->{'borrowernumber'}){
45 $total=$total+$amount;
47 print FILE "\"$borrower->{'cardnumber'}\"\,\"$borrower->{'phone'}\"\,\"Overdue or Extd Rental$total\"\,\"$borrower->{'homebranch'}\"\n";
53 print "$printout\t$borrower->{'cardnumber'}\t$borrower->{'firstname'}\t$borrower->{'surname'}\t$data->[$i]->{'date_due'}\t$type\t$difference\t$borrower->{'emailaddress'}\t$borrower->{'phone'}\t$borrower->{'streetaddress'}\t$borrower->{'city'}\n";
59 $bornum2=$data->[$i]->{'borrowernumber'};