ad_acs_administrator_exists_p (private)

 ad_acs_administrator_exists_p

Defined in packages/acs-tcl/tcl/acs-kernel-procs.tcl

Returns:

1 if a user with admin privileges exists, 0 otherwise.

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

Testcases:

No testcase defined.

Source code:

    ad_acs_require_basic_schemata

    return [db_string admin_exists_p {
        select 1 as admin_exists_p
        from dual
        where exists (
            select 1
            from acs_permissions p,
                 party_approved_member_map m,
                 users u,
                 acs_magic_objects amo
           where amo.name = 'security_context_root'
             and p.object_id = amo.object_id
             and p.grantee_id = m.party_id
             and u.user_id = m.member_id
             and acs_permission.permission_p(amo.object_id, u.user_id, 'admin') = 't'
         )
    } -default 0]

XQL Not present:

Generic

PostgreSQL XQL file:

packages/acs-tcl/tcl/acs-kernel-procs-postgresql.xql

Oracle XQL file:

packages/acs-tcl/tcl/acs-kernel-procs-oracle.xql