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.6 -r1.368.2.7 --- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 28 Mar 2019 12:42:37 -0000 1.368.2.6 +++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 31 Mar 2019 11:18:00 -0000 1.368.2.7 @@ -2214,18 +2214,25 @@ foreach v $value {lappend category_ids $v} } __* { - # other internal variables (like __object_name) are ignored + # + # Other internal variables (like __object_name) are ignored + # } _* { # instance attribute fields set f [:lookup_form_field -name $att $form_fields] set value [$f value [string trim [$cc form_parameter $att]]] set varname [string range $att 1 end] - # get rid of strange utf-8 characters hex C2AD (firefox bug?) - # ns_log notice "FORM_DATA var=$varname, value='$value' s=$s" - if {$varname eq "text"} {regsub -all "­" $value "" value} + # + # Get rid of strange utf-8 characters hex C2AD (Firefox bug?) + # + #ns_log notice "FORM_DATA var=$varname, value='$value' s=$s" + #if {$varname eq "text"} {regsub -all "­" $value "" value} #ns_log notice "FORM_DATA var=$varname, value='$value'" - if {![string match "*.*" $att]} {set :$varname $value} + + if {![string match "*.*" $att]} { + set :$varname $value + } } default { # user form content fields