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.90 -r1.284.2.91 --- openacs-4/packages/xowiki/tcl/form-field-procs.tcl 18 Mar 2020 14:32:20 -0000 1.284.2.90 +++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl 20 Mar 2020 11:52:04 -0000 1.284.2.91 @@ -3806,6 +3806,9 @@ set :widget_type text(checkbox) next } + checkbox instproc td_pretty_value {v} { + return $v + } checkbox instproc render_input {} { set value [:value] @@ -3957,6 +3960,15 @@ } } + text_fields instproc td_pretty_value {v} { + set result "" + foreach {key value} $v { + set componentLabel [string range $key [string length ${:name}]+1 end] + append result $componentLabel: " " $value \n + } + return $result + } + text_fields instproc pretty_value {v} { set result "" set ff [dict create {*}$v]