ad_approval_system_inuse_p (public, deprecated)

 ad_approval_system_inuse_p

Defined in packages/acs-tcl/tcl/admin-procs.tcl

Deprecated. Invoking this procedure generates a warning.

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 Also:

Partial Call Graph (max 5 caller/called nodes):
%3 ad_log_deprecated ad_log_deprecated (public) parameter::get parameter::get (public) ad_approval_system_inuse_p ad_approval_system_inuse_p ad_approval_system_inuse_p->ad_log_deprecated ad_approval_system_inuse_p->parameter::get

Testcases:
No testcase defined.
Source code:
ad_log_deprecated proc ad_approval_system_inuse_p
    if {[parameter::get -parameter RegistrationRequiresEmailVerification] &&
        [parameter::get -parameter RegistrationRequiresApprovalP] } {
        return 1
    } else {
        return 0
    }
XQL Not present:
PostgreSQL, Oracle
Generic XQL file:
packages/acs-tcl/tcl/admin-procs.xql

[ hide source ] | [ make this the default ]
Show another procedure: