Index: openacs-4/packages/xowiki/xowiki.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/xowiki.info,v diff -u -N -r1.180.2.61 -r1.180.2.62 --- openacs-4/packages/xowiki/xowiki.info 29 Mar 2021 08:34:18 -0000 1.180.2.61 +++ openacs-4/packages/xowiki/xowiki.info 5 Apr 2021 12:23:25 -0000 1.180.2.62 @@ -10,7 +10,7 @@ t xowiki - + Gustaf Neumann A xotcl-based enterprise wiki system with multiple object types 2017-08-06 @@ -55,7 +55,7 @@ BSD-Style 2 - + Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v diff -u -N -r1.284.2.155 -r1.284.2.156 --- openacs-4/packages/xowiki/tcl/form-field-procs.tcl 29 Mar 2021 08:31:37 -0000 1.284.2.155 +++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl 5 Apr 2021 12:23:25 -0000 1.284.2.156 @@ -26,6 +26,7 @@ {style} {type text} {label} + {label_noquote} {name} {id} {title} @@ -156,7 +157,7 @@ # if {$value ne ""} { if {[info exists :$attrName]} { - lappend :$attrName $value + append :$attrName " " $value } else { set :$attrName $value } @@ -1697,7 +1698,11 @@ # don't disable submit buttons if {[:type] eq "submit"} {:unset -nocomplain disabled} ::html::button [:get_attributes name type {form_button_CSSclass class} title disabled] { - ::html::t ${:value} + if {[info exists :label_noquote] && ${:label_noquote}} { + ::html::t -disableOutputEscaping ${:value} + } else { + ::html::t ${:value} + } } #::html::input [:get_attributes name type {form_button_CSSclass class} value title disabled] {} :render_localizer @@ -4500,7 +4505,7 @@ # representation might be lost. switch $render_hints { - "multiple_lines" { + multiple_lines { set type textarea dict set field_fc_dict rows [dict get $render_hints_dict lines] dict set field_fc_dict autosave true