Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v diff -u -r1.93.2.35 -r1.93.2.36 --- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl 14 Feb 2021 21:13:25 -0000 1.93.2.35 +++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl 19 Feb 2021 10:11:54 -0000 1.93.2.36 @@ -510,10 +510,13 @@ unset ::xo::cleanup_always($key) } - # - # Per-request cleanup handler. - # - ad_proc -private at_cleanup {args} { + ad_proc at_cleanup {args} { + # + # Per-request cleanup handler. The handler is as well called by + # the xowiki-datasource and must be therefore public. + # + + } { ::xo::dc profile off ::xo::broadcast receive Index: openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl,v diff -u -r1.64.2.4 -r1.64.2.5 --- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl 28 Oct 2020 15:39:19 -0000 1.64.2.4 +++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl 19 Feb 2021 10:15:32 -0000 1.64.2.5 @@ -389,7 +389,7 @@ } } - ad_proc -private ds_add { name args } { + ad_proc -public ds_add { name args } { Sets a developer-support property for the current request. } { if { [ds_enabled_p] && [ds_collection_enabled_p] } { Index: openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl,v diff -u -r1.68.2.15 -r1.68.2.16 --- openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl 18 Feb 2021 14:28:59 -0000 1.68.2.15 +++ openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl 19 Feb 2021 10:15:32 -0000 1.68.2.16 @@ -727,7 +727,7 @@ return $formatted_message } -ad_proc -private lang::message::embedded_vars_regexp {} { +ad_proc -public lang::message::embedded_vars_regexp {} { The regexp pattern used to loop over variables embedded in message catalog texts. 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.6 -r1.45.2.7 --- openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl 13 Jan 2021 13:10:29 -0000 1.45.2.6 +++ openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl 19 Feb 2021 10:18:21 -0000 1.45.2.7 @@ -416,7 +416,7 @@ } -ad_proc -private apm_tar_cmd {} { +ad_proc -public apm_tar_cmd {} { @return A valid command name for tar. Index: openacs-4/packages/acs-tcl/tcl/defs-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/defs-procs.tcl,v diff -u -r1.81.2.8 -r1.81.2.9 --- openacs-4/packages/acs-tcl/tcl/defs-procs.tcl 19 May 2020 19:15:36 -0000 1.81.2.8 +++ openacs-4/packages/acs-tcl/tcl/defs-procs.tcl 19 Feb 2021 10:18:21 -0000 1.81.2.9 @@ -438,7 +438,7 @@ } -ad_proc -private ad_parameter_cache { +ad_proc -public ad_parameter_cache { -set -delete:boolean -global:boolean Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v diff -u -r1.126.2.48 -r1.126.2.49 --- openacs-4/packages/acs-tcl/tcl/security-procs.tcl 18 Feb 2021 14:50:20 -0000 1.126.2.48 +++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl 19 Feb 2021 10:18:21 -0000 1.126.2.49 @@ -950,7 +950,7 @@ return $location/[join $elements /] } -ad_proc -private security::get_register_subsite {} { +ad_proc security::get_register_subsite {} { Returns a URL pointing to the subsite, on which the register/unregister should be performed. If there is no current @@ -2223,7 +2223,7 @@ if {[namespace which ns_driver] ne ""} { - ad_proc -private security::configured_driver_info {} { + ad_proc -public security::configured_driver_info {} { Return a list of dicts containing type, driver, location and port of all configured drivers @@ -2283,7 +2283,7 @@ } else { - ad_proc -private security::configured_driver_info {} { + ad_proc -public security::configured_driver_info {} { set result "" # # Find the first insecure driver based on driver names from Index: openacs-4/packages/acs-templating/tcl/parse-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/parse-procs.tcl,v diff -u -r1.65.2.8 -r1.65.2.9 --- openacs-4/packages/acs-templating/tcl/parse-procs.tcl 1 Feb 2021 10:54:23 -0000 1.65.2.8 +++ openacs-4/packages/acs-templating/tcl/parse-procs.tcl 19 Feb 2021 10:18:21 -0000 1.65.2.9 @@ -63,7 +63,7 @@ return $__adp_out } -ad_proc -private template::adp_parse { __adp_stub __args } { +ad_proc -public template::adp_parse { __adp_stub __args } { Execute procedures to prepare data sources and then to output template. Assumes adp_level is set on entry. in general the public version template::adp_include should be used for generating @@ -704,15 +704,16 @@ adp_append_code "append __adp_output \"$s\"" } -ad_proc -private template::adp_append_code { code { nobreak "" } } { +ad_proc -public template::adp_append_code { code { nobreak "" } } { Adds a line of code to the Tcl output from the compiler. + Called also from developer support. @param code A line of Tcl code @option nobreak Flag indicating that code should be appended to the current last line rather than adding a new line, for cases where code must continue on the same line, such - as the else tag + as the "else" tag. } { if { [string is space $code] } { return } @@ -825,7 +826,7 @@ return $name } -ad_proc -private template::get_attribute { tag params name { default "ERROR" } } { +ad_proc -public template::get_attribute { tag params name { default "ERROR" } } { Retrieves a named attribute value from the parameter set passed to a tag handler. If a default is not specified, assumes the attribute is required and throws an error.