im_header

one of the documented procedures in this installation of the ACS
Usage:
im_header
What it does:
The standard intranet header
Defined 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>

"


philg@mit.edu