# admin-categorize.tcl,v 3.0 2000/02/06 03:32:38 ron Exp ad_page_variables { topic_id topic } page_validation { set topic_id [validate_integer "Topic ID" $topic_id] } # topic if { ![bboard_check_cookie $topic 1] } { ns_returnredirect "admin-challenge.tcl?[export_url_vars topic topic_id]" return } # cookie checks out; user is authorized set db [bboard_db_gethandle] if { $db == "" } { bboard_return_error_page return } if [catch {set selection [ns_db 0or1row $db "select distinct * from bboard_topics where topic_id=$topic_id"]} errmsg] { [bboard_return_cannot_find_topic_page] return } # we found the data we needed set_variables_after_query set raw_form_vars "Present Categorized? Yes No Days Considered New (for how many days a question should show up as \"New\" rather than in its category) Order in which to present new questions? Oldest on top Newest on top Ask User to Categorize? Yes No Allow Users to Add New Categories? Yes No Use Interest Level System? Yes No Policy Statement Users Can Initiate Threads? Yes No (you only want to set this to No if you are using this software to collect categorized stories rather than true Q&A) " set merged_form [bt_mergepiece $raw_form_vars $selection] ReturnHeaders ns_write " Categorization for $topic

Categorization for \"$topic\"

a Q&A forum in [bboard_system_name]

\[ user page (Q&A) | in-line Admin Q&A \]

Categorization Information about this Q&A Forum

$merged_form

Delete and Categorize Threads

" # we only want the question 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"] set selection [ns_db select $db "select msg_id, one_line, sort_key, category from bboard where topic_id = $topic_id and refers_to is null order by sort_key desc"] while {[ns_db getrow $db $selection]} { set_variables_after_query ns_write "
DELETE $one_line\n" ns_write "
" ns_write "
New:
" ns_write "
\n" } ns_write " [bboard_footer] "