[Koha-cvs] CVS: koha moremember.pl,1.11.2.6,1.11.2.7

[Finlay Thompson]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv21591

Modified Files:
      Tag: rel-1-2
	moremember.pl 
Log Message:

fixed the Findgroupreserves bug. Now calls CheckReserves instead


Index: moremember.pl
===================================================================
RCS file: /cvsroot/koha/koha/moremember.pl,v
retrieving revision 1.11.2.6
retrieving revision 1.11.2.7
diff -C2 -r1.11.2.6 -r1.11.2.7
*** moremember.pl	18 Sep 2002 22:53:27 -0000	1.11.2.6
--- moremember.pl	1 Oct 2002 07:14:07 -0000	1.11.2.7
***************
*** 241,244 ****
--- 241,245 ----
    <TD>$issue->[$i]{'date_due'}</td>";
    #find the charge for an item
+   warn "calling calc_charges\n";
    my ($charge,$itemtype)=calc_charges(undef,undef,$issue->[$i]{'itemnumber'},$bornum);
    print "<TD>$itemtype</td>";
***************
*** 251,255 ****
  #  }
    #check item is not reserved
!   my ($rescount,$reserves)=Findgroupreserve($issue->[$i]{'biblioitemnumber'},$issue->[$i]{'biblionumber'});
    if ($rescount >0){
      print "<TD><a href=/cgi-bin/koha/request.pl?bib=$issue->[$i]{'biblionumber'}>On Request - no renewals</a></td></tr>";
--- 252,256 ----
  #  }
    #check item is not reserved
!   my ($rescount,$reserves)=CheckReserves($issue->[$i]{'itemnumber'});
    if ($rescount >0){
      print "<TD><a href=/cgi-bin/koha/request.pl?bib=$issue->[$i]{'biblionumber'}>On Request - no renewals</a></td></tr>";