Update of /cvsroot/koha/koha/misc In directory usw-pr-cvs1:/tmp/cvs-serv28795 Modified Files: fines2.pl Log Message: whacked a couple of bits that Chris marked as okay to delete. Index: fines2.pl =================================================================== RCS file: /cvsroot/koha/koha/misc/fines2.pl,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -r1.4 -r1.5 *** fines2.pl 9 Apr 2002 23:30:48 -0000 1.4 --- fines2.pl 10 Apr 2002 00:02:59 -0000 1.5 *************** *** 25,33 **** my $overdueItemsCounted=0 if $DEBUG; - # FIXME - # delete this? - # yep just a debuging thing - #$numOverdueItems=1000; - my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime(time); $mon++; --- 25,28 ---- *************** *** 36,44 **** my $date=Date_DaysSince1BC($mon,$mday,$year); - # 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; --- 31,34 ---- *************** *** 90,97 **** # If this isn't needed it should be deleted # - # if ($amount ==5){ # marklost(); # } if ($borrower->{'categorycode'} eq 'C'){ # FIXME # this should be a --- 80,87 ---- # If this isn't needed it should be deleted # # if ($amount ==5){ # marklost(); # } + if ($borrower->{'categorycode'} eq 'C'){ # FIXME # this should be a