ds_replace_get_user_procs (private)

 ds_replace_get_user_procs enabled_p

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

Replace the ad_get_user procs with our own versions

Parameters:

enabled_p

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

Testcases:

No testcase defined.

Source code:

    if { $enabled_p } {
        if { [namespace which orig_ad_conn] eq ""} {
            #ds_comment "Enabling user-switching"
            # let the user stay who he is now (but ignore any error trying to do so)
            catch {
                ad_set_client_property developer-support user_id [ad_conn user_id]
            }
            rename ad_conn orig_ad_conn
            proc ad_conn { args } {
                ds_conn {*}$args
            }
        }
    } else {
        #ds_comment "Disabling user-switching"
        if { [namespace which orig_ad_conn] ne ""} {
            rename ad_conn {}
            rename orig_ad_conn ad_conn
        }
    }

XQL Not present:

Generic, PostgreSQL, Oracle