Index: openacs-4/packages/forums/tcl/form-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/form-procs.tcl,v diff -u -N -r1.13.2.5 -r1.13.2.6 --- openacs-4/packages/forums/tcl/form-procs.tcl 16 Feb 2021 06:54:52 -0000 1.13.2.5 +++ openacs-4/packages/forums/tcl/form-procs.tcl 31 Mar 2022 16:33:54 -0000 1.13.2.6 @@ -22,25 +22,24 @@ # Form definition # + set optional_switch [list] if { $optional_p } { - set optional_switch "-optional" - } else { - set optional_switch "" + lappend optional_switch -optional } template::element create $form_name ${prefix}subject \ -label [_ forums.Subject] \ -datatype text \ -widget text \ -html {maxlength 200 size 60} \ - $optional_switch + {*}$optional_switch template::element create $form_name ${prefix}message_body \ -label [_ forums.Body] \ -datatype richtext \ -widget richtext \ -html {rows 20 cols 60 style {width:100%}} \ - $optional_switch + {*}$optional_switch }