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.21 -r1.22
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.xql	20 Aug 2007 21:47:38 -0000	1.21
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.xql	30 May 2009 20:42:12 -0000	1.22
@@ -88,44 +88,22 @@
       </querytext>
 </fullquery>
 
-<fullquery name="person::get_bio.select_bio">      
+<fullquery name="acs_user::get_bio.select_bio">      
       <querytext>
-          select attr_value as bio
-          from acs_attribute_values
-          where object_id = :person_id
-          and attribute_id =
-             (select attribute_id
-              from acs_attributes
-              where object_type = 'person'
-              and attribute_name = 'bio')
+          select bio
+          from users
+          where user_id = :user_id
       </querytext>
 </fullquery>
 
-<fullquery name="person::update_bio.insert_bio">      
+<fullquery name="acs_user::update_bio.update_bio">      
       <querytext>
-        insert into acs_attribute_values
-	(object_id, attribute_id, attr_value)
-	values 
-	(:person_id, (select attribute_id
-          from acs_attributes
-          where object_type = 'person'
-          and attribute_name = 'bio'), :bio)
+        update users
+	set bio = :bio
+	where user_id = :user_id
       </querytext>
 </fullquery>
 
-<fullquery name="person::update_bio.update_bio">      
-      <querytext>
-        update acs_attribute_values
-	set attr_value = :bio
-	where object_id = :person_id
-	and attribute_id =
-          (select attribute_id
-          from acs_attributes
-          where object_type = 'person'
-          and attribute_name = 'bio')
-      </querytext>
-</fullquery>
-
  
 <fullquery name="acs_user::update.user_update">      
       <querytext>