group_type::drop_all_groups_p (public)

 group_type::drop_all_groups_p [ -user_id user_id ] group_type

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

Returns 1 if the user has permission to delete all groups of the specified type. 0 otherwise. user_id defaults to ad_conn user_id if we have a connection. If there is no connection, and no user id, throws an error.

Switches:

-user_id

(optional)

Parameters:

group_type

Author:

Michael Bryzek <mbryzek@arsdigita.com>

Created:

12/2000

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

        if { $user_id eq "" } {
            if { ![ns_conn isconnected] } {
                error "group_type::drop_all_groups_p: User ID not specified and we have no connection from which to obtain current user ID."
            }
            set user_id [ad_conn user_id]
        }
        return [db_string group_exists_p {
            select case when exists
            (select 1 from acs_objects o
             where object_type = :group_type
             and not acs_permission.permission_p(o.object_id, :user_id, 'delete'))
            then 1 else 0 end
            from dual
        }]

Generic XQL file:

packages/acs-subsite/tcl/group-type-procs.xql

PostgreSQL XQL file:

packages/acs-subsite/tcl/group-type-procs-postgresql.xql

Oracle XQL file:

packages/acs-subsite/tcl/group-type-procs-oracle.xql