Index: openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl,v diff -u -r1.66.2.4 -r1.66.2.5 --- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl 17 Sep 2015 07:26:11 -0000 1.66.2.4 +++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl 25 May 2016 14:49:17 -0000 1.66.2.5 @@ -601,7 +601,11 @@ # and validation block to be extended, for now at least until I get more experience # with this ... - if {$valid_arg ni { name form method action html validate export mode cancel_url has_edit has_submit actions edit_buttons display_buttons fieldset on_validation_error}} { + if {$valid_arg ni { + name form method action html validate export mode cancel_url + has_edit has_submit actions edit_buttons display_buttons + fieldset on_validation_error + }} { set af_parts(${form_name}__extend) "" } } @@ -831,12 +835,16 @@ # ...take it from caller stack... if {$is_var_p} { set value [uplevel [list set $name]] - # ...or ignore this field. + # ...or ignore this field. } else { - continue + continue } + } else { + # + # substitute only the explicitly specified value + # + set value [uplevel [list subst $value]] } - set value [uplevel [list subst $value]] # field is multiple: use '-values' instead of '-value' if {$multiple_p} { template::element create $form_name $name \