# admin-update-expiration-days.tcl,v 3.0 2000/02/06 03:33:12 ron Exp
set_form_variables
set_form_variables_string_trim_DoubleAposQQ

# msg_id is the key, expiration_days

set db [bboard_db_gethandle]
if { $db == "" } {
    bboard_return_error_page
    return
}


set topic_id [database_to_tcl_string $db "select 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 

if { $expiration_days == "" } { set expiration_days "NULL" }

ns_db dml $db "update bboard set expiration_days = $expiration_days where msg_id = '$QQmsg_id'"

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