Index: openacs-4/packages/acs-subsite/lib/login.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/login.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-subsite/lib/login.tcl	12 Sep 2003 10:18:30 -0000	1.6
+++ openacs-4/packages/acs-subsite/lib/login.tcl	12 Sep 2003 12:34:21 -0000	1.7
@@ -76,10 +76,14 @@
     }
 }
 
+if { [parameter::get -parameter UsePasswordWidgetForUsername -package_id [ad_acs_kernel_id]] } {
+    set username_widget password
+} else {
+    set username_widget text
+}
+ad_form -extend -name login -form [list [list username:text($username_widget) [list label "Username"]]]
+
 ad_form -extend -name login -form {
-    {username:text
-        {label "Username"}
-    }
     {password:text(password) 
         {label "Password"}
     }