[Koha-devel] CVS: koha/misc fines2.pl,1.4,1.5

[Pat Eyler]

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