# post-reply-form.tcl,v 3.1 2000/02/13 15:24:02 bdolicki Exp
if {[ad_read_only_p]} {
ad_return_read_only_maintenance_message
return
}
set form_refers_to [ns_set get [ns_conn form] refers_to]
set QQform_refers_to [DoubleApos $form_refers_to]
# we can't just use set_form_variables because that would set
# "refers_to" which is about to be overwritten by the db query
set db [bboard_db_gethandle]
if { $db == "" } {
bboard_return_error_page
return
}
set selection [ns_db 1row $db "select first_names || ' ' || last_name as name, bboard.*, bboard_topics.topic
from bboard, users, bboard_topics
where users.user_id = bboard.user_id
and bboard_topics.topic_id = bboard.topic_id
and msg_id = '$QQform_refers_to'"]
set_variables_after_query
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-reply-frame.tcl?refers_to=[ns_urlencode $form_refers_to]"]
return
}
ns_return 200 text/html "
Post Reply
Post a Reply
to \"$one_line\" from $name
in the $topic bboard
[bboard_footer]
"