# admin-update-interest-level.tcl,v 3.1 2000/02/21 13:16:26 bdolicki Exp
set_form_variables
set_form_variables_string_trim_DoubleAposQQ

# msg_id is the key, interest_level

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 = '$QQmsg_id'"]


 
if  {[bboard_get_topic_info] == -1} {
    return}

if {[bboard_admin_authorization] == -1} {
	return}


# we're authorized 

ns_db dml $db "update bboard set interest_level = [ns_dbquotevalue $interest_level number] where msg_id = '$QQmsg_id'"

ns_returnredirect "admin-q-and-a-fetch-msg.tcl?msg_id=$msg_id"