user-add-2.tcl

Processes a new user created by an admin

Location:

/packages/acs-admin/www/users/user-add-2.tcl

CVS ID:

$Id: user-add-2.tcl,v 1.14.2.1 2019/12/03 17:15:14 gustafn Exp $

Related Files

• packages/acs-admin/www/users/user-add-2.tcl
• packages/acs-admin/www/users/user-add-2.adp

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    Processes a new user created by an admin
    @cvs-id $Id: user-add-2.tcl,v 1.14.2.1 2019/12/03 17:15:14 gustafn Exp $
} -query {
    user_id:naturalnum,notnull
    password:optional
    {referer "/acs-admin/users"}
} -properties {
    context:onevalue
    export_vars:onevalue
    system_name:onevalue
    system_url:onevalue
    first_names:onevalue
    last_name:onevalue
    email:onevalue
    password:onevalue
    administration_name:onevalue
}

set admin_user_id [ad_conn user_id]

# Get user info
acs_user::get -user_id $user_id -array user
# easier to work with scalar vars than array
foreach var_name [array names user] {
    set $var_name $user($var_name)
}

if { ![info exists password] || $password eq "" } {
    set password [security::get_client_property_password]
}

if { $password eq "" } {
    set password [ad_generate_random_string]
}

set administration_name [person::name -person_id $admin_user_id]

set context [list [list "./" "Users"] "Notify added user"]
set system_name [ad_system_name]
set export_vars [export_vars -form {email first_names last_name user_id}]
set system_url [parameter::get -package_id [ad_acs_kernel_id] -parameter SystemURL -default ""]

ad_return_template

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: