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.2 -r1.14.2.3
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	26 Feb 2003 21:34:28 -0000	1.14.2.2
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	5 Mar 2003 14:57:37 -0000	1.14.2.3
@@ -71,31 +71,58 @@
   if { [info exists element(html)] } {
     array set attributes $element(html)
   }
-
   array set attributes $tag_attributes
+    
+  if { [info exists element(value)] } {
+      set value $element(value)
+  } else {
+      set value {}
+  }
 
-  set output "<textarea name=\"$element(name)\""
-
-  foreach name [array names attributes] {
-    if { [string equal $attributes($name) {}] } {
-      append output " $name"
-    } else {
-      append output " $name=\"$attributes($name)\""
-    }
+  if { [info exists element(mode)] } {
+      set mode $element(mode)
+  } else {
+      set mode {}
   }
 
-  append output ">"
 
-  if { [info exists element(value)] } {
-    # As per scottwseago's request
-    append output [ad_quotehtml $element(value)]
-  } 
+  set output [textarea_internal $element(name) attributes $value $mode]
 
-  append output "</textarea>"
+  return $output
+}
 
+ad_proc -public template::widget::textarea_internal { 
+    name 
+    attribute_reference
+    {value {}}
+    {mode edit}
+} {
+  upvar $attribute_reference attributes
+
+  if { ![string equal $mode "edit"] } {
+    set output {}
+    if { ![empty_string_p value] } {
+      append output "[ad_quotehtml $value]<input type=\"hidden\" name=\"$name\" value=\"[ad_quotehtml $value]\">"
+    }
+  } else {
+    set output "<textarea name=\"$name\""
+    
+    foreach attribute_name [array names attributes] {
+      if { [string equal $attributes($attribute_name) {}] } {
+        append output " $attribute_name"
+      } else {
+        append output " $attribute_name=\"$attributes($attribute_name)\""
+      }
+    }
+    
+    append output ">[ad_quotehtml $value]</textarea>"
+  }
+  
   return $output
 }
 
+
+
 ad_proc -public template::widget::inform { element_reference tag_attributes } {
     A static information widget that does not submit any data
 } {
@@ -124,22 +151,43 @@
       set attributes(id) "$element(form_id):elements:$element(name):$element(value)"
   }
 
-  set output "<input type=\"$type\" name=\"$element(name)\""
+  if { ![string equal $element(mode) "edit"] && ![string equal $element(widget) "hidden"] && \
+      ![string equal $type "submit"] && ![string equal $type "button"] && \
+      ![string equal $type "clear"] } {
+    
+    set output ""
+    switch $type {
+      checkbox - radio {
+        # There's a 'subst' done on the contents here
+        append output "<img src=\"/shared/${type}\$checked\" width=\"13\" height=\"13\">"
+        # This is ugly, but it works: Only export the value when we're on a selected option
+        append output "\[ad_decode \$checked \"checked\" \"<input type=\\\"hidden\\\" name=\\\"$element(name)\\\" value=\\\"\$value\\\">\" \"\"\]"
+      }
+      default {
+        if { [info exists element(value)] } {
+          append output [ad_quotehtml $element(value)]
+          append output "<input type=\"hidden\" name=\"$element(name)\" value=\"[ad_quotehtml $element(value)]\">"
+        }
+      }
+    }
+  } else {
+    set output "<input type=\"$type\" name=\"$element(name)\""
 
-  if { [info exists element(value)] } {
-    append output " value=\"[template::util::quote_html $element(value)]\""
-  } 
+    if { [info exists element(value)] } {
+      append output " value=\"[template::util::quote_html $element(value)]\""
+    } 
 
-  foreach name [array names attributes] {
-    if { [string equal $attributes($name) {}] } {
-      append output " $name"
-    } else {
-      append output " $name=\"$attributes($name)\""
+    foreach name [array names attributes] {
+      if { [string equal $attributes($name) {}] } {
+        append output " $name"
+      } else {
+        append output " $name=\"$attributes($name)\""
+      }
     }
+    
+    append output " />"
   }
 
-  append output " />"
-
   return $output
 }
 
@@ -209,42 +257,65 @@
   return [input button element $tag_attributes]
 }
 
-ad_proc -public template::widget::menu { widget_name options_list values_list \
-                              attribute_reference } {
+ad_proc -public template::widget::menu { 
+    widget_name
+    options_list
+    values_list
+    attribute_reference
+    {mode edit}
+} {
 
   upvar $attribute_reference attributes
-
-  set output "<select name=\"$widget_name\" "
-
-  foreach name [array names attributes] {
-    if { [string equal $attributes($name) {}] } {
-      append output " $name"
-    } else {
-      append output " $name=\"$attributes($name)\""
-    }
-  }
-
-  append output ">\n"
-
+  
   # Create an array for easier testing of selected values
   template::util::list_to_lookup $values_list values 
-
-  foreach option $options_list {
-
-    set label [lindex $option 0]
-    set value [lindex $option 1]
-
-    append output "  <option value=\"[template::util::quote_html $value]\" "
-
-    if { [info exists values($value)] } {
-      append output "selected=\"selected\""
+  
+  if { ![string equal $mode "edit"] } {
+    set selected_list [list]
+    set output {}
+    
+    foreach option $options_list {
+      
+      set label [lindex $option 0]
+      set value [lindex $option 1]
+      
+      if { [info exists values($value)] } {
+        lappend selected_list $label
+        append output "<input type=\"hidden\" name=\"$widget_name\" value=\"[ad_quotehtml $value]\">"
+      }
     }
-
-    append output ">$label</option>\n"
+    
+    append output [join $selected_list ", "]
+  } else {
+    set output "<select name=\"$widget_name\" "
+  
+    foreach name [array names attributes] {
+      if { [string equal $attributes($name) {}] } {
+        append output " $name"
+      } else {
+        append output " $name=\"$attributes($name)\""
+      }
+    }
+  
+    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 { [info exists values($value)] } {
+        append output "selected=\"selected\""
+      }
+  
+      append output ">$label</option>\n"
+    }
+  
+    append output "</select>"
   }
 
-  append output "</select>"
-
   return $output
 }
 
@@ -259,7 +330,7 @@
   array set attributes $tag_attributes
 
   return [template::widget::menu \
-    $element(name) $element(options) $element(values) attributes]
+    $element(name) $element(options) $element(values) attributes $element(mode)]
 }
 
 ad_proc -public template::widget::multiselect { element_reference tag_attributes } {
@@ -285,7 +356,7 @@
   }
 
   return [template::widget::menu \
-    $element(name) $element(options) $element(values) attributes]
+    $element(name) $element(options) $element(values) attributes $element(mode)]
 }
 
 ad_proc -public template::data::transform::search { element_ref } {
@@ -360,38 +431,6 @@
   return [list $value]
 }
 
-
-
-ad_proc -public template::widget::textarea { element_reference tag_attributes } {
-
-  upvar $element_reference element
-
-  if { [info exists element(html)] } {
-    array set attributes $element(html)
-  }
-
-  array set attributes $tag_attributes
-
-  set output "<textarea name=\"$element(name)\""
-
-  foreach name [array names attributes] {
-    if { [string equal $attributes($name) {}] } {
-      append output " $name"
-    } else {
-      append output " $name=\"$attributes($name)\""
-    }
-  }
-
-  append output ">"
-
-  if { [info exists element(value)] } {
-    append output "[template::util::quote_html $element(value)]"
-  } 
-
-  append output "</textarea>"
-  return $output
-}
-
 ad_proc -public template::widget::comment { element_reference tag_attributes } {
 
   upvar $element_reference element
@@ -408,29 +447,18 @@
       append output "$element(history)"
   }
 
-  if { [info exists element(header)] } {
-      append output "<p><b>$element(header)</b></p>"
-  }
+  if { [string equal $element(mode) "edit"] } {
+      if { [info exists element(header)] } {
+          append output "<p><b>$element(header)</b></p>"
+      }
+      
+      append output [textarea $element_reference $tag_attributes]
 
-  append output "<textarea name=\"$element(name)\""
-
-  foreach name [array names attributes] {
-    if { [string equal $attributes($name) {}] } {
-      append output " $name"
-    } else {
-      append output " $name=\"$attributes($name)\""
-    }
+      if { [info exists element(format_element)] && [info exists element(format_options)] } {
+          append output "<br>Format: [menu $element(format_element) $element(format_options) {} {}]"
+      }
   }
-
-  append output ">"
-
-  if { [info exists element(value)] } {
-    # As per scottwseago's request
-    append output [ad_quotehtml $element(value)]
-  } 
-
-  append output "</textarea>"
-
+      
   return $output
 }