# admin-community-view.tcl,v 3.0 2000/02/06 03:32:43 ron Exp
set_form_variables_string_trim_DoubleAposQQ
set_form_variables
page_validation {
set n_positions [validate_integer "N Postings" $n_postings]
}
# topic, topic_id, n_postings, hairy AOLserver widgets for start_date, end_date
# pull out start_date, end_date (ANSI format that will make Oracle hurl)
ns_dbformvalue [ns_conn form] start_date date start_date
ns_dbformvalue [ns_conn form] end_date date end_date
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 "
Participants in $topic forum
Participants in $topic forum
(main admin page)
Here are the participants who've made at least $n_postings postings
between $start_date and $end_date...
"
if { $n_postings < 2 } {
set sql "select distinct upper(email) as none, email, count(*) as how_many_posts
from bboard , users
where bboard.user_id = users.user_id
and topic_id = $topic_id
and posting_time >= to_date('$start_date','YYYY-MM-DD')
and posting_time <= to_date('$end_date','YYYY-MM-DD')
group by email
order by upper(email)"
} else {
set sql "select distinct upper(email) as none, email, count(*) as how_many_posts
from bboard, users
where topic_id = $topic_id
and posting_time >= to_date('$start_date','YYYY-MM-DD')
and posting_time <= to_date('$end_date','YYYY-MM-DD')
and bboard.user_id = users.user_id
group by email
having count(*) >= $n_postings
order by upper(email)"
}
set selection [ns_db select $db $sql]
while { [ns_db getrow $db $selection] } {
set_variables_after_query
ns_write "- $email ($how_many_posts)\n"
}
ns_write "
Spam
You can send them all an email message...
Contest
In case you are giving away prizes to people who participate in this
forum, we've provided the following random choice software. It will
select at random N of the above users.
[bboard_footer]
"