Index: openacs-4/packages/acs-subsite/www/pvt/home.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/pvt/home.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/acs-subsite/www/pvt/home.tcl 18 Nov 2002 18:01:13 -0000 1.6 +++ openacs-4/packages/acs-subsite/www/pvt/home.tcl 9 Dec 2002 13:29:00 -0000 1.7 @@ -21,39 +21,17 @@ set user_id [ad_verify_and_get_user_id] -# If there are requirements to fulfill. - -# if {![string compare [db_string pvt_home_check_requirements { -# select user_fulfills_requirements_p(:user_id) from dual -# }] "f"]} { -# ad_returnredirect "fulfill-requirements" -# return -# } - -# # if this user is part of intranet employees, send 'em over! -# if { [im_enabled_p] } { -# if { [im_user_is_employee_p $user_id] } { -# ad_returnredirect [im_url_stub] -# return -# } -# if { [im_user_is_customer_p $user_id] } { -# set portal_extension [ad_parameter PortalExtension portals .ptl] -# set group_name [ad_parameter CustomerPortalName intranet "Customer Portals"] -# regsub -all { } [string tolower $group_name] {-} group_name_in_link -# ad_returnredirect "/portals/${group_name_in_link}-1$portal_extension" -# return -# } -# } - set user_exists_p [db_0or1row pvt_home_user_info { select first_names, last_name, email, url, nvl(screen_name,'< none set up >') as screen_name from cc_users where user_id=:user_id }] +if { $user_exists_p && [empty_string_p $screen_name] } { + set screen_name "[_ acs-subsite.no_screen_name_message]" +} - set bio [db_string biography " select attr_value from acs_attribute_values @@ -93,18 +71,17 @@ "] { set portrait_state "upload" } else { + if { [empty_string_p $portrait_title] } { + 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" } - -# [ad_decorate_top "
\n
- -#
-# " -# } - -# db_foreach pvt_home_non_administration_info { -# select ug.group_id, ug.group_name, ug.short_name -# from user_groups ug -# where ug.group_type <> 'administration' -# and ad_group_member_p ( :user_id, ug.group_id ) = 't' -# } { - -# append group_items "
- -#
-# " -# } - -# if { [ad_parameter IntranetEnabledP intranet 0] == 1 } { -# # Right now only employees can see the intranet -# # append page_content "
\n"
-#}
-
set export_user_id [export_url_vars user_id]
set ad_url [ad_url]
set member_link [acs_community_member_link -user_id $user_id -label "${ad_url}[acs_community_member_url -user_id $user_id]"]
set interest_items ""
-# db_foreach pvt_home_categories_list {
-# select c.category, c.category_id,
-# decode(ui.category_id,NULL,NULL,'t') as selected_p
-# from categories c, (select *
-# from users_interests
-# where user_id = :user_id
-# and interest_level > 0) ui
-# where c.enabled_p = 't'
-# and c.category_id = ui.category_id(+)
-# } {
-
-# if { $selected_p == "t" } {
-# append interest_items " $category
\n"
-# } else {
-# append interest_items " $category
\n"
-# }
-# }
-
-# if ![empty_string_p $interest_items] {
-# append page_content "
-#