[Koha-cvs] CVS: koha/C4 Reserves2.pm,1.14,1.15

[Finlay Thompson]

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

Modified Files:
	Reserves2.pm 
Log Message:

fixed up the CheckReserves.pm routine so that it does not put Referece items into "waiting" status if there is a reserve. Also fixed a bug in detail.pl.


Index: Reserves2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Reserves2.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -r1.14 -r1.15
*** Reserves2.pm	15 Aug 2002 03:31:02 -0000	1.14
--- Reserves2.pm	19 Aug 2002 06:29:36 -0000	1.15
***************
*** 103,111 ****
      my $qitem=$dbh->quote($item);
  # get the biblionumber...
!     my $sth=$dbh->prepare("select biblionumber, biblioitemnumber from items where itemnumber=$qitem");
      $sth->execute;
!     my ($biblio, $bibitem) = $sth->fetchrow_array;
      $sth->finish;
      $dbh->disconnect;
  # get the reserves...
      my ($count, @reserves) = Findgroupreserve($bibitem, $biblio);
--- 103,118 ----
      my $qitem=$dbh->quote($item);
  # get the biblionumber...
!     my $sth=$dbh->prepare("SELECT items.biblionumber, items.biblioitemnumber, itemtypes.notforloan
!                              FROM items, biblioitems, itemtypes 
!                             WHERE items.biblioitemnumber = biblioitems.biblioitemnumber
!                               AND biblioitems.itemtype = itemtypes.itemtype
!                               AND itemnumber=$qitem");
      $sth->execute;
!     my ($biblio, $bibitem, $notforloan) = $sth->fetchrow_array;
      $sth->finish;
      $dbh->disconnect;
+ # if item is not for loan it cannot be reserved either.....
+ warn "Not for loan: $notforloan";
+     return (0, 0) if ($notforloan);
  # get the reserves...
      my ($count, @reserves) = Findgroupreserve($bibitem, $biblio);