Index: openacs-4/packages/xowiki/tcl/repeat-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/repeat-procs.tcl,v diff -u -N -r1.5.2.10 -r1.5.2.11 --- openacs-4/packages/xowiki/tcl/repeat-procs.tcl 21 May 2017 08:57:09 -0000 1.5.2.10 +++ openacs-4/packages/xowiki/tcl/repeat-procs.tcl 21 May 2017 10:21:03 -0000 1.5.2.11 @@ -67,6 +67,7 @@ # don't propagate "repeat" and "label" properties if { [string match "repeat=*" $s] || [string match "label=*" $s] } continue if { "required" eq $s} {set is_required true; continue} + if { "disabled" eq $s} {my set_disabled true} lappend result $s } return [list $is_required [join $result ,]] @@ -295,6 +296,16 @@ return $html } + repeatContainer instproc value_if_nothing_is_returned_from_form {default} { + # Here we have to distinguish between two cases to: + # - edit mode: somebody has removed a mark from a check button; + # this means: clear the field + # - view mode: the fields were deactivted (made insensitive); + # this means: keep the old value + + if {[my exists disabled]} {return $default} else {return ""} + } + Class create repeattest -superclass CompoundField repeattest instproc initialize {} { my create_components [subst {