Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.xql,v
diff -u -r1.33 -r1.34
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.xql	28 Jun 2018 09:10:14 -0000	1.33
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.xql	28 Jun 2018 09:41:24 -0000	1.34
@@ -5,8 +5,7 @@
       <querytext>
       
 	update persons
-           set first_names = :first_names, 
-               last_name = :last_name
+         set    [join $cols ", "]
          where person_id = :person_id
     
       </querytext>
@@ -22,14 +21,6 @@
       </querytext>
 </fullquery>
 
-<fullquery name="person::update_bio.update_bio">      
-      <querytext>
-        update persons
-	set bio = :bio
-	where person_id = :person_id
-      </querytext>
-</fullquery>
- 
 <fullquery name="acs_user::update.user_update">      
       <querytext>
       
@@ -51,16 +42,6 @@
       </querytext>
 </fullquery>
 
-<fullquery name="acs_user::registered_user_p.registered_user_p">
-      <querytext>
-
-            select 1
-            from   registered_users
-            where  user_id = :user_id
-
-      </querytext>
-</fullquery>
-
 <fullquery name="party::update.party_update">      
       <querytext>
       
@@ -133,14 +114,4 @@
       </querytext>
 </fullquery>
 
-<fullquery name="acs_user::change_state.select_rel_id">
-      <querytext>
-
-	select rel_id
-        from cc_users
-        where user_id = :user_id
-
-      </querytext>
-</fullquery>
-
 </queryset>