user-batch-add.tcl

Interface for specifying a list of users to sign up as a batch

Location:

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

CVS ID:

$Id: user-batch-add.tcl,v 1.8 2018/05/29 08:34:41 antoniop Exp $

Related Files

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

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    Interface for specifying a list of users to sign up as a batch
    @cvs-id $Id: user-batch-add.tcl,v 1.8 2018/05/29 08:34:41 antoniop Exp $
} -properties {
    context:onevalue
    system_name:onevalue
    system_url:onevalue
    administration_name:onevalue
    admin_email:onevalue
}

set admin_user_id [ad_conn user_id]

set admin [acs_user::get -user_id $admin_user_id]
set email               [dict get $admin email]
set administration_name [dict get $admin name]

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: