ad_return_top_of_page
one of
the defined (but not documented) Tcl procedures in this
installation of the ACS
Usage:
ad_return_top_of_page first_part_of_page { content_type "text/html" }
Source code:
set content_type [fixup_charset_in_content_type $content_type]
set all_the_headers "HTTP/1.0 200 OK
MIME-Version: 1.0
Content-Type: $content_type\r\n"
util_WriteWithExtraOutputHeaders $all_the_headers
ns_startcontent -type $content_type
if ![empty_string_p $first_part_of_page] {
ns_write $first_part_of_page
}
