ds_permission_p (private)

 ds_permission_p

Defined in packages/acs-developer-support/tcl/acs-developer-support-procs.tcl

Do we have permission to view developer support stuff.

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

Testcases:

No testcase defined.

Source code:

    set party_id [ds_ad_conn user_id]
    if {$party_id == 0 || $party_id eq ""} {
        #
        # Set up a fake id in order to make user_switching mode work
        # with non logged-in users, if not it will enter into a
        # infinite loop with ad_conn in any new unknown request (roc)
        #
        set party_id "-99"
    }
    return [permission::permission_p -party_id $party_id -object_id [ds_instance_id] -privilege "admin"]

XQL Not present:

Generic, PostgreSQL, Oracle