# /www/master-default.tcl
#
# Set basic attributes and provide the logical defaults for variables that
# aren't provided by the slave page.
#
# Author: Kevin Scaldeferri (kevin@arsdigita.com)
# Creation Date: 14 Sept 2000
# $Id: default-master.tcl,v 1.5.2.1 2003/02/26 09:03:01 lars Exp $
#

# fall back on defaults for title, signatory and header_stuff

if [template::util::is_nil title]     { set title        [ad_system_name]  }
if [template::util::is_nil signatory] { set signatory    [ad_system_owner] }
if ![template::util::is_nil context] { set context_bar [eval ad_context_bar $context]}
if [template::util::is_nil context_bar] { set context_bar [ad_context_bar]}
if ![info exists header_stuff]        { set header_stuff {} }


# Attributes

template::multirow create attribute key value

# Pull out the package_id of the subsite closest to our current node
set pkg_id [site_node::closest_ancestor_package -include_self -package_key "acs-subsite" -url [ad_conn url]]

template::multirow append \
    attribute bgcolor [parameter::get -package_id $pkg_id -parameter bgcolor -default "white"]
template::multirow append \
    attribute text    [parameter::get -package_id $pkg_id -parameter textcolor -default "black"]

if { [info exists prefer_text_only_p]
     && $prefer_text_only_p == "f"
     && [ad_graphics_site_available_p] } {
  template::multirow append attribute background \
    [parameter::get -package_id $pkg_id -parameter background -default "/graphics/bg.gif"]
}

if { ![template::util::is_nil focus] } {
    # Handle elements wohse name contains a dot
    regexp {^([^.]*)\.(.*)$} $focus match form_name element_name

    # Add safety code to test that the element exists '
    set header_stuff "$header_stuff
      <script language=\"JavaScript\">
        function acs_focus( form_name, element_name ){
            if (document.forms == null) return;
            if (document.forms\[form_name\] == null) return;
            if (document.forms\[form_name\].elements\[element_name\] == null) return;

            document.forms\[form_name\].elements\[element_name\].focus();
        }
      </script>
    "
    
    template::multirow append \
            attribute onload "javascript:acs_focus('${form_name}', '${element_name}')"
}


# Developer-support

if { [llength [namespace eval :: info procs ds_link]] == 1 } {
     set ds_link "[ds_link]"
} else {
    set ds_link ""
}