Index: openacs-4/packages/acs-tcl/tcl/admin-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/admin-procs.tcl,v
diff -u -r1.30 -r1.30.2.1
--- openacs-4/packages/acs-tcl/tcl/admin-procs.tcl 17 Jan 2019 17:51:50 -0000 1.30
+++ openacs-4/packages/acs-tcl/tcl/admin-procs.tcl 30 Mar 2021 15:41:18 -0000 1.30.2.1
@@ -182,7 +182,7 @@
}
-ad_proc -private ad_registration_finite_state_machine_admin_links {
+ad_proc -public ad_registration_finite_state_machine_admin_links {
-nohtml:boolean
member_state
email_verified_p
Index: openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl,v
diff -u -r1.45.2.8 -r1.45.2.9
--- openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl 22 Feb 2021 15:59:12 -0000 1.45.2.8
+++ openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl 30 Mar 2021 15:41:18 -0000 1.45.2.9
@@ -118,7 +118,7 @@
}
-ad_proc -private apm_extract_tarball { version_id dir } {
+ad_proc -public apm_extract_tarball { version_id dir } {
Extracts a distribution tarball into a particular directory,
overwriting any existing files.
@@ -145,7 +145,7 @@
}
-ad_proc -private apm_generate_tarball { version_id } {
+ad_proc -public apm_generate_tarball { version_id } {
Generates a tarball for a version, placing it in the content repository.
DCW - 2001-05-03, change to use the content repository for tarball storage.
@@ -357,7 +357,7 @@
}
}
-ad_proc -private apm_cancel_all_watches { package_key } {
+ad_proc -public apm_cancel_all_watches { package_key } {
Cancel all watches in the given package.
@param package_key The package_key of the package to stop watching.
@@ -499,7 +499,7 @@
}
}
-ad_proc -private apm_load_apm_file {
+ad_proc -public apm_load_apm_file {
{-callback apm_dummy_callback}
{-url {}}
{file_path {}}
Index: openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl,v
diff -u -r1.126.2.15 -r1.126.2.16
--- openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl 26 Feb 2021 19:20:06 -0000 1.126.2.15
+++ openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl 30 Mar 2021 15:41:18 -0000 1.126.2.16
@@ -124,7 +124,7 @@
}
}
-ad_proc -private pkg_info_new {
+ad_proc -public pkg_info_new {
package_key spec_file_path embeds extends provides requires
{dependency_p ""} {comment ""}
} {
@@ -408,7 +408,7 @@
return [list 1 $install_in $extra_package_keys]
}
-ad_proc -private apm_dependency_check_new {
+ad_proc -public apm_dependency_check_new {
{-repository_array:required}
{-package_keys:required}
} {
@@ -1072,7 +1072,7 @@
}
}
-ad_proc -private apm_package_install_version {
+ad_proc -public apm_package_install_version {
{-callback apm_dummy_callback}
{-array:required}
{-version_id ""}
@@ -1100,7 +1100,7 @@
}
-ad_proc -private apm_package_deinstall {
+ad_proc -public apm_package_deinstall {
{-callback apm_dummy_callback}
package_key
} {
@@ -1405,7 +1405,7 @@
}
}
-ad_proc -private apm_package_install_owners_prepare {owner_names owner_uris } {
+ad_proc -public apm_package_install_owners_prepare {owner_names owner_uris } {
Prepare the owners data structure for installation.
@@ -1419,7 +1419,7 @@
return $owners
}
-ad_proc -private apm_package_install_owners { {-callback apm_dummy_callback} owners version_id} {
+ad_proc -public apm_package_install_owners { {-callback apm_dummy_callback} owners version_id} {
Install all of the owners of the package version.
@@ -1457,7 +1457,7 @@
}
}
-ad_proc -private apm_package_install_spec { version_id } {
+ad_proc -public apm_package_install_spec { version_id } {
Writes the XML-formatted specification for a package to disk,
marking it in the database as the only installed version of the package.
@@ -1602,7 +1602,7 @@
}
}
-ad_proc -private apm_package_upgrade_p {package_key version_name} {
+ad_proc -public apm_package_upgrade_p {package_key version_name} {
@return 1 if a version of the indicated package_key of version lower than version_name \
is already installed in the system, 0 otherwise.
} {
@@ -1624,7 +1624,7 @@
}
-ad_proc -private apm_version_upgrade {version_id} {
+ad_proc -public apm_version_upgrade {version_id} {
Upgrade a package to a locally maintained later version.
@@ -1676,7 +1676,7 @@
}
}
-ad_proc -private apm_data_model_scripts_find {
+ad_proc -public apm_data_model_scripts_find {
{-upgrade_from_version_name ""}
{-upgrade_to_version_name ""}
{-package_path ""}
@@ -1982,7 +1982,7 @@
#
#############
-ad_proc -private apm_get_package_repository {
+ad_proc -public apm_get_package_repository {
{-repository_url ""}
{-array:required}
} {
@@ -2385,7 +2385,7 @@
}
}
-ad_proc -private apm::package_version::attributes::get_spec {} {
+ad_proc -public apm::package_version::attributes::get_spec {} {
Return dynamic attributes of package versions in
an array list. The rationale for introducing the dynamic
package version attributes is to make it easy to add
@@ -2424,7 +2424,7 @@
}
}
-ad_proc -private apm::package_version::attributes::get_pretty_name { attribute_name } {
+ad_proc -public apm::package_version::attributes::get_pretty_name { attribute_name } {
Return the pretty name of attribute with given short name.
@author Peter Marklund
@@ -2445,7 +2445,7 @@
return $error_message
}
-ad_proc -private apm::package_version::attributes::maturity_int_to_text { maturity } {
+ad_proc -public apm::package_version::attributes::maturity_int_to_text { maturity } {
Get the internationalized maturity description
corresponding to the given integer package maturity level.
@@ -2509,7 +2509,7 @@
}
}
-ad_proc -private apm::package_version::attributes::default_value { attribute_name } {
+ad_proc -public apm::package_version::attributes::default_value { attribute_name } {
Return the default value for the given attribute name.
@author Peter Marklund
@@ -2562,7 +2562,7 @@
}
}
-ad_proc -private apm::package_version::attributes::get {
+ad_proc -public apm::package_version::attributes::get {
{-version_id:required}
{-array:required}
} {
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.114.2.31 -r1.114.2.32
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl 30 Mar 2021 14:45:45 -0000 1.114.2.31
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl 30 Mar 2021 15:41:18 -0000 1.114.2.32
@@ -453,7 +453,7 @@
return $changed_files
}
-ad_proc -private apm_version_load_status { version_id } {
+ad_proc -public apm_version_load_status { version_id } {
If a version needs to be reloaded (i.e., a <code>-procs.tcl</code> has changed
or been added since the version was loaded), returns "needs_reload".
@@ -724,7 +724,7 @@
return $dirs
}
-ad_proc -private apm_pretty_name_for_file_type { type } {
+ad_proc -public apm_pretty_name_for_file_type { type } {
Returns the pretty name corresponding to a particular file type key
@@ -1793,7 +1793,7 @@
}
}
-ad_proc -private apm_callback_has_valid_args {
+ad_proc -public apm_callback_has_valid_args {
{-type:required}
{-proc_name:required}
} {
Index: openacs-4/packages/acs-tcl/tcl/apm-xml-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-xml-procs.tcl,v
diff -u -r1.33.2.8 -r1.33.2.9
--- openacs-4/packages/acs-tcl/tcl/apm-xml-procs.tcl 2 Mar 2021 13:52:42 -0000 1.33.2.8
+++ openacs-4/packages/acs-tcl/tcl/apm-xml-procs.tcl 30 Mar 2021 15:41:19 -0000 1.33.2.9
@@ -50,7 +50,7 @@
return $default
}
-ad_proc -private apm_generate_package_spec { version_id } {
+ad_proc -public apm_generate_package_spec { version_id } {
Generates an XML-formatted specification for a version of a package.