ad_site_home_link (public)

 ad_site_home_link

Defined in packages/acs-tcl/tcl/defs-procs.tcl

Returns:
a link to the user's workspace if the user is logged in. Otherwise, a link to the page root.

Partial Call Graph (max 5 caller/called nodes):
%3 test_user_links_api user_links_api (test acs-tcl) ad_site_home_link ad_site_home_link test_user_links_api->ad_site_home_link ad_conn ad_conn (public) ad_site_home_link->ad_conn ad_pvt_home ad_pvt_home (public) ad_site_home_link->ad_pvt_home subsite::get_element subsite::get_element (public) ad_site_home_link->subsite::get_element packages/acs-admin/lib/password-update.tcl packages/acs-admin/ lib/password-update.tcl packages/acs-admin/lib/password-update.tcl->ad_site_home_link packages/acs-admin/www/users/password-update.tcl packages/acs-admin/ www/users/password-update.tcl packages/acs-admin/www/users/password-update.tcl->ad_site_home_link packages/acs-subsite/lib/email-confirm.tcl packages/acs-subsite/ lib/email-confirm.tcl packages/acs-subsite/lib/email-confirm.tcl->ad_site_home_link packages/acs-subsite/www/register/explain-persistent-cookies.tcl packages/acs-subsite/ www/register/explain-persistent-cookies.tcl packages/acs-subsite/www/register/explain-persistent-cookies.tcl->ad_site_home_link packages/acs-subsite/www/user/password-reset.tcl packages/acs-subsite/ www/user/password-reset.tcl packages/acs-subsite/www/user/password-reset.tcl->ad_site_home_link

Testcases:
user_links_api
Source code:
    if { [ad_conn user_id] != 0 } {
        return "<a href='[ad_pvt_home]'>[subsite::get_element -element name]</a>"
    } else {
        # we don't know who this person is
        return "<a href='[subsite::get_element -element url]'>[subsite::get_element -element name]</a>"
    }
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: