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.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.xql	17 May 2003 10:04:18 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.xql	28 Aug 2003 09:41:43 -0000	1.4
@@ -10,15 +10,6 @@
 </fullquery>
 
  
-<fullquery name="cc_lookup_screen_name_user.user_select">      
-      <querytext>
-      
-	select user_id from cc_users where upper(screen_name) = upper(:screen_name)
-    
-      </querytext>
-</fullquery>
-
- 
 <fullquery name="cc_email_from_party.email_from_party">      
       <querytext>
       
@@ -67,5 +58,93 @@
       </querytext>
 </fullquery>
 
+<fullquery name="person::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')
+      </querytext>
+</fullquery>
+
+<fullquery name="person::update_bio.insert_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)
+      </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::get.select_user_info">      
+      <querytext>
+
+          select user_id, 
+                 first_names, 
+                 last_name, 
+                 first_names || ' ' || last_name as name,
+                 email, 
+                 url, 
+                 screen_name,
+                 priv_name,  
+                 priv_email,
+                 email_verified_p,
+                 email_bouncing_p,
+                 no_alerts_until,
+                 last_visit,
+                 second_to_last_visit,
+                 n_sessions,
+                 password_question,
+                 password_answer,
+                 password_changed_date,
+                 member_state,
+                 rel_id
+          from   cc_users 
+          where  user_id=:user_id
+
+      </querytext>
+</fullquery>
+ 
+<fullquery name="acs_user::update.user_update">      
+      <querytext>
+      
+	update users
+        set    [join $cols ", "]
+        where  user_id = :user_id
+    
+      </querytext>
+</fullquery>
+
+<fullquery name="party::update.party_update">      
+      <querytext>
+      
+	update parties
+        set    email = :email,
+               url = :url
+        where  party_id = :party_id
+    
+      </querytext>
+</fullquery>
+
 </queryset>