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.50.8.4 -r1.50.8.5 --- openacs-4/packages/acs-templating/tcl/widget-procs.tcl 11 Oct 2013 09:49:13 -0000 1.50.8.4 +++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl 23 Oct 2014 07:21:36 -0000 1.50.8.5 @@ -486,24 +486,46 @@ return [input password element $tag_attributes] } - ad_proc -public template::widget::hidden { element_reference tag_attributes } { - Render a hidden input widget. @param element_reference Reference variable to the form element @param tag_attributes HTML attributes to add to the tag @return Form HTML for widget } { - upvar $element_reference element - return [input hidden element $tag_attributes] + # + # If there is a "values" element provided, but no "value", treat + # this a multivalued (multiple) entry. + # + + if { [info exists element(values)] && ![info exists element(value)] } { + ns_log notice "hidden form element with multiple values: <$element(values)>" + set output {} + set count 0 + foreach itemvalue $element(values) { + append output [subst { + + }] + incr count + } + return $output + + } else { + + # + # Standard case + # + return [input hidden element $tag_attributes] + } + } + ad_proc -public template::widget::submit { element_reference tag_attributes