Index: openacs-4/packages/acs-bootstrap-installer/installer.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/installer.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/acs-bootstrap-installer/installer.tcl	11 Dec 2003 21:39:46 -0000	1.13
+++ openacs-4/packages/acs-bootstrap-installer/installer.tcl	13 Dec 2003 13:19:04 -0000	1.14
@@ -16,13 +16,18 @@
     {-type ""}
     {-size 40}
     {-extra_attributes ""}
+    {-value ""}
     param_name 
 } {
     Return an HTML input widget for a parameter with an
     indication of whether the param is mandatory.
 } {
     set type_attribute [ad_decode $type "" "" "type=\"$type\""]
 
+    if { ![empty_string_p $value] } {
+        append extra_attributes " value=\"[ad_quotehtml $value]\""
+    }
+    
     set input_widget "<input name=\"$param_name\" size=\"$size\" $type_attribute $extra_attributes>"
 
     if { [install_param_mandatory_p $param_name] } {