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.23 -r1.327.2.24 --- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 12 Sep 2016 10:45:49 -0000 1.327.2.23 +++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 21 Sep 2016 10:16:27 -0000 1.327.2.24 @@ -1742,6 +1742,7 @@ {-slot ""} {-spec ""} {-configuration ""} + {-omit_field_name_spec:boolean false} } { set save_slot $slot if {$slot eq ""} { @@ -1793,6 +1794,7 @@ {-slot ""} {-spec ""} {-configuration ""} + {-omit_field_name_spec:boolean false} } { # For workflows, we do not want to get the form constraints of the # page itself (i.e. the property of the generic workflow form) but @@ -1802,11 +1804,11 @@ # So, when we have configured properties, we use it, use the # primitive one just on despair. Not sure, what the best solution # is,... maybe an additional flag. - if {[string trim $spec ,] eq ""} { - set short_spec [my get_short_spec $name] - #my log "[self] get_short_spec $name returns <$short_spec>" - } else { + if { $omit_field_name_spec} { set short_spec "" + } else { + set short_spec [my get_short_spec $name] + # my msg "[self] get_short_spec $name returns <$short_spec>" } #my log "create form-field '$name', short_spec '$short_spec' spec '$spec', slot=$slot"