Update of /cvsroot/koha/koha/C4 In directory usw-pr-cvs1:/tmp/cvs-serv24070/C4 Modified Files: Reserves2.pm Log Message: Fix so that reserves are only showing for the biblioitem not the biblio on the moremembers screen Index: Reserves2.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Reserves2.pm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -r1.2 -r1.3 *** Reserves2.pm 25 Nov 2001 20:17:53 -0000 1.2 --- Reserves2.pm 13 Mar 2002 02:03:57 -0000 1.3 *************** *** 16,20 **** @ISA = qw(Exporter); ! @EXPORT = qw(&FindReserves &CreateReserve &updatereserves &getreservetitle); %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], --- 16,21 ---- @ISA = qw(Exporter); ! @EXPORT = qw(&FindReserves &CreateReserve &updatereserves &getreservetitle ! Findgroupreserve); %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], *************** *** 88,91 **** --- 89,114 ---- $dbh->disconnect; return($i,\@results); + } + + sub Findgroupreserve { + my ($bibitem)=@_; + my $dbh=C4Connect; + $bibitem=$dbh->quote($bibitem); + my $query="Select * from reserves,reserveconstraints where + reserves.biblionumber=reservesconstraints.biblionumber and + and reserveconstraints.biblioitemnumber=$bibitem + and reserves.cancellationdate is NULL + and (reserves.found <> 'F' or reserves.found is NULL)"; + my $sth=$dbh->prepare($query); + $sth->execute; + my $i=0; + my @results; + while (my $data=$sth->fetchrow_hashref){ + $results[$i]=$data; + $i++; + } + $sth->finish; + $dbh->disconnect; + return($i,@results); }