acs_admin::require_site_wide_subsite (public)

 acs_admin::require_site_wide_subsite

Defined in packages/acs-admin/tcl/site-wide-procs.tcl

Require the site_wide subsite for administration and testing purposes. If the subsite does not exist, create it.

Returns:
package_id of the site_wide subsite

Partial Call Graph (max 5 caller/called nodes):
%3 test_acs_admin_require_site_wide acs_admin_require_site_wide (test acs-admin) acs_admin::require_site_wide_subsite acs_admin::require_site_wide_subsite test_acs_admin_require_site_wide->acs_admin::require_site_wide_subsite site_node::exists_p site_node::exists_p (public) acs_admin::require_site_wide_subsite->site_node::exists_p site_node::get site_node::get (public) acs_admin::require_site_wide_subsite->site_node::get site_node::instantiate_and_mount site_node::instantiate_and_mount (public) acs_admin::require_site_wide_subsite->site_node::instantiate_and_mount acs_admin::require_site_wide_package acs_admin::require_site_wide_package (public) acs_admin::require_site_wide_package->acs_admin::require_site_wide_subsite

Testcases:
acs_admin_require_site_wide
Source code:
        return [acs::per_thread_cache eval -key acs-admin.site_wide_subsite {
            set subsite_name site-wide
            set subsite_parent /acs-admin
            set subsite_path $subsite_parent/$subsite_name

            if {[site_node::exists_p -url $subsite_path]} {
                set node_info [site_node::get -url $subsite_path]
                set subsite_id [dict get $node_info object_id]
            } else {
                set node_info [site_node::get -url $subsite_parent]
                set subsite_id [site_node::instantiate_and_mount  -parent_node_id [dict get $node_info node_id]  -node_name $subsite_name  -package_name $subsite_name  -package_key acs-subsite]
            }
            set subsite_id
        }]
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: