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.25 -r1.26
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	4 Sep 2003 16:33:08 -0000	1.25
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	5 Sep 2003 13:52:09 -0000	1.26
@@ -507,22 +507,26 @@
 
 ad_proc -public acs_user::update {
     {-user_id:required}
+    {-authority_id}
+    {-username}
     {-screen_name}
     {-password_question}
     {-password_answer}
 } {
     Update information about a user. 
     Feel free to expand this with more switches later as needed, as long as they're optional.
 
-    @param  party_id           The ID of the party to edit
+    @param  user_id            The ID of the user to edit
+    @option authority_id       Authortiy
+    @option username           Username
     @option screen_name        The new screen_name for the user
     @option password_question  The new password_question for the user
     @option password_answer    The new password_question for the user
 
     @author Lars Pind (lars@collaboraid.biz)
 } {
     set cols [list]
-    foreach var { screen_name password_question password_answer  } {
+    foreach var { authority_id username screen_name password_question password_answer  } {
         if { [info exists $var] } {
             lappend cols "$var = :$var"
         }