Browse Source

testing

master
chris 22 years ago
parent
commit
8224d16293
  1. 2
      C4/Circulation/Fines.pm
  2. 2
      fines.pl

2
C4/Circulation/Fines.pm

@ -76,7 +76,7 @@ sub CalcFine {
and items.biblioitemnumber=biblioitems.biblioitemnumber and
biblioitems.itemtype=itemtypes.itemtype and
categoryitem.itemtype=itemtypes.itemtype and
categoryitem.categorycode='$bortype'";
categoryitem.categorycode='$bortype' and items.itemlost <> 1";
my $sth=$dbh->prepare($query);
# print $query;
$sth->execute;

2
fines.pl

@ -10,7 +10,7 @@ my ($count,$data)=Getoverdues();
#print $count;
my $count2=0;
#$count=1000;
my $date=Date_DaysSince999(1,1,2000);
my $date=Date_DaysSince999(1,2,2000);
my $bornum;
my $borrower;
my $max=5;

Loading…
Cancel
Save