From 6ac450b83b761d352e7a43bb5b6e950c432317e4 Mon Sep 17 00:00:00 2001
From: acli <acli>
Date: Wed, 5 Feb 2003 10:05:02 +0000
Subject: [PATCH] Converted a few SQL statements to use ? to fix a few strange
 SQL errors Noted correct tab size

---
 C4/BookShelves.pm | 19 +++++++++++++++----
 1 file changed, 15 insertions(+), 4 deletions(-)

diff --git a/C4/BookShelves.pm b/C4/BookShelves.pm
index 590f8a9873..b5144bdd54 100755
--- a/C4/BookShelves.pm
+++ b/C4/BookShelves.pm
@@ -1,3 +1,6 @@
+# -*- tab-width: 8 -*-
+# Please use 8-character tabs for this file (indents are every 4 characters)
+
 package C4::BookShelves;
 
 # $Id$
@@ -144,15 +147,19 @@ C<$env> is ignored.
 #'
 sub AddToShelf {
     my ($env, $itemnumber, $shelfnumber) = @_;
-    my $sth=$dbh->prepare("select * from shelfcontents where shelfnumber=$shelfnumber and itemnumber=$itemnumber");
-    $sth->execute;
+    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 ($shelfnumber, $itemnumber, 0)");
+	$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;
+	$sth->execute($shelfnumber, $itemnumber);
     }
 }
 
@@ -239,6 +246,10 @@ END { }       # module clean-up code here (global destructor)
 
 #
 # $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.
 # Removed trailing whitespace.
-- 
2.39.2