Index: openacs-4/packages/acs-templating/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/widget-procs.tcl,v
diff -u -r1.14.2.6 -r1.14.2.7
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	20 Mar 2003 16:31:14 -0000	1.14.2.6
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	15 Apr 2003 15:44:18 -0000	1.14.2.7
@@ -55,7 +55,7 @@
     # include an extra hidden element to indicate that the 
     # value is being selected as opposed to entered
 
-    set output "<input type=\"hidden\" name=\"$element(id):select\" value=\"t\" />"
+    set output "\n<input type=\"hidden\" name=\"$element(id):select\" value=\"t\" />"
     append output [select element $tag_attributes]
 
   }
@@ -130,9 +130,9 @@
   upvar $element_reference element
 
   if { [info exists element(value)] } {
-    return $element(value)
+      return "$element(value)[input hidden element $tag_attributes]"
   } else {
-    return ""
+      return [input hidden element $tag_attributes]
   }
 }
 
@@ -304,16 +304,20 @@
     append output ">\n"
   
     foreach option $options_list {
-  
+
       set label [lindex $option 0]
       set value [lindex $option 1]
-  
-      append output "  <option value=\"[template::util::quote_html $value]\" "
-  
+
+      if {![string equal $label $value]} {
+        append output " <option value=\"[template::util::quote_html $value]\""
+      } else { 
+        append output " <option"
+      }
+        
       if { [info exists values($value)] } {
-        append output "selected=\"selected\""
+        append output " selected=\"selected\""
       }
-  
+
       append output ">$label</option>\n"
     }