ds_get_user_id (private)

 ds_get_user_id [ original ]

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

Developer support version of ad_get_user_id, used for debugging sites.

Parameters:
original (optional, defaults to "0")

Partial Call Graph (max 5 caller/called nodes):
%3 ds_conn ds_conn (private) ds_get_user_id ds_get_user_id ds_conn->ds_get_user_id ad_get_client_property ad_get_client_property (public) ds_get_user_id->ad_get_client_property ds_get_real_user_id ds_get_real_user_id (private) ds_get_user_id->ds_get_real_user_id ds_permission_p ds_permission_p (private) ds_get_user_id->ds_permission_p ds_user_switching_enabled_p ds_user_switching_enabled_p (private) ds_get_user_id->ds_user_switching_enabled_p

Testcases:
No testcase defined.
Source code:
    set orig_user_id [ds_get_real_user_id]
    if {$original == 0
        && [ds_user_switching_enabled_p]
        && [ds_permission_p]
    } {
        set ds_user_id [ad_get_client_property -default $orig_user_id developer-support user_id]
        return $ds_user_id
    } else {
        return $orig_user_id
    }
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: