/* ANATOMIA okt. lapok torzs-javascriptek (C) V. Csernus, 2000-2006 vers. 06-01-20
	WEB-root-ba tenni!!! (reference!), 
	link: (HEAD)  <SCRIPT LANGUAGE='JavaScript' SRC=???/'anat1.js'></SCRIPT> */

//document.CharSet="Windows-1250";
var Szint=autoLev();
var FSorL=0,FSorN=0,FSorF=0;
document.write("<SCRIPT TYPE='text/javascript' SRC='"+Szint+"anat0.js'></SCRIPT>");
// HTML-be

//============================= functions ========================================

function aHead(cim,vS,script,upLink,pdf){	// uj anatHead
	vNyomt=dCookie("reRun");if(!vNyomt||vNyomt>1){vNyomt=0};
	var focim=cim,alcim="",vt=0,v=0,vo=0,vtb="",vp=0,is=0,i=0;
	i=getCode("lbkzd",vS);if(i>0){vt=i;v=7;vtb=" bkzd".substr(i,1);vNyomt=0;dCookie("reRun",null,-1)};		//b k z d oldal
	i=getCode("tT",vS);if(i>=0){v=v&254|i};		//table on/off
	i=getCode("wW",vS);if(i>=0){v=v&253|(2*i)};		//zaszlok on/off
	if(v&2){i=getCode("Q",vS);if(i==0){v=v|32}};	//nemet zaszlo ne
	i=getCode("cC",vS);if(i>=0){v=v&251|(4*i)};		//logo on/off
	if(vS.indexOf("v")>=0){v|=8};			//NO <HR> vegen, 
	if(vS.indexOf("P")>=0){v|=17;vt=0;vo=0};			//personal page, 
	vp=vt==0;
	if(vS.indexOf("p")>=0){vp=0;vNyomt=0};			//no printer
	if(!vt){i=getCode("AHFN",vS);if(i<0){i=0};vo=i+1; //anat szov fejl neuroanat 1..4
		if(vS.indexOf("E")>=0){vo|=8};//ea /[gyak], 
		i=getCode("123",vS);if(i>=0){is=i+1}}; //semester
	if(!vt||vt==3){i=getCode("gf",vS);if(i>=0){vo|=16*(i+1)}};		//gyogyszeresz/fogorvos
	if(vt==3&&(vo&48)==0){vo|=16};		//if "z" + No def = gyogyszeresz
	if(vNyomt){v&=!(2+4)};
//
	var prm="",sc="",vtP=vt||(v&16),vBFJ=((vt)?16:0)+((v&2)?7+(v&32):1);			//prm for future - body prm-s / sc=closing line
	with(document){
		writeln("<TITLE>UP-MS-Anatomy ("+parseFile(0)+")</TITLE><META name=Author CONTENT=\"Csernus V.\">");
 		writeln("<LINK REL='stylesheet' TYPE='text/css' HREF='"+Szint+"okt_sty.css'>");
		if (script) {var s=script.split(",");for(var i=0;i<s.length;i++){
			writeln("<SCRIPT TYPE='text/javascript' SRC='"+Szint+s[i]+".js'></SCRIPT>");}};
		var s=(vt)?"Csik"+vtb+".gif":"Vaszon"+((v&16)?"_p8":"")+".jpg";
		s=(vNyomt)?"background-color: white":"background-image: url("+Kep+s+")";
		if(vtP){s+="; background-repeat: repeat-y; background-color: black; "};		//NS csak igy veszi be a repeat-y-t
		s="<STYLE type='text/css'> BODY.as \{ "+((tb>td)?s:"background-color: black")+"; \}</STYLE>";
		write(s+"</HEAD><BODY CLASS=as "+((prm)?prm:"")+"><A NAME='@'></A>");
		if (v&1){write("<TABLE ALIGN=LEFT WIDTH=780 BORDER=0><TR>")};
		if (vt) {write("<TD WIDTH=150 VALIGN=top>");
			write("<IMG SRC='"+Kep+"Pcim"+vtb+"bar.gif' BORDER=0 WIDTH=100 HEIGHT=112 class=my>");
			if(NS4)write("<spacer type='horizontal' size='20'>");
			write("<BR CLEAR='all'>");bfjset("",upLink,"",vBFJ);upLink="";	
			write("<SPAN class=my>&nbsp;</SPAN></TD><TD ALIGN=center>");
			if(v&4){anatLogo(vtb)};
			sc="</TD></TR><TR><TD VALIGN=top ID='NChr'>";}
		else {if(v&4){anatLogo("v")};if(v&1){sc="<TD>"}};				// szovettan, stb. oldalak, upLink lehet "bal~fel~jobb"
//
		if(v&16){sc+=bfjset("~*",9);		//spec - itt Anat egyeni oldalak
			sc+="<IMG class=fr SRC='"+Kep+"eAnat_Pp.jpg'>";
			sc+="<IMG CLASS=frf SRC='w"+pdf+".jpg' width=120 height=150>";
			sc+="<BR clear=left><SPAN CLASS=pnev>"+cim+"</SPAN><BR clear=left>"}
		else{
		 if(cim.substr(0,1)=="/"){alcim=cim.substr(1);
		 	var i=Lang;if(vo&16){i+=3}else{if(vo&32){i+=6}};
		 	var hallt=["","for ","für "][Lang]+txtLang(sSzak[Szak])+
		 		[" hallgatók számára"," students","studierende"][Lang];		
			if(!vt){focim=txtLang(["Anatómia~Anatomy~Anatomie","Szövettan~Histology~Histologie",
				"Fejlődéstan~Embryology~Embriologie","Neuroanatómia~Neuroanatomy~Neuroanatomie"][(vo&7)-1]);
				if(is){focim+="-"+is};
				focim+=" "+txtLang((vo&8)?"előadások~lectures~Vorlesungen":"gyakorlatok~practices~Übungen");
				focim+=" "+hallt}
			else{focim=["Oktatási anyag","Teaching supplement","Lernhilfe"][Lang]+"<BR>"
				focim+=hallt;}};		
		 if(focim){write("<H2>"+focim+"</H2>")};
		 if(alcim){write("<H3>"+alcim+"</H3>")};
		 if(vp){write(prFunct())};
		 if(!vNyomt){if(upLink){bfjset("",upLink,"",vBFJ)};linkPDF(pdf,2)};
		 if(!(v&8)){write("<HR>")}};
		write(sc);
}};

function ttBlock(tt,ttc){ //tantárgy link block (tajekoztata-ea-gyak - tt=tárgy neve, tc=link-kódja
	with(document){
		write("<P class=p1><SPAN CLASS=bw> "+tt+" </SPAN><BR>");
		write("<A HREF='"+ttc+"info.htm' CLASS=wm>"+txtLang("Tájékoztató~Info~Informationen")+"</A><BR>");
		write("<A HREF='"+ttc+"ea.htm' CLASS=wm>"+txtLang("Előadások~Lectures~Vorlesungen")+"</A><BR>");
		write("<A HREF='"+ttc+"gy.htm' CLASS=wm>"+txtLang("Gyakorlatok~Practices~Übungen")+"</A></P>");
}};


function HTsor(s){	//tabla sor link~link szoveg~uj <TD>~uj<TD>...
	if(!s){return};sA=s.split("~");
	var t="<TR><TD>",r=(sA[1])?sA[1]:"&nbsp;";
	if(sA[0]){t+="<A HREF='"+sA[0]+"' CLASS=wm>"+r+"</A>"}else{t+=r};
	for(var i=2;i<sA.length;i++){t+="</TD><TD>"+((sA[i])?sA[i]:"&nbsp;")};
	document.write (t+"</TD></TR>");
};
	
function anatEnd(copyr,flag,scrpt) {with (document){ // doc end info, copyr = ""|@|<sNameCodes>, 
	var cc=1; //copyr ""=no, "@"=csak en, else <xx>~<yy>~.. = XX+YY+@, if #<xx>~... = en nem
	if(flag&16){write("</TABLE>")};	
	write("<P>");if(flag&1) {anatSep()} else{write("<HR CLASS=mc>")};
  	write("<DIV align=center>"); //flag 1=anatSep [HR], 2=docDate 4=</TR></TD></TABLE> 4||8=<CENTER>
  		if(copyr){var cTxt="";
  			if(copyr.indexOf("#")>-1){copyr=copyr.replace(/#/,"");cc=0;};	//16= </TABLE> elejen (ld. FEnd)
			if(copyr!="@"){sC=copyr.split("~");
				for(var i=0;i<sC.length;i++){cTxt=cTxt+((cTxt)?", ":"")+getAName(sC[i],1)}};
			write(["Az Internetes oktatási anyaggal kapcsolatos véleményét és javaslatait szívesen fogadja",
				"Your comments, suggestions are welcome by","Wir freuen uns auf Ihre Ideen und Propositionen!"][Lang]+":<BR>");
			if(cTxt&&cc){cTxt+=[" és "," and "," und "][Lang]};
			if(cc){cTxt+=getAName("@",1)};
			write(cTxt+"<BR>")};
	write(anatCopyr(flag)+"</DIV></P>");
	if(flag&4){write("</TD></TR></TABLE>")};
	write("</BODY></HTML>");close();
	if(scrpt){eval(scrpt)};
}};


function FHead(cim,bfj,v,pdf){  //ea/gyak tbl. head -  bfj="b~f~j",  v=flag(bitm) 1=+eloado nev 2=fixed row-height (36),  
	FSorN=0;FSorL=0,FSorF=v; //auto #-hez - flag to pass
	if(!(v&16)){aHead(cim,((v&64)?"":"W")+((v&32)?"":"C"),"",bfj,pdf)};		// 4=border, 8=anat + szöv gyak., 16=skip aHead(), 32=plain tbl, 64=no flg
	if(v&32){v^=9};
	with(document){
		write("<STYLE>TD{vertical-align: middle;"+((v&2)?" height: 36;":"")+"}</STYLE>");
		write("<TABLE width=640"+((v&4)?" border=1":"")+">");
		if(!(v&32)){var s="<TD ID=bor width=32>"+["hét","week","Woche"][Lang]+"</TD>";
		if(v&8){s+="<TD ID=boc>"+["anatómia","anatomy","Anatomie"][Lang]+"</TD>"+
				  "<TD ID=boc>"+["szövettan","histology","Histologie"][Lang]+"</TD>";}
		else{s+="<TD ID=boc>"+["Téma","Topic","Thema"][Lang]+"</TD>";
			if(v&1){s+="<TD ID=boc width=140>"+["Előadó","Lecturer","Dozent"][Lang]+"</TD>"}};
		writeln("<TR>"+s+"</TR>");
}}};

function FSor(n,ea,cim){with(document){// ea/gyak tbl sor, 
	var s="";								//n=het (0=ua het masodik ea), ea=eloado nevjele (""=0, #=gyak1 rowspan!)
	if(cim==" "){cim="&nbsp;"};						//cim = ea/gyak tema, "cim~cim" = 2 gyakorlat (anat+szöv) 
	if(n==-1){n=FSorN;FSorN++}else{if(n<0){n=FSorL}};	//-1=emelkedo szam, -2=a sor szama
	write("<TR>");
	if(FSorF&32){var ti=(FSorL==0)?"<TD ID=boc>":"<TD>",sA=cim.split("|");
		if(n){write("<TD ID=bor width=32>"+String(n)+"</TD>")};
		for(i=0;i<sA.length;i++){var t=txtLang(sA[i]); write(ti+((t)?t:"&nbsp")+"</TD>")}}
	else{if(ea){if(typeof(ea)=='number'){s=" rowspan="+String(ea)}};	
		write("<TD ID=bor>"+((n)?aSorsz(n):"&nbsp;")+"</TD>");
		if(cim){cim=cim.replace(/^~/,"&nbsp~");cim=cim.replace(/~$/,"~&nbsp");cim=cim.replace(/~~/,"~&nbsp~");
	  		write("<TD"+s+">"+((n)?"":"- ")+cim.replace(/~/,"</TD><TD>"))};
		if(ea&&!s){if(ea.indexOf("~")>0){var t=ea.split("~");for(var i=0;i<t.length;i++){s+=((i>0)?"<BR>":"")+getAName(t[i])}}
				else{s=getAName(ea)};
				write("</TD><TD>"+s)}write("</TD>")};
	write("</TR>");
	FSorL++;
}};

function FEnd(cr){anatEnd(cr,19);
};

function vPlay(n){	//play .wmv file on Player Obj. - file name in rV radio-button series 
	var o=getObj("Player"),oc=o.controls; //rV.value="<fielnev>[^n][*]"  n=repeat #, *=BIG=384x288 size
	if(!n){oc.pause();return}; 						//n: 0=stop,1=start-small (192x144), 2=big (320x240 | 384x288)
	var sn="",t="",vr=1,i=0,k=getObj("rV",0,-1);
	for(var i=0;i<k;i++){var oo=getObj("rV",0,i);if(oo.checked){sn=oo.value;break}};
	if(sn.indexOf("*")>0){sn=sn.replace(/[*]/gi,"");if(n==2){n=3}};
	i=sn.indexOf("^");if(i>=0){t=sn.substr(i+1);sn=sn.substr(0,i);if(t){vr=Number(t)}};
	if(n==1){sn="x"+sn};
	var sm=o.URL;if(sm){sm=parseFile(12,sm)};
	if(sm!=sn){o.width=[192,320,384][n-1];o.height=[144,240,288][n-1]+66;o.URL=sn+".wmv";
		if(vr>1){o.settings.playCount=vr}};
	oc.play();	
};

function vPlayA(n){ //start/stop statikus (csak egy programot játszó) "Player" player object - 0=pause, 1=play, undef=switch
	var o=getObj("Player"),z=n;
	if(typeof(z)=="undefined"){z=(o.playState==3)?0:1};
	if(z){o.controls.play()}else{o.controls.pause()};status=z;
	return z;
};

//============================= BELSŐ ============================================

function autoLev(){		//relative path to root (.js)
	var ss=document.firstChild.innerHTML,i=ss.indexOf("anat1.js");
	if(i>0){var j=ss.lastIndexOf("\"",i);if(j<0){j=ss.lastindexOf("'",i)};return ss.substring(j+1,i)};
};
	