# post-reply-top.tcl,v 3.0 2000/02/06 03:34:09 ron Exp
ad_page_variables {
refers_to
}
# refers_to is the key
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, email, bboard.*
from bboard, users
where bboard.user_id = users.user_id
and msg_id = '$QQrefers_to'"]
set_variables_after_query
# now variables like $message are defined
ns_return 200 text/html "
$one_line
$one_line
from $name ($email)
$message
"