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 -N -r1.16.2.7 -r1.16.2.8
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	12 Dec 2002 17:02:46 -0000	1.16.2.7
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	16 Feb 2003 23:59:08 -0000	1.16.2.8
@@ -692,6 +692,16 @@
                     return -code error "Edit request block conflicts with select query"
                 }
                 ad_page_contract_eval uplevel #$level $edit_request
+		
+		# set form vars from edit_request block
+
+                foreach element_name $af_element_names($form_name) {
+                    if { [llength $element_name] == 1 } {
+                        if { [uplevel \#$level [list info exists $element_name]] } {
+                            set values($element_name) [uplevel \#$level [list set $element_name]]
+                        }
+                    }
+                }
             } else {
 
                 # The key exists, grab the existing values if we have an select_query clause