# admin-usgeospatial-new-messages.tcl,v 3.0 2000/02/06 03:33:26 ron Exp
set_form_variables_string_trim_DoubleAposQQ
set_form_variables
# topic required
set db [bboard_db_gethandle]
if { $db == "" } {
bboard_return_error_page
return
}
if {[bboard_get_topic_info] == -1} {
return}
if {[bboard_admin_authorization] == -1} {
return}
ReturnHeaders
ns_write "
$topic Recent Postings
Recent Postings
in the $topic Q&A forum (sorted by time rather than by thread)
(covers last $q_and_a_new_days days)
"
set sql "select bboard.*, facility, email, first_names || ' ' || last_name as name, originating_ip, interest_level, posting_time, substr(sort_key,1,6) as root_msg_id
from bboard, users, rel_search_fac
where bboard.user_id = users.user_id
and topic = $topic_id
and sysdate()::date - posting_time::date < $q_and_a_new_days
and bboard.tri_id = rel_search_fac.tri_id(+)
order by sort_key desc"
set selection [ns_db select $db $sql]
while {[ns_db getrow $db $selection]} {
set_variables_after_query
if { $originating_ip == "" } {
set ip_stuff ""
} else {
set ip_stuff "$originating_ip"
}
ns_write "- $posting_time: $one_line ($epa_region : $usps_abbrev : $fips_county_code : $tri_id : $facility) from $name
($email)
$ip_stuff"
}
ns_write "
[bboard_footer]
"