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.23 -r1.24
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	27 Jan 2003 15:29:05 -0000	1.23
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	3 Feb 2003 14:38:06 -0000	1.24
@@ -355,7 +355,7 @@
 
     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 cancel_url cancel_label };
+                     export cancel_url cancel_label has_edit actions };
 
     ad_arg_parser $valid_args $args
 
@@ -393,7 +393,7 @@
             # and validation block to be extended, for now at least until I get more experience
             # with this ...
 
-            if { [lsearch { name form method action html validate export } $valid_arg ] == -1 } {
+            if { [lsearch { name form method action html validate export mode cancel_url has_edit actions } $valid_arg ] == -1 } {
                 set af_parts(${form_name}__extend) ""
             }
         }
@@ -521,6 +521,14 @@
             lappend create_command "-html" $html
         }
 
+        if { [info exists has_edit] } {
+            lappend create_command "-has_edit" $has_edit
+        }
+
+        if { [info exists actions] } {
+            lappend create_command "-actions" $actions
+        }
+
         # Create the form
 
         eval $create_command
@@ -648,10 +656,13 @@
                     help_text -
                     label -
                     format -
+                    mode -
                     value -
 		    section -
                     before_html -
-                    after_html {
+                    after_html -
+                    search_query -
+                    search_query_name {
                         if { [llength $extra_arg] > 2 || [llength $extra_arg] == 1 } {
                             return -code error "element $element_name: \"$extra_arg\" requires exactly one argument"
                         }