Index: openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl,v diff -u -r1.13 -r1.13.2.1 --- openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl 3 Mar 2009 21:55:57 -0000 1.13 +++ openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl 14 May 2009 00:04:05 -0000 1.13.2.1 @@ -181,6 +181,10 @@ ad_proc -public application_group::package_id_from_group_id { -group_id:required } { + + Returns the package_id of a given application group. + +} { return [db_string -cache_key application_group_pid_from_gid_${group_id} get {}] } Index: openacs-4/packages/acs-tcl/tcl/apm-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs.tcl,v diff -u -r1.82 -r1.82.2.1 --- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl 17 Mar 2009 01:11:07 -0000 1.82 +++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl 14 May 2009 00:04:06 -0000 1.82.2.1 @@ -141,6 +141,11 @@ ad_proc apm_one_package_descendents { package_key } { + + Returns a list of package keys of all packages that inherit from the given + package + +} { global apm_visited_package_keys global apm_package_descendents @@ -157,6 +162,11 @@ ad_proc apm_build_subsite_packages_list {} { + Build the nsv_set cache of all packages which claim to implement subsite + semantics. The kludge to add acs-subsite if it's not declared with the subsite + attribute set true is needed during the upgrade process ... + +} { nsv_set apm_subsite_packages_list package_keys {} # Make sure old versions work ... @@ -196,6 +206,10 @@ ad_proc apm_one_package_inherit_order { package_key } { + + Returns a list of package keys in package inheritance order. + +} { global apm_visited_package_keys global apm_package_inherit_order @@ -214,6 +228,10 @@ ad_proc apm_one_package_load_libraries_dependencies { package_key } { + + Generate a list of package keys in library load dependency order. + +} { global apm_visited_package_keys global apm_package_load_libraries_order @@ -277,24 +295,40 @@ ad_proc apm_package_descendents { package_key } { + + Wrapper that returns the cached package descendents list. + +} { return [nsv_get apm_package_descendents $package_key] } ad_proc apm_package_inherit_order { package_key } { + + Wrapper that returns the cached package inheritance order list. + +} { return [nsv_get apm_package_inherit_order $package_key] } ad_proc apm_package_search_order { package_key } { + + Wrapper that returns the cached package search order list. + +} { return [nsv_get apm_package_search_order $package_key] } ad_proc apm_package_load_libraries_order { package_key } { + + Wrapper that returns the cached package library load order list. + +} { return [nsv_get apm_package_load_libraries_order $package_key] }