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.8 -r1.9
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	6 Jul 2002 22:19:22 -0000	1.8
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	10 Jul 2002 20:06:00 -0000	1.9
@@ -72,7 +72,7 @@
         return
     }
 
-    gp_return_template
+    ad_return_template
 
     </pre></blockquote>
 
@@ -85,7 +85,7 @@
 
     <p>
 
-    The call to gp_return_template then renders the page - it is your responsibility to render the form
+    The call to ad_return_template then renders the page - it is your responsibility to render the form
     in your template by use of the ATS formtemplate tag.
  
     <p>
@@ -360,10 +360,9 @@
         return -code error "No \"form\" block has been specified for form \"$form_name\""
     }
 
-    # If we're not extending
+    # If we're not extending - this needs integration with the ATS form builder ...
     if { !$extend_p } {
-        global gp_conn
-        incr gp_conn(form_count)
+        # incr ad_conn(form_count)
     }
 
     ####################
@@ -854,9 +853,9 @@
     foreach arg $args {
         if { [llength $arg] == 1 } {
             upvar $arg value
-            gp_set_element_value -element $arg $value
+            ad_set_element_value -element $arg $value
         } else {
-            gp_set_element_value -element [lindex $arg 0] [lindex $arg 1]
+            ad_set_element_value -element [lindex $arg 0] [lindex $arg 1]
         }
     }
 }