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 -N -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.