function P7_setPM(menuName){ //v1.0 by PVII-www.projectseven.com
	var i,d='',h="<sty"+"le type=\"text/css\">",tA=navigator.userAgent.toLowerCase();
	if(window.opera){
		if(tA.indexOf("opera 5")>-1||tA.indexOf("opera 6")>-1){
			return;
		}
	}
	if(document.getElementById){
		for(i=1;i<20;i++){
			d+='ul ';
			h+="\n#"+menuName+" "+d+"{position:absolute;left:-9000px;}";
		}
		document.write(h+"\n<"+"/sty"+"le>");
	}
}

P7_setPM('p7PMnav');
P7_setPM('p7PMnavBottom');

function P7_initPMCust(arrArg,menuName,openDirection){ //v1.0 by PVII-www.projectseven.com - customize for Pelican
	var i,g,tD,tA,tU,pp,lvl,tn=navigator.userAgent.toLowerCase();
	if(window.opera){
		if(tn.indexOf("opera 5")>-1||tn.indexOf("opera 6")>-1){ return; }
	} else if(!document.getElementById) { 
		return; 
	}
	p7PMp=arrArg;//arguments;
	if (openDirection == 'up') {
		p7PMctBottom=new Array;
	} else {
		p7PMct=new Array;	
	}
	tD=document.getElementById(menuName);
	if(tD){
		tA=tD.getElementsByTagName('A');
		for(i=0;i<tA.length;i++) {
			if (openDirection == 'up') {
				tA[i].p7PMclBottom=p7PMctBottom.length;
				p7PMctBottom[p7PMctBottom.length]=tA[i];
			} else {
				tA[i].p7PMcl=p7PMct.length;	
				p7PMct[p7PMct.length]=tA[i];
			}
			g=tA[i].parentNode.getElementsByTagName("UL");
			if (openDirection == 'up') {
				tA[i].p7PMsubBottom=(g)?g[0]:false;
			} else {
				tA[i].p7PMsub=(g)?g[0]:false;	
			}
			ev=tA[i].getAttribute("onmouseover");
			if(!ev||ev=='undefined'){
				tA[i].onmouseover=function(){
					P7_PMtrig(this,openDirection);
				};
			}
			ev=tA[i].getAttribute("onfocus");
			if(!ev||ev=='undefined'){
				tA[i].onfocus=function(){
					P7_PMtrig(this,openDirection);
				};
			}
			if (openDirection == 'up') {
				if(tA[i].p7PMsubBottom){
					pp=tA[i].parentNode;
					lvl=0;
					while(pp){
						if(pp.tagName&&pp.tagName=="UL"){lvl++;}pp=pp.parentNode;
					}
					tA[i].p7PMlvBottom=lvl;
				}
			} else {
				if(tA[i].p7PMsub){
					pp=tA[i].parentNode;
					lvl=0;
					while(pp){
						if(pp.tagName&&pp.tagName=="UL"){lvl++;}pp=pp.parentNode;
					}
					tA[i].p7PMlv=lvl;
				}
			}
		}
		if (openDirection == 'up') {
			tD.onmouseout=P7_PMcloseUp;
		} else {
			tD.onmouseout=P7_PMclose;
		}
		P7_PMopen(menuName,openDirection);
	}
}


function P7_PMtrig(a,openDirection){ //v1.0 by PVII-www.projectseven.com
	var b,t;
	if (openDirection == 'up') {
		if(document.p7PMtBottom){
			clearTimeout(document.p7PMtBottom);
		}
		document.p7PMaBottom=1;
		b=(a.p7PMsubBottom)?'P7_PMshow(\''+openDirection+'\',':'P7_PMtg(\''+openDirection+'\',';
		t='document.p7PMtBottom=setTimeout("'+b+a.p7PMclBottom+')",160)';
	} else {
		if(document.p7PMt){
			clearTimeout(document.p7PMt);
		}
		document.p7PMa=1;
		b=(a.p7PMsub)?'P7_PMshow(\''+openDirection+'\',':'P7_PMtg(\''+openDirection+'\',';
		t='document.p7PMt=setTimeout("'+b+a.p7PMcl+')",160)';
	}
	eval (t);
}

function P7_PMshow(openDirection,a,bp){ //v1.0.2 by PVII-www.projectseven.com
	var u,lv,lvBottom,oft,ofr,uw,uh,pp,aw,ah,adj,mR,mT,wW=0,wH,w1,w2,w3,sct,pw,lc,pwv,xx=0,yy=0,wP=true;
	var iem=(navigator.appVersion.indexOf("MSIE 5")>-1)?true:false,dce=document.documentElement,dby=document.body;
	if (openDirection == 'up') {
		document.p7PMaBottom=1;
		if(!bp){P7_PMtg(openDirection,a);}
		u=p7PMctBottom[a].p7PMsubBottom;
	} else {
		document.p7PMa=1;
		if(!bp){P7_PMtg(openDirection,a);}
		u=p7PMct[a].p7PMsub;
	}
	if(u.p7pmax&&u.p7pmax==1){return;}
	u.p7pmax=1;
	if (openDirection == 'up') {
		lvBottom=(p7PMp[0]==1&&p7PMctBottom[a].p7PMlvBottom==1)?true:false;
		p7PMctBottom[a].className=p7PMctBottom[a].className.replace("p7PMtrgBottom","p7PMonBottom");
	} else {
		lv=(p7PMp[0]==1&&p7PMct[a].p7PMlv==1)?true:false;
		p7PMct[a].className=p7PMct[a].className.replace("p7PMtrg","p7PMon");
	}
	oft=parseInt(p7PMp[3]);
	ofr=parseInt(p7PMp[4]);
	uw=u.offsetWidth;
	uh=u.offsetHeight;
	if (openDirection == 'up') {
		pp=p7PMctBottom[a];
	} else {
		pp=p7PMct[a];
	}
	aw=pp.offsetWidth;
	ah=pp.offsetHeight;
	while(pp){
		xx+=(pp.offsetLeft)?pp.offsetLeft:0;
		yy+=(pp.offsetTop)?pp.offsetTop:0;
		if(window.opera||navigator.userAgent.indexOf("Safari")>-1){
			if((p7PMct[a].p7PMlv!=1&&pp.nodeName=="BODY")||(p7PMctBottom[a].p7PMlvBottom!=1&&pp.nodeName=="BODY")){
				yy-=(pp.offsetTop)?pp.offsetTop:0;
			}
		}
		pp=pp.offsetParent;
	}
	if(iem&&navigator.userAgent.indexOf("Mac")>-1){
		yy+=parseInt(dby.currentStyle.marginTop);
	}
	adj=parseInt((aw*ofr)/100);
	if (openDirection == 'up') {
		mR=(lvBottom)?0:aw-adj;
		adj=parseInt((ah*oft)/100);
		mT=(lvBottom)?(ah+uh)*-1:(uh)*-1;
		w3=dby.parentNode.scrollLeft;
		if(!w3){w3=dby.scrollLeft;}
		w3=(w3)?w3:0;
	} else {
		mR=(lv)?0:aw-adj;
		adj=parseInt((ah*oft)/100);
		mT=(lv)?0:(ah-adj)*-1;
		w3=dby.parentNode.scrollLeft;
		if(!w3){w3=dby.scrollLeft;}
		w3=(w3)?w3:0;
	}
	if(dce&&dce.clientWidth){
		wW=dce.clientWidth+w3;
	}else if(dby){
		wW=dby.clientWidth+w3;
	}
	if(!wW){wW=0;wP=false;}
	wH=window.innerHeight;
	if(!wH){
		wH=dce.clientHeight;
		if(!wH||wH<=0){wH=dby.clientHeight;}
	}
	sct=dby.parentNode.scrollTop;
	if(!sct){
		sct=dby.scrollTop;
		if(!sct){
			sct=window.scrollY?window.scrollY:0;
		}
	}
	pw=xx+mR+uw;
	if(pw>wW&&wP){
		mR=uw*-1;
		mR+=10;
		if (openDirection == 'up') {
			if(lvBottom){
				mR=(wW-xx)-uw;
			}
		} else {
			if(lv){
				mR=(wW-xx)-uw;
			}	
		}
	}
	lc=xx+mR;
	if(lc<0){mR=xx*-1;}
	pw=yy+uh+ah+mT-sct;
	pwv=wH-pw;
	if(pwv<0){
		mT+=pwv;
		if(uh>wH){
			mT=(yy+ah-sct)*-1;
		}
	}
	u.style.marginLeft=mR+'px';
	u.style.marginTop=mT+'px';
	if (openDirection == 'up') {
		if(p7PMp[2]==1){
			if(!iem){
				P7_PManimUp(a,20);
			}
		}
		u.className="p7PMshowBottom";
	} else {
		if(p7PMp[2]==1){
			if(!iem){
				P7_PManim(a,20);
			}
		}
		u.className="p7PMshow";	
	}
}

function P7_PMhide(u,openDirection){ //v1.0 by PVII-www.projectseven.com
	var i,tt,ua;
	u.p7pmax=0;
	if (openDirection == 'up') {
		u.className="p7PMhideBottom";
		ua=u.parentNode.firstChild;
		ua.className=ua.className.replace("p7PMonBottom","p7PMtrgBottom");
	} else {
		u.className="p7PMhide";
		ua=u.parentNode.firstChild;
		ua.className=ua.className.replace("p7PMon","p7PMtrg");
	}
}

function P7_PMtg(openDirection,a,b){ //v532 alpha by PVII-www.projectseven.com
	var i,u,tA,tU,pp;
	if (openDirection == 'up') {
		tA=p7PMctBottom[a];
	} else {
		tA=p7PMct[a];	
	}
	pp=tA.parentNode;
	while(pp){
		if(pp.tagName=="UL"){break;}
		pp=pp.parentNode;
	}
	if(pp){
		tU=pp.getElementsByTagName("UL");
		for(i=tU.length-1;i>-1;i--){
			if (openDirection == 'up') {
				if(b!=1&&tA.p7PMsubBottom==tU[i]){
					continue;
				}else{
					P7_PMhide(tU[i],openDirection);
				}
			} else {
				if(b!=1&&tA.p7PMsub==tU[i]){
					continue;
				}else{
					P7_PMhide(tU[i],openDirection);
				}
			}
		}
	}
}

function P7_PMclose(evt){ //v1.0 by PVII-www.projectseven.com
	var pp,st,tS,m=true;
	evt=(evt)?evt:((event)?event:null);
	st=document.p7PMa;
	if(st!=-1){
		if(evt){
			tS=(evt.relatedTarget)?evt.relatedTarget:evt.toElement;
			if(tS){
				pp=tS.parentNode;
				while(pp){
					if(pp&&pp.id&&pp.id=="p7PMnav"){
						m=false;
						document.p7PMa=1;
						break;
					}
					pp=pp.parentNode;
				}
			}
			if(m){
				document.p7PMa=-1;
				if(document.p7PMt){
					clearTimeout(document.p7PMt);
				}
				document.p7PMt=setTimeout("P7_PMclr()",360);
			}
		}
	}
}

function P7_PMcloseUp(evt){ //v1.0 by PVII-www.projectseven.com
	var pp,st,tS,m=true;
	evt=(evt)?evt:((event)?event:null);
	st=document.p7PMaBottom;
	if(st!=-1){
		if(evt){
			tS=(evt.relatedTarget)?evt.relatedTarget:evt.toElement;
			if(tS){
				pp=tS.parentNode;
				while(pp){
					if(pp&&pp.id&&pp.id=="p7PMnavBottom"){
						m=false;
						document.p7PMaBottom=1;
						break;
					}
					pp=pp.parentNode;
				}
			}
			if(m){
				document.p7PMaBottom=-1;
				if(document.p7PMtBottom){
					clearTimeout(document.p7PMtBottom);
				}
				document.p7PMtBottom=setTimeout("P7_PMclrUp()",360);
			}
		}
	}
}


function P7_PMclr(){ //v1.0 by PVII-www.projectseven.com
	var i,tU,tUU;
	document.p7PMa=-1;
	tU=document.getElementById("p7PMnav");
	if(tU){
		tUU=tU.getElementsByTagName("UL");
		if(tUU){
			for(i=tUU.length-1;i>-1;i--){
				P7_PMhide(tUU[i]);
			}
		}
	}
}


function P7_PMclrUp(){ //v1.0 by PVII-www.projectseven.com
	var i,tU,tUU;
	document.p7PMaBottom=-1;
	tU=document.getElementById("p7PMnavBottom");
	if(tU){
		tUU=tU.getElementsByTagName("UL");
		if(tUU){
			for(i=tUU.length-1;i>-1;i--){
				P7_PMhide(tUU[i]);
			}
		}
	}
}

function P7_PManim(a,st){ //v1.0 by PVII-www.projectseven.com
	var g=p7PMct[a].p7PMsub,sp=30,inc=20;
	st=(st>=100)?100:st;
	g.style.fontSize=st+"%";
	if(st<100){
		st+=inc;
		setTimeout("P7_PManim("+a+","+st+")",sp);
	}
}

function P7_PManimUp(a,st){ //v1.0 by PVII-www.projectseven.com
	var g=p7PMctBottom[a].p7PMsubBottom,sp=30,inc=20;
	st=(st>=100)?100:st;
	g.style.fontSize=st+"%";
	if(st<100){
		st+=inc;
		setTimeout("P7_PManimUp("+a+","+st+")",sp);
	}
}

function P7_PMmark(){
	document.p7PMop=arguments;
	document.p7PMopBottom=arguments;
}

function P7_PMopen(menuName,openDirection){ //v1.0 by PVII-www.projectseven.com
	var i,x,tA,op,pp,wH,tA,aU,r1,k=-1,kk=-1,mt=new Array(1,'','');
	if (openDirection == 'up') {
		if(document.p7PMopBottom){
			mt=document.p7PMopBottom;
		}
	} else {
		if(document.p7PMop){
			mt=document.p7PMop;
		}	
	}
	op=mt[0];
	if(op<1){return;}
	tA=document.getElementById(menuName).getElementsByTagName("A");
	wH=window.location.href;r1=/index\.[\S]*/i;
	for(i=0;i<tA.length;i++){
		if(tA[i].href){
			aU=tA[i].href.replace(r1,'');
			if(op>0){
				if(tA[i].href==wH||aU==wH){
					k=i;
					kk=-1;
					break;
				}
			}
			if(op==2){
				if(tA[i].firstChild){
					if(tA[i].firstChild.nodeValue==mt[1]){kk=i;}
				}
			}
			if(op==3 && tA[i].href.indexOf(mt[1])>-1){kk=i;}
			if(op==4){
				for(x=1;x<mt.length;x+=2){
					if(wH.indexOf(mt[x])>-1){
						if(tA[i].firstChild&&tA[i].firstChild.data){
							if(tA[i].firstChild.data==mt[x+1]){
								kk=i;
								break;
							}
						}
					}
				}
			}
		}
	}
	k=(kk>k)?kk:k;
	if(k>-1){
		pp=tA[k].parentNode;
		while(pp){
			if(pp.nodeName=="LI"){
				if (openDirection == 'up') {
					pp.firstChild.className="p7PMmark"+" "+pp.firstChild.className;
				} else {
					pp.firstChild.className="p7PMmarkBottom"+" "+pp.firstChild.className;
				}
			}
			pp=pp.parentNode;
		}
	}
	if(kk>-1){
		if (openDirection == 'up') {
			document.p7PMadBottom=1;
		} else {
			document.p7PMad=1;
		}
	}
	P7_PMadma(menuName,openDirection);
	P7_PMadmb(menuName,openDirection);
}

function P7_PMadma(menuName,openDirection){ //v1.0 by PVII-www.projectseven.com
	var s,ss,i,j,a,g,b,c,d,t,h,tA,b,tP,r1,r2,tI,bA,aA,tB=new Array(),bC='',x=0,ur=1;
	if (openDirection == 'up') {
		var mt=document.p7PMadBottom;
	} else {
		var mt=document.p7PMad;
	}
	g=document.getElementById(menuName);
	b=document.getElementById("pmmcrumb");
	if(g&&b){
		c=b.getElementsByTagName("A");
		if(c&&c[0]){
			tP=c[0].parentNode.childNodes;
			r1=/<a/i;r2=/\/a>/i;
			tI=c[0].parentNode.innerHTML;
			j=tI.search(r1);
			bA=tI.substring(0,j);
			j=tI.search(r2);
			aA=tI.substring(j+3);
			bC+=(bA)?bA:'';
			s=(aA)?aA:' &gt ';
			if(!c[0].id||c[0].id!="pmmcn"){
				if(c[0].href!=window.location.href){
					tB[0]=c[0];
					x++;
					ur=2;
				}
			}
			tA=g.getElementsByTagName("A");
			for(i=0;i<tA.length;i++){
				if (openDirection == 'up') {
					if(tA[i].className.indexOf("p7PMmarkBottom")>-1){
						tB[x]=tA[i];x++;
					}
				} else {
					if(tA[i].className.indexOf("p7PMmark")>-1){
						tB[x]=tA[i];x++;
					}
				}
			}
			for(i=0;i<tB.length;i++){
				ss=(i>0)?s:'';
				a=(i==tB.length-1)?0:1;
				d=(i==0&&c[0].id)?'id="'+c[0].id+'" ':' ';
				t=tB[i].firstChild.nodeValue;
				if(a==1||mt==1||x<ur){
					bC+=ss+'<a '+d+'hr'+'ef="'+tB[i].href+'">'+t+'</a>';
				} else {
					bC+=ss+t;
				}
			}
			if(mt==1||i<ur){
				ss=(i>0)?s:'';bC+=ss+document.title;
			}
			c[0].parentNode.innerHTML=bC;
		}
	}
}

function P7_PMadmb(menuName,openDirection){ //v1.0 by PVII-www.projectseven.com
	var h='',g,i,tA,b,m=false;
	g=document.getElementById(menuName);
	b=document.getElementById("pmmnext");
	if(g&&b){
		tA=g.getElementsByTagName("A");
		for(i=tA.length-1;i>-1;i--){
			if (openDirection == 'up') {
				if(tA[i].className.indexOf("p7PMmarkBottom")>-1){
					m=true;
					break;
				}
			} else {
				if(tA[i].className.indexOf("p7PMmark")>-1){
					m=true;
					break;
				}
			}
		}
		if(m){
			if(i<tA.length-1){
				i++;
			} else { 
				i=0;
			}
			while(tA[i].href==window.location.href+"#"||tA[i].href=="javascript:;"){
				i++;
				if(i>tA.length-1){
					i=0;
					break;
				}
			}
			b.href=tA[i].href;
			b.innerHTML=tA[i].firstChild.nodeValue;
		}
	}	
}