publish::get_html

publish::get_html_body (public)

 publish::get_html_body html

Defined in packages/acs-content-repository/tcl/publish-procs.tcl

Parameters:

html (required)
The html to be processed

Returns:
Everything between the <body> and the </body> tags if they exist; the unchanged HTML if they do not

Partial Call Graph (max 5 caller/called nodes):

Testcases:
No testcase defined.

Source code:
  if { [regexp -nocase {<body[^>]*>(.*)</body>} $html match body_text] } {
    return $body_text
  } else {
    return $html
  }
Generic XQL file:

packages/acs-content-repository/tcl/publish-procs.xql

PostgreSQL XQL file:

packages/acs-content-repository/tcl/publish-procs-postgresql.xql

Oracle XQL file:

packages/acs-content-repository/tcl/publish-procs-oracle.xql

[ hide source ] | [ make this the default ]