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 -r1.368.2.100 -r1.368.2.101 --- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 19 Dec 2021 15:44:45 -0000 1.368.2.100 +++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 19 Dec 2021 15:45:08 -0000 1.368.2.101 @@ -2333,7 +2333,7 @@ #:log "$name '$name', spec '$spec' short_spec '$short_spec', slot=$slot" set spec_list [list] - + if {$spec ne ""} {lappend spec_list $spec} if {$short_spec ne ""} {lappend spec_list $short_spec} #:log "$name: composed spec '[join $spec_list ,]'" Index: openacs-4/packages/xowiki/tcl/includelet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/includelet-procs.tcl,v diff -u -r1.239.2.77 -r1.239.2.78 --- openacs-4/packages/xowiki/tcl/includelet-procs.tcl 19 Oct 2021 09:05:12 -0000 1.239.2.77 +++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl 19 Dec 2021 15:47:00 -0000 1.239.2.78 @@ -4500,6 +4500,8 @@ lappend raw_field_names $fn } + #:log raw_field_names=$raw_field_names + # # Finally, evaluate conditions in case these are included. # @@ -4861,7 +4863,8 @@ if {![info exists entry_field_names]} { set entry_field_names [$entry field_names] set entry_form_fields [::xowiki::FormPage get_table_form_fields \ - -base_item $form_item_id -field_names $entry_field_names \ + -base_item $form_item_id \ + -field_names $entry_field_names \ -form_constraints [::$form_item_id set form_constraints]] foreach fn $entry_field_names f $entry_form_fields {set ff($fn) $f} } @@ -5041,10 +5044,12 @@ # set form_item_ids [::$package_id instantiate_forms -forms $form] set form_fields [::xowiki::FormPage get_table_form_fields \ - -base_item [lindex $form_item_ids 0] -field_names _name \ + -base_item [lindex $form_item_ids 0] \ + -field_names _name \ -form_constraints ""] set items [::xowiki::FormPage get_form_entries \ - -base_item_ids $form_item_ids -form_fields $form_fields \ + -base_item_ids $form_item_ids \ + -form_fields $form_fields \ -initialize false \ -publish_status $publish_status \ -package_id $package_id]