<!--
function dw(dtext) { document.write(dtext);  }
function MenuEntry(menuImg, name, linkb, MLevel, mID,Descr) {
this.name=name;this.linkb=linkb;this.MLevel=MLevel;this.MenuImage=menuImg;this.mID=mID;this.Descr=Descr;this.SubMenu=new Array();}

function addMenuItem(menuImg, name, linkb, MLevel,Descr) {var xParent; var myMenu; var ILevel = 0;
 for (myMenu = tMenu ; ILevel < MLevel ; ILevel++ ){xParent = myMenu[myMenu.length-1]; myMenu = xParent.SubMenu;}					
 if (myMenu){myMenu.push(new MenuEntry(menuImg, name,linkb,MLevel, ++MenuID, Descr));
  if (MLevel > 0) myMenu[myMenu.length-1].MParent = xParent;
  if (myMenu.length > 1) myMenu[myMenu.length - 2].next = myMenu[myMenu.length-1];} }
function GetMenuRoot(mEntry) { for (var myTop=mEntry; myTop.MLevel>0; myTop=myTop.MParent) ;
   return(myTop); }
function ScanMenu(myMenu, mID) { var myEntry; for (var i=0;i<myMenu.length;i++){
  myEntry = myMenu[i];if (myEntry.mID == mID) return myEntry;
  if (myEntry.SubMenu.length>0){var mySubEntry=ScanMenu(myEntry.SubMenu, mID);if (mySubEntry) return mySubEntry;}} }
function GetMenuItem(mID) {var myEntry=ScanMenu(tMenu,mID);if(myEntry) return myEntry;
 return tMenu[0];}
function writeMenuEntry(myC, Opened){var myImg; 
 dw ('<DIV style="white-space:nowrap;" >');
 if (!Opened) {if (myC.SubMenu.length == 0) myImg = "greendot.gif";else myImg = "greenarrow.gif";
 } else {if (myC.SubMenu.length == 0) myImg = "reddot.gif"; else myImg = "redarrow.gif"}
 for (var i = 0;  i < myC.MLevel;  i++) dw("&nbsp; &nbsp; ");
 dw('<a href = "' + thisPage + '?page='+eval(myC.mID)+'" target="_self">');
 dw('<img src="images/' + myImg + '" width="12" height="12" border="0">');
 dw('&nbsp;' + myC.name + '</a></DIV>'); }
function isSelectable(currentEntry, selEntry) {
 for (var pEntry = selEntry; ; ) {if (pEntry.mID == currentEntry.mID) return true;
  if (! pEntry.MParent) return false;
  pEntry = pEntry.MParent; }}
function writeMenu(myMenu, mySelected) {			
 dw('<TR>');
 for (var i = 0 ; i < myMenu.length ; i++){ var myC = myMenu[i];
  if(!isSelectable( myC, mySelected)){writeMenuEntry(myC, false);}else{writeMenuEntry(myC, true);
    if ((myC.SubMenu.length>0)&&(myC.MLevel<=(mySelected.MLevel))){writeMenu(myC.SubMenu, mySelected);}}}
  if (myMenu[0].MLevel == 0) dw('<br>');
  dw('<TR>');}
//-->

