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.368.2.108 -r1.368.2.109 --- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 25 Jan 2022 22:15:14 -0000 1.368.2.108 +++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 20 Feb 2022 17:09:35 -0000 1.368.2.109 @@ -2194,9 +2194,9 @@ {-nls_language ""} } { - array set __att [list publish_status 1] + set __att {publish_status 1} foreach att [list last_modified creation_user {*}[::xowiki::FormPage array names db_slot]] { - set __att($att) 1 + dict set __att $att 1 } # set cr_field_spec [::xowiki::PageInstance get_short_spec_from_form_constraints \ @@ -2220,7 +2220,7 @@ __* {error not_allowed} _* { set varname [string range $field_name 1 end] - if {![info exists __att($varname)]} { + if {![dict exists $__att $varname]} { error "unknown attribute $field_name" } #:log "create_raw_form_field of $field_name <$cr_field_spec,$short_spec>" @@ -2734,7 +2734,9 @@ #:log "===== value_if_nothing_is_returned_from_form [$f name] '$default' => '$v' (type=[$f info class])" set value [$f value $v] if {$v ne $default} { - if {![string match "*.*" $att]} {set :$varname $value} + if {[string first . $att] == -1} { + set :$varname $value + } } } default { @@ -2753,7 +2755,7 @@ #:log "===== value_if_nothing_is_returned_from_form [$f name] '$default' => '$v' (type=[$f info class])" set value [$f value $v] - if {![string match "*.*" $att]} { + if {[string first . $att] == -1} { dict set :instance_attributes $att $value } }