home.tcl

Page for users to register themselves on the site.

Location:

/packages/acs-subsite/www/pvt/home.tcl

CVS ID:

$Id: home.tcl,v 1.27 2017/08/07 23:47:59 gustafn Exp $

Related Files

• packages/acs-subsite/www/pvt/home.tcl
• packages/acs-subsite/www/pvt/home.adp

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    Page for users to register themselves on the site.

    @cvs-id $Id: home.tcl,v 1.27 2017/08/07 23:47:59 gustafn Exp $
} {

}

set user_id [auth::require_login -account_status closed]
set page_title [ad_pvt_home_name]
set context [list $page_title]

set subsite_id [ad_conn subsite_id]
set user_home_template [parameter::get -parameter "UserHomeTemplate" -package_id $subsite_id]

if {$user_home_template eq ""} {
    set user_home_template "/packages/acs-subsite/lib/home"
}
set user_home_template [template::themed_template $user_home_template]

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