Index: openacs-4/packages/acs-authentication/tcl/local-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/local-procs.tcl,v
diff -u -N -r1.47.2.2 -r1.47.2.3
--- openacs-4/packages/acs-authentication/tcl/local-procs.tcl	22 Feb 2021 14:35:59 -0000	1.47.2.2
+++ openacs-4/packages/acs-authentication/tcl/local-procs.tcl	22 Feb 2021 19:00:04 -0000	1.47.2.3
@@ -134,7 +134,7 @@
 }
 
 
-ad_proc -public auth::local::authentication::Authenticate {
+ad_proc -private auth::local::authentication::Authenticate {
     username
     password
     {parameters {}}
@@ -170,7 +170,7 @@
     return [array get auth_info]
 }
 
-ad_proc -public auth::local::authentication::GetParameters {} {
+ad_proc -private auth::local::authentication::GetParameters {} {
     Implements the GetParameters operation of the auth_authentication
     service contract for the local account implementation.
 } {
@@ -431,7 +431,7 @@
     acs_sc::impl::delete -contract_name "auth_registration" -impl_name "local"
 }
 
-ad_proc -public auth::local::registration::GetElements {
+ad_proc -private auth::local::registration::GetElements {
     {parameters ""}
 } {
     Implements the GetElements operation of the auth_registration
@@ -457,7 +457,7 @@
     return [array get result]
 }
 
-ad_proc -public auth::local::registration::Register {
+ad_proc -private auth::local::registration::Register {
     parameters
     username
     authority_id
@@ -571,7 +571,7 @@
     return [array get result]
 }
 
-ad_proc -public auth::local::registration::GetParameters {} {
+ad_proc -private auth::local::registration::GetParameters {} {
     Implements the GetParameters operation of the auth_registration
     service contract for the local account implementation.
 } {