# post-new.tcl,v 3.1 2000/02/23 01:49:39 bdolicki Exp
if {[ad_read_only_p]} {
ad_return_read_only_maintenance_message
return
}
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
}
set user_id [ad_verify_and_get_user_id]
if {$user_id == 0} {
ns_returnredirect /register.tcl?return_url=[ns_urlencode "[bboard_partial_url_stub]post-new.tcl?[export_url_vars topic topic_id]"]
return
}
if { [bboard_pls_blade_installed_p] } {
set search_option "Note: before you post a new question, you might want to make sure that it hasn't already been asked and answered...
$pre_post_caveat
"
} else {
set search_option "$pre_post_caveat"
}
ns_return 200 text/html "
Post New Message
Post a New Message
into the $topic bboard
$search_option
[bboard_footer]
"