[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