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.56 -r1.56.2.1
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	12 Oct 2006 07:53:20 -0000	1.56
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	13 Feb 2007 08:19:56 -0000	1.56.2.1
@@ -506,7 +506,6 @@
     @see ad_set_form_values
 
 } {
-
     set level [template::adp_level]
 
     # Are we extending the form?
@@ -527,8 +526,8 @@
     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 display_buttons show_required_p
-                     on_validation_error };
+                     has_submit has_edit actions edit_buttons display_buttons show_required_p 
+                     on_validation_error fieldset };
 
     ad_arg_parser $valid_args $args
 
@@ -570,7 +569,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 display_buttons on_validation_error} $valid_arg ] == -1 } {
+            if { [lsearch { name form method action html validate export mode cancel_url has_edit has_submit actions edit_buttons display_buttons fieldset on_validation_error} $valid_arg ] == -1 } {
                 set af_parts(${form_name}__extend) ""
             }
         }
@@ -599,10 +598,10 @@
     array set af_element_parameters [list] 
 
     if { [info exists form] } {
-
+	
         # Remove comment lines in form section (DanW)
         regsub -all -line -- {^\s*\#.*$} $form "" form
-
+	
         foreach element $form {
             set element_name_part [lindex $element 0]
 
@@ -715,6 +714,10 @@
             lappend create_command "-display_buttons" $display_buttons
         }
 
+        if { [info exists fieldset] } {
+            lappend create_command "-fieldset" $fieldset
+        }
+
         if { [info exists show_required_p] } {
             lappend create_command "-show_required_p" $show_required_p
         }