/* ANATOMIA okt. lapok TWF javascriptek (C) V. Csernus, 2000- vers 05-02-27
level-1 */
var Lang=0; //compatibility - itt csak magyar!
var sLkod=["","e","d"],sLang=["Magyar","English","Deutsch"];
var nLang=sLkod.length,Lang=parseFile(5),cLang=Lang; //lang/szak in filenev= Nev, eNev, dNev, fNev, gNev, egNev, ...
function HKep(Filn,cim,maptxt,align,clas,zScrollB) {with(document){//write xPic HPop(wPic) link
if(typeof(maptxt)!='string'){maptxt=""};if(typeof(clas)!='string'){clas=""}; //compatibilitas!
if(typeof(cim)!='string'){cim=""};if(typeof(align)!='string'){align=""};
var pP=parseFile(4,Filn),pF=parseFile(1,Filn);
write(" ");
}};
function parseFile(v,path,z){ //v: RET flag (ld. lent), path=path, z=code, v=0..1 zFile, =>8 replace Lang code
if(!z){z=""};if(z=="*"){z=sLkod[Lang]}; //to current lang
if(!path){path=document.location.href};if(!v){v=0}; //
var vs=(path.indexOf("\\")<0)?"/":"\\";
var x0=path.indexOf(vs), x1=path.lastIndexOf(vs), x2=path.indexOf(".",x1); //
if(x2<=x1){x2=path.length}; //
var sFnx=path.substring(x1+1),sFn=path.substring(x1+1,x2),sExt=path.substring(x2+1); //File.Ext / File / .Ext
if(x0>0){if(path.substr(0,x0).indexOf(":")>0){while(path.charAt(x0)==vs){x0++}}else{x0=0}}else{x0=0};
var sP=path.substring(x0,x1+1),sPP=path.substring(0,x1+1);
if(v==13){return ((sPP.indexOf("file:")==0)?0:1);};
if(v<5){return [z+sFn,z+sFnx,sExt,sP,sPP][v]}; //v=0..4
//
var i=sFn.search(/[A-Z\d]/),k=0,kz=0; //elso NB v. szam helye
if(i==1||i==2){var s=sFn.substr(0,(v==6)?i:1); // van/lehet nyelv|+szak kod file-nevben, Lang kod csak Chr-1 lehet!
if(v==6){for(var i=1;i=0){kz=i;break;}}}
else{var t=sLkod.join("")+((v==7)?sAllKep:"");k=t.indexOf(s)+1;
if(k){sFn=sFn.substr(1);sFnx=sFnx.substr(1)}}}; //=File-lang code
if(sFn=="index"){z=""};
if(v<13){return [k,kz,k,z+sFn,z+sFnx,sP+z+sFnx,sPP+z+sFnx,sFn][v-5]}; //v=5..12
return ""; //error
};
function HPop(filn,cim,zFlag,maptxt){//popup kep - (file-path, cim(Lang!), kell Anat C, MAP-text
/* USE OR text
maptxt = picture map felirathoz, "Cim|area1|area2|...|arean"
ahol areax=felirat,coord1,coord2...coordn
coord száma: 3=CIRCLE (x, y, radius) 4=RECT (bfx, bfy, jax, jay) >4=POLY AREA x1,y1,x2,y2... */
if(zFlag&0xFC){zFlag=0}; //bit 0=no_copyright, bit1=scrollbar ELSE error (compat)
if(typeof(anatCopyr)=='undefined'){zFlag|=1};
if(typeof(maptxt)!='string'){maptxt=""}; //compatibilitas!
if(typeof(cim)!='string'){cim=""};if(cim.indexOf("~")>=0){cim=txtLang(cim)};
var mapArr=maptxt.split("|"); mapix=mapArr.length;
var scw=screen.availWidth;if(!scw){scw=screen.width-60};
var sch=screen.availHeight;if(!sch){sch=screen.height-60};
var mapExt="",minw=(maptxt)?500:300;
var woff=10,hoff=45+((maptxt)?25:0)+((cim)?15:0)+((zFlag&1)?0:20);
HPopWin=window.open("", "HPopWin","left=0,top=0,width=400,height=400,toolbar=no,location=no,"+
"directories=no,status=no,menubar=no,scrollbars="+((zFlag&2)?"yes":"no"));
HPopWin.focus();
with (HPopWin.document){open("text/html");
writeln(""+((cim)?cim:filn)+"");
writeln("");
writeln("");
writeln("");
if(cim){writeln(""+ cim+" ");};
if(maptxt){writeln(" ");
//ide a MAP rutin
};
writeln(" ");
if((zFlag&1)==0){write(anatCopyr(0));hoff+=20;};
writeln("");close();
}};
function GetPDF(msg){ //Get Acrobat Reader from POTE FTP
with(document){
if(msg)write(["A letöltött PDF file megtekintéséhez ",
"To see the dowloaded PDF file, you need ",
"Zum Lesen der PDF-Dokumente wird der "][Lang]);
write("");
if(msg)write([" kell."," installed."," benötigt"][Lang]);
}};
");
if(msg)write([" kell."," installed."," benötigt"][Lang]);
}};