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.7.2.2 -r1.7.2.3
--- openacs-4/packages/acs-templating/tcl/form-procs.tcl	5 Mar 2003 14:57:37 -0000	1.7.2.2
+++ openacs-4/packages/acs-templating/tcl/form-procs.tcl	7 Mar 2003 12:30:08 -0000	1.7.2.3
@@ -185,7 +185,7 @@
   set level [template::adp_level]
 
   # keep form properties and a list of the element items
-  upvar #$level $id:action formaction
+  upvar #$level $id:formaction formaction
     
   # If we've already found the action, just return that
   if { [info exists formaction] } {
@@ -209,8 +209,8 @@
     return $formaction
   }
 
-  # Otherwise, there should be a form:action variable in the form
-  set formaction [ns_queryget "form:action"]
+  # Otherwise, there should be a form:formaction variable in the form
+  set formaction [ns_queryget "form:formaction"]
 
   return $formaction
 }
@@ -442,10 +442,10 @@
   append output [export_vars -form { { form\:id $id } { form\:mode $properties(mode) } }]
   
   # If we're in edit mode, output the action
-  upvar #$level $id:action form_action
-  if { [string equal $properties(mode) "edit"] && [exists_and_not_null form_action] } {
-    upvar #$level $id:action action
-    append output [export_vars -form { { form\:action $form_action } }]
+  upvar #$level $id:formaction formaction
+  if { [string equal $properties(mode) "edit"] && [exists_and_not_null formaction] } {
+    upvar #$level $id:formaction action
+    append output [export_vars -form { { form\:formaction $formaction } }]
   }
 
   return $output