Index: openacs-4/packages/acs-subsite/lib/user-info.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/user-info.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/lib/user-info.tcl	12 Sep 2003 13:25:19 -0000	1.1
+++ openacs-4/packages/acs-subsite/lib/user-info.tcl	16 Sep 2003 13:08:38 -0000	1.2
@@ -22,9 +22,17 @@
 
 ad_form -name user_info -cancel_url $return_url -action $action_url -mode display -form {
     {return_url:text(hidden),optional {value $return_url}}
-    {username:text(inform)
-        {label "Username"}
+}
+
+if { ![auth::UseEmailForLoginP] } {
+    ad_form -extend -name user_info -form {
+        {username:text(inform)
+            {label "Username"}
+        }
     }
+}
+
+ad_form -extend -name user_info -form {
     {first_names:text
         {label "First names"}
         {html {size 50}}