<!--

var isDOM=document.getElementById?1:0;
var isIE=document.all?1:0;
var isNS4=navigator.appName=='Netscape'&&!isDOM?1:0;
var isIE4=isIE&&!isDOM?1:0;
var isOp=window.opera?1:0;
var isDyn=isDOM||isIE||isNS4;

function getRef(id, par)
{
	par=!par?document:(par.navigator?par.document:par);
	return (isIE ? par.all[id] :
	(isDOM ? (par.getElementById?par:par.ownerDocument).getElementById(id) :
	(isNS4 ? par.layers[id] : null)));
}

function getSty(id, par)
{
	var r=getRef(id, par);
	return r?(isNS4?r:r.style):null;
}

if (!window.LayerObj) var LayerObj = new Function('id', 'par', 'this.ref=getRef(id, par); this.sty=getSty(id, par); return this');

function getLyr(id, par) 
{ 
	return new LayerObj(id, par) 
}

function LyrFn(fn, fc)
{
	LayerObj.prototype[fn] = new Function('var a=arguments,p=a[0],px=isNS4||isOp?0:"px"; ' + 'with (this) { '+fc+' }');
}

LyrFn('x','if (!isNaN(p)) sty.left=p+px; else return parseInt(sty.left)');
LyrFn('y','if (!isNaN(p)) sty.top=p+px; else return parseInt(sty.top)');
LyrFn('vis','sty.visibility=p');
LyrFn('bgColor','if (isNS4) sty.bgColor=p?p:null; ' + 'else sty.background=p?p:"transparent"');
LyrFn('bgImage','if (isNS4) sty.background.src=p?p:null; ' + 'else sty.background=p?"url("+p+")":"transparent"');
LyrFn('clip','if (isNS4) with(sty.clip){left=a[0];top=a[1];right=a[2];bottom=a[3]} ' + 'else sty.clip="rect("+a[1]+"px "+a[2]+"px "+a[3]+"px "+a[0]+"px)" ');
LyrFn('write','if (isNS4) with (ref.document){write(p);close()} else ref.innerHTML=p');
LyrFn('alpha','var f=ref.filters,d=(p==null); if (f) {' +
	'if (!d&&sty.filter.indexOf("alpha")==-1) sty.filter+=" alpha(opacity="+p+")"; ' +
	'else if (f.length&&f.alpha) with(f.alpha){if(d)enabled=false;else{opacity=p;enabled=true}} }' +
	'else if (isDOM) sty.MozOpacity=d?"":p+"%"');

function setLyr(lVis, docW, par)
{
	if (!setLyr.seq) setLyr.seq=0;
	if (!docW) docW=0;
	var obj = (!par ? (isNS4 ? window : document.body) :
 	(!isNS4 && par.navigator ? par.document.body : par));
	var IA='insertAdjacentHTML', AC='appendChild', newID='_js_layer_'+setLyr.seq++;

	if (obj[IA]) obj[IA]('beforeEnd', '<div id="'+newID+'" style="position:absolute"></div>');
	else if (obj[AC])
	{
		var newL=document.createElement('div');
		obj[AC](newL); newL.id=newID; newL.style.position='absolute';
	}
	else if (isNS4)
	{
		var newL=new Layer(docW, obj);
		newID=newL.id;
	}

	var lObj=getLyr(newID, par);
	with (lObj) if (ref) { vis(lVis); x(0); y(0); sty.width=docW+(isNS4?0:'px') }
	return lObj;
}


var CSSmode=document.compatMode;
CSSmode=(CSSmode&&CSSmode.indexOf('CSS')!=-1)||isDOM&&!isIE||isOp?1:0;

if (!window.page) var page = { win: window, minW: 0, minH: 0, MS: isIE&&!isOp,
 db: CSSmode?'documentElement':'body' }

page.winW=function()
 { with (this) return Math.max(minW, MS?win.document[db].clientWidth:win.innerWidth) }
page.winH=function()
 { with (this) return Math.max(minH, MS?win.document[db].clientHeight:win.innerHeight) }

page.scrollX=function()
 { with (this) return MS?win.document[db].scrollLeft:win.pageXOffset }
page.scrollY=function()
 { with (this) return MS?win.document[db].scrollTop:win.pageYOffset }



// *** MOUSE EVENT CONTROL FUNCTIONS ***
function popOver(mN, iN) { with (this)
{
	// Cancel any pending menu hides from a previous mouseout.
	clearTimeout(hideTimer);
	// Set the 'over' variables to point to this item.
	overM = mN;
	overI = iN;
	// Call the 'onMouseOver' event if it exists, and the item number is 1 or more.
	if (iN && this.onmouseover) onmouseover(mN, iN);

	// Remember what was lit last time, and compute a new hierarchy.
	litOld = litNow;
	litNow = new Array();
	var litM = mN, litI = iN;
	while(1)
	{
		litNow[litM] = litI;
		// If we've reached the top of the hierarchy, exit loop.
		if (litM == 'root') break;
		// Otherwise repeat with this menu's parent.
		litI = menu[litM][0].parentItem;
		litM = menu[litM][0].parentMenu;
	}
	
	// If the two arrays are the same, return... no use hiding/lighting otherwise.
	var same = true;
	for (var z in menu) if (litNow[z] != litOld[z]) same = false;
	if (same) return;
	
	// If this is a different menu, clear another pending show.
	clearTimeout(showTimer);

	// Cycle through menu array, lighting and hiding menus as necessary.
	for (thisM in menu) with (menu[thisM][0])
	{
		if (!lyr) continue;
	
		// The number of this menu's item that is to be lit, undefined if none.
		litI = litNow[thisM];
		oldI = litOld[thisM];
	
		// If it's lit now and wasn't before, highlight...
		if (litI && (litI != oldI)) changeCol(thisM, litI, true);
		// If another item was lit but isn't now, dim the old item.
		if (oldI && (oldI != litI)) changeCol(thisM, oldI, false);
		// Make sure if it's lit, it's shown, and set the visNow flag.
		if (litI && !visNow && (thisM != 'root'))
		{
			showMenu(thisM);
			visNow = true;
		}
		
		// If this menu has no items from the current hierarchy in it, and is currently onscreen, call the hide function.
		if (isNaN(litI) && visNow)
		{
			hideMenu(thisM);
			visNow = false;
		}
	}


	// Get target menu to show - if we've got one, position & show it.
	// If this menu is set to show submenus on click, skip this.
	nextMenu = '';
	if ((menu[mN][iN].type == 'sm:') && !menu[mN][0].subsOnClick)
	{
		// The target menu and the layer object of the current menu itself (not this item).
		var targ = menu[mN][iN].href, lyrM = menu[mN][0].lyr;
		// Either show immediately or after a delay if set by passing it to the position and show functions.
		// Set nextMenu to the impending show, so the popOut() function knows when not to cancel it.
		var showStr = 'with ('+myName+') { menu.'+targ+'[0].visNow = true; ' + 'position("'+targ+'"); showMenu("'+targ+'") }';
		nextMenu = targ;
		if (showDelay) showTimer = setTimeout(showStr, showDelay);
		else eval(showStr);
	}
}}


function popOut(mN, iN) 
{ 
	with (this)
	{
		if ((mN != overM) || (iN != overI)) return;
		
		// Evaluate the onmouseout event, if any.
		if (this.onmouseout) onmouseout(mN, iN);
		
		var thisI = menu[mN][iN];
		
		// Stop showing another menu if this item isn't pointing to the same one.
		if (thisI.href != nextMenu)
		{
			clearTimeout(showTimer);
			nextMenu = '';
		}
	
		// Hide all menus rapidly (if it's a root menu item without a popout) or as specified.
		// If hideDelay equals zero the menus are never hidden.
		if (hideDelay)
		{
			var delay = ((mN == 'root') && (thisI.type != 'sm:')) ? 50 : hideDelay;
			hideTimer = setTimeout(myName + '.over("root", 0)', delay);
		}
	
		// Clear the 'over' variables.
		overM = 'root';
		overI = 0;
	}
}


function popClick(mN, iN) 
{
	with (this)
	{
		// Evaluate the onclick event, if any.
		if (this.onclick) onclick(mN, iN);
		
		var thisI = menu[mN][iN], hideM = true;
		
		with (thisI) switch (type)
		{
			case 'sm:':
			{
				if (menu[overM][0].subsOnClick)
				{
				menu[href][0].visNow = true;
				position(href);
				showMenu(href);
				hideM = false;
				}
				break;
			}
			case 'js:': 
			{ 	
				eval(href);
				break 
			}
			case '': type = 'window';
			default: if (href) eval(type + '.location.href = "' + href + '"');
		}
	
		// Hide all menus if we're supposed to.
		if (hideM) over('root', 0);
	}
}


function popChangeCol(mN, iN, isOver) 
{ 
	with (this.menu[mN][iN])
	{
		if (!lyr || !lyr.ref) return;
	
		var col = isOver?overCol:outCol;
		var bgFn = (col.indexOf('.')==-1) ? 'bgColor' : 'bgImage';
		// Then we do it before or after the text/border change due to Netscape bugs.
		if (isNS4) lyr[bgFn](col);
		
		if ((overClass != outClass) || (outBorder != overBorder)) with (lyr)
		{
			if (isNS4) write(this.getHTML(mN, iN, isOver));
			else
			{
				ref.className = (isOver ? overBorder : outBorder);
				var chl = (isDOM ? ref.childNodes : ref.children)
				if (chl) for (var i = 0; i < chl.length; i++) chl[i].className = isOver?overClass:outClass;
			}
		}
	
		if (!isNS4) lyr[bgFn](col);
		if (outAlpha != overAlpha) lyr.alpha(isOver ? overAlpha : outAlpha);
	}
}


function popPosition(posMN) 
{ 
	with (this)
	{
		// Pass a menu name to position, or nothing to position all menus.
		for (mN in menu)
		{
			if (posMN && (posMN != mN)) continue;
			with (menu[mN][0])
			{
				// If the menu hasn't been created or is not set to be visible, loop.
				if (!lyr || !lyr.ref || !visNow) continue;
	
				// Set up some variables and the initial calculated positions.
				var pM, pI, newX = eval(offX), newY = eval(offY);
				// Find its parent menu references, if it's not the topmost root menu.
				if (mN != 'root')
				{
					pM = menu[parentMenu];
					pI = pM[parentItem].lyr;
					
					if (!pI) continue;
				}
	
				// Find parent window for correct page object, or this window if not.
				var eP = eval(par);
				var pW = (eP && eP.navigator ? eP : window);
	
				// Find proper numerical values for the current window position + edges, so menus
				// don't make a beeline for the upper-left corner of the page.
				with (pW.page) var sX=scrollX(), wX=sX+winW(), sY=scrollY(), wY=winH()+sY;
				wX = isNaN(wX)||!wX ? 9999 : wX;
				wY = isNaN(wY)||!wY ? 9999 : wY;
				
				// Relatively positioned submenus? Add parent menu/item position & check screen edges.
				if (pM && typeof(offX)=='number') newX = Math.max(sX,
				Math.min(newX+pM[0].lyr.x()+pI.x(), wX-menuW-(isIE?5:20)));
				if (pM && typeof(offY)=='number') newY = Math.max(sY,
				Math.min(newY+pM[0].lyr.y()+pI.y(), wY-menuH-(isIE?5:20)));
	
				// Assign the final calculated positions.
				lyr.x(newX);
				lyr.y(newY);
			}
		}
	}
}



// *** MENU OBJECT CONSTRUCTION FUNCTIONS ***
function addProps(obj, data, names, addNull)
{
	for (var i = 0; i < names.length; i++) if(i < data.length || addNull) obj[names[i]] = data[i];
}

function ItemStyle()
{
	var names = ['len', 'spacing', 'popInd', 'popPos', 'pad', 'outCol', 'overCol', 'outClass', 
				 'overClass', 'outBorder', 'overBorder', 'outAlpha', 'overAlpha', 'normCursor', 'nullCursor'];
	addProps(this, arguments, names, true);
}

function popStartMenu(mName) 
{ 
	with (this)
	{
		if (!menu[mName]) { menu[mName] = new Array(); menu[mName][0] = new Object(); }

		actMenu = menu[mName];
		aM = actMenu[0];
		actMenu.length = 1;

		var names = ['isVert', 'isVert', 'offX','offY', 'width', 'itemSty', 'par',
		'parentMenu', 'parentItem', 'visNow', 'oncreate', 'subsOnClick'];
		addProps(aM, arguments, names, true);

		aM.extraHTML = '';
		aM.menuW = aM.menuH = 0;
		
		// Reuse old layers if we can, no use creating new ones every time the menus refresh.
		if (!aM.lyr) aM.lyr = null;
		
		// Assign a default oncreate event to the root menu to show it.
		if (mName == 'root') menu.root[0].oncreate = new Function('this.visNow=true; ' +
		myName + '.position("root"); this.lyr.vis("visible")');
	}
}


function popAddItem() 
{ 
	with (this) with (actMenu[0])
	{
		// 'with' the current menu object and active menu descriptor object from startMenu().

		// Add these properties onto a new 'active Item' at the end of the active menu.
		var aI = actMenu[actMenu.length] = new Object();

		// Add function parameters to object. Again, the last few are undefined, set later.
		var names = ['text', 'href', 'type', 'itemSty', 'len', 'spacing', 'popInd', 'popPos',
					 'pad', 'outCol', 'overCol', 'outClass', 'overClass', 'outBorder', 'overBorder',
					 'outAlpha', 'overAlpha', 'normCursor', 'nullCursor',
					 'iX', 'iY', 'iW', 'iH', 'lyr'];
		addProps(aI, arguments, names, true);

		// Find an applicable itemSty -- either passed to this item or the menu[0] object.
		var iSty = (arguments[3] ? arguments[3] : actMenu[0].itemSty);
		// Loop through its properties, add them if they don't already exist (overridden e.g. length).
		for (prop in iSty) if (aI[prop]+'' == 'undefined') aI[prop] = iSty[prop];

		// In NS4, since borders are assigned to the contents rather than the layer, increase padding.
		if (aI.outBorder)
		{
			if (isNS4) aI.pad++;
		}

		aI.iW = (isVert ? width : aI.len);
		aI.iH = (isVert ? aI.len : width);

		var lastGap = (actMenu.length > 2) ? actMenu[actMenu.length - 2].spacing : 0;
		
		var spc = ((actMenu.length > 2) && aI.outBorder ? 1 : 0);

		if (isVert)
		{
			menuH += lastGap - spc;
			aI.iX = 0; aI.iY = menuH;
			menuW = width; menuH += aI.iH;
		}
		else
		{
			menuW += lastGap - spc;
			aI.iX = menuW; aI.iY = 0;
			menuW += aI.iW; menuH = width;
		}

		if (aI.outBorder && CSSmode)
		{
			aI.iW -= 2;
			aI.iH -= 2;
		}
	}
}
		


// *** MAIN MENU CREATION/UPDATE FUNCTIONS ***
// Returns the inner HTML of an item, used for menu generation, and highlights in NS4.
function popGetHTML(mN, iN, isOver) 
{ 
	with (this)
	{
		var itemStr = '';
		with (menu[mN][iN])
		{
			var textClass = (isOver ? overClass : outClass);
	
			if ((type == 'sm:') && popInd)
			{
				if (isNS4) itemStr += '<layer class="' + textClass + '" left="'+ ((popPos+iW)%iW) + '" top="' + pad + '" height="' + (iH-2*pad) + '">' + popInd + '</layer>';
				else itemStr += '<div class="' + textClass + '" style="position: absolute; left: ' + ((popPos+iW)%iW) + 'px; top: ' + pad + 'px; height: ' + (iH-2*pad) + 'px">' + popInd + '</div>';
			}
	
			if (isNS4) itemStr += (outBorder ? '<span class="' + (isOver?overBorder:outBorder) + 
					'"><spacer type="block" width="' + (iW-8) + '" height="' + (iH-8) + '"></span>' : '') +
					'<layer left="' + pad + '" top="' + pad + '" width="' + (iW-2*pad) + '" height="' +
					(iH-2*pad) + '"><a class="' + textClass + '" href="#" ' +
					'onClick="return false" onMouseOver="status=\'\'; ' + myName + '.over(\'' + mN + '\',' +
					iN + '); return true">' + text + '</a></layer>';
			else itemStr += '<div class="' + textClass + '" style="position: absolute; left: ' + pad +
					'px; top: ' + pad + 'px; width: ' + (iW-2*pad) + 'px; height: ' + (iH-2*pad) + 'px">' +
					text + '</div>';
		}
		return itemStr;
	}	
}

function popUpdate(docWrite, upMN) 
{
	with (this)
	{
		// 'isDyn' (set at the very top of the script) signifies a DHTML-capable browser.
		if (!isDyn) return;
	
		// Loop through menus, using properties of menu description object (array index 0)...
		for (mN in menu) with (menu[mN][0])
		{
			// If updating one specific menu, only run the code for that.
			if (upMN && (upMN != mN)) continue;
	
			// Variable for holding HTML for items.
			var str = '';

			for (var iN = 1; iN < menu[mN].length; iN++) with (menu[mN][iN])
			{
				// An ID for divs/layers contained within the menu.
				var itemID = myName + '_' + mN + '_' + iN;
	
				var targM = menu[href];
				if (targM && (type == 'sm:'))
				{
					targM[0].parentMenu = mN;
					targM[0].parentItem = iN;
				}
	
				var isImg = (outCol.indexOf('.') != -1) ? true : false;
				
				if (!isIE && normCursor=='hand') normCursor = 'pointer';
	
				// Create a div or layer text string with appropriate styles/properties.
				if (isDOM || isIE4)
				{
					str += '<div id="' + itemID + '" ' + (outBorder ? 'class="'+outBorder+'" ' : '') +
						 'style="position: absolute; left: ' + iX + 'px; top: ' + iY + 'px; width: ' + iW +
						 'px; height: ' + iH + 'px; z-index: 1000; background: ' + (isImg?'url('+outCol+')':outCol) +
						 ((typeof(outAlpha)=='number') ? '; filter: alpha(opacity='+ outAlpha + '); -moz-opacity: ' +
						  (outAlpha/100) : '') +
						 '; cursor: ' + ((type!='sm:' && href) ? normCursor : nullCursor) + '" ';
				}
				else if (isNS4)
				{
					// NS4's borders must be assigned within the layer so they stay when content is replaced.
					str += '<layer id="' + itemID + '" left="' + iX + '" top="' + iY + '" width="' +
						 iW + '" height="' + iH + '" z-index="1000" ' +
						 (outCol ? (isImg ? 'background="' : 'bgcolor="') + outCol + '" ' : '');
	   			}
	
				// Add mouseover and click handlers, contents, and finish div/layer.
				var evtMN = '(\'' + mN + '\',' + iN + ')"';
				str += 'onMouseOver="' + myName + '.over' + evtMN +
					 ' onMouseOut="' + myName + '.out' + evtMN +
					 ' onClick="' + myName + '.click' + evtMN + '>' +
					 getHTML(mN, iN, false) + (isNS4 ? '</layer>' : '</div>');
	
				// End loop through items and with(menu[mN][iN]).
			}
	
	
			// The parent frame for this menu, if any.
			var eP = eval(par);
	
			setTimeout(myName + '.setupRef(' + docWrite + ', "' + mN + '")', 50);
	
			// Initial menu visibility, hidden unless tweaked otherwise.
			var mVis = visNow ? 'visible' : 'hidden';
	
			if (docWrite)
			{
				 // Find the right target frame.
				 var targFr = (eP && eP.navigator ? eP : window);
				 targFr.document.write('<div id="' + myName + '_' + mN + '_Div" style="position: absolute; ' +
						'visibility: ' + mVis + '; left: 0px; top: 0px; width: ' + (menuW+2) + 'px; height: ' +
						(menuH+2) + 'px; z-index: 1000">' + str + extraHTML + '</div>');
			}
			else
			{
				if (!lyr || !lyr.ref) lyr = setLyr(mVis, menuW, eP);
				else if (isIE4) setTimeout(myName + '.menu.' + mN + '[0].lyr.sty.width=' + (menuW+2), 50);
				
				// Give it a high Z-index, and write its content.
				with (lyr) { sty.zIndex = 1000; write(str + extraHTML) }
			}
	
		// End loop through menus and with (menu[mN][0]).
		}
	}
}


function popSetupRef(docWrite, mN) 
{ 
	with (this) with (menu[mN][0])
	{
		// Get a reference to a div, only needed for Fast creation mode.
		if (docWrite || !lyr || !lyr.ref) lyr = getLyr(myName + '_' + mN + '_Div', eval(par));
	
		// Loop through menu items again to set up individual references.
		for (var i = 1; i < menu[mN].length; i++)
		menu[mN][i].lyr = getLyr(myName + '_' + mN + '_' + i, (isNS4?lyr.ref:eval(par)));
	
		// Call the 'oncreate' method of this menu if it exists (e.g. to show root menu).
		if (menu[mN][0].oncreate) oncreate();
	}
}



// *** POPUP MENU MAIN OBJECT CONSTRUCTOR ***
function PopupMenu(myName)
{
	// These are the properties of any PopupMenu objects you create.
	this.myName = myName;
	
	// Manage what gets lit and shown when.
	this.showTimer = 0;
	this.hideTimer = 0;
	this.showDelay = 0;
	this.hideDelay = 500;
	this.showMenu = '';
	
	// 'menu': the main data store, contains subarrays for each menu e.g. pMenu.menu['root'][];
	this.menu =  new Array();
	// litNow and litOld arrays control what items get lit in the hierarchy.
	this.litNow = new Array();
	this.litOld = new Array();
	
	// The item the mouse is currently over. Used by click processor to help NS4.
	this.overM = 'root';
	this.overI = 0;

	// The active menu, to which addItem() will assign its results.
	this.actMenu = null;
	
	// Functions to create and manage the menu.
	this.over = popOver;
	this.out = popOut;
	this.changeCol = popChangeCol;
	this.position = popPosition;
	this.click = popClick;
	this.startMenu = popStartMenu;
	this.addItem = popAddItem;
	this.getHTML = popGetHTML;
	this.update = popUpdate;
	this.setupRef = popSetupRef;
	
	// Default show and hide functions, overridden in the example script by the clipping routine.
	this.showMenu = new Function('mName', 'this.menu[mName][0].lyr.vis("visible")');
	this.hideMenu = new Function('mName', 'this.menu[mName][0].lyr.vis("hidden")');
}


//-->
