# update-topic-categorization.tcl,v 3.0 2000/02/06 03:34:50 ron Exp
set_form_variables_string_trim_DoubleAposQQ
set_form_variables
# topic, q_and_a_categorized_p, q_and_a_solicit_category_p
# q_and_a_categorization_user_extensible_p, q_and_a_new_days,
# bunch of other new ones
set db [bboard_db_gethandle]
if { $db == "" } {
bboard_return_error_page
return
}
if {[bboard_get_topic_info] == -1} {
return
}
set update_sql [util_prepare_update $db bboard_topics topic $topic [ns_conn form]]
if [catch {ns_db dml $db $update_sql} errmsg] {
ns_return 200 text/html "
Topic Not Updated
Topic Not Updated
The database rejected the update of discussion topic \"$topic\". Here was
the error message:
$errmsg
[bboard_system_owner]
"
return 0
}
# the database insert went OK
set selection [ns_db 1row $db "select distinct * from bboard_topics where topic_id = $topic_id"]
set_variables_after_query
ReturnHeaders
ns_write "
Topic Updated
Topic Updated
\"$topic\" updated in
[bboard_system_name]
"
if { $q_and_a_categorized_p == "t" } {
ns_write "- When offered to users in Q&A forum format, this topic will be categorized. I.e., new questions will be presented chronologically on top but older questions will be sorted by category.\n"
} else {
ns_write "
- When offered to users in Q&A forum format, this topic will not be categorized. I.e., all questions will be presented chronologically.\n"
}
ns_write "
- The definition of a \"new\" question will be \"posted within the last $q_and_a_new_days days.\"\n"
if { $q_and_a_solicit_category_p == "t" } {
ns_write "
- When users post a question, this system will ask them to suggest a category for the question.\n"
} else {
ns_write "
- When users post a question, this system will not ask them to suggest a category for the question; the administrator (i.e., you) will have to hand-categorize all the questions.\n"
}
if { $q_and_a_categorization_user_extensible_p == "t" } {
ns_write "
- Users will be allowed to suggest new categories.\n"
} else {
ns_write "
- Users will not be allowed to suggest new categories.\n"
}
ns_write "
[bboard_footer]"