unsubscribe.tcl

Location:

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

CVS ID:

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

Related Files

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

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {

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

set user_id [auth::get_user_id -account_status closed]

set system_name [ad_system_name]

set page_title [_ acs-subsite.Close_your_account]
set context [list [list [ad_pvt_home] [ad_pvt_home_name]] $page_title]

set pvt_home [ad_pvt_home]
set pvt_home_name [ad_pvt_home_name]

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