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.368.2.113 -r1.368.2.114 --- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 4 Mar 2022 16:06:58 -0000 1.368.2.113 +++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 5 Mar 2022 09:35:19 -0000 1.368.2.114 @@ -2736,10 +2736,13 @@ foreach f [concat $form_fields $leaf_components] { #:log "check processed $f [$f name] [info exists processed([$f name])] disabled=[$f is_disabled]" set att [$f name] + + if {![info exists processed($att)] + && ![$f exists is_repeat_template] + && ![$f exists disabled] + } { + #ns_log notice "==== form field $att [$f info class] not yet processed" - if {![info exists processed($att)] && ![$f exists is_repeat_template]} { - #:log "==== form field $att [$f info class] not yet processed" - switch -glob -- $att { __* { # other internal variables (like __object_name) are ignored @@ -2750,7 +2753,7 @@ set default "" if {[info exists :$varname]} {set default [set :$varname]} set v [$f value_if_nothing_is_returned_from_form $default] - #:log "===== value_if_nothing_is_returned_from_form [$f name] '$default' => '$v' (type=[$f info class])" + #ns_log notice "===== value_if_nothing_is_returned_from_form [$f name] '$default' => '$v' (type=[$f info class])" set value [$f value $v] if {$v ne $default} { if {[string first . $att] == -1} { @@ -2771,7 +2774,7 @@ set default [dict get ${:instance_attributes} $att] } set v [$f value_if_nothing_is_returned_from_form $default] - #:log "===== value_if_nothing_is_returned_from_form [$f name] '$default' => '$v' (type=[$f info class])" + #ns_log notice "===== value_if_nothing_is_returned_from_form [$f name] '$default' => '$v' (type=[$f info class])" set value [$f value $v] if {[string first . $att] == -1} {