Changeset 22 for TriviaEngine

Timestamp:

10/09/06 13:29:26 (6 years ago)

Author:

james

Message:

enable delete

File:

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

TriviaEngine/TriviaEngine-sqlite.tcl

@@ -150 +150 @@
                 if [regexp -nocase {^report (help|list|fix|view|done)?( .+)?} $cmd matches func arg] {
                         if {($func == "") || ($func == "help")} {
-                                puthelp "PRIVMSG $nick :Use: report (list|view|fix|done)"
+                                puthelp "PRIVMSG $nick :Use: report (list|view|fix|done|delete)"
                                 puthelp "PRIVMSG $nick :report list: see 10 reports"
                                 puthelp "PRIVMSG $nick :report view <id>: see the question and answer associated with a report"
@@ -232 +232 @@
                                 putloglev d * $sql
                                 trivia_db_handle eval $sql
-                                set sql "UPDATE reports SET resoved = 'Y' WHERE report_id = '$arg'"
+                                set sql "UPDATE reports SET resolved = 'Y' WHERE report_id = '$arg'"
                                 putloglev d * $sql
                                 trivia_db_handle eval $sql