[Koha-devel] CVS: koha/C4 Reserves2.pm,1.2,1.3

[Chris Cormack]

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, at results);
  }