Changeset 19 for TriviaEngine/TriviaEngine-sqlite.tcl

Timestamp:

10/08/06 09:03:37 (6 years ago)

Author:

james

Message:

fix #8

File:

• TriviaEngine/TriviaEngine-sqlite.tcl (modified) (3 diffs)

TriviaEngine/TriviaEngine-sqlite.tcl

@@ -1 +1 @@
 # The trivia engine YAY
-# vim: foldmethod=marker:foldcolumn=2:foldmarker=<<<,>>>:sw=2:ts=2
+# vim: foldmethod=marker:foldcolumn=2:foldmarker=<<<,>>>:sw=2:ts=2 
 
 ### INIT <<<
@@ -99 +99 @@
                         
                         set cat_id [trivia_db_handle eval $sql]
-                        if {$cat_id != 0} {
+                        if {$cat_id != ""} {
                                 puthelp "PRIVMSG $nick :Moving question $trivia_last_qid to category$trivia_c(purple) $category$trivia_c(off) ($cat_id)"
                                 set sql "UPDATE questions SET cat_id='$cat_id' WHERE question_id='$trivia_last_qid'"
@@ -108 +108 @@
                                 puthelp "PRIVMSG $nick :Creating new category$trivia_c(purple) $category"
                                 set sql "INSERT INTO categories VALUES (null, '$category', 1)"
+                                putloglev d * $sql
                                 trivia_db_handle eval $sql
                                 set cat_id [trivia_db_handle last_insert_rowid]
                                 puthelp "PRIVMSG $nick :Moving question $trivia_last_qid to category$trivia_c(purple) $category$trivia_c(off) ($cat_id)"
                                 set sql "UPDATE questions SET cat_id='$cat_id' WHERE question_id='$trivia_last_qid'"
+                                putloglev d * $sql
                                 trivia_db_handle eval $sql
                                 set trivia_q_cat $orig_cat