[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha moremember.pl,1.11.2.6,1.11.2.7
From: |
Finlay Thompson |
Subject: |
[Koha-cvs] CVS: koha moremember.pl,1.11.2.6,1.11.2.7 |
Date: |
Tue, 01 Oct 2002 00:14:09 -0700 |
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>";
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha moremember.pl,1.11.2.6,1.11.2.7,
Finlay Thompson <=