im_headerWhat it does:
The standard intranet headerDefined in: /web/philip/tcl/intranet-defs.tcl
Source code:
set page_title [ad_partner_upvar page_title] set context_bar [ad_partner_upvar context_bar] set extra_stuff_for_document_head [ad_partner_upvar extra_stuff_for_document_head] set graphic [ad_parameter DefaultGraphic intranet] if { ![empty_string_p $graphic] } { set graphic "<img src=\"$graphic\">" } return " [ad_header $page_title $extra_stuff_for_document_head] [ad_partner_default_font] <body bgcolor=#ffffff> [ad_partner_default_font] $graphic <br> <font size=4><b>$page_title</b></font> <br><font size=2>$context_bar</font> <hr> "