util_current_location_node_id (public)

 util_current_location_node_id

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

returns node_id of util_current_location. Useful for hostnode mapped sites using ad_context_bar

Partial Call Graph (max 5 caller/called nodes):
%3 ad_context_bar_multirow ad_context_bar_multirow (public) util_current_location_node_id util_current_location_node_id ad_context_bar_multirow->util_current_location_node_id db_0or1row db_0or1row (public) util_current_location_node_id->db_0or1row util::split_location util::split_location (public) util_current_location_node_id->util::split_location util_current_location util_current_location (public) util_current_location_node_id->util_current_location

Testcases:
No testcase defined.
Source code:
    util::split_location [util_current_location] .proto location_hostname .port

    if { [string match -nocase "www.*" $location_hostname] } {
        set location_hostname [string range $location_hostname 4 end]
    }
    db_0or1row -cache_key util-${location_hostname}-node-id get_node_id_from_hostname {
        select node_id from host_node_map where host = :location_hostname
    }
    if { ![info exists node_id ] } {
        set node_id ""
    }
    return $node_id
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: