Index: openacs-4/packages/xowiki/tcl/table-widget-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/table-widget-procs.tcl,v diff -u -r1.1.2.6 -r1.1.2.7 --- openacs-4/packages/xowiki/tcl/table-widget-procs.tcl 11 Aug 2020 20:12:06 -0000 1.1.2.6 +++ openacs-4/packages/xowiki/tcl/table-widget-procs.tcl 20 Aug 2020 08:53:59 -0000 1.1.2.7 @@ -247,7 +247,12 @@ $__c set _last_modified [$p set last_modified] $__c set _raw_last_modified [$p set last_modified] + #ns_log notice "field_names <$field_names> [llength $field_names] [llength $form_field_objs]" foreach __fn $field_names form_field_obj $form_field_objs { + #ns_log notice "... field_name <$__fn> obj $form_field_obj <[$form_field_obj name]>" + if {$__fn eq ""} { + set __fn [$form_field_obj name] + } $form_field_obj object $p set value [$p property $__fn] if {$value eq ""} {