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.3 -r1.5.2.4 --- openacs-4/packages/xowiki/tcl/repeat-procs.tcl 24 Nov 2016 09:04:40 -0000 1.5.2.3 +++ openacs-4/packages/xowiki/tcl/repeat-procs.tcl 24 Nov 2016 10:00:57 -0000 1.5.2.4 @@ -93,7 +93,7 @@ # default values for subfields without knowing the detailed # structure). # - set components [list [list 0 $itemSpec]] + set componentItemSpecs [list [list 0 $itemSpec]] # # Add max content items (1 .. max) and build form fields @@ -110,11 +110,13 @@ #set max [my max] set max 1 ;# use dynamic repeat fields: if set to 1, repeat fields will be created on demand } - ns_log notice "MAX=$max FORMACTION <$formAction>" + ns_log notice "dynamic repeat MAX=$max FORMACTION <$formAction>" for {set i 1} {$i <= $max} {incr i} { - lappend components [my component_item_spec $i $itemSpec $isRequired] + set componentItemSpec [my component_item_spec $i $itemSpec $isRequired] + ns_log notice "dynamic repeat componentItemSpec $componentItemSpec" + lappend componentItemSpecs $componentItemSpec } - my create_components $components + my create_components $componentItemSpecs # # Deactivate template item Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v diff -u -N -r1.485.2.35 -r1.485.2.36 --- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 24 Nov 2016 09:04:40 -0000 1.485.2.35 +++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 24 Nov 2016 10:00:57 -0000 1.485.2.36 @@ -2761,7 +2761,16 @@ Page instproc form_field_exists {name} { return [info exists ::_form_field_names($name)] } - + + Page instproc __debug_known_field_names {msg} { + set fields {} + foreach name [lsort [array names ::_form_field_names]] { + set f $::_form_field_names($name) + append fields " $name\t[$f info class]\t [$f spec]\n" + } + ns_log notice "dynamic repeat field $msg: fields & specs:\n$fields" + } + Page instproc lookup_form_field { -name:required form_fields @@ -2826,6 +2835,8 @@ set ::_form_field_names($path.$i) $f } } + } else { + :__debug_known_field_names "<$path> needed to create <$path.$c>" } } append path . $c Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v diff -u -N -r1.327.2.27 -r1.327.2.28 --- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 24 Nov 2016 09:04:40 -0000 1.327.2.27 +++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 24 Nov 2016 10:00:57 -0000 1.327.2.28 @@ -2288,7 +2288,7 @@ if {[:form_field_exists $att]} { #ns_log notice "... found [set $key] for $key" - lappend form_fields [:lookup_form_field $att {}] + lappend form_fields [:lookup_form_field -name $att {}] } else { lappend form_fields [my create_form_field \ -cr_field_spec [my get_short_spec @cr_fields] \