# admin-q-and-a-prompt-for-new-category.tcl,v 3.0 2000/02/06 03:33:07 ron Exp
ad_page_variables {
{msg_id}
}
page_validation {
bboard_validate_msg_id $msg_id
}
# msg_id
set db [bboard_db_gethandle]
if { $db == "" } {
bboard_return_error_page
return
}
set selection [ns_db 0or1row $db "select distinct t.topic, b.topic_id, b.one_line from bboard b, bboard_topics t where b.topic_id=t.topic_id and b.msg_id = '$msg_id'"]
if { $selection == "" } {
# message was probably deleted
ns_return 200 text/html "Couldn't find message $msg_id. Probably it was deleted by the forum maintainer."
return
}
set_variables_after_query
ns_log Notice "--$topic_id $topic $msg_id"
if {[bboard_get_topic_info] == -1} {
return}
if {[bboard_admin_authorization] == -1} {
return
}
ReturnHeaders
ns_write "
Add a new category
Add a new category
to the $topic forum
(for $one_line)
For reference, here are the existing categories:
"
set categories [database_to_tcl_list $db "select distinct category, upper(category) from bboard_q_and_a_categories where topic_id = $topic_id order by 2"]
foreach choice $categories {
ns_write "- $choice\n"
}
ns_write "
[bboard_footer]"