template::util::comment_text_normalize (private)

 template::util::comment_text_normalize text

Defined in packages/acs-templating/tcl/doc-tcl-procs.tcl

escapes quotes and removes comment tags from a body of commented text

Parameters:

text (required)

Returns:

text

Testcases:

No testcase defined.

Source code:

    regsub -all \" $text {\"} text
    regsub -all -- {(\n)\s*#\s*} $text {\1 } text
    regsub {(\A)\s*#\s*} $text {\1 } text
    return $text

XQL Not present:

Generic, PostgreSQL, Oracle