# admin-view-alerts.tcl,v 3.0 2000/02/06 03:33:31 ron Exp
set_form_variables
set_form_variables_string_trim_DoubleAposQQ
# topic
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
}
# cookie checks out; user is authorized
ReturnHeaders
set keyword_header ""
if { [bboard_pls_blade_installed_p] == 1 } {
set keyword_header "| Keywords | "
}
ns_write "
Alerts for $topic
Alerts for $topic
in [bboard_system_name]
| Email | Action | Frequency | $keyword_header
|---|
"
set selection [ns_db select $db "select bea.*, bea.oid as rowid,
valid_p = 'f' as not_valid_p,
email, upper(email) as upper_email
from bboard_email_alerts bea, users
where bea.user_id = users.user_id
and topic_id = $topic_id
order by not_valid_p, upper_email"]
set seen_any_enabled_p 0
set seen_disabled_p 0
while {[ns_db getrow $db $selection]} {
set_variables_after_query
if { $valid_p == "f" } {
# we're into the disabled section
if { $seen_any_enabled_p && !$seen_disabled_p } {
if { [bboard_pls_blade_installed_p] == 1 } {
ns_write "| -- Disabled Alerts -- |
\n"
} else {
ns_write "| -- Disabled Alerts -- |
\n"
}
set seen_disabled_p 1
}
set action "Re-enable"
} else {
# alert is enabled
set seen_any_enabled_p 1
set action "Disable"
}
if { [bboard_pls_blade_installed_p] == 1 } {
ns_write "| $email | $action | $frequency | \"$keywords\" |
\n"
} else {
ns_write "| $email | $action | $frequency |
\n"
}
}
ns_write "
[bboard_footer]
"