ad_partner_generic_header { page_title " " } { extra_stuff_for_document_head " " }What it does:
writes HEAD, TITLE, and BODY tags to start off pages in a consistent fashionDefined in: /web/philip/tcl/ad-partner-defs.tcl
Source code:
if { [empty_string_p $page_title] } {
# If we didn't get a title as an argument, look for it in the calling environment
set page_title [ad_partner_upvar page_title]
}
if { [empty_string_p $extra_stuff_for_document_head] } {
# look for it in the calling environment
set extra_stuff_for_document_head [ad_partner_upvar extra_stuff_for_document_head]
}
set context_bar [ad_partner_upvar context_bar]
set html "
[ad_header $page_title $extra_stuff_for_document_head]
[ad_partner_default_font]
<h2>$page_title</h2>
$context_bar
<hr>
"
return $html