Index: openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl,v
diff -u -r1.49 -r1.50
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	7 Oct 2003 10:16:47 -0000	1.49
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	7 Oct 2003 13:23:24 -0000	1.50
@@ -1021,6 +1021,12 @@
                     -username $user_info(username)
             }
 
+            if { [info exists user_info(authority_id)] } {
+                acs_user::update \
+                    -user_id $user_id \
+                    -authority_id $user_info(authority_id)
+            }
+
             # TODO: Portrait
         }
     } {
@@ -1382,7 +1388,7 @@
                 set element_messages(email) "We already have a group with this email"
             } else {
                 acs_user::get \
-                    -user_id $email_party_id \screen_
+                    -user_id $email_party_id \
                     -array email_user
                 
                 switch $email_user(member_state) {