[Koha-cvs] CVS: koha/C4 BookShelves.pm,1.9,1.10

[Ambrose Li]

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

Modified Files:
        BookShelves.pm 
Log Message:
Converted a few SQL statements to use ? to fix a few strange SQL errors
Noted correct tab size


Index: BookShelves.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/BookShelves.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** BookShelves.pm      13 Oct 2002 08:29:18 -0000      1.9
--- BookShelves.pm      5 Feb 2003 10:05:02 -0000       1.10
***************
*** 1,2 ****
--- 1,5 ----
+ # -*- tab-width: 8 -*-
+ # Please use 8-character tabs for this file (indents are every 4 characters)
+ 
  package C4::BookShelves;
  
***************
*** 145,157 ****
  sub AddToShelf {
      my ($env, $itemnumber, $shelfnumber) = @_;
!     my $sth=$dbh->prepare("select * from shelfcontents where 
shelfnumber=$shelfnumber and itemnumber=$itemnumber");
!     $sth->execute;
      if ($sth->rows) {
  # already on shelf
      } else {
!       $sth=$dbh->prepare("insert into shelfcontents (shelfnumber, itemnumber, 
flags) values ($shelfnumber, $itemnumber, 0)");
                        # FIXME - The default for 'flags' is NULL.
                        # Why set it to 0?
!       $sth->execute;
      }
  }
--- 148,164 ----
  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);
      }
  }
***************
*** 240,243 ****
--- 247,254 ----
  #
  # $Log$
+ # Revision 1.10  2003/02/05 10:05:02  acli
+ # Converted a few SQL statements to use ? to fix a few strange SQL errors
+ # Noted correct tab size
+ #
  # Revision 1.9  2002/10/13 08:29:18  arensb
  # Deleted unused variables.