var dom=document.getElementById;

function scrollscroller(){
	if (ObjScrollFlag.innerHTML=="false" && parseInt(ObjScroll.style.top)==(actualheight*(-1)+140)) return; 
	if (parseInt(ObjScroll.style.top)>(actualheight*(-1)+8))
 		ObjScroll.style.top=parseInt(ObjScroll.style.top)-ScrollerSpeed+"px";
 	else{
 		ObjScroll.style.top="153px";
	}
}

function pause(){
	ScrollerSpeed=0;
}

function play(){
	ScrollerSpeed=ScrollerSpeedMem;
}

function ChangeMenu(pLink){
	if (!dom) return; //not modern browser then do not execute script
	OldObj=(ObjMenuPos.innerHTML!="") ? document.getElementById(ObjMenuPos.innerHTML) : false; 
	OldAssayObj=(ObjSubMenuPos.innerHTML!="") ? document.getElementById(ObjSubMenuPos.innerHTML) : false;
	NewObj=document.getElementById(pLink);
	ChangeSelection(OldObj, NewObj);
	if (NewObj.id=="Imagen") ObjScrollFlag.innerHTML="true"; else ObjScrollFlag.innerHTML="false";
	if (NewObj.id!="Catalogue" && OldAssayObj){
		a=document.getElementById("BoxMenu");
		a.style.color="black";
		ChangeSelection(OldAssayObj);
		ObjSubMenuPos.innerHTML="";
	}
	ObjMenuPos.innerHTML=pLink;
}

function ChangeAssayMenu(pLink){
	OldObj=(ObjMenuPos.innerHTML!="") ? document.getElementById(ObjMenuPos.innerHTML) : false; 
	OldAssayObj=(ObjSubMenuPos.innerHTML!="") ? document.getElementById(ObjSubMenuPos.innerHTML) : false;
	NewAssayObj=document.getElementById(pLink);
	document.getElementById("ScrollFlag").innerHTML="false";
	if (OldObj.id!="Catalogue") ChangeMenu("Catalogue");
	a=document.getElementById("BoxMenu");
	a.style.color="#e40059";
	ChangeSelection(OldAssayObj, NewAssayObj);
	ObjSubMenuPos.innerHTML=pLink;
}

function ClearMenus(){
	StopScroll();
	if (ObjMenuPos.innerHTML!="") ChangeSelection(document.getElementById(ObjMenuPos.innerHTML),false);
}

function StopScroll(){
	window.top.document.getElementById("ScrollFlag").innerHTML="false";
}

function ChangeSelection(pOld, pNew){
	var label
	if (pOld){
		a=findchild(pOld,"#text");
		a.nodeValue="";
		a=findchild(pOld,"A");
		a.style.display="inline";
	}
	if (pNew){
		a=findchild(pNew,"A");
		label=a.innerHTML;
		a.style.display="none";
		a=findchild(pNew,"#text");
		if (a)
			a.nodeValue=label;
		else{
 			var TextNode=document.createTextNode(label);
			pNew.appendChild(TextNode);
		}
	}
}

function findchild(obj,tag){
	cn=obj.childNodes;
	for (k=0; k<cn.length; k++){
		if (cn[k].nodeName==tag) return cn[k];
	}
	return false;
}

if (dom){ //if not modern dom based browser then do not execute any Java Script
	var ScrollerSpeed=1;
	ScrollerSpeed=(document.all) ? ScrollerSpeed : Math.max(1, ScrollerSpeed-1);
	var ScrollerSpeedMem=ScrollerSpeed;
	var actualheight='';
	var ObjScroll;
	var ObjScrollFlag=document.getElementById("ScrollFlag");
	var ObjMenuPos=document.getElementById("MenuPos");
	var ObjSubMenuPos=document.getElementById("SubMenuPos");
	ObjScroll=(document.getElementById) ? document.getElementById("Scroll"): document.all.Scroll;
	ObjScroll.style.top="153px";
	ObjScroll.onmouseover=pause;
	ObjScroll.onmouseout=play;
	actualheight=ObjScroll.offsetHeight;
	ChangeMenu("Imagen");
	lefttime=setInterval("scrollscroller()",40);
	if (location.search){
		if (location.search.indexOf("AssayExamples")<0)
			document.getElementById("BodyFrame").src=location.search.substr(location.search.lastIndexOf("/")+1);
		else{
			document.getElementById("BodyFrame").src= "AssayExamples" + location.search.substr(location.search.lastIndexOf("/"));
			ChangeAssayMenu(location.search.substring(location.search.lastIndexOf("/")+1,location.search.length-5));
		}
		if (location.hash.substr(1)!="Imagen") ChangeMenu(location.hash.substr(1));
	}
}