# fetch-msg.tcl,v 3.0 2000/02/06 03:33:52 ron Exp
ad_page_variables {
{msg_id}
}
page_validation {
bboard_validate_msg_id $msg_id
}
# msg_id is the key
set db [bboard_db_gethandle]
if { $db == "" } {
bboard_return_error_page
return
}
set selection [ns_db 1row $db "select days_since_posted(posting_time),bboard.*, email, first_names || ' ' || last_name as name, bboard_topics.topic,
users.user_id as poster_user_id
from bboard, bboard_topics, users
where bboard.user_id = users.user_id
and bboard_topics.topic_id = bboard.topic_id
and msg_id = '$msg_id'"]
set_variables_after_query
# now variables like $message and topic are defined
set QQtopic [DoubleApos $topic]
if {[bboard_get_topic_info] == -1} {
return
}
switch $days_since_posted {
0 { set age_string "today" }
1 { set age_string "yesterday" }
default { set age_string "$days_since_posted days ago" }
}
ns_return 200 text/html "
$one_line
\[
Post New Message |
Post Reply to this One |
Send Private Email to $name |
Help
\]
$one_line
from $name
[util_maybe_convert_to_html $message $html_p]
(posted $age_string)
\[
Previous |
Next
\]
[bboard_footer]
"