Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	28 Aug 2003 13:23:57 -0000	1.20
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	2 Sep 2003 12:02:11 -0000	1.21
@@ -421,28 +421,33 @@
     @param  array       The name of an array into which you want the information put. 
     
     The attributes returned are: 
-                 user_id, 
-                 first_names, 
-                 last_name, 
-                 name (first_names last_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,
-                 bio (if -include_bio switch is present)
 
+    <ul>
+      <li> user_id 
+      <li> username
+      <li> authority_id
+      <li> first_names
+      <li> last_name
+      <li> name (first_names last_name)
+      <li> email
+      <li> url
+      <li> screen_name
+      <li> priv_name 
+      <li> priv_email
+      <li> email_verified_p
+      <li> email_bouncing_p
+      <li> no_alerts_until
+      <li> last_visit
+      <li> second_to_last_visit
+      <li> n_sessions
+      <li> password_question
+      <li> password_answer
+      <li> password_changed_date
+      <li> member_state
+      <li> rel_id
+      <li> bio (if -include_bio switch is present)
+    </ul>
+
     @author Lars Pind (lars@collaboraid.biz)
 } {
     if { [empty_string_p $user_id] } {
@@ -457,6 +462,29 @@
     }
 }
 
+ad_proc -public acs_user::get_element {
+    {-user_id {}}
+    {-element:required}
+} {
+    Get a particular element from the basic information about a user returned by acs_user::get.
+    Throws an error if the element does not exist.
+
+    @option user_id     The user_id of the user to get the bio for. Leave blank for current user.
+
+    @option element     Which element you want to retrieve.
+    
+    @return The element asked for.
+
+    @see acs_user::get
+} {
+    acs_user::get \
+        -user_id $user_id \
+        -array row \
+        -include_bio=[string equal $element "bio"]
+    
+    return $row($element)
+}
+
 ad_proc -public acs_user::update {
     {-user_id:required}
     {-screen_name}
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.4 -r1.5
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.xql	28 Aug 2003 09:41:43 -0000	1.4
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.xql	2 Sep 2003 12:02:11 -0000	1.5
@@ -101,6 +101,8 @@
       <querytext>
 
           select user_id, 
+                 username,
+                 authority_id,
                  first_names, 
                  last_name, 
                  first_names || ' ' || last_name as name,