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.2.2.1 -r1.2.2.2
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.xql 7 Mar 2003 15:35:03 -0000 1.2.2.1
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.xql 2 Jul 2003 19:24:30 -0000 1.2.2.2
@@ -10,15 +10,6 @@
-
-
-
- select user_id from cc_users where upper(screen_name) = upper(:screen_name)
-
-
-
-
-
@@ -67,5 +58,93 @@
+
+
+ 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')
+
+
+
+
+
+ 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 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')
+
+
+
+
+
+
+ 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
+
+
+
+
+
+
+
+ update users
+ set [join $cols ", "]
+ where user_id = :user_id
+
+
+
+
+
+
+
+ update parties
+ set email = :email,
+ url = :url
+ where party_id = :party_id
+
+
+
+