[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-devel] CVS: koha/misc fines2.pl,1.3,1.4
From: |
Chris Cormack |
Subject: |
[Koha-devel] CVS: koha/misc fines2.pl,1.3,1.4 |
Date: |
Tue Apr 9 16:31:08 2002 |
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;
- [Koha-devel] CVS: koha/misc fines2.pl,1.3,1.4,
Chris Cormack <=
- Prev by Date:
Re: [Koha-devel] CVS: koha/misc fines2.pl,1.2,1.3 fixborrower.pl,1.1.1.1,1.2
- Next by Date:
Re: [Koha-devel] CVS: koha/misc fines2.pl,1.3,1.4
- Previous by thread:
[Koha-devel] CVS: koha/misc fines2.pl,1.2,1.3 fixborrower.pl,1.1.1.1,1.2
- Next by thread:
Re: [Koha-devel] CVS: koha/misc fines2.pl,1.3,1.4
- Index(es):