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.16.2.18 -r1.16.2.19
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	2 Jul 2003 19:30:21 -0000	1.16.2.18
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	4 Jul 2003 14:04:54 -0000	1.16.2.19
@@ -677,34 +677,7 @@
               
             foreach extra_arg $af_extra_args($element_name) {
                 lappend form_command "-[lindex $extra_arg 0]"
-                switch [lindex $extra_arg 0] {
-                    html -
-                    values -
-                    validate -
-                    options {
-                        lappend form_command [uplevel [list subst [lindex $extra_arg 1]]]
-                    }
-                    help_text -
-                    label -
-                    format -
-                    mode -
-                    value -
-                    display_value - 
-		    section -
-                    before_html -
-                    after_html -
-                    result_datatype -
-                    search_query -
-                    maxlength {
-                        if { [llength $extra_arg] > 2 || [llength $extra_arg] == 1 } {
-                            return -code error "element $element_name: \"$extra_arg\" requires exactly one argument"
-                        }
-                        lappend form_command [uplevel [list subst [lindex $extra_arg 1]]]
-                    }
-                    default {
-                        ns_log Error "Unknown switch '[lindex $extra_arg 0]' to ad_form on url [ad_return_url]"
-                    }
-                }
+                lappend form_command [uplevel [list subst [lindex $extra_arg 1]]]
             }
             eval $form_command