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.24 -r1.25
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	4 Sep 2003 13:07:02 -0000	1.24
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	4 Sep 2003 16:33:08 -0000	1.25
@@ -480,6 +480,8 @@
 
 ad_proc -public acs_user::get_element {
     {-user_id {}}
+    {-authority_id {}}
+    {-username {}}
     {-element:required}
 } {
     Get a particular element from the basic information about a user returned by acs_user::get.
@@ -495,6 +497,8 @@
 } {
     acs_user::get \
         -user_id $user_id \
+        -authority_id $authority_id \
+        -username $username \
         -array row \
         -include_bio=[string equal $element "bio"]