[Koha-cvs] CVS: koha/C4 Reserves2.pm,1.16,1.17

[Finlay Thompson]

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

Modified Files:
        Reserves2.pm 
Log Message:

rewrote CheckReserves so that it can be called with a barcode as well as on 
itemnumber.


Index: Reserves2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Reserves2.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -r1.16 -r1.17
*** Reserves2.pm        21 Aug 2002 01:31:16 -0000      1.16
--- Reserves2.pm        26 Aug 2002 22:34:29 -0000      1.17
***************
*** 98,111 ****
  
  sub CheckReserves {
!     my ($item) = @_;
!     warn "In CheckReserves: itemnumber = $item";
      my $dbh=C4Connect;
!     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;
--- 98,122 ----
  
  sub CheckReserves {
!     my ($item, $barcode) = @_;
! #    warn "In CheckReserves: itemnumber = $item";
      my $dbh=C4Connect;
!     my $sth;
!     if ($item) {
!       my $qitem=$dbh->quote($item);
  # get the biblionumber...
!       $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");
+     } else {
+       my $qbc=$dbh->quote($barcode);
+ # get the biblionumber...
+       $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 barcode=$qbc");
+     }
      $sth->execute;
      my ($biblio, $bibitem, $notforloan) = $sth->fetchrow_array;