ad_registration_finite_state_machine_admin_links user_state user_idWhat it does:
Returns the admininistation links to change the user's state in the user_state finite state machine.Defined in: /web/philip/packages/acs-core/admin-procs.tcl
Source code:
set user_finite_state_links [list]
switch $user_state {
"authorized" {
lappend user_finite_state_links "<a target=approve href=delete?[export_url_vars user_id]>ban or delete</a>"
}
"deleted" {
lappend user_finite_state_links "<a target=approve href=undelete?[export_url_vars user_id]>undelete</a>"
lappend user_finite_state_links "<a target=approve href=reject?[export_url_vars user_id]>ban</a>"
}
"need_email_verification_and_admin_approv" {
lappend user_finite_state_links "<a target=approve href=approve?[export_url_vars user_id]>approve</a>"
lappend user_finite_state_links "<a target=approve href=reject?[export_url_vars user_id]>reject</a>"
}
"need_admin_approv" {
lappend user_finite_state_links "<a target=approve href=approve?[export_url_vars user_id]>approve</a>"
lappend user_finite_state_links "<a target=approve href=reject?[export_url_vars user_id]>reject</a>"
}
"need_email_verification" {
lappend user_finite_state_links "<a target=approve href=approve-email?[export_url_vars user_id]>approve email</a>"
lappend user_finite_state_links "<a target=approve href=reject?[export_url_vars user_id]>reject</a>"
}
"rejected" {
lappend user_finite_state_links "<a target=approve href=approve?[export_url_vars user_id]>approve</a>"
}
"banned" {
lappend user_finite_state_links "<a target=approve href=unban?[export_url_vars user_id]>unban</a>"
}
}
return $user_finite_state_links