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.2.1 -r1.30.2.2
--- openacs-4/packages/acs-tcl/tcl/admin-procs.tcl	30 Mar 2021 15:41:18 -0000	1.30.2.1
+++ openacs-4/packages/acs-tcl/tcl/admin-procs.tcl	7 Sep 2022 14:35:22 -0000	1.30.2.2
@@ -24,8 +24,14 @@
     return "filter_return"
 }
 
-ad_proc -public ad_approval_system_inuse_p {} {
+ad_proc -deprecated ad_approval_system_inuse_p {} {
     Returns 1 if the system is configured to use and approval system.
+
+    DEPRECATED: this proc's utility was probably transitional and is
+    as of 2022-09-07 not used anywhere in the codebase. One can always
+    query the parameters directly in case.
+
+    @see parameter::get
 } {
     if {[parameter::get -parameter RegistrationRequiresEmailVerification] &&
         [parameter::get -parameter RegistrationRequiresApprovalP] } {