# admin-q-and-a-fetch-msg.tcl,v 3.0 2000/02/06 03:32:59 ron Exp
ad_page_variables {
{msg_id}
}
page_validation {
bboard_validate_msg_id $msg_id
}
# msg_id is the key
# make a copy because it is going to get overwritten by
# some subsequent queries
set this_msg_id $msg_id
set db [bboard_db_gethandle]
if { $db == "" } {
bboard_return_error_page
return
}
if [bboard_file_uploading_enabled_p] {
set selection [ns_db 0or1row $db "
select
posting_time as posting_date,
bboard.*,
bboard_topics.topic,
users.email,
users.first_names || ' ' || users.last_name as name,
buf.bboard_upload_id,
buf.file_type,
buf.n_bytes,
buf.client_filename,
buf.caption,
buf.original_width,
buf.original_height
from bboard, bboard_topics, users, bboard_uploaded_files buf
where bboard_topics.topic_id = bboard.topic_id
and bboard.user_id = users.user_id
and bboard.msg_id = buf.msg_id
and bboard.msg_id = '$msg_id'
union
select
posting_time as posting_date,
bboard.*,
bboard_topics.topic,
users.email,
users.first_names || ' ' || users.last_name as name,
NULL as bboard_upload_id,
NULL as file_type,
NULL as n_bytes,
NULL as client_filename,
NULL as caption,
NULL as original_width,
NULL as original_height
from bboard, bboard_topics, users
where bboard_topics.topic_id = bboard.topic_id
and bboard.user_id = users.user_id
and not exists (select msg_id from bboard_uploaded_files where msg_id='$msg_id')
and bboard.msg_id = '$msg_id'"]
} else {
set selection [ns_db 0or1row $db "select to_char(posting_time,'YYYY-MM-DD') as posting_date,bboard.*, users.first_names || ' ' || users.last_name as name, users.email, bboard_topics.topic
from bboard, users, bboard_topics
where users.user_id = bboard.user_id
and bboard.topic_id = bboard_topics.topic_id
and msg_id = '$msg_id'"]
}
if { $selection == "" } {
# message was probably deleted
ns_return 200 text/html "Couldn't find message $msg_id. Probably it was deleted by the forum maintainer."
return
}
set_variables_after_query
# now we know the topic for this message, make sure the user is
# authorized
set QQtopic [DoubleApos $topic]
if {[bboard_get_topic_info] == -1} {
return}
if {[bboard_admin_authorization] == -1} {
return}
set this_one_line $one_line
# now variables like $message and $topic are defined
if { $originating_ip != "" } {
set contributed_by "Asked by $name ($email)
from
$originating_ip on [util_AnsiDatetoPrettyDate $posting_date]."
} else {
set contributed_by "Asked by $name ($email) on [util_IllustraDatetoPrettyDate $posting_date]."
}
# find out if this is usgeospatial
set presentation_type [database_to_tcl_string $db "select presentation_type from bboard_topics where topic_id = $topic_id"]
ReturnHeaders
ns_write "
$one_line
$one_line
"
if { $presentation_type == "usgeospatial" } {
ns_write "in the $topic $presentation_type forum"
} else {
ns_write "in the $topic $presentation_type forum"
}
ns_write "
"
if { $presentation_type == "usgeospatial" } {
ns_write "asked in the $topic ($epa_region : $usps_abbrev : $fips_county_code : $tri_id) $presentation_type Forum
"
} else {
ns_write "asked in the $topic $presentation_type Forum
"
}
ns_write "
- DELETE ENTIRE THREAD
"
if { $q_and_a_use_interest_level_p == "t" } {
ns_write "
"
}
ns_write "
"
if { $q_and_a_categorized_p == "t" } {
set categories [database_to_tcl_list $db "select distinct category, upper(category) from bboard_q_and_a_categories where topic_id = $topic_id order by 2"]
lappend categories "Define New Category"
ns_write "
- "
}
ns_write "
[bboard_footer]
"