var ie4=document.all
var ns6=document.getElementById&&!document.all

if (ie4||ns6)
document.write('<div id="hdropmenudiv" style="visibility:hidden;width:'+hmenuwidth+';background-color:'+hmenubgcolor+';z-index:100;" onMouseover="hclearhidemenu()" onMouseout="hdynamichide(event)"></div>')

function hgetposOffset(what, offsettype){
var totaloffset=(offsettype=="left")? what.offsetLeft : what.offsetTop;
var parentEl=what.offsetParent;
while (parentEl!=null){
totaloffset=(offsettype=="left")? totaloffset+parentEl.offsetLeft : totaloffset+parentEl.offsetTop;
parentEl=parentEl.offsetParent;
}
return totaloffset;
}


function hshowhide(obj, e, visible, hidden, hmenuwidth){
if (ie4||ns6)
dropmenuobj.style.left=dropmenuobj.style.top=-500
if (hmenuwidth!=""){
dropmenuobj.widthobj=dropmenuobj.style
dropmenuobj.widthobj.width=hmenuwidth
}
if (e.type=="click" && obj.visibility==hidden || e.type=="mouseover")
obj.visibility=visible
else if (e.type=="click")
obj.visibility=hidden
}

function hiecompattest(){
return (document.compatMode && document.compatMode!="BackCompat")? document.documentElement : document.body
}

function hclearbrowseredge(obj, whichedge){
var edgeoffset=0
if (whichedge=="rightedge"){
var windowedge=ie4 && !window.opera? iecompattest().scrollLeft+iecompattest().clientWidth-15 : window.pageXOffset+window.innerWidth-15
dropmenuobj.contentmeasure=dropmenuobj.offsetWidth
if (windowedge-dropmenuobj.x < dropmenuobj.contentmeasure)
edgeoffset=dropmenuobj.contentmeasure-obj.offsetWidth
}
else{
var windowedge=ie4 && !window.opera? iecompattest().scrollTop+iecompattest().clientHeight-15 : window.pageYOffset+window.innerHeight-18
dropmenuobj.contentmeasure=dropmenuobj.offsetHeight
if (windowedge-dropmenuobj.y < dropmenuobj.contentmeasure)
edgeoffset=dropmenuobj.contentmeasure+obj.offsetHeight
}
return edgeoffset
}

function hpopulatemenu(what){
if (ie4||ns6)
dropmenuobj.innerHTML=what.join("")
}


function hdropdownmenu(obj, e, menucontents, hmenuwidth){
if (window.event) event.cancelBubble=true
else if (e.stopPropagation) e.stopPropagation()
hclearhidemenu()
dropmenuobj=document.getElementById? document.getElementById("hdropmenudiv") : hdropmenudiv
hpopulatemenu(menucontents)

if (ie4||ns6){
hshowhide(dropmenuobj.style, e, "visible", "hidden", hmenuwidth)
dropmenuobj.x=hgetposOffset(obj, "left") + hmenushowrightwidth;
dropmenuobj.y=hgetposOffset(obj, "top") + hmenushowrightheight;
dropmenuobj.style.left=dropmenuobj.x-hclearbrowseredge(obj, "rightedge")+"px"
dropmenuobj.style.top=dropmenuobj.y-hclearbrowseredge(obj, "bottomedge")+obj.offsetHeight+"px"
}

return hclickreturnvalue()
}

function hclickreturnvalue(){
if (ie4||ns6) return false
else return true
}

function hcontains_ns6(a, b) {
while (b.parentNode)
if ((b = b.parentNode) == a)
return true;
return false;
}

function hdynamichide(e){
if (ie4&&!dropmenuobj.contains(e.toElement))
hdelayhidemenu()
else if (ns6&&e.currentTarget!= e.relatedTarget&& !hcontains_ns6(e.currentTarget, e.relatedTarget))
hdelayhidemenu()
}

function hhidemenu(e){
if (typeof dropmenuobj!="undefined"){
if (ie4||ns6)
dropmenuobj.style.visibility="hidden"
}
}

function hdelayhidemenu(){
if (ie4||ns6)
delayhide=setTimeout("hhidemenu()",hdisappeardelay)
}

function hclearhidemenu(){
if (typeof delayhide!="undefined")
clearTimeout(delayhide)
}

if (hhidemenu_onclick=="yes")
document.onclick=hhidemenu