# admin-q-and-a.tcl,v 3.0 2000/02/06 03:33:11 ron Exp
set_form_variables_string_trim_DoubleAposQQ
set_form_variables
# topic_id required
set db [bboard_db_gethandle]
if { $db == "" } {
bboard_return_error_page
return
}
if {[bboard_get_topic_info] == -1} {
return}
if {[bboard_admin_authorization] == -1} {
return}
# the administrator can always post a new question
set ask_a_question "Post a New Question |"
if { $policy_statement != "" } {
set about_link "| About"
} else {
set about_link ""
}
if { [bboard_pls_blade_installed_p] } {
set top_menubar "\[ $ask_a_question
Search |
Unanswered Questions |
New Answers
$about_link
\]"
} else {
set top_menubar "\[ $ask_a_question
Unanswered Questions |
New Answers
$about_link
\]"
}
set sql "select msg_id, one_line, sort_key, email,first_names || ' ' || last_name as name, interest_level
from bboard, users
where users.user_id = bboard.user_id
and topic = '$QQtopic'
and refers_to is null
order by sort_key $q_and_a_sort_order"
set sql "select msg_id, one_line, sort_key, email,first_names || ' ' || last_name as name, interest_level
from bboard, users
where users.user_id = bboard.user_id
and topic_id = $topic_id
and refers_to is null
and sysdate()::date - posting_time::date < $q_and_a_new_days
order by sort_key $q_and_a_sort_order"
set selection [ns_db select $db $sql]
ReturnHeaders
ns_write "
Administer $topic by Question
Administer $topic
by question (one of the options from the admin home page for this topic)
$top_menubar
New Questions
"
while {[ns_db getrow $db $selection]} {
set_variables_after_query
ns_write "- $one_line
from ($name)\n"
if { $q_and_a_use_interest_level_p == "t" } {
if { $interest_level == "" } { set interest_level "NULL" }
ns_write " -- interest level $interest_level"
}
}
ns_write "
Other Groups of Questions
"
ns_write "
[bboard_footer]
"