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