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 -r1.542.2.49 -r1.542.2.50 --- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 14 Oct 2019 07:36:15 -0000 1.542.2.49 +++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 27 Oct 2019 08:46:58 -0000 1.542.2.50 @@ -3149,12 +3149,12 @@ # set components [split $name .] set path [lindex $components 0] - ns_log notice "dynamic repeat field name $name -> components <$components>" - + #ns_log notice "dynamic repeat field name '$name' -> components <$components>" + foreach c [lrange $components 1 end] { if {[string is integer -strict $c]} { # this looks like a repeat component - ns_log notice "dynamic repeat field root <$path> number $c exists? [info exists ::_form_field_names($path)]" + #ns_log notice "dynamic repeat field root <$path> number $c exists? [info exists ::_form_field_names($path)]" if {[info exists ::_form_field_names($path)]} { # @@ -3175,7 +3175,7 @@ for {set i 1} {$i <= $max} {incr i} { if {![info exists ::_form_field_names($path.$i)]} { set f [$repeatField require_component $i] - ns_log notice "dynamic repeat field created $path.$i -> $f" + #ns_log notice "dynamic repeat field created $path.$i -> $f" :form_field_index $f } } @@ -3194,6 +3194,7 @@ return [set $key] } + if {$name ni {langmarks fontname fontsize formatblock}} { set names [list] foreach f $form_fields {lappend names [$f name]}