::xowiki::validate_form

This procedure is defined in the server but not documented via ad_proc or proc_doc and may be intended as a private interface.

The procedure is defined as:

proc ::xowiki::validate_form_text {} {
    
    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?)
    lassign $text content mime
    if {$content eq ""} {return 1}
    #ns_log notice "VALUE='$content'"
    set clean_content $content
    regsub -all -- "<br */?>" $clean_content "" clean_content
    regsub -all -- "</?p */?>" $clean_content "" clean_content
    #ns_log notice "--validate_form_content '$content' clean='$clean_content',  #    stripped='[string trim $clean_content]'"
    if {[string is space $clean_content]} {
      set text [list "" $mime]
    }
    #:log "final text='$text'"
    return 1
  
}