Index: openacs-4/packages/theme-selva/www/preferences.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/theme-selva/www/Attic/preferences.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/theme-selva/www/preferences.adp 6 Dec 2005 03:38:41 -0000 1.1
@@ -0,0 +1,118 @@
+<master>
+ <property name=title>@page_title@</property>
+ <property name="context">@context;noquote@</property>
+ <property name="focus">user_info.first_names</property>
+ <property name="displayed_object_id">@user_id@</property>
+
+
+<table> <tr valign="top">
+<td width="35%">
+<div class="portlet-wrapper">
+ <div class="portlet-title">
+ <span><h2>#acs-subsite.Edit_Options#</h2></span>
+ </div>
+ <div class="portlet">
+ <ul>
+ <li><a href="../user/password-update">#acs-subsite.Change_my_Password#</a></li>
+
+ <if @change_locale_url@ not nil>
+ <li><a href="@change_locale_url@">#acs-subsite.Change_locale_label#</a></li>
+ </if>
+
+ <if @notifications_url@ not nil>
+ <li><a href="@notifications_url@">#acs-subsite.Manage_your_notifications#</a></li>
+ </if>
+
+ <if @account_status@ ne "closed">
+ <li><a href="unsubscribe">#acs-subsite.Close_your_account#</a></li>
+ </if>
+
+ </ul>
+</div>
+</div>
+
+
+<div class="portlet-wrapper">
+ <div class="portlet-title">
+ <span><h2>#acs-subsite.Privacy#<h2></span>
+ </div>
+ <div class="portlet">
+ <ul>
+ <li><a href="@community_member_url@">#acs-subsite.lt_What_other_people_see#</a></li>
+ <li><a href="@whos_online_url@">#acs-subsite.Whos_Online_link_label#</a></li>
+ <li><a href="../user/email-privacy-level">#acs-subsite.Change_my_email_P#</a></li>
+ </ul>
+
+ <if @invisible_p@ true>
+ #acs-subsite.Currently_invisible_msg#
+ <ul>
+ <li><a href="@make_visible_url@">#acs-subsite.Make_yourself_visible_label#</a></li>
+ </ul>
+ </if>
+ <else>
+ #acs-subsite.Currently_visible_msg#
+ <ul>
+ <li><a href="@make_invisible_url@">#acs-subsite.Make_yourself_invisible_label#</a></li>
+ </ul>
+ </else>
+</div>
+</div>
+
+</td>
+<td>
+
+<div class="portlet-wrapper">
+ <div class="portlet-title">
+ <span><h2> #acs-subsite.My_Account# </h2></span>
+ </div>
+ <div class="portlet">
+ <include src="/packages/acs-subsite/lib/user-info" />
+ <if @account_status@ eq "closed">
+ #acs-subsite.Account_closed_workspace_msg#
+ </if>
+</div>
+</div>
+
+
+ <if @portrait_state@ eq upload>
+
+<div class="portlet-wrapper">
+ <div class="portlet-title">
+ <span><h2>#acs-subsite.Your_Portrait#</h2></span>
+ </div>
+ <div class="portlet">
+ <p>
+ #acs-subsite.lt_Show_everyone_else_at# <a href="@portrait_upload_url@">#acs-subsite.upload_a_portrait#</a>
+ </p>
+ </div>
+</div>
+</if>
+
+ <if @portrait_state@ eq show>
+<div class="portlet-wrapper">
+ <div class="portlet-title">
+ <span><h2>#acs-subsite.Your_Portrait#</h2></span>
+ </div>
+ <div class="portlet">
+ <p>
+ #acs-subsite.lt_On_portrait_publish_d#.
+ </p>
+<table><tr valign="top"><td>
+<img height=100 src="/shared/portrait-bits.tcl?user_id=@user_id@" alt="Portrait"><p>
+<a href="/user/portrait/?return_url=/pvt/home">#acs-subsite.Edit#</a>
+</td><td>@portrait_description@</td></tr>
+</table>
+</div>
+</div>
+ </if>
+
+<div class="portlet-wrapper">
+ <div class="portlet-title">
+ <span><h2><list name="fragments"><h2></span>
+ </div>
+ <div class="portlet">
+ @fragments:item;noquote@
+ </list>
+</div>
+</td></tr>
+</table>
Index: openacs-4/packages/theme-selva/www/preferences.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/theme-selva/www/Attic/preferences.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/theme-selva/www/preferences.tcl 6 Dec 2005 03:38:41 -0000 1.1
@@ -0,0 +1,84 @@
+# /pvt/home.tcl
+
+ad_page_contract {
+ user's workspace page
+ @cvs-id $Id: preferences.tcl,v 1.1 2005/12/06 03:38:41 rafael 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 user_id [auth::require_login -account_status closed]
+
+acs_user::get -array user -include_bio -user_id $user_id
+
+set account_status [ad_conn account_status]
+set login_url [ad_get_login_url]
+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 "/acs-subsite/user/portrait/upload" { { return_url [ad_return_url] } }]
+
+if { [llength [lang::system::get_locales]] > 1 } {
+ set change_locale_url [apm_package_url_from_key "acs-lang"]
+}
+
+
+
+if [ad_parameter SolicitPortraitP "user-info" 0] {
+ # we have portraits for some users
+ if ![db_0or1row get_portrait_info "
+ select cr.publish_date, nvl(cr.title,'your portrait') as portrait_title,
+ nvl(cr.description,'no description') as portrait_description
+ from cr_revisions cr, cr_items ci, acs_rels a
+ where cr.revision_id = ci.live_revision
+ and ci.item_id = a.object_id_two
+ and a.object_id_one = :user_id
+ and a.rel_type = 'user_portrait_rel'
+ "] {
+ 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"
+}
+
+
+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]]
Index: openacs-4/packages/theme-selva/www/preferences.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/theme-selva/www/Attic/preferences.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/theme-selva/www/preferences.xql 6 Dec 2005 03:38:41 -0000 1.1
@@ -0,0 +1,53 @@
+<?xml version="1.0"?>
+<queryset>
+
+<fullquery name="pvt_home_user_info">
+ <querytext>
+
+ select first_names, last_name, email, url, screen_name
+ from cc_users
+ where user_id=:user_id
+
+ </querytext>
+</fullquery>
+
+
+<fullquery name="biography">
+ <querytext>
+
+select attr_value
+from acs_attribute_values
+where object_id = :user_id
+and attribute_id =
+ (select attribute_id
+ from acs_attributes
+ where object_type = 'person'
+ and attribute_name = 'bio')
+ </querytext>
+</fullquery>
+
+
+<fullquery name="get_portrait_info">
+ <querytext>
+
+ select cr.publish_date, cr.title as portrait_title, cr.description as portrait_description
+ from cr_revisions cr, cr_items ci, acs_rels a
+ where cr.revision_id = ci.live_revision
+ and ci.item_id = a.object_id_two
+ and a.object_id_one = :user_id
+ and a.rel_type = 'user_portrait_rel'
+
+ </querytext>
+</fullquery>
+
+<fullquery name="email_info">
+ <querytext>
+ select email
+ from cc_users
+ where user_iad=:user_id
+ </querytext>
+</fullquery>
+
+
+
+</queryset>