script to work out overdues
This commit is contained in:
parent
834fbd93ee
commit
0525e424ae
1 changed files with 1 additions and 1 deletions
2
fines.pl
2
fines.pl
|
@ -35,7 +35,7 @@ for (my $i=0;$i<$count;$i++){
|
|||
}
|
||||
if ($amount > 0){
|
||||
UpdateFine($data->[$i]->{'itemnumber'},$bornum,$amount);
|
||||
print "$i $borrower->{'description'} $difference $amount $data->[$i]->{'date_due'} $date $date2 \n";
|
||||
print "$borrower->{'firstname'} $borrower->{'surname'} $data->[$i]->{'date_due'}\n";
|
||||
} else {
|
||||
# print "0 fine\n";
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue