Index: openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl,v diff -u -r1.39 -r1.39.2.1 --- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl 29 Oct 2003 20:53:30 -0000 1.39 +++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl 24 Nov 2003 23:32:09 -0000 1.39.2.1 @@ -934,9 +934,9 @@ if { [info exists values($element_name)] } { if { [info exists af_flag_list(${form_name}__$element_name)] && \ [lsearch $af_flag_list(${form_name}__$element_name) multiple] >= 0 } { - template::element set_properties $form_name $element_name -values $values($element_name) + template::element set_values $form_name $element_name $values($element_name) } else { - template::element set_properties $form_name $element_name -value $values($element_name) + template::element set_value $form_name $element_name $values($element_name) } } } Index: openacs-4/packages/acs-templating/tcl/element-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/element-procs.tcl,v diff -u -r1.21 -r1.21.2.1 --- openacs-4/packages/acs-templating/tcl/element-procs.tcl 1 Nov 2003 08:45:37 -0000 1.21 +++ openacs-4/packages/acs-templating/tcl/element-procs.tcl 24 Nov 2003 23:29:58 -0000 1.21.2.1 @@ -269,6 +269,19 @@ set element(values) [list $value] } +ad_proc -public template::element::set_values { form_id element_id values } { + Sets the list of values of an element + + @param form_id The identifier of the form containing the element. + @param element_id The unique identifier of the element. + @param values The list of values to apply +} { + + get_reference + + set element(values) [list $values] +} + ad_proc -public template::element::get_value { form_id element_id } { Retrieves the current value of an element. Typically used following a valid form submission to retrieve the submitted value. Index: openacs-4/packages/acs-templating/tcl/form-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/form-procs.tcl,v diff -u -r1.25 -r1.25.2.1 --- openacs-4/packages/acs-templating/tcl/form-procs.tcl 1 Nov 2003 08:45:37 -0000 1.25 +++ openacs-4/packages/acs-templating/tcl/form-procs.tcl 24 Nov 2003 23:29:58 -0000 1.25.2.1 @@ -745,9 +745,7 @@ foreach name [array names values] { - template::element set_properties $id $name -value $values($name) - # Resolve single value / multiple value issues ? - template::element set_properties $id $name -values [list $values($name)] + template::element set_value $id $name $values($name) } }