<!--
var isDOM = (document.getElementById ? true : false);
var isIE4 = ((document.all && !isDOM) ? true : false);
var isNS4 = (document.layers ? true : false);
function getRef(id) {
  if (isDOM) return document.getElementById(id);
  if (isIE4) return document.all[id];
  if (isNS4) return document.layers[id];
}

function getSty(id) {
  return (isNS4 ? getRef(id) : getRef(id).style);
}

// Hide timeout.
var popTimer = 0;
// Array showing highlighted menu items.
var litNow = new Array();

function popOver(menuNum, itemNum) {
  // alert(menuNum + '-' + itemNum);
  clearTimeout(popTimer);
  hideAllBut(menuNum);
  litNow = getTree(menuNum, itemNum);
  changeCol(litNow, true);
  targetNum = menu[menuNum][itemNum].target;
  if (targetNum > 0) {
    thisX = parseInt(menu[menuNum][0].ref.left) + parseInt(menu[menuNum][itemNum].ref.left);
    thisY = parseInt(menu[menuNum][0].ref.top) + parseInt(menu[menuNum][itemNum].ref.top);
    with (menu[targetNum][0].ref) {
      left = parseInt(thisX + menu[targetNum][0].x);
      top = parseInt(thisY + menu[targetNum][0].y);
      visibility = 'visible';
    }
  }
}

function popOut(menuNum, itemNum) {
  if ((menuNum == 0) && !menu[menuNum][itemNum].target)
  hideAllBut(0)
  else
  popTimer = setTimeout('hideAllBut(0)', 500);
}

function getTree(menuNum, itemNum) {

  // Array index is the menu number. The contents are null (if that menu is not a parent)
  // or the item number in that menu that is an ancestor (to light it up).
  itemArray = new Array(menu.length);

  while(1) {
    itemArray[menuNum] = itemNum;
    // If we've reached the top of the hierarchy, return.
    if (menuNum == 0) return itemArray;
    itemNum = menu[menuNum][0].parentItem;
    menuNum = menu[menuNum][0].parentMenu;
  }
}

// Pass an array and a boolean to specify colour change, true = over colour.

function changeCol(changeArray, isOver) {
  for (menuCount = 0; menuCount < changeArray.length; menuCount++) {
    if (changeArray[menuCount]) {
      newCol = isOver ? menu[menuCount][0].overCol : menu[menuCount][0].backCol;
      // Change the colours of the div/layer background.
      with (menu[menuCount][changeArray[menuCount]].ref) {
        if (isNS4) bgColor = newCol;
        else backgroundColor = newCol;
      }
    }
  }
}

function hideAllBut(menuNum) {
  var keepMenus = getTree(menuNum, 1);
  for (count = 0; count < menu.length; count++)
  if (!keepMenus[count])
  menu[count][0].ref.visibility = 'hidden';
  changeCol(litNow, false);
}

// *** MENU CONSTRUCTION FUNCTIONS ***

function Menu(isVert, popInd, x, y, width, overCol, backCol, borderClass, textClass) {
  // True or false - a vertical menu?
  this.isVert = isVert;
  // The popout indicator used (if any) for this menu.
  this.popInd = popInd
  // Position and size settings.
  this.x = x;
  this.y = y;
  this.width = width;
  // Colours of menu and items.
  this.overCol = overCol;
  this.backCol = backCol;
  // The stylesheet class used for item borders and the text within items.
  this.borderClass = borderClass;
  this.textClass = textClass;
  // Parent menu and item numbers, indexed later.
  this.parentMenu = null;
  this.parentItem = null;
  // Reference to the object's style properties (set later).
  this.ref = null;
}

function Item(text, href, frame, length, spacing, target) {
  this.text = text;
  this.href = href;
  this.frame = frame;
  this.length = length;
  this.spacing = spacing;
  this.target = target;
  // Reference to the object's style properties (set later).
  this.ref = null;
}

function writeMenus() {
  if (!isDOM && !isIE4 && !isNS4) return;

  var str2 = '<br><table width="790" border="0" cellspacing="0"><tr>'
  str2 += '<td align="left"><a class="banner" href="http://www.haliburtonholidays.ca" target="_blank">Tourism<\/a><\/td>'
  str2 += '<td align="left"><a class="banner" href="http://www.businesshaliburton.ca" target="_blank">Business Development<\/a><\/td>'
  str2 += '<td align="left"><a class="banner" href="http://www.seniorsinfo.ca/Haliburton%20County" target="_blank">Seniors Info<\/a><\/td>'
  str2 += '<td align="left"><a class="banner" href="http://www.halcom.ca/haliburton.php" target="_blank">WEBCAM<\/a><\/td>'
  str2 += '<td align="left"><a class="banner" href="main.asp?function=municipal&amp;subfunction=municipal&amp;section=CountyCouncil&amp;subsection=ConnectHaliburton" onMouseOver="popOver(0,6)" onMouseOut="popOut(0,6)">High Speed Internet<\/a><\/td>'
  str2 += '<td align="left"><a class="banner" href="main.asp?function=search&amp;subfunction=search" >Site Search<\/a><\/td>'
  str2 += '<\/tr><\/table>'

  for (currMenu = 0; currMenu < menu.length; currMenu++) with (menu[currMenu][0]) {
    // Variable for holding HTML for items and positions of next item.
    var str = '', itemX = 0, itemY = 0;

    // Remember, items start from 1 in the array (0 is menu object itself, above).
    // Also use properties of each item nested in the other with() for construction.
    for (currItem = 1; currItem < menu[currMenu].length; currItem++) with (menu[currMenu][currItem]) {
      var itemID = 'menu' + currMenu + 'item' + currItem;

      // The width and height of the menu item - dependent on orientation!
      var w = (isVert ? width : length);
      var h = (isVert ? length : width);

      // Create a div or layer text string with appropriate styles/properties.
      // Thanks to Paul Maden (www.paulmaden.com) for helping debug this in IE4, apparently
      // the width must be a miniumum of 3 for it to work in that browser.
      if (isDOM || isIE4) {
        str += '<div id="' + itemID + '" style="position: absolute; left: ' + itemX + '; top: ' + itemY + '; width: ' + w + '; height: ' + h + '; visibility: inherit; ';
        if (backCol) str += 'background: ' + backCol + '; ';
        str += '" ';
      }
      if (isNS4) {
        str += '<layer id="' + itemID + '" left="' + itemX + '" top="' + itemY + '" width="' +  w + '" height="' + h + '" visibility="inherit" ';
        if (backCol) str += 'bgcolor="' + backCol + '" ';
      }
      if (borderClass) str += 'class="' + borderClass + '" ';

      // Add mouseover handlers and finish div/layer.
      str += 'onMouseOver="popOver(' + currMenu + ',' + currItem + ')" onMouseOut="popOut(' + currMenu + ',' + currItem + ')">';

      // Add contents of item (default: table with link inside).
      // In IE/NS6+, add padding if there's a border to emulate NS4's layer padding.
      // If a target frame is specified, also add that to the <a> tag.

      str += '<table width="' + (w - 8) + '" border="0" cellspacing="0" cellpadding="' + (!isNS4 && borderClass ? 3 : 0) + '"><tr><td align="left" height="' + (h - 7) + '">' + '<a class="' + textClass + '" href="' + href + '"' + (frame ? ' target="' + frame + '">' : '>') + text + '<\/a><\/td>';
      if (target > 0) {

        // Set target's parents to this menu item.
        menu[target][0].parentMenu = currMenu;
        menu[target][0].parentItem = currItem;

        // Add a popout indicator.
        if (popInd) str += '<td class="' + textClass + '" align="right">' + popInd + '<\/td>';
      }
      str += '<\/tr><\/table>' + (isNS4 ? '<\/layer>' : '<\/div>');
      if (isVert) itemY += length + spacing;
      else itemX += length + spacing;
    }
    if (isDOM) {
      var newDiv = document.createElement('div');
      document.getElementsByTagName('body').item(0).appendChild(newDiv);
      if (!currMenu == 0) { newDiv.innerHTML = str; }
      if (currMenu == 0) { newDiv.innerHTML = str+str2; }
      ref = newDiv.style;
      ref.position = 'absolute';
      ref.visibility = 'hidden';
    }

    // Insert a div tag to the end of the BODY with menu HTML in place for IE4.
    if (isIE4) {
      document.body.insertAdjacentHTML('beforeEnd', '<div id="menu' + currMenu + 'div" ' + 'style="position: absolute; visibility: hidden">' + str + str2 + '<\/div>');
      ref = getSty('menu' + currMenu + 'div');
    }

    // In NS4, create a reference to a new layer and write the items to it.
    if (isNS4) {
      ref = new Layer(0);
      ref.document.write(str+str2);
      ref.document.close();
    }

    for (currItem = 1; currItem < menu[currMenu].length; currItem++) {
      itemName = 'menu' + currMenu + 'item' + currItem;
      if (isDOM || isIE4) menu[currMenu][currItem].ref = getSty(itemName);
      if (isNS4) menu[currMenu][currItem].ref = ref.document[itemName];
    }
  }
  with(menu[0][0]) {
    ref.left = x;
    ref.top = y;
    ref.visibility = 'visible';
  }
}

var menu = new Array();
var defOver = '#336699', defBack = '#00539B';
var defLength = 25;

menu[0] = new Array();
menu[0][0]  = new Menu(false, '', 10, 110, 18, '#C0C0C0', '#C0C0C0', '', 'banner');
menu[0][1]  = new Item('County Government',                'main.asp?function=municipal&amp;subfunction=municipal',                                    '', 170, 0, 1);
menu[0][2]  = new Item('News & Public Notices',            'main.asp?function=municipal&amp;subfunction=municipal&amp;section=PublicNotices',          '', 190, 0, 2);
menu[0][3]  = new Item('Associated Links',                 'main.asp?function=municipal&subfunction=municipal&section=Links',                          '', 160, 0, 3);
menu[0][4]  = new Item('Partnership Projects',             'main.asp?function=municipal&amp;subfunction=municipal&amp;section=PartnershipProjects',    '', 170, 0, 4);
menu[0][5]  = new Item('Contact Us',                       'main.asp?function=contact&amp;subfunction=contact',                                        '', 100, 0, 5);
menu[0][6]  = new Item('',                       '',                                        '', 0, 0, 8);

menu[1] = new Array();
menu[1][0]  = new Menu(true, '', 0, 22, 250, defOver, defBack, 'menuBorder', 'menuitems');
menu[1][1]  = new Item('County Council',                   'main.asp?function=municipal&amp;subfunction=municipal&amp;section=CountyCouncil',          '', defLength, 0, 6);
menu[1][2]  = new Item('CAO',                              'main.asp?function=municipal&amp;subfunction=municipal&amp;section=CAO',                    '', defLength, 0, 0);
menu[1][3]  = new Item('County Treasurer',                 'main.asp?function=municipal&amp;subfunction=municipal&amp;section=Finance',                '', defLength, 0, 0);
menu[1][4]  = new Item('County Clerk',                     'main.asp?function=municipal&amp;subfunction=municipal&amp;section=County Clerk',           '', defLength, 0, 0);
menu[1][5]  = new Item('Roads Department',                 'main.asp?function=municipal&amp;subfunction=municipal&amp;section=Roads',                  '', defLength, 0, 0);
menu[1][6]  = new Item('Planning and GIS',                 'main.asp?function=municipal&amp;subfunction=municipal&amp;section=Planning',               '', defLength, 0, 7);
menu[1][7]  = new Item('Emergency Services',               'http://www.haliburtoncounty.ca/ems/default.htm',                                     '_blank', defLength, 0, 0);
menu[1][8]  = new Item('Economic Development & Tourism',   'http://www.businesshaliburton.ca',                                                   '_blank', defLength, 0, 0);
menu[1][9]  = new Item('Accessibility Planning',           'main.asp?function=municipal&amp;subfunction=municipal&amp;section=JointAccessibility',     '', defLength, 0, 0);
menu[1][10] = new Item('County Library',                   'main.asp?function=municipal&amp;subfunction=municipal&amp;section=CountyLibrary',          '', defLength, 0, 0);
menu[1][11] = new Item('9-1-1 Civic Addesssing',           'main.asp?function=municipal&amp;subfunction=municipal&amp;section=911',                    '', defLength, 0, 0);
menu[1][12] = new Item('Forestry Conservation',            'main.asp?function=municipal&amp;subfunction=municipal&amp;section=ForestryConservation',   '', defLength, 0, 0);
menu[1][13] = new Item('Rail Trail',                       'main.asp?function=municipal&amp;subfunction=municipal&amp;section=RailTrail',              '', defLength, 0, 0);

menu[2] = new Array();
menu[2][0] = new Menu(true, '', 0, 22, 250, defOver, defBack, 'menuBorder', 'menuitems');
menu[2][1] = new Item('Tenders',                            'main.asp?function=municipal&subfunction=municipal&section=CAO&subsection=NTE#tenders',      '', defLength, 0, 0);
menu[2][2] = new Item('Employment Opportunities',           'main.asp?function=municipal&subfunction=municipal&section=CAO&subsection=NTE#employment',   '', defLength, 0, 0);
menu[2][3] = new Item('Public Notices',                     'main.asp?function=municipal&subfunction=municipal&section=PublicNotices',                   '', defLength, 0, 0);
menu[2][4] = new Item('Official Plan - Five Year Review',   'main.asp?function=municipal&subfunction=municipal&section=OfficialPlanReview',              '', defLength, 0, 0);
menu[2][5] = new Item('MNR Flood Advisory',                 'http://www.mnr.gov.on.ca/en/Business/EmergencyManagement/2ColumnSubPage/239496.html', '_blank', defLength, 0, 0);
menu[2][6] = new Item('Hydro One-Power Outage Information', 'http://www.hydroonenetworks.com/en/about/our_services/power_outage_maps/default.asp', '_blank', defLength, 0, 0);
menu[2][7] = new Item('Bearwise Program-MNR',               'http://bears.mnr.gov.on.ca/',                                                         '_blank', defLength, 0, 0);

menu[3] = new Array();
menu[3][0]  = new Menu(true, '', 0, 22, 350, defOver, defBack, 'menuBorder', 'menuitems');
menu[3][1]  = new Item('Point in Time Child and Family Services',             'http://www.pointintime.ca',                                                                    '_blank', defLength, 0, 0);
menu[3][2]  = new Item('Haliburton Highlands Trails and Tours Network',       'http://www.trailsandtours.com',                                                                '_blank', defLength, 0, 0);
menu[3][3]  = new Item('4Info-Other County Information',                      'http://www.fourinfo.com/haliburton.htm',                                                       '_blank', defLength, 0, 0);
menu[3][4]  = new Item('OnRAMP-Eastern Ontario',                              'http://www.mah.gov.on.ca/Page109.aspx',                                                        '_blank', defLength, 0, 0);
menu[3][5]  = new Item('Eastern Ontario Wardens Caucus',                      'http://www.eowc.org/',                                                                         '_blank', defLength, 0, 0);
menu[3][6]  = new Item('Haliburton/Kawartha/Pine Ridge District Health Unit', 'http://www.hkpr.on.ca/',                                                                       '_blank', defLength, 0, 0);
menu[3][7]  = new Item('Haliburton Highlands Health Services',                'http://www.hhhs.on.ca/',                                                                       '_blank', defLength, 0, 0);
menu[3][8]  = new Item('Municipal Property Assessment Corporation',           'http://www.mpac.ca/',                                                                          '_blank', defLength, 0, 0);
menu[3][9]  = new Item('Central East Local Health Integration Networks',      'http://www.centraleastlhin.on.ca/',                                                            '_blank', defLength, 0, 0);
menu[3][10] = new Item('Haliburton County Development Corporation',           'http://www.haliburtoncdc.ca',                                                                  '_blank', defLength, 0, 0);
menu[3][11] = new Item('Bearwise Program-MNR',                                'http://www.mnr.gov.on.ca/en/Business/Bearwise/Publication/index.html',                         '_blank', defLength, 0, 0);
menu[3][12] = new Item('Social Services',                                     'main.asp?function=municipal&subfunction=municipal&section=SocialServices',                     '', defLength, 0, 0);
menu[3][13] = new Item('Federal and Provincial Representatives',              'main.asp?function=municipal&subfunction=municipal&section=CountyCouncil&subsection=OtherReps', '', defLength, 0, 0);

menu[4] = new Array();
menu[4][0] = new Menu(true, '', 0, 22, 200, defOver, defBack, 'menuBorder', 'menuitems');
menu[4][1] = new Item('Cycling Master Plan Update',         'http://www.cyclehaliburton.ca/about.htm',                                            '_blank', defLength, 0, 0);
menu[4][2] = new Item('Waste Management',                   'main.asp?function=municipal&subfunction=municipal&section=WasteManagement',                                          '', defLength, 0, 0);
menu[4][3] = new Item('Public Access Defibrillation',       'http://www.haliburtoncounty.ca/ems/pad.htm',                                         '_blank', defLength, 0, 0);

menu[5] = new Array();
menu[5][0] = new Menu(true, '', -68, 22, 175, defOver, defBack, 'menuBorder', 'menuitems');
menu[5][1] = new Item('Contact Us',                        'main.asp?function=contact&amp;subfunction=contact',                                        '', defLength, 0, 0);
menu[5][2] = new Item('Council/Staff Directory',           'documents/2009%20Directory.pdf',                                                     '_blank', defLength, 0, 0);
menu[5][3] = new Item('Login',                             'main.asp?function=contact&amp;subfunction=login',                                          '', defLength, 0, 0);
menu[5][4] = new Item('Guest Book',                        'main.asp?function=contact&amp;subfunction=guestbook',                                      '', defLength, 0, 0);
menu[5][5] = new Item('Send us an Email',                  'mailto:aballe@county.haliburton.on.ca',                                                    '', defLength, 0, 0);
menu[5][6] = new Item('Give us your comments',             'main.asp?function=contact&amp;subfunction=comments',                                       '', defLength, 0, 0);
menu[5][7] = new Item('List your business',                'main.asp?function=contact&amp;subfunction=busdirlist',                                     '', defLength, 0, 0);

menu[6] = new Array();
menu[6][0] = new Menu(true, '', 250, 0, 200, defOver, defBack, 'menuBorder', 'menuitems');
menu[6][1] = new Item('Council Meetings',                  'main.asp?function=municipal&subfunction=municipal&section=CountyCouncil&subsection=CouncilMeetings', '', defLength, 0, 0);
menu[6][2] = new Item('Electronic Agenda',                 'http://haliburton.civicweb.net/contentengine/launch.asp?ID=0',                                 '_blank', defLength, 0, 0);
menu[6][3] = new Item('Calendar of Meetings 2009',         'documents/MeetingCalendar09.pdf',                                                              '_blank', defLength, 0, 0);
menu[6][4] = new Item('2009 Council/Staff Directory',      'documents/2009%20Directory.pdf',                                                               '_blank', defLength, 0, 0);

menu[7] = new Array();
menu[7][0] = new Menu(true, '', 250, 0, 200, defOver, defBack, 'menuBorder', 'menuitems');
menu[7][1] = new Item('Lot Creation',                      'main.asp?function=municipal&subfunction=municipal&section=Planning&subsection=LotCreation',           '', defLength, 0, 0);
menu[7][2] = new Item('Strategic Plan',                    'main.asp?function=municipal&subfunction=municipal&section=Planning&subsection=StrategicOfficialPlan', '', defLength, 0, 0);
menu[7][3] = new Item('Official Plan',                     'main.asp?function=municipal&subfunction=municipal&section=Planning&subsection=OfficialPlan',          '', defLength, 0, 0);
menu[7][4] = new Item('GIS/Mapping',                       'main.asp?function=municipal&subfunction=municipal&section=MapsGIS',                                   '', defLength, 0, 0);

menu[8] = new Array();
menu[8][0]  = new Menu(true, '', -290, 45, 250, defOver, defBack, 'menuBorder', 'menuitems');
menu[8][1]  = new Item('Telephone Line Eligibility',        'http://www.ruralconnects.ca/haliburton/default.aspx',                                                  '_blank', defLength, 0, 0);
menu[8][2]  = new Item('Broadband Outreach',                'main.asp?function=municipal&subfunction=municipal&section=CountyCouncil&subsection=BroadbandOutreach',       '', defLength, 0, 0);
menu[8][3]  = new Item('Business Connectivity Application', 'documents/BroadBusinessConnectApp.pdf',                                                                '_blank', defLength, 0, 0);

var popOldWidth = window.innerWidth;
nsResizeHandler = new Function('if (popOldWidth != window.innerWidth) location.reload()');

if (isNS4) document.captureEvents(Event.CLICK);
document.onclick = clickHandle;

function clickHandle(evt)
{
 if (isNS4) document.routeEvent(evt);
 hideAllBut(0);
}

function moveRoot()
{
 with(menu[0][0].ref) left = ((parseInt(left) < 100) ? 100 : 5);
}