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.33 -r1.34
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	28 Aug 2003 09:41:43 -0000	1.33
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	2 Sep 2003 12:01:17 -0000	1.34
@@ -449,7 +449,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_submit has_edit actions edit_buttons show_required_p };
+                     export cancel_url cancel_label has_submit has_edit actions edit_buttons display_buttons show_required_p };
 
     ad_arg_parser $valid_args $args
 
@@ -487,7 +487,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 has_submit actions edit_buttons } $valid_arg ] == -1 } {
+            if { [lsearch { name form method action html validate export mode cancel_url has_edit has_submit actions edit_buttons display_buttons } $valid_arg ] == -1 } {
                 set af_parts(${form_name}__extend) ""
             }
         }
@@ -631,6 +631,10 @@
             lappend create_command "-edit_buttons" $edit_buttons
         }
 
+        if { [info exists display_buttons] } {
+            lappend create_command "-display_buttons" $display_buttons
+        }
+
         if { [info exists show_required_p] } {
             lappend create_command "-show_required_p" $show_required_p
         }