make-visible.tcl

Make user visible.

Location:

/packages/acs-subsite/www/shared/make-visible.tcl

Related Files

• packages/acs-subsite/www/shared/make-visible.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    Make user visible.
} {
    {return_url:localurl ""}
}

auth::require_login

whos_online::unset_invisible [ad_conn user_id]

if { $return_url eq "" } {
    set return_url [ad_pvt_home]
}

ad_returnredirect -message [_ acs-subsite.Online_status_set_visible] -- $return_url
ad_script_abort

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