group-join.tcl

Join/request membership for this group

Location:

/packages/acs-subsite/www/group-join.tcl

Author:

Lars Pind <lars@collaboraid.biz>

Created:

2003-08-07

CVS ID:

$Id: group-join.tcl,v 1.4 2018/01/19 14:09:48 gustafn Exp $

Related Files

• packages/acs-subsite/www/group-join.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    Join/request membership for this group

    @author Lars Pind (lars@collaboraid.biz)
    @creation-date 2003-08-07
    @cvs-id $Id: group-join.tcl,v 1.4 2018/01/19 14:09:48 gustafn Exp $
} {
    {return_url:localurl "."}
}

auth::require_login

set user_id [ad_conn user_id]
set group_id [application_group::group_id_from_package_id]
set join_policy [group::join_policy -group_id $group_id]

set member_p [group::member_p -group_id $group_id -user_id $user_id]

# Check that they're not already a member
if { !$member_p } {

    # Create the relation
    
    set rel_type "membership_rel"
    
    set member_state [group::default_member_state -join_policy $join_policy -create_p 0]
    
    db_transaction {
        set rel_id [relation_add -member_state $member_state $rel_type $group_id $user_id]
    } on_error {
        ad_return_error "Error creating the relation" "We got the following error message while trying to create this relation: <pre>$errmsg</pre>"
        ad_script_abort
    }

}

ad_returnredirect $return_url
ad_script_abort

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