Index: openacs-4/packages/acs-subsite/lib/home.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/home.tcl,v
diff -u -r1.3.8.2 -r1.3.8.3
--- openacs-4/packages/acs-subsite/lib/home.tcl	10 Sep 2015 08:21:34 -0000	1.3.8.2
+++ openacs-4/packages/acs-subsite/lib/home.tcl	17 Sep 2015 11:29:52 -0000	1.3.8.3
@@ -48,15 +48,7 @@
 
 if {[parameter::get -parameter SolicitPortraitP -default 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'
-    "]} {
+    if {![db_0or1row get_portrait_info {}]} {
 	set portrait_state "upload"
     } else {
         if { $portrait_title eq "" } {
Index: openacs-4/packages/acs-subsite/lib/home.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/Attic/home.xql,v
diff -u -r1.1 -r1.1.12.1
--- openacs-4/packages/acs-subsite/lib/home.xql	29 Aug 2007 13:44:37 -0000	1.1
+++ openacs-4/packages/acs-subsite/lib/home.xql	17 Sep 2015 11:29:52 -0000	1.1.12.1
@@ -1,53 +1,19 @@
 <?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">      
+  <fullquery name="get_portrait_info">      
       <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 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>