window.onload = mladdevents;

function mladdevents()
{
 if(window.mlrunShim == true)
 {
  var Iframe = document.createElement("iframe");
  Iframe.setAttribute("src", "about:blank");
  Iframe.setAttribute("scrolling", "no");
  Iframe.setAttribute("frameBorder", "0");
  Iframe.style.zIndex = "2";
  Iframe.style.filter = 'alpha(opacity=0)';
 }
 var effects_a = new Array();
 var divs = document.getElementsByTagName('div');
 for (var j = 0; j < divs.length; j++)
 {
  if(divs[j].className.indexOf('mlmenu') != -1)
  {
   var lis = divs[j].getElementsByTagName('li');
   for(var i = 0; i < lis.length; i++)
   {
	lis[i].onmouseover = mlover;
	lis[i].onmouseout = mloutSetTimeout;
	if(window.mlrunShim == true)
	{
	 lis[i].appendChild(Iframe.cloneNode(false));
	}
	if(lis[i].getElementsByTagName('ul').length > 0)
	{
     lis[i].className += 'haschild';
	 if(divs[j].className.indexOf('arrow') != -1)
	 {
      if(divs[j].className.indexOf('vertical') != -1 || lis[i].parentNode.parentNode.nodeName != 'DIV')
	  {
	   lis[i].getElementsByTagName('a')[0].innerHTML += '<span class="vert">&rarr;</span>';
	  }
	  else
	  {
	   lis[i].getElementsByTagName('a')[0].innerHTML += '<span class="horiz">&darr;</span>';
	  }								
	 }
	 else if(divs[j].className.indexOf('plus') != -1)
	 {
	  lis[i].getElementsByTagName('a')[0].innerHTML += '<span class="plus">+</span>';
	 }
	}
	else
	{
	 if(divs[j].className.indexOf('arrow') != -1)
	 {
	  // This accounts for a wierd IE-specific bug in horizontal menus. CSS will set visibility: hidden;. This keeps the menu level(in IE)
	  //lis[i].getElementsByTagName('a')[0].innerHTML += '<span class="noshow">&darr;</span>';
	 }
    }
    var uls = lis[i].getElementsByTagName('ul');
    for(var k = 0; k < uls.length; k++)
    {
	 var found = 'no';
	 for(var z = 0; z < effects_a.length; z++)
	 {
	  if(effects_a[z] == uls[k])
	  {
	   found = 'yes';
	  }
	 }
	 if(found == 'no')
	 {
	  effects_a[effects_a.length] = uls[k];
	  uls[k].style.zIndex = '100';
	  mlEffectLoad(uls[k]);
	 }
    }
   }
  }
 }
}

function mloutSetTimeout(e)
{
 if(!e)
 {
  var the_e = window.event;
 }
 else
 {
  var the_e = e;
 }
 var reltg = (the_e.relatedTarget) ? the_e.relatedTarget : the_e.toElement;
 if(reltg)
 {
  var under = ancestor(reltg,this);
  if(under === false && reltg != this)
  {
   window.mlLast = this;
   var parent = this.parentNode;
   while(parent.parentNode && parent.className.indexOf('mlmenu') == -1)
   {
	parent = parent.parentNode;
   }
   if(parent.className.indexOf('delay') != -1)
   {
	window.mlTimeout = setTimeout(function(){mlout()},500);
   }
   else
   {
	mlout();
   }
  }
 }
}

function mlout()
{
 if(window.mlLast==null)return false;
 var uls = window.mlLast.getElementsByTagName('ul');
 var sib;
 for(var i=0;i<uls.length;i++)
 {
  mlEffectOut(uls[i]);
  window.mlLast.className = 'haschild hide';
  if(window.mlrunShim == true)
  {
   sib = uls[i];
   while(sib.nextSibling && sib.nodeName != 'IFRAME')
   {
	sib = sib.nextSibling
   }
   sib.style.display = 'none';
  }
 }
 window.lastover = null;
}

function mlover(e)
{
 if(!e)
 {
  var the_e = window.event;
 }
 else
 {
  var the_e = e;
 }
 the_e.cancelBubble = true;
 if(the_e.stopPropagation)
 {
  the_e.stopPropagation();
 }
 clearTimeout(window.mlTimeout);
 if(window.mlLast && window.mlLast != this && ancestor(this,window.mlLast) == false)
 {
  mlout();
 }
 else
 {
  window.mlLast = null;
 }
 var reltg = (the_e.relatedTarget) ? the_e.relatedTarget : the_e.fromElement;
 var ob = this.getElementsByTagName('ul');
 var under = ancestor(reltg,this);
 if(ob[0] && under == false)
 {
  if(window.lastover != ob[0])
  {
   if(window.mlrunShim == true)
   {
	var sib = ob[0];
	while(sib.nextSibling && sib.nodeName != 'IFRAME')
	{
     sib = sib.nextSibling
	}
	ob[0].style.display = 'block';
	sib.style.top = ob[0].offsetTop+'px';
	sib.style.left = ob[0].offsetLeft-2+'px';
	sib.style.width = ob[0].offsetWidth+'px';
	sib.style.height = ob[0].offsetHeight-2+'px';
	sib.style.border = '1px solid red';
	sib.style.display = 'block';
   }
   this.className = 'haschild';
   mlEffectOver(ob[0],this);
   window.lastover = ob[0];
  }
 }
}

function mlSetOpacity(ob,level)
{
 if(ob)
 {
  //level is between 0 and 10
  //need to convert to decimal for standard
  var standard = level/10;
  //need to convert to 0-100 scale for IE filter
  var ie = level*10;
  ob.style.opacity = standard;
  ob.style.filter = "alpha(opacity="+ie+")"
 }
}

function mlIncreaseOpacity(ob)
{
 var current = ob.style.opacity;
 if(lastob == ob && lastop == current)
 {
  //mlout has not interfered
  current = current *10;
  var upone = current +1;
  mlSetOpacity(ob,upone);
  lastob = ob;
  lastop = upone/10;
  }
 }
 
function mlIncreaseHeight(ob)
{
 var current = parseInt(ob.style.height);
 var newh = current + 1;
 ob.style.height = newh+'px';
}

function mlIncreaseWidth(ob)
{
 var current = parseInt(ob.style.width);
 var newh = current + 1;
 ob.style.width = newh+'px';
}

function mlBlink(ob)
{
 var newb = '1px solid red';
 var old = '';
 if(ob.style.border==old)
 {
  ob.style.border=newb;
 }
 else
 {
  ob.style.border=old;
  ob.style.borderTop = '1px solid';
 }
}

function mlShake(ob)
{
 var newp = '5px';
 var old = '';
 if(ob.style.paddingLeft==old)
 {
  ob.style.paddingLeft=newp;
 }
 else
 {
  ob.style.paddingLeft=old;
 }
}

function mlEffectOver(ob,parent)
{
 switch(ob.className)
 {
  case 'fade':
   ob.style.display = 'block';
   if(ob.style.opacity == 0)
   {
    lastob = ob;
    lastop = 0;
    for(var i = 1;i<=10;i++)
    {
 	 setTimeout(function(){mlIncreaseOpacity(ob)},i*50);
    }
    setTimeout(function(){ob.style.filter = ''},500);
    }
    break;
   case 'blink':
    ob.style.display = 'block';
    for(var i=0;i<10;i++)
    {
 	 setTimeout(function(){mlBlink(ob)},i*50);
    }
    break;
   case 'shake':
    ob.style.display = 'block';
    for(var i=0;i<10;i++)
    {
	 setTimeout(function(){mlShake(ob)},i*50);
    }
    break;
   case 'blindv':
    ob.style.display = 'block';
	if(ob.offsetHeight)
	{
	 var height = ob.offsetHeight;
	 ob.style.height = '0px';
	 ob.style.overflow = 'hidden';
	 for(var i=0;i<height;i++)
	 {
	  setTimeout(function(){mlIncreaseHeight(ob)},i*3);
	 }
	 setTimeout(function(){ob.style.overflow='visible';},height*3);
	}
	break;
   case 'blindh':
	ob.style.display = 'block';
	if(ob.offsetWidth)
	{
	 var width = ob.offsetWidth;
	 ob.style.width = '0px';
	 ob.style.overflow = 'hidden';
	 for(var i=0;i<width;i++)
	 {
	  setTimeout(function(){mlIncreaseWidth(ob)},i*3);
	 }
	 setTimeout(function(){ob.style.overflow='visible';},width*3);
	}
	break;
   default:
	ob.style.display = 'block';
	break;
 }
}

function mlEffectOut(ob)
{
 switch(ob.className)
 {
  case 'fade':
   mlSetOpacity(ob,0);
   ob.style.display = 'none';
   break;
  case 'blink':
   ob.style.border = '';
   ob.style.display = 'none';
   break;
  case 'shake':
   ob.style.paddingLeft = '';
   ob.style.display = 'none';
   break;
  default:
   ob.style.display = 'none';
   break;
 }
}

function mlEffectLoad(ob)
{
 var parent = ob.parentNode;
 while(parent.parentNode && parent.className.indexOf('mlmenu') == -1)
 {
  parent = parent.parentNode;
 }
 if(parent.className.indexOf('fade') != -1)
 {
  ob.style.display = 'none';
  ob.className = 'fade';
  mlSetOpacity(ob,0);
 }
 else if(parent.className.indexOf('blink') != -1)
 {
  ob.className = 'blink';
  ob.style.display = 'none';
 }
 else if(parent.className.indexOf('shake') != -1)
 {
  ob.className = 'shake';
  ob.style.display = 'none';
 }
 else if(parent.className.indexOf('blindv') != -1)
 {
  ob.className = 'blindv';
  ob.style.display = 'none';
 }
 else if(parent.className.indexOf('blindh') != -1)
 {
  ob.className = 'blindh';
  ob.style.display = 'none';
 }
 else
 {
  ob.className = 'none';
  ob.style.display = 'none';
 }
}

function ancestor(child, parent)
{
 if(child==null)return false;
 //Saves checking elsewhere
 //This is a fix for a Firefox bug *gasp*
 //Aparantly causes a bug in Opera!
 //I see no choice but a browser detect. *sigh* I didn't want to have to do this.
 if(navigator.userAgent.indexOf('Gecko') != -1 && navigator.userAgent.indexOf('Opera') == -1)
 {
  //This should only be run by Gecko based browsers. this code should be fine in everything but Opera so forge away browsers.
  var allc = parent.getElementsByTagName('*');
  for(var i = 0; i < allc.length; i++)
  {
   if(allc[i] == child)
   {
	return true;
   }
  }
 }
 else
 {
  for(; child.parentNode; child = child.parentNode)
  {
   if(child.parentNode == parent) return true;
  }
 }
 return false;
}