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.31 -r1.32
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	22 Aug 2003 10:09:38 -0000	1.31
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	22 Aug 2003 10:10:16 -0000	1.32
@@ -388,7 +388,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 on_request new_request edit_request
-                     export cancel_url cancel_label has_edit actions };
+                     export cancel_url cancel_label has_edit actions edit_buttons };
 
     ad_arg_parser $valid_args $args
 
@@ -426,7 +426,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 mode cancel_url has_edit actions } $valid_arg ] == -1 } {
+            if { [lsearch { name form method action html validate export mode cancel_url has_edit actions edit_buttons } $valid_arg ] == -1 } {
                 set af_parts(${form_name}__extend) ""
             }
         }
@@ -562,6 +562,10 @@
             lappend create_command "-actions" $actions
         }
 
+        if { [info exists edit_buttons] } {
+            lappend create_command "-edit_buttons" $edit_buttons
+        }
+
         # Create the form
 
         eval $create_command