[Koha-cvs] CVS: koha/C4 Shelf.pm,1.3,1.4

[MJ Ray]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv27390/C4

Modified Files:
	Shelf.pm 
Log Message:
DBI call fix for bug 662

Index: Shelf.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Shelf.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** Shelf.pm	24 Oct 2002 04:12:10 -0000	1.3
--- Shelf.pm	15 Dec 2003 13:41:43 -0000	1.4
***************
*** 318,327 ****
      foreach (@$add) {
  	my ($biblionumber,$biblioitemnumber,$itemnumber) = @$_;
! 	$sth=$dbh->prepare("select count(*) from bookshelfcontents where bookshelfid=$bookshelfid and itemnumber=$itemnumber and biblioitemnumber=$biblioitemnumber and biblionumber=$biblionumber");
! 	$sth->execute;
  	my $rows=$sth->fetchrow();
  	if ($rows==0) {
! 	    $sth=$dbh->prepare("insert into bookshelfcontents (bookshelfid,biblionumber,biblioitemnumber,itemnumber) values ($bookshelfid,$biblionumber,$biblioitemnumber,$itemnumber)");
! 	    $sth->execute;
  	    $clearcache=1;
  	}
--- 318,327 ----
      foreach (@$add) {
  	my ($biblionumber,$biblioitemnumber,$itemnumber) = @$_;
! 	$sth=$dbh->prepare("select count(*) from bookshelfcontents where bookshelfid=? and itemnumber=? and biblioitemnumber=? and biblionumber=?");
! 	$sth->execute($bookshelfid,$itemnumber,$biblioitemnumber,$biblionumber);
  	my $rows=$sth->fetchrow();
  	if ($rows==0) {
! 	    $sth=$dbh->prepare("insert into bookshelfcontents (bookshelfid,biblionumber,biblioitemnumber,itemnumber) values (?,?,?,?)");
! 	    $sth->execute($bookshelfid,$biblionumber,$biblioitemnumber,$itemnumber);
  	    $clearcache=1;
  	}
***************
*** 443,453 ****
      my $biblioitemnumbers;
      if ($orderby eq 'author') {
! 	$sth=$dbh->prepare("select itemnumber,BSC.biblionumber,BSC.biblioitemnumber from bookshelfcontents BSC, biblio B where BSC.biblionumber=B.biblionumber and bookshelfid=$bookshelfid order by B.author $limit");
      } elsif ($orderby eq 'title') {
! 	$sth=$dbh->prepare("select itemnumber,BSC.biblionumber,BSC.biblioitemnumber from bookshelfcontents BSC, biblio B where BSC.biblionumber=B.biblionumber and bookshelfid=$bookshelfid order by B.title $limit");
      } else {
! 	$sth=$dbh->prepare("select itemnumber,biblionumber,biblioitemnumber from bookshelfcontents where bookshelfid=$bookshelfid $limit");
      }
!     $sth->execute;
      my @results;
      my @biblioresults;
--- 443,453 ----
      my $biblioitemnumbers;
      if ($orderby eq 'author') {
! 	$sth=$dbh->prepare("select itemnumber,BSC.biblionumber,BSC.biblioitemnumber from bookshelfcontents BSC, biblio B where BSC.biblionumber=B.biblionumber and bookshelfid=? order by B.author $limit");
      } elsif ($orderby eq 'title') {
! 	$sth=$dbh->prepare("select itemnumber,BSC.biblionumber,BSC.biblioitemnumber from bookshelfcontents BSC, biblio B where BSC.biblionumber=B.biblionumber and bookshelfid=? order by B.title $limit");
      } else {
! 	$sth=$dbh->prepare("select itemnumber,biblionumber,biblioitemnumber from bookshelfcontents where bookshelfid=? $limit");
      }
!     $sth->execute($bookshelfid);
      my @results;
      my @biblioresults;