home.tcl

user's workspace page

Location:

/packages/acs-subsite/lib/home.tcl

CVS ID:

$Id: home.tcl,v 1.6 2018/08/12 12:12:13 gustafn Exp $

Related Files

• packages/acs-subsite/lib/home.tcl
• packages/acs-subsite/lib/home.adp

[ hide source ] | [ make this the default ]

File Contents

# /pvt/home.tcl

ad_page_contract {
    user's workspace page
    @cvs-id $Id: home.tcl,v 1.6 2018/08/12 12:12:13 gustafn Exp $
} -properties {
    system_name:onevalue
    context:onevalue
    full_name:onevalue
    email:onevalue
    url:onevalue
    screen_name:onevalue
    bio:onevalue
    portrait_state:onevalue
    portrait_publish_date:onevalue
    portrait_title:onevalue
    portrait_description:onevalue
    export_user_id:onevalue
    ad_url:onevalue
    member_link:onevalue
    pvt_home_url:onevalue
}
set login_url [ad_get_login_url]
set user_id [auth::require_login -account_status closed]

acs_user::get -array user -user_id $user_id

set account_status [ad_conn account_status]
set subsite_url [ad_conn vhost_subsite_url]

set page_title [ad_pvt_home_name]

set pvt_home_url [ad_pvt_home]

set context [list $page_title]

set fragments [callback -catch user::workspace -user_id $user_id]

set ad_url [ad_url]

set community_member_url [acs_community_member_url -user_id $user_id]

set notifications_url [lindex [site_node::get_children -node_id [subsite::get_element -element node_id] -package_key "notifications"] 0]

set system_name [ad_system_name]

set portrait_upload_url [export_vars -base "../user/portrait/upload" { { return_url [ad_return_url] } }]

if {[parameter::get -parameter SolicitPortraitP -default 0]} {
    # we have portraits for some users
    set portrait_id [acs_user::get_portrait_id -user_id $user_id]
    if {$portrait_id == 0} {
    set portrait_state "upload"
    } else {
        content::item::get -item_id $portrait_id -array_name portrait
        set publish_date         $portrait(publish_date)
        set portrait_title       $portrait(title)
        set portrait_description $portrait(description)
        if { $portrait_title eq "" } {
            set portrait_title "[_ acs-subsite.no_portrait_title_message]"
        }

    set portrait_state "show"
    set portrait_publish_date [lc_time_fmt $publish_date "%q"]
    }
} else {
    set portrait_state "none"
}


set whos_online_url "[subsite::get_element -element url]shared/whos-online"
set make_visible_url "[subsite::get_element -element url]shared/make-visible"
set make_invisible_url "[subsite::get_element -element url]shared/make-invisible"
set invisible_p [whos_online::user_invisible_p [ad_conn untrusted_user_id]]

set subsite_id [ad_conn subsite_id]
set user_info_template [parameter::get -parameter "UserInfoTemplate" -package_id $subsite_id]

if {$user_info_template eq ""} {
    set user_info_template "/packages/acs-subsite/lib/user-info"
}

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