Changeset 13 for TriviaEngine

Timestamp:

10/01/06 08:52:18 (6 years ago)

Author:

james

Message:

added "trivia report delete" to remove ruined questions

File:

• TriviaEngine/TriviaEngine-sqlite.tcl (modified) (1 diff)

TriviaEngine/TriviaEngine-sqlite.tcl

@@ -196 +196 @@
                                 return 0
                         }
+
+                        if {$func == "delete"} {
+                                set arg [string trim $arg]
+                                set arg [trivia_sqlite_escape $arg]
+                                putserv "PRIVMSG $nick :Deleting question from report$trivia_c(purple) $arg $trivia_c(off) and marking report as done."
+                                set sql "DELETE FROM questions WHERE question_id IN (SELECT question_id FROM reports WHERE report_id = '$arg')"
+                                putloglev d * $sql
+                                trivia_db_handle eval $sql
+                                set sql "UPDATE reports SET resoved = 'Y' WHERE report_id = '$arg'"
+                                putloglev d * $sql
+                                trivia_db_handle eval $sql
+                                return 0
                 }
 #>>>