Index: openacs-4/packages/acs-subsite/www/pvt/home.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/pvt/home.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/acs-subsite/www/pvt/home.tcl	31 Aug 2003 05:29:59 -0000	1.12
+++ openacs-4/packages/acs-subsite/www/pvt/home.tcl	4 Sep 2003 08:42:58 -0000	1.13
@@ -44,6 +44,9 @@
 set portrait_upload_url [export_vars -base "../user/portrait/upload" { { return_url [ad_return_url] } }]
 
 ad_form -name user_info -cancel_url [ad_conn url] -mode display -form {
+    {username:text(inform)
+        {label "Username"}
+    }
     {first_names:text
         {label "First names"}
         {html {size 50}}
@@ -69,7 +72,7 @@
         {html {rows 8 cols 60}}
     }
 } -on_request {
-    foreach var { first_names last_name email screen_name url bio } {
+    foreach var { first_names last_name email username screen_name url bio } {
         set $var $user($var)
     }
 } -on_submit {