# admin-usgeospatial.tcl,v 3.0 2000/02/06 03:33:30 ron Exp
set_form_variables_string_trim_DoubleAposQQ
set_form_variables
# topic 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 Message |"
if { $policy_statement != "" } {
set about_link "| About"
} else {
set about_link ""
}
if { [bboard_pls_blade_installed_p] } {
set top_menubar "\[ $ask_a_question
Search
$about_link
\]"
} else {
set top_menubar "\[ $ask_a_question
$about_link
\]"
}
set sql "select bboard.*, facility, users.email, users.first_names || ' ' || users.last_name as name, interest_level
from bboard, users, rel_search_fac
where users.user_id = bboard.user_id
and topic_id = $topic_id
and refers_to is null
and posting_time > (sysdate() - $q_and_a_new_days)
and bboard.tri_id = rel_search_fac.tri_id(+)
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 Threads
Other Groups of Posts
"
ns_write "
[bboard_footer]
"