ad_header_with_extra_stuff (public, deprecated)

 ad_header_with_extra_stuff [ -focus focus ] page_title \
    [ extra_stuff_for_document_head ] [ pre_content_html ]

Defined in packages/acs-tcl/tcl/deprecated-procs.tcl

Deprecated. Invoking this procedure generates a warning.

This is the version of the ad_header that accepts extra stuff for the document head and pre-page content html

Switches:
-focus (optional)
Parameters:
page_title (required)
extra_stuff_for_document_head (optional)
pre_content_html (optional)
See Also:
  • Documentation on the site master template for the proper way to standardize page headers

Testcases:
No testcase defined.
Source code:
ad_log_deprecated proc ad_header_with_extra_stuff
    set html "<html>
<head>
$extra_stuff_for_document_head
<title>$page_title</title>
</head>
"
    array set attrs [list]
    set attrs(bgcolor) [parameter::get -package_id [ad_acs_kernel_id] -parameter bgcolor -default "white"]
    set attrs(text)    [parameter::get -package_id [ad_acs_kernel_id] -parameter textcolor -default "black"]

    if { $focus ne "" } {
        template::add_body_script -script [subst {
            window.addEventListener('load', function () {document.${focus}.focus()}, false);
        }]
    }
    foreach attr [array names attrs] {
        lappend attr_list "$attr=\"$attrs($attr)\""
    }
    append html "<body [join $attr_list]>\n"

    append html $pre_content_html
    return $html
XQL Not present:
PostgreSQL, Oracle
Generic XQL file:
packages/acs-tcl/tcl/deprecated-procs.xql

[ hide source ] | [ make this the default ]
Show another procedure: