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