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 -r1.14.2.1 -r1.14.2.2 --- openacs-4/packages/xowiki/tcl/repeat-procs.tcl 22 Mar 2019 13:16:42 -0000 1.14.2.1 +++ openacs-4/packages/xowiki/tcl/repeat-procs.tcl 26 Mar 2019 10:30:31 -0000 1.14.2.2 @@ -301,33 +301,6 @@ 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 deactivated (made insensitive); - # this means: keep the old value - # - #ns_log notice "=== repeatContainer value_if_nothing_is_returned_from_form <$default>" - set result "" - if {![info exists :disabled]} { - # - # Leave the first entry (template on position "0") untouched - # - set result [lrange $default 0 1] - # - # Return values from the included components - # - set l [:count_values $default] - foreach c [lrange ${:components} 1 $l] d [lrange $default 1 $l] { - lappend result [$c name] [$c value_if_nothing_is_returned_from_form $d] - } - #ns_log notice "=== repeatContainer computes $result" - } - return $result - } - Class create repeattest -superclass CompoundField repeattest instproc initialize {} { :create_components [subst {