Update of /cvsroot/koha/koha/misc In directory usw-pr-cvs1:/tmp/cvs-serv21040/misc Modified Files: fines2.pl Log Message: Just added some comments for Pat (Is this a good way of doing it? if not let me know) Index: fines2.pl =================================================================== RCS file: /cvsroot/koha/koha/misc/fines2.pl,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -r1.3 -r1.4 *** fines2.pl 9 Apr 2002 22:08:15 -0000 1.3 --- fines2.pl 9 Apr 2002 23:30:48 -0000 1.4 *************** *** 4,7 **** --- 4,9 ---- # and updates the total amount of fines due by each user. It relies on # the existence of /tmp/fines, which is created by ??? + # Doesnt really rely on it, it relys on being able to write to /tmp/ + # It creates the fines file # # This script is meant to be run nightly out of cron. *************** *** 25,28 **** --- 27,31 ---- # FIXME # delete this? + # yep just a debuging thing #$numOverdueItems=1000; *************** *** 35,38 **** --- 38,43 ---- # FIXME # delete this? + # another debugging thing, and yep it can go (you can make the script fake a day, say u want to rerun the overdues for + # a day when for some reason the script didnt run) #my $date=Date_DaysSince1BC(1,24,2002); print $date if $DEBUG; *************** *** 50,53 **** --- 55,59 ---- # defined in a central place # + # Yep my $maxFine=5; *************** *** 127,131 **** description,accounttype,amountoutstanding) values ($data->[$i]->{'borrowernumber'},$data->[$i]->{'itemnumber'}, ! '$accountno',now(),'$cost','Lost item $item->{'title'} $item->{'barcode'}','L','$cost')"; my $sth=$dbh->prepare($query); $sth->execute; --- 133,137 ---- description,accounttype,amountoutstanding) values ($data->[$i]->{'borrowernumber'},$data->[$i]->{'itemnumber'}, ! '$accountno',now(),'$cost','Lost item $item->{'title'} $item->{'barcode'} $due','L','$cost')"; my $sth=$dbh->prepare($query); $sth->execute;