Index: openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl,v diff -u -r1.31 -r1.32 --- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl 25 Feb 2007 09:57:09 -0000 1.31 +++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl 27 Feb 2007 21:13:01 -0000 1.32 @@ -569,7 +569,11 @@ [$template set text]] { if {[lsearch $dont_edit $var] == -1} {lappend page_instance_form_atts $var} } - + foreach __var [my field_list] { + set spec [my f.$__var] + set spec [string range $spec [expr {[string first : $spec]+1}] end] + my set f.$__var "$__var:[$data get_field_type $__var $template $spec]" + } foreach __var $page_instance_form_atts { my lappend field_list $__var my set f.$__var "$__var:[$data get_field_type $__var $template [my textfieldspec]]"