[Koha-cvs] CVS: koha/C4 BookShelves.pm,1.11,1.11.2.1

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9794/C4

Modified Files:
      Tag: rel_2_0
        BookShelves.pm 
Log Message:
fixing bugs in bookshelves management.

Index: BookShelves.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/BookShelves.pm,v
retrieving revision 1.11
retrieving revision 1.11.2.1
diff -C2 -r1.11 -r1.11.2.1
*** BookShelves.pm      15 Dec 2003 10:57:08 -0000      1.11
--- BookShelves.pm      6 Feb 2004 14:16:55 -0000       1.11.2.1
***************
*** 145,163 ****
  #'
  sub AddToShelf {
!     my ($env, $itemnumber, $shelfnumber) = @_;
!     my $sth=$dbh->prepare("select * from shelfcontents
!       where shelfnumber=? and itemnumber=?");
! 
!     $sth->execute($shelfnumber, $itemnumber);
!     if ($sth->rows) {
! # already on shelf
!     } else {
!       $sth=$dbh->prepare("insert into shelfcontents
!               (shelfnumber, itemnumber, flags) values (?, ?, 0)");
  
-                       # FIXME - The default for 'flags' is NULL.
-                       # Why set it to 0?
        $sth->execute($shelfnumber, $itemnumber);
!     }
  }
  
--- 145,159 ----
  #'
  sub AddToShelf {
!       my ($env, $itemnumber, $shelfnumber) = @_;
!       return unless $itemnumber;
!       my $sth=$dbh->prepare("select * from shelfcontents where shelfnumber=? 
and itemnumber=?");
  
        $sth->execute($shelfnumber, $itemnumber);
!       if ($sth->rows) {
! # already on shelf
!       } else {
!               $sth=$dbh->prepare("insert into shelfcontents (shelfnumber, 
itemnumber, flags) values (?, ?, 0)");
!               $sth->execute($shelfnumber, $itemnumber);
!       }
  }
  
***************
*** 244,247 ****
--- 240,246 ----
  #
  # $Log$
+ # Revision 1.11.2.1  2004/02/06 14:16:55  tipaul
+ # fixing bugs in bookshelves management.
+ #
  # Revision 1.11  2003/12/15 10:57:08  slef
  # DBI call fix for bug 662