# q-and-a-update-category.tcl,v 3.0 2000/02/06 03:34:24 ron Exp
ad_page_variables {
msg_id
category
{new_category_p "f"}
}
page_validation {
bboard_validate_msg_id $msg_id
}
# msg_id, category, maybe new_category_p
set db [bboard_db_gethandle]
if { $db == "" } {
bboard_return_error_page
return
}
set topic_id [database_to_tcl_string $db "select distinct topic_id from bboard where msg_id = '$msg_id'"]
if {[bboard_get_topic_info] == -1} {
return}
if {[bboard_admin_authorization] == -1} {
return
}
# cookie checks out; user is authorized
if { $category == "Define New Category" } {
ns_returnredirect "admin-q-and-a-prompt-for-new-category.tcl?msg_id=$msg_id"
return
}
if { [info exists new_category_p] && $new_category_p == "t" } {
if [catch {ns_db dml $db "insert into bboard_q_and_a_categories (topic_id, category) values ($topic_id,'$QQcategory')"} errmsg] {
# something went wrong
ns_return 200 text/html "
New Category Not Updated
New Category Not Updated
The database rejected the addition of the new category \"$category\".
Here was the error message:
$errmsg
If you see \"integrity constraint\" somewhere in the message, it
probably means that topic_id $topic already has a category called \"$category\"
and you did not need to add it.
[bboard_system_owner]
"
return
}
}
# if we got here, it means the new category was added successfully
# and/or there was no need to add a category
if [catch {ns_db dml $db "update bboard set category = '$QQcategory' where msg_id = '$msg_id' "} errmsg] {
# something went wrong
ns_return 500 text/html "
Update Failed
Update Failed
The database rejected the categorization of msg $msg_id.
Here was the error message:
$errmsg
This is probably some kind of bug in this software.
[bboard_system_owner]
"
return
}
# if we got here, it means that we did everything right
ns_return 200 text/html "
Done
Done
Message $msg_id categorized.
[bboard_footer]"