group::default_member_state (public)

 group::default_member_state [ -join_policy join_policy ] \
    [ -create_p create_p ] [ -no_complain ]

Defined in packages/acs-subsite/tcl/group-procs.tcl

If user has 'create' privilege on group_id OR the group's join policy is 'open', then default_member_state will return "approved". If the group's join policy is 'needs approval' then default_member_state will return 'needs approval'. If the group's join policy is closed then an error will be thrown, unless the no_complain flag is set, in which case empty string is returned.

Switches:
-join_policy
(optional)
- the group's join policy (one of 'open', 'closed', or 'needs approval')
-create_p
(defaults to "false") (optional)
- 1 if the user has 'create' privilege on the group, 0 otherwise.
-no_complain
(boolean) (optional)
Author:
Oumi Mehrotra <oumi@arsdigita.com>
Created:
10/2000

Partial Call Graph (max 5 caller/called nodes):
%3 group::add_member group::add_member (public) group::default_member_state group::default_member_state group::add_member->group::default_member_state packages/acs-subsite/www/admin/groups/new.tcl packages/acs-subsite/ www/admin/groups/new.tcl packages/acs-subsite/www/admin/groups/new.tcl->group::default_member_state packages/acs-subsite/www/admin/parties/new.tcl packages/acs-subsite/ www/admin/parties/new.tcl packages/acs-subsite/www/admin/parties/new.tcl->group::default_member_state packages/acs-subsite/www/admin/users/new.tcl packages/acs-subsite/ www/admin/users/new.tcl packages/acs-subsite/www/admin/users/new.tcl->group::default_member_state packages/acs-subsite/www/group-join.tcl packages/acs-subsite/ www/group-join.tcl packages/acs-subsite/www/group-join.tcl->group::default_member_state

Testcases:
No testcase defined.
Source code:
    if {$create_p || $join_policy eq "open"} {
        return "approved"
    }

    if {$join_policy eq "needs approval"} {
        return "needs approval"
    }

    if {$no_complain_p} {
        error "group::default_member_state - user is not a group admin and join policy is $join_policy."
    }

    return ""
XQL Not present:
Generic
PostgreSQL XQL file:
packages/acs-subsite/tcl/group-procs-postgresql.xql

Oracle XQL file:
packages/acs-subsite/tcl/group-procs-oracle.xql

[ hide source ] | [ make this the default ]
Show another procedure: