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

[Chris Cormack]

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;