function find_turn_on_ul(an_obj) { // LOOKS FOR NESTED UL AND TURNS IT ON
	if(an_obj.hasChildNodes()) { for(var i=0; i< an_obj.childNodes.length;i++) {
		if(an_obj.childNodes[i].nodeName =="UL" ) { nest_on(an_obj.childNodes[i]); }
		else find_turn_on_ul(an_obj.childNodes[i]);
	} } }
function nest_on(an_obj) {   //  TAKES AN OBJECT AND TURNS EVERYTHING ON NOT IN NESTED UL
	if(an_obj.nodeName=="LI" || an_obj.nodeName=="A" || an_obj.nodeName=="UL" )  an_obj.style.display = 'block';
	if(an_obj.hasChildNodes()) { for(var i=0; i< an_obj.childNodes.length;i++) { if(an_obj.childNodes[i].nodeName !="UL" ) { nest_on(an_obj.childNodes[i]); }}}
	}
var timerId=0;
function jm(page) {
	var spage=page;
	top_ul_id="main_top"; // Hard Code ID for the UL tag that encloses the menu. 
	clearTimeout ( timerId );
	var top_ul=document.getElementById(top_ul_id); //TURN OFF ALL SUBMENUS
	var s = top_ul.getElementsByTagName('UL'); 	for(var i=0; i< s.length;i++) s[i].style.display = 'none';
	var s = top_ul.getElementsByTagName('LI'); 	for(var i=1; i< s.length;i++) s[i].style.display = 'none';
	var s = top_ul.getElementsByTagName('A'); 	for(var i=1; i< s.length;i++) s[i].style.display = 'none';
	var s = top_ul.getElementsByTagName('A');    // FIND THIS PAGE
	var cur_page="";
	for(var i=0; i< s.length;i++) { 
		attrib=s[i].getAttribute("href");
		if(attrib.substr( 0,7)=="http://")  attrib=attrib.substr(7);  // IE Fix before 8
		if(attrib.charAt(attrib.length-1)=="/")  attrib=attrib.substr(0,attrib.length-1 );  // IE Fix before 8
		if(attrib==page) { var cur_page=s[i]; break; }}
	if(cur_page==""){ page='/'+page;
		for(var i=0; i< s.length;i++) { 
			attrib=s[i].getAttribute("href");			
			tlink=attrib.substr( attrib.length-page.length);
			if(tlink==page) { cur_page=s[i]; break; }}}
	if(cur_page=="" && spage.charAt(0)=="#") {   //  IE6 Issue with pages that have leading # character, used for menu elements without an underlying page
		page=spage.substr(1);
		for(var i=0; i< s.length;i++) { 
			attrib=s[i].getAttribute("href");
			tlink=attrib.substr( attrib.length-page.length);
			if(tlink==page) { var cur_page=s[i]; break; }}}
		if(cur_page=="") cur_page=top_ul.getElementsByTagName('A')[0];
	var work=cur_page;  
	while(work.getAttribute("Id") != top_ul_id  ) {  // WORK TO TOP
		if(work.nodeName=="LI" || work.nodeName=="A" || work.nodeName=="UL")  work.style.display = 'block';
		if(work.nodeName=="UL") nest_on(work);
		work=work.parentNode;
		}
	if(work.getAttribute("Id") == top_ul_id  ) { nest_on(work); } // TOP LEVEL MENU
	par=cur_page.parentNode; // Mouse is over cur_page.  par should be LI, support for A nested in tage.
	while(par.getAttribute("Id") != top_ul_id && par.nodeName!="LI" ) { par=par.parentNode; }  //  FIND LI FOR THIS PAGE, TURN ON NEXT LEVEL UL
	if( par.getAttribute("Id") != top_ul_id) find_turn_on_ul(par);
	if(spage != ' ') timerId = setTimeout ( "jm(' ')", 3000 );
	}