function getBrowserType()
{
	var BODY_EL = (document.compatMode && document.compatMode != "BackCompat")?
				 document.documentElement : 
				 document.body ? document.body : null;
	var user_Agent = navigator.userAgent.toLowerCase();
	var Agent_version = navigator.appVersion;
	var isOpera = !!(window.opera && document.getElementById);
	var isOpera6 = isOpera && !document.defaultView;
	var isOpera7 = isOpera && !isOpera6;
	var isMSIE = (user_Agent.indexOf("msie") != -1) && document.all && BODY_EL && !isOpera;
	var isMSIE6 = isMSIE && parseFloat(Agent_version.substring(Agent_version.indexOf("MSIE")+5)) >= 5.5;
	var isNN4 = (document.layers && typeof document.classes != "undefined");
	var isNN6 = (!isOpera && document.defaultView && typeof document.defaultView.getComputedStyle != "undefined");
	var isW3C_compatible = !isMSIE && !isNN6 && !isOpera && document.getElementById;
	if			 (isOpera6)	return "Opera6";
	if			 (isOpera7)	return "Opera7";
	if			 (isMSIE)	return "MSIE";
	if			 (isMSIE6)	return "MSIE6";
	if				(isNN4)	return "Nav4";
	if				(isNN6)	return "Nav6";
	if	 (isW3C_compatible) return "w3c";
	return null;
}
function Clps(obj){
  for (var i=0; i<GlChld[obj.id].length; i++)
   if (
	   ((getBrowserType() == "MSIE") && obj.opnd == 1) ||
               ((getBrowserType() != "MSIE")  && obj.attributes.opnd.value == 1)
	  )
    {

//    if (obj.attributes.opnd.value == 1){
	var nextobj = document.getElementById(GlChld[obj.id][i]);
	if (nextobj)
	 {
	  nextobj.className = "menu_topic_closed";
	  Clps(nextobj);
	 }
    }
}
function Expand(obj){
 var parName = obj.id;
 parName=parName.substring(0,parName.lastIndexOf("_"));
 var GP = document.getElementById(parName);
 if (   (GP==null) ||     (GP!=null)
  &&  (
        ((getBrowserType() == "MSIE") && GP.opnd == 1) ||
        ((getBrowserType() != "MSIE")  && GP.attributes.opnd.value == 1)
	  )
	)
  {
   obj.className = "menu_topic_opened";
     for (var i=0; i<GlChld[obj.id].length; i++)
      {
	 var nextobj = document.getElementById(GlChld[obj.id][i]);
	  if (nextobj)
	    Expand(nextobj);
	}
  }
  else obj.className = "menu_topic_closed";
}
function IsClosed(obj){
 var Closed =(obj.className=="menu_topic_closed");
  for (var i=0; i<GlChld[obj.id].length; i++){
	var nextchild = document.getElementById(GlChld[obj.id][i]);
	if (nextchild)
  	Closed = Closed && IsClosed(nextchild);
  }
 return Closed;
}
function TglState(img_name, lnkd_obj_id){
 var lnkd_obj = document.getElementById(lnkd_obj_id);
 if (!lnkd_obj) return;
 lnkd_obj.className = "menu_topic_closed";
 img_obj = document.getElementById(img_name);
 getstate = IsClosed(lnkd_obj); 
  if (!getstate){
   Clps(lnkd_obj);
   lnkd_obj.className = "menu_topic_opened";
   attachMyAttrib(lnkd_obj, "opnd", 0);
   img_obj.src = img_obj.src.substring(0,img_obj.src.lastIndexOf("_opened.gif"))+".gif";

   var predImage = img_obj.parentNode.getElementsByTagName("img")[0];
   predImage.src = predImage.src.substring(0, predImage.src.lastIndexOf("minus"))+"plus.gif";
  }
  else {
   lnkd_obj.className = "menu_topic_opened";
   attachMyAttrib(lnkd_obj, "opnd", 1);
   Expand(lnkd_obj);
   lnkd_obj.className = "menu_topic_opened";
   img_obj.src = img_obj.src.substring(0,img_obj.src.lastIndexOf(".gif"))+"_opened.gif";
   var predImage = img_obj.parentNode.getElementsByTagName("img")[0];
   predImage.src = predImage.src.substring(0, predImage.src.lastIndexOf("plus"))+"minus.gif";
  }
}
function OpnNxtPage(nextpage){
 var menuItems = document.getElementById("Table2").getElementsByTagName("tr");
 var paraString= "?MenuState=";
 var MyByte=0;
 var powers_of_2 = new Array(1,2,4,8,16,32);
 var Base64Chars= "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789{}";
 var stepno = -1;
  for (var i=0; i<menuItems.length; i++){
	stepno++;
	if (menuItems[i].className=="menu_topic_opened")
	  MyByte += powers_of_2[stepno % 6];
	stepno++;
	if (
	    ((getBrowserType() == "MSIE") && menuItems[i].opnd == 1) ||
	    ((getBrowserType() != "MSIE")  && menuItems[i].attributes.opnd.value == 1)
		)
//	if (menuItems[i].attributes.opnd.value==1)
	  MyByte += powers_of_2[stepno % 6];
	if (stepno==5){
	  paraString += Base64Chars.charAt(MyByte);
	  MyByte = 0;
      stepno = -1;
      }
  }
 if (MyByte)
 paraString += Base64Chars.charAt(MyByte);
 window.open(nextpage+paraString, "_self");
}
function attachMyAttrib(anElement, aName, aValue)
{
 if (getBrowserType().indexOf("MSIE") != -1)
    anElement[aName] = aValue;
 else
 {
	var myNewAttr = document.createAttribute(aName);
	myNewAttr.value = aValue;
	var myOldAttr = anElement.setAttributeNode(myNewAttr);
 }
}
document.getElementsByClassName=function(tagName, clsName){ 
 var arr = new Array(); 
 var elems = document.getElementsByTagName(tagName);
  for ( var cls, i = 0; ( elem = elems[i] ); i++ ){
    if ( elem.className == clsName )
	arr[arr.length] = elem;
  }
 return arr;
}
function 
DrExplain_Menu_Init(){var localvars = document.getElementById("Table2").getElementsByTagName("tr");
TopicCnt = localvars.length;
var clsNames = new Array(TopicCnt);
var VarTOpnd = new Array(TopicCnt);
var Base64Chars= "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789{}";
GlChld=new Array();

GlChld["e"] = new Array ("e_1","e_2","e_3","e_4","e_5","e_6","e_7","e_8","e_9","e_10","e_11","e_12","e_13");

GlChld["e_1"] = new Array ();

GlChld["e_2"] = new Array ();

GlChld["e_3"] = new Array ();

GlChld["e_4"] = new Array ();

GlChld["e_5"] = new Array ();

GlChld["e_6"] = new Array ();

GlChld["e_7"] = new Array ("e_7_1","e_7_2","e_7_3","e_7_4","e_7_5");

GlChld["e_7_1"] = new Array ();

GlChld["e_7_2"] = new Array ();

GlChld["e_7_3"] = new Array ();

GlChld["e_7_4"] = new Array ();

GlChld["e_7_5"] = new Array ();

GlChld["e_8"] = new Array ();

GlChld["e_9"] = new Array ();

GlChld["e_10"] = new Array ();

GlChld["e_11"] = new Array ("e_11_1","e_11_2","e_11_3","e_11_4","e_11_5","e_11_6","e_11_7","e_11_8","e_11_9","e_11_10","e_11_11");

GlChld["e_11_1"] = new Array ();

GlChld["e_11_2"] = new Array ();

GlChld["e_11_3"] = new Array ();

GlChld["e_11_4"] = new Array ();

GlChld["e_11_5"] = new Array ();

GlChld["e_11_6"] = new Array ();

GlChld["e_11_7"] = new Array ();

GlChld["e_11_8"] = new Array ();

GlChld["e_11_9"] = new Array ();

GlChld["e_11_10"] = new Array ();

GlChld["e_11_11"] = new Array ();

GlChld["e_12"] = new Array ("e_12_1","e_12_2","e_12_3","e_12_4","e_12_5","e_12_6");

GlChld["e_12_1"] = new Array ();

GlChld["e_12_2"] = new Array ();

GlChld["e_12_3"] = new Array ();

GlChld["e_12_4"] = new Array ();

GlChld["e_12_5"] = new Array ();

GlChld["e_12_6"] = new Array ();

GlChld["e_13"] = new Array ("e_13_1","e_13_2","e_13_3","e_13_4","e_13_5","e_13_6","e_13_7","e_13_8","e_13_9","e_13_10","e_13_11","e_13_12","e_13_13","e_13_14","e_13_15","e_13_16","e_13_17","e_13_18","e_13_19","e_13_20","e_13_21","e_13_22","e_13_23","e_13_24","e_13_25","e_13_26","e_13_27","e_13_28","e_13_29","e_13_30","e_13_31","e_13_32","e_13_33","e_13_34","e_13_35","e_13_36","e_13_37","e_13_38","e_13_39","e_13_40","e_13_41","e_13_42","e_13_43","e_13_44","e_13_45","e_13_46");

GlChld["e_13_1"] = new Array ();

GlChld["e_13_2"] = new Array ("e_13_2_1","e_13_2_2","e_13_2_3");

GlChld["e_13_2_1"] = new Array ();

GlChld["e_13_2_2"] = new Array ();

GlChld["e_13_2_3"] = new Array ();

GlChld["e_13_3"] = new Array ();

GlChld["e_13_4"] = new Array ();

GlChld["e_13_5"] = new Array ();

GlChld["e_13_6"] = new Array ();

GlChld["e_13_7"] = new Array ();

GlChld["e_13_8"] = new Array ();

GlChld["e_13_9"] = new Array ();

GlChld["e_13_10"] = new Array ();

GlChld["e_13_11"] = new Array ();

GlChld["e_13_12"] = new Array ();

GlChld["e_13_13"] = new Array ();

GlChld["e_13_14"] = new Array ();

GlChld["e_13_15"] = new Array ();

GlChld["e_13_16"] = new Array ();

GlChld["e_13_17"] = new Array ();

GlChld["e_13_18"] = new Array ();

GlChld["e_13_19"] = new Array ();

GlChld["e_13_20"] = new Array ();

GlChld["e_13_21"] = new Array ();

GlChld["e_13_22"] = new Array ();

GlChld["e_13_23"] = new Array ();

GlChld["e_13_24"] = new Array ();

GlChld["e_13_25"] = new Array ();

GlChld["e_13_26"] = new Array ();

GlChld["e_13_27"] = new Array ();

GlChld["e_13_28"] = new Array ();

GlChld["e_13_29"] = new Array ();

GlChld["e_13_30"] = new Array ();

GlChld["e_13_31"] = new Array ();

GlChld["e_13_32"] = new Array ();

GlChld["e_13_33"] = new Array ();

GlChld["e_13_34"] = new Array ();

GlChld["e_13_35"] = new Array ();

GlChld["e_13_36"] = new Array ();

GlChld["e_13_37"] = new Array ();

GlChld["e_13_38"] = new Array ();

GlChld["e_13_39"] = new Array ();

GlChld["e_13_40"] = new Array ();

GlChld["e_13_41"] = new Array ();

GlChld["e_13_42"] = new Array ();

GlChld["e_13_43"] = new Array ();

GlChld["e_13_44"] = new Array ();

GlChld["e_13_45"] = new Array ();

GlChld["e_13_46"] = new Array ();
  if (!location.search.substring(1)){ 
	for(var i=0; i<TopicCnt ; i++)
	  clsNames[i]=		"menu_topic_opened";
   VarTOpnd = new Array 
(1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);

 }
 else{
 var Params = location.search.substring(1).split("?"); 
 var estr = Params[0].split('=')[1];
 var MyByte = 0;
 var MyBB= new Array();
  for (var i = 0; i < estr.length; i++){ 
 	 MyByte = Base64Chars.lastIndexOf(estr.charAt(i));
   for (var j = 0; j< 6; j++) 
   
    if (getBrowserType() == "MSIE")
     MyBB[MyBB.length] = (( (MyByte >>> j) & 1)?1:0);
    else
	 MyBB.push(( (MyByte >>> j) & 1)?1:0);
	
  }
  for (var i=0; i<TopicCnt; i++){
  clsNames[i]=  (MyBB[i*2]==1)?"menu_topic_opened":"menu_topic_closed";
  VarTOpnd[i]= MyBB[i*2+1];
  }
 }

 var pagesToOpen = new Array();
 var pagesToExpand = new Array();
 
 if (document.getElementsByClassName('a','menu_active').length)
 {
   var curPageID = document.getElementsByClassName('a','menu_active')[0].parentNode.parentNode.parentNode.id;
   if (curPageID.lastIndexOf('_') != -1)
	curPageID = curPageID.substring(0, curPageID.lastIndexOf('_'));
   while (curPageID != 'e')
	{
		pagesToOpen[pagesToOpen.length] = curPageID;
		pagesToExpand[pagesToExpand.length] = curPageID;
        for (var i=0; i<GlChld[curPageID].length; i++)
        {
			pagesToOpen[pagesToOpen.length] = GlChld[curPageID][i];
	    }

		curPageID = curPageID.substring(0, curPageID.lastIndexOf('_'));
	}	
  }

 
 var menuItems = document.getElementById("Table2").getElementsByTagName("tr");
 for (var i=0; i<TopicCnt; i++){	
 var curvar = menuItems[i];
	if (curvar){

	var bToOpen = 0;

     for (var j =0;j<pagesToExpand.length;j++)
      {
        if (curvar.id == pagesToExpand[j])
	    {
            VarTOpnd[i] = 1;
            /* Expand(curvar); */
            bToOpen = 1;
          }

      }
 
     for (var j =0;j<pagesToOpen.length;j++)
      {
        if (curvar.id == pagesToOpen[j])
	    {
            bToOpen = 1;
          }

      }

	if (bToOpen == 0 && curvar.id != "e")
	 curvar.className	= clsNames[i];
	else
	 curvar.className	= "menu_topic_opened";

	 
	 attachMyAttrib(curvar, "opnd", VarTOpnd[i]);
	 var imgid = "imag"+curvar.id;
	 if (imgid == "image")
			imgid = "AppImage";
		if (VarTOpnd[i]==1)
		    if (getBrowserType() == "MSIE")
				document.getElementById(imgid).style.cursor = "hand";
			else
				document.getElementById(imgid).style.cursor = "pointer";
		else
			document.getElementById(imgid).style.cursor = "default";
	 var imgpath = document.getElementById(imgid).src;
	 var newpath=imgpath;
	 var indexNum = imgpath.lastIndexOf("_opened.gif");
	 if(indexNum >-1)
		newpath = imgpath.substring(0,indexNum)+".gif"
 	 var DivTag = curvar.getElementsByTagName("td")[0].getElementsByTagName("div")[0];
	 	 if (!GlChld[curvar.id].length && imgid != "AppImage")
		 if (DivTag.style.paddingLeft.length != 0){
		 var iPadding = parseInt(DivTag.style.paddingLeft.substring(0,DivTag.style.paddingLeft.length-2),10) + 15;
		 DivTag.style.paddingLeft = iPadding + "px";
		 }
		if (GlChld[curvar.id].length > 0)
			if (VarTOpnd[i] == 1){
 			 var sSRC = imgpath.substring(0, imgpath.lastIndexOf("bullet"))+"minus.gif";
			 var sStr = '<img style=\"cursor: pointer\" src=\"' + sSRC + '\" alt=\"-\" onclick=\"TglState(';
			 sStr += '\'' + imgid+'\',\''+curvar.id+'\')\" />';
 			 DivTag.innerHTML = sStr + DivTag.innerHTML;
			}
			else{
 			 var sSRC = imgpath.substring(0, imgpath.lastIndexOf("bullet"))+"plus.gif";
			 var sStr = '<img style=\"cursor: pointer\" src=\"' + sSRC + '\" alt=\"+\" onclick=\"TglState(';
			 sStr += '\'' + imgid+'\',\''+curvar.id+'\')\" />';
 			 DivTag.innerHTML = sStr + DivTag.innerHTML;
			};	

	 var chldNum = GlChld[menuItems[i].id].length;
	 if (
			(
			((getBrowserType() == "MSIE")  && (curvar.opnd == "0")) ||
			((getBrowserType() != "MSIE")  &&  (curvar.attributes.opnd.value == "0")) 
			)
		&& chldNum)

		 if (indexNum>-1)
		 document.getElementById(imgid).src = newpath;
	};
 }
 var MenuAncs = document.getElementsByClassName("a", "menu");
 for (var i=0; i<MenuAncs.length; i++)
	MenuAncs[i].href = "javascript:OpnNxtPage(\"" + MenuAncs[i].href + "\");";
 var ActAncs = document.getElementsByClassName("a","menu_active");
 for (var i=0; i<ActAncs.length; i++)
	ActAncs[i].href = "javascript:OpnNxtPage(\"" + ActAncs[i].href + "\");";
 var NavAnchor1 = document.getElementById("a1prev");
 if (NavAnchor1) NavAnchor1.href = "javascript:OpnNxtPage(\"" + NavAnchor1.href + "\");";
 var NavAnchor2 = document.getElementById("a1next");
 if (NavAnchor2) NavAnchor2.href = "javascript:OpnNxtPage(\"" + NavAnchor2.href + "\");";
 var NavAnchor3 = document.getElementById("a2prev");
 if (NavAnchor3) NavAnchor3.href = "javascript:OpnNxtPage(\"" + NavAnchor3.href + "\");";
 var NavAnchor4 = document.getElementById("a2next");
 if (NavAnchor4) NavAnchor4.href = "javascript:OpnNxtPage(\"" + NavAnchor4.href + "\");";
 
 if (document.getElementsByClassName('a','menu_active').length)
 {
 var curPageID = document.getElementsByClassName('a','menu_active')[0].parentNode.parentNode.parentNode.id;
 if (curPageID.lastIndexOf('_') != -1)
	curPageID = curPageID.substring(0, curPageID.lastIndexOf('_'));
 var pagesToOpen = new Array();
/*
	while (curPageID != 'e')
	{
		pagesToOpen[pagesToOpen.length] = curPageID;
		curPageID = curPageID.substring(0, curPageID.lastIndexOf('_'));
	}	

	if (!pagesToOpen.length)
		pagesToOpen[0] = document.getElementsByClassName('a','menu_active')[0].parentNode.parentNode.parentNode.id;

	for (i = pagesToOpen.length - 1; i>=0; i--)
	{
		curPageID = pagesToOpen[i];
			{
				img_name = document.getElementById('imag' + curPageID);
				lnkd_obj_id = curPageID;
				var lnkd_obj = document.getElementById(lnkd_obj_id);
				var getstate_local = IsClosed(lnkd_obj); 
					if (!getstate_local && GlChld[lnkd_obj_id].length || pagesToOpen.length == 1)
					{
						lnkd_obj.className = "menu_topic_opened";
						attachMyAttrib(lnkd_obj, "opnd", 1);
						Expand(lnkd_obj);
						lnkd_obj.className = "menu_topic_opened";
						if (img_name.src.lastIndexOf("_opened.gif") == -1 && img_name.src.lastIndexOf("_opened.gif") < img_name.src.length - 10)
							img_name.src = img_name.src.substring(0,img_name.src.lastIndexOf(".gif"))+"_opened.gif";
						var predImage = img_name.parentNode.getElementsByTagName("img")[0];
						if (predImage.src.lastIndexOf("plus.gif") != -1 && predImage.src.lastIndexOf("plus.gif") == predImage.src.length - 8)
							predImage.src = predImage.src.substring(0, predImage.src.lastIndexOf("plus"))+"minus.gif";
					}
			}
	}
*/
}

}