email-confirm.tcl

Page for users to register themselves on the site.

Location:

/packages/acs-subsite/www/register/email-confirm.tcl

CVS ID:

$Id: email-confirm.tcl,v 1.13 2017/08/07 23:47:59 gustafn Exp $

Related Files

• packages/acs-subsite/www/register/email-confirm.tcl
• packages/acs-subsite/www/register/email-confirm.adp

[ hide source ] | [ make this the default ]

File Contents

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

    @cvs-id $Id: email-confirm.tcl,v 1.13 2017/08/07 23:47:59 gustafn Exp $
} {
    token:notnull,trim
    user_id:naturalnum,notnull
    
    {return_url:localurl ""}
}

set subsite_id [ad_conn subsite_id]
set email_confirm_template [parameter::get -parameter "EmailConfirmTemplate" -package_id $subsite_id]

if {$email_confirm_template eq ""} {
    set email_confirm_template "/packages/acs-subsite/lib/email-confirm"
}

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