restore-user.tcl
The page restores a user from the deleted state.
- Location:
- /packages/acs-subsite/www/register/restore-user.tcl
- CVS ID:
$Id: restore-user.tcl,v 1.8 2018/01/21 00:35:30 gustafn Exp $
Related Files
- packages/acs-subsite/www/register/restore-user.tcl
- packages/acs-subsite/www/register/restore-user.adp
[ hide source ] | [ make this the default ]
File Contents
ad_page_contract { The page restores a user from the deleted state. @cvs-id $Id: restore-user.tcl,v 1.8 2018/01/21 00:35:30 gustafn Exp $ } { {return_url:localurl {[ad_pvt_home]}} } set page_title [_ acs-subsite.Account_reopened_title] set context [list [list [ad_pvt_home] [ad_pvt_home_name]] $page_title] # We do require authentication, though their account will be closed set user_id [auth::require_login -account_status closed] set member_state [acs_user::get_element -user_id $user_id -element member_state] switch -- $member_state { deleted { # They presumably deleted themselves # Note that the only transition allowed if from deleted # to authorized. No other states may be restored acs_user::approve -user_id $user_id } approved { # May be a double-click } default { ad_return_error \ [_ acs-subsite.lt_Problem_with_authenti] \ [_ acs-subsite.lt_There_was_a_problem_w] ad_script_abort } } auth::verify_account_status # Used in a message key set system_name [ad_system_name] # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: