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.21 -r1.22
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	11 Jan 2003 01:02:58 -0000	1.21
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	11 Jan 2003 03:23:52 -0000	1.22
@@ -349,9 +349,9 @@
         return -code error "No arguments to ad_form"
     } 
 
-    set valid_args { form method action html name select_query select_query_name new_data on_refresh
+    set valid_args { form method action mode html name select_query select_query_name new_data on_refresh
                      edit_data validate on_submit after_submit confirm_template new_request edit_request
-                     export};
+                     export cancel_url cancel_label };
 
     ad_arg_parser $valid_args $args
 
@@ -501,6 +501,18 @@
             lappend create_command "-method" $method
         }
 
+        if { [info exists mode] } {
+            lappend create_command "-mode" $mode
+        }
+
+        if { [info exists cancel_url] } {
+            lappend create_command "-cancel_url" $cancel_url
+        }
+
+        if { [info exists cancel_label] } {
+            lappend create_command "-cancel_label" $cancel_label
+        }
+
         if { [info exists html] } {
             lappend create_command "-html" $html
         }
@@ -633,6 +645,7 @@
                     label -
                     format -
                     value -
+		    section -
                     before_html -
                     after_html {
                         if { [llength $extra_arg] > 2 || [llength $extra_arg] == 1 } {