security::get_qualified_uri_part (private)

 security::get_qualified_uri_part url

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

Parameters:
url

Partial Call Graph (max 5 caller/called nodes):
%3 security::get_insecure_qualified_url security::get_insecure_qualified_url (private) security::get_qualified_uri_part security::get_qualified_uri_part security::get_insecure_qualified_url->security::get_qualified_uri_part security::get_secure_qualified_url security::get_secure_qualified_url (private) security::get_secure_qualified_url->security::get_qualified_uri_part ad_conn ad_conn (public) security::get_qualified_uri_part->ad_conn security::get_uri_part security::get_uri_part (private) security::get_qualified_uri_part->security::get_uri_part

Testcases:
No testcase defined.
Source code:
    set uri [get_uri_part $url]

    if { [string index $uri 0] ne "/" } {
        # Make relative URI qualified
        return [ad_conn url]/$uri
    }

    return $uri
Generic XQL file:
packages/acs-tcl/tcl/security-procs.xql

PostgreSQL XQL file:
packages/acs-tcl/tcl/security-procs-postgresql.xql

Oracle XQL file:
packages/acs-tcl/tcl/security-procs-oracle.xql

[ hide source ] | [ make this the default ]
Show another procedure: