user-add.tcl

Adding a user by an administrator

Location:
/packages/acs-admin/www/users/user-add.tcl
CVS ID:
$Id: user-add.tcl,v 1.7 2017/08/07 23:47:45 gustafn Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    Adding a user by an administrator

    @cvs-id $Id: user-add.tcl,v 1.7 2017/08/07 23:47:45 gustafn Exp $
} -query {
    {referer "/acs-admin/users"}
} -properties {
    context:onevalue
    export_vars:onevalue
}

set context [list [list "." "Users""Add user"]

set next_url user-add-2


set subsite_id [ad_conn subsite_id]
set user_new_template [parameter::get -parameter "UserNewTemplate" -package_id $subsite_id]

if {$user_new_template eq ""} {
    set user_new_template "/packages/acs-subsite/lib/user-new"
}

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