Index: openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl,v diff -u -r1.90 -r1.91 --- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl 5 Oct 2007 11:34:59 -0000 1.90 +++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl 26 Nov 2007 09:14:43 -0000 1.91 @@ -698,15 +698,17 @@ upvar text text if {$text eq ""} { return 1 } if {[llength $text] != 2} { return 0 } + regsub -all "­" $text "" text ;# get rid of strange utf-8 characters hex C2AD (firefox bug?) foreach {content mime} $text break if {$content eq ""} {return 1} + #ns_log notice "VALUE='$content'" set clean_content $content regsub -all "
" $clean_content "" clean_content regsub -all "" $clean_content "" clean_content #ns_log notice "--validate_form_content '$content' clean='$clean_content', \ # stripped='[string trim $clean_content]'" if {[string trim $clean_content] eq ""} { set text [list "" $mime]} - #my msg "final text='$text'" + #my log "final text='$text'" return 1 }