# admin-q-and-a-new-answers.tcl,v 3.0 2000/02/06 03:33:01 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}
# we found subject_line_suffix at least
set_variables_after_query
ReturnHeaders
ns_write "
$topic Recent Answers
Recent Answers
in the $topic Q&A forum
"
set sql "select bnah.root_msg_id,count(*) as n_new,max(bnah.posting_time) as max_posting_time, to_char(max(bnah.posting_time),'YYYY-MM-DD') as max_posting_date, bboard.one_line as subject_line
from bboard_new_answers_helper bnah, bboard
where sysdate()::date - bnah.posting_time::date < 7
and bnah.root_msg_id = bboard.msg_id
and bnah.topic_id = $topic_id
group by root_msg_id, bboard.one_line
order by max_posting_time desc"
set selection [ns_db select $db $sql]
while {[ns_db getrow $db $selection]} {
set_variables_after_query
if { $n_new == 1 } {
set answer_phrase "answer, "
} else {
set answer_phrase "answers, last "
}
ns_write "- $subject_line ($n_new new $answer_phrase on [util_IllustraDatetoPrettyDate $max_posting_date])"
}
ns_write "
[bboard_footer]
"