acs_user::registered_user_p (public)

 acs_user::registered_user_p [ -user_id user_id ]

Defined in packages/acs-tcl/tcl/community-core-procs.tcl

Return 1 if the specified user (defaults to logged-in user) is a registered user and 0 otherwise. A registered user is a user who is in the view registered_users and this is primarily true for any user who is approved and has a verified e-mail.

Switches:

-user_id (optional)

The id of the user to check.

Author:

Malte Sussdorff <malte.sussdorff@cognovis.de>

Testcases:

auth__delete_local_account, acs_user__registered_user_p, acs_user__ban_approve

Source code:

    if { $user_id eq ""} {
        set user_id [ad_conn user_id]
    }
    set registered_p [acs_user::get_user_info  -user_id $user_id  -element registered_user_p]
    return [string is true -strict $registered_p]

Generic XQL file:

packages/acs-tcl/tcl/community-core-procs.xql

PostgreSQL XQL file:

packages/acs-tcl/tcl/community-core-procs-postgresql.xql

Oracle XQL file:

packages/acs-tcl/tcl/community-core-procs-oracle.xql