[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4 Reserves2.pm,1.14,1.15
From: |
Finlay Thompson |
Subject: |
[Koha-cvs] CVS: koha/C4 Reserves2.pm,1.14,1.15 |
Date: |
Sun, 18 Aug 2002 23:29:38 -0700 |
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);
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4 Reserves2.pm,1.14,1.15,
Finlay Thompson <=