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.31
--- 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	3 Sep 2024 15:37:34 -0000	1.31
@@ -24,17 +24,6 @@
     return "filter_return"
 }
 
-ad_proc -public ad_approval_system_inuse_p {} {
-    Returns 1 if the system is configured to use and approval system.
-} {
-    if {[parameter::get -parameter RegistrationRequiresEmailVerification] &&
-        [parameter::get -parameter RegistrationRequiresApprovalP] } {
-        return 1
-    } else {
-        return 0
-    }
-}
-
 ad_proc -private ad_user_class_parameters {} {
     Returns the list of parameter var names used to define a user class.
 } {
@@ -51,9 +40,14 @@
     }
 }
 
-ad_proc -private ad_user_class_description { set_id } {
+ad_proc -deprecated ad_user_class_description { set_id } {
     Takes an ns_set of key/value pairs and produces a human-readable
     description of the class of users specified.
+
+    DEPRECATED: this was a private api, used nowhere in upstream
+    code. I do not delete it for reference.
+
+    @see nothing
 } {
     set clauses [list]
     set pretty_description ""
@@ -182,7 +176,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