script to work out overdues

This commit is contained in:
chris 2000-01-13 04:36:57 +00:00
parent 834fbd93ee
commit 0525e424ae

View file

@ -35,7 +35,7 @@ for (my $i=0;$i<$count;$i++){
} }
if ($amount > 0){ if ($amount > 0){
UpdateFine($data->[$i]->{'itemnumber'},$bornum,$amount); 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 { } else {
# print "0 fine\n"; # print "0 fine\n";
} }