subscribe-others.tcl

Subscribe a list of email addresses to a forum

Location:
/packages/forums/www/admin/subscribe-others.tcl
Author:

Jade Rubick <jade@rubick.com>

Created:

2005-04-08

CVS ID:

$Id: subscribe-others.tcl,v 1.6.2.2 2022/08/30 13:08:30 antoniop Exp $

File Contents

ad_page_contract {

    Subscribe a list of email addresses to a forum

    @author Jade Rubick (jade@rubick.com)
    @creation-date 2005-04-08
    @cvs-id $Id: subscribe-others.tcl,v 1.6.2.2 2022/08/30 13:08:30 antoniop Exp $

} {
    forum_id:object_type(forums_forum),notnull
    {return_url:localurl "."}
}

# Select the info
set package_id [ad_conn package_id]
set subsite_id [ad_conn subsite_id]
set group_id [application_group::group_id_from_package_id -package_id $subsite_id]

set member_ids [group::get_members -group_id $group_id]
set member_html ""
foreach member_id $member_ids {
    append member_html "<input type=\"checkbox\" name=\"subscriber_ids\" value=\"$member_id\" id=\"subscriber,$member_id\" title=\"\"> [party::name -party_id $member_id]<br>\n"
}

forum::get -forum_id $forum_id -array forum

# Proper scoping?
if {$package_id != $forum(package_id)} {
    ns_log Error "Forum Administration: Bad Scoping of Forum #$forum_id in Forum Editing"
    ad_returnredirect -message "Forum Administration: Bad Scoping of Forum #$forum_id in Forum Editing" "./"
    ad_script_abort
}

set context [list [_ forums.Subscribe_others]]

set type forums_forum_notif
set type_id [notification::type::get_type_id -short_name $type]

# Get the list for the members and the ones already subscribed
set subscribed_members_list [notification::request::subscribers -type_id $type_id -object_id $forum_id]
set member_ids [group::get_members -group_id $group_id]
set member_ids [lsort -integer -unique [concat $subscribed_members_list $member_ids]]

set member_html ""
foreach member_id $member_ids {
    if {$member_id in $subscribed_members_list} {
        set checked_html "checked"
    } else {
        set checked_html ""
    }

    append member_html "<input type=\"checkbox\" name=\"subscriber_ids\" value=\"$member_id\" id=\"subscriber,$member_id\" $checked_html> [party::name -party_id $member_id]<br>\n"
}


set hidden_vars [export_vars -form {forum_id type_id}]

set intervals [notification::get_intervals -type_id $type_id]
set interval_html "<select name=\"interval\">"
foreach interval $intervals {
    lassign $interval iname iid
    append interval_html "<option value=\"$iid\">$iname</option>"
}
append interval_html "</select>"

set delivery_methods [notification::get_delivery_methods -type_id $type_id]

set delivery_html "<select name=\"delivery_method\">"
foreach dm $delivery_methods {
    lassign $dm dname did
    append delivery_html "<option value=\"$did\">$dname</option>"
}
append delivery_html "</select>"



# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End:

subscribe-others.tcl

Related Files

File Contents