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 -N -r1.126.2.49 -r1.126.2.50
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	19 Feb 2021 10:18:21 -0000	1.126.2.49
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	22 Feb 2021 14:40:57 -0000	1.126.2.50
@@ -48,7 +48,7 @@
 #      1 = ok,
 #      2 = auth ok, but account closed
 
-ad_proc -private sec_random_token {} {
+ad_proc -public sec_random_token {} {
     Generates a random token.
 } {
     # ::tcl_sec_seed is used to maintain a small subset of the previously
@@ -394,7 +394,7 @@
 }
 
 
-ad_proc -private sec_login_handler {} {
+ad_proc -public sec_login_handler {} {
 
     If a login cookie exists, it is checked for expiration
     (depending on LoginTimeout) and the account status is validated.
@@ -1562,7 +1562,7 @@
     }
 }
 
-ad_proc -private sec_get_token {
+ad_proc -public sec_get_token {
     token_id
 } {
 
@@ -2030,7 +2030,7 @@
 }
 
 
-ad_proc -private security::get_qualified_url { url } {
+ad_proc -public security::get_qualified_url { url } {
     @return secure or insecure qualified url
 } {
     if { [security::secure_conn_p] || [ad_conn behind_secure_proxy_p] } {
@@ -2093,7 +2093,7 @@
     return $uri
 }
 
-ad_proc -private security::get_secure_location {} {
+ad_proc -public security::get_secure_location {} {
     Return the current location in secure (https) mode.
 
     @author Peter Marklund