[Koha-cvs] CVS: koha/C4/Circulation Fines.pm,1.9.2.1,1.9.2.2

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4/Circulation
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13429/C4/Circulation

Modified Files:
      Tag: rel_2_2
        Fines.pm 
Log Message:
fixing bug : categorytable instead of issuing rules that is the new table name 
(thx to chris)

Index: Fines.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Fines.pm,v
retrieving revision 1.9.2.1
retrieving revision 1.9.2.2
diff -C2 -r1.9.2.1 -r1.9.2.2
*** Fines.pm    1 Mar 2005 03:09:18 -0000       1.9.2.1
--- Fines.pm    5 Oct 2005 09:46:36 -0000       1.9.2.2
***************
*** 148,157 ****
    # categoryitem table.
  
!   my $sth=$dbh->prepare("Select * from 
items,biblioitems,itemtypes,categoryitem where items.itemnumber=?
    and items.biblioitemnumber=biblioitems.biblioitemnumber and
    biblioitems.itemtype=itemtypes.itemtype and
!   categoryitem.itemtype=itemtypes.itemtype and
!   categoryitem.categorycode=? and (items.itemlost <> 1 or items.itemlost is 
NULL)");
! #  print $query;
    $sth->execute($itemnumber,$bortype);
    my $data=$sth->fetchrow_hashref;
--- 148,157 ----
    # categoryitem table.
  
!   my $sth=$dbh->prepare("Select * from 
items,biblioitems,itemtypes,issuingrules where items.itemnumber=?
    and items.biblioitemnumber=biblioitems.biblioitemnumber and
    biblioitems.itemtype=itemtypes.itemtype and
!   issuingrules.itemtype=itemtypes.itemtype and
!   issuingrules.categorycode=? and (items.itemlost <> 1 or items.itemlost is 
NULL)");
! 
    $sth->execute($itemnumber,$bortype);
    my $data=$sth->fetchrow_hashref;