change-join-policy.tcl

Change default join policy for a group type.

Location:
/packages/acs-subsite/www/admin/group-types/change-join-policy.tcl
Author:
Oumi Mehrotra <oumi@arsdigita.com>
Created:
2001-02-23
CVS ID:
$Id: change-join-policy.tcl,v 1.8.2.1 2019/05/16 09:54:29 gustafn Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    Change default join policy for a group type.

    @author Oumi Mehrotra (oumi@arsdigita.com)

    @creation-date 2001-02-23
    @cvs-id $Id: change-join-policy.tcl,v 1.8.2.1 2019/05/16 09:54:29 gustafn Exp $
} {
    group_type:notnull
    {return_url:localurl ""}
} -properties {
    context:onevalue
    group_type:onevalue
    QQgroup_type:onevalue
    group_type_pretty_name:onevalue
    admin_p:onevalue
    QQreturn_url:onevalue
    default_join_policy:onevalue
    possible_join_policies:onevalue
}

set context [list \
        [list "[ad_conn package_url]admin/group-types/" "Group types"] \
        [list [export_vars -base one group_type] "One type"] \
        "Edit default join policy"]

if { ![db_0or1row select_pretty_name {}] } {
    ad_return_error "Group type doesn't exist" "Group type \"$group_type\" doesn't exist"
    errorMsgad_script_abort
}

if {$dynamic_p != "t" } {
    ad_return_error \
        "Cannot administer group type" \
        "Group type \"$group_type\" can only be administered by programmers"
    ad_script_abort
}

set possible_join_policies [list open "needs approval" closed]
set QQreturn_url [ns_quotehtml $return_url]
set QQgroup_type [ns_quotehtml $group_type]
ad_return_template

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