cookieconsent::get_relevant_subsite (private)

 cookieconsent::get_relevant_subsite

Defined in packages/cookie-consent/tcl/cookie-consent-procs.tcl

Partial Call Graph (max 5 caller/called nodes):
%3 cookieconsent::initialize_widget cookieconsent::initialize_widget (public) cookieconsent::get_relevant_subsite cookieconsent::get_relevant_subsite cookieconsent::initialize_widget->cookieconsent::get_relevant_subsite cookieconsent::reset_cookie cookieconsent::reset_cookie (public) cookieconsent::reset_cookie->cookieconsent::get_relevant_subsite

Testcases:
No testcase defined.
Source code:
        set dict [security::get_register_subsite]
        if {![dict exists $dict subsite_id]} {
            set host_node_id [dict get $dict host_node_id]
            if {$host_node_id == 0} {
                #
                # Provide compatibility with older versions of
                # get_register_subsite, not returning the
                # host_node_id. In such cases, we get the host_node_id
                # via the URL
                #
                set node_info [site_node::get_from_url -url [dict get $dict url]]
                set host_node_id [dict get $node_info node_id]
            }
            set subsite_id [site_node::get_object_id -node_id $host_node_id]
        } else {
            set subsite_id [dict get $dict subsite_id]
        }
        return $subsite_id
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: