# default-main.tcl,v 3.1 2000/02/23 01:49:39 bdolicki Exp
set_the_usual_form_variables
# topic
set db [bboard_db_gethandle]
if { $db == "" } {
bboard_return_error_page
return
}
if {[bboard_get_topic_info] == -1} {
return
}
# we found the data we needed
set_variables_after_query
ReturnHeaders
ns_write "
Default
"
if { $users_can_initiate_threads_p != "f" } {
ns_write "
\[
Post New Message
\]
"
}
ns_write "
$topic
Click on a subject line above to see the full message that corresponds
to it.
"
if { [bboard_pls_blade_installed_p] } {
ns_write ""
}
set user_id [ad_verify_and_get_user_id]
switch $user_id {
0 { set administrator_p 0 }
default {
if { $user_id == $primary_maintainer_id } {
set administrator_p 1
} else {
set administrator_p [bboard_user_is_admin_for_topic $db $user_id $topic_id]
}
}
}
if { $administrator_p == 0 } {
ns_write "This forum is maintained by $maintainer_name. "
} else {
ns_write "Administrator page"
}
ns_write "If you want to follow this discussion by email,
click here to add an alert.
[bboard_footer]
"