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){
|
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";
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue