//Javascript routines. Layout and date routines. "zlh8.js"
//author P. Van der Gucht
//Copyright 2002-2008
//Freeware, provided 5 top-lines are kept in place.
//Version StB 2008

//Kalender
var nu = new Date();
var Jaar = nu.getFullYear();
var Maand = nu.getMonth(); 
var MdDag = nu.getDate(); 
var WkDag = nu.getDay();
var DUur = nu.getHours(); 
//------------------------
var D0 = 100 * (Maand + 1) + MdDag;	
var DU0 = D0 * 100 + DUur;
var DJ0 = (Jaar % 100) * 10000 + D0;
var DJU0 = DJ0 * 100 + DUur;
//-------------------------
var Mnd = new Array('','januari','februari','maart','april','mei','juni','juli','augustus','september','oktober','november','december','januari');
var EMnd = new Array('January','February','March,','April','May','June','July','August','September','October','November','December');
var VMnd = new Array('','jan','feb','mar,','apr','mei','jun','jul','aug','sep','okt','nov','dec');
var DagW = new Array('Zo','Ma','Di','Wo','Do','Vr','Za');
var dow = new Array('zondag','maandag','dinsdag','woensdag','donderdag','vrijdag','zaterdag');
var mdlen = new Array(31,28,31,30,31,30,31,31,30,31,30,31);
mdlen[1] = ((!(Jaar%4))&&(Jaar%100)) ? 29 : 28;
var jrlen = 0;	// dagen in het lopende jaar
for (i=0;	i<12;	i++)
	jrlen += mdlen[i];
var FileDatum, vlg, NMaand, Datnr, WDoeldag, MDoeldag, i;
//--------------------------
//Algemeen
var sfg = "#000000";
var sbg = "#FFFFFF";
var Tekst, tkleur, bgkleur, dikte, SL, SR, titel, bdt;
var meer, sysdag, Show, inh, me, he;
var bdte = screen.width;
var hgte = screen.height;
var sb = screen.width/1024;
var op = (navigator.userAgent.search(/Opera/)>=0);
var ie = ((navigator.userAgent.search(/MSIE.+/)>=0)||(op));
var ff = (navigator.userAgent.search(/Firefox/)>=0);
var saf = (navigator.userAgent.search(/Safari/)>=0);
//--------------------------
//Andere
var mt = 'mailto:', at = '&#64;';
var dev = 1;

//-------------------------------------------------------------------------------------------
//-----------------------------------------LAYOUTFUNCTIES------------------------------------
//-------------------------------------------------------------------------------------------

function BigT()	{
	Tekst = "";
	tkleur = "#FFFFFF";
	bgkleur = sfg;
	dikte = "6";
	bdt = "99.5%";
	L = arguments.length;
	if (L){
		Tekst = arguments[0];
		if (L > 1){
			tkleur = arguments[1];
			if (L > 2){
				bgkleur = arguments[2];
				if (L > 3)
					dikte = arguments[3];
	}	}	}
	document.write('<DIV align="center"><TABLE width=',bdt,' cellpadding=10 cellspacing=0 border=0><TR>');
	document.write('<TD bgcolor=',bgkleur,' align="center"><FONT size=',dikte,' face="Tahoma" color=',tkleur,'><B><I>&nbsp;',Tekst,'&nbsp;</I></B></FONT></TD>');
	document.write('</TR></TABLE></DIV>');
}

function SmallT()	{
	Tekst = "";
	tkleur = '#FFFFFF';
	bgkleur = sfg;
	dikte = "4";
	al = "center";
	L= arguments.length;
	if (L){
		Tekst = arguments[0];
		if (L > 1){
			tkleur = arguments[1];
			if (L > 2){
				bgkleur = arguments[2];
				if (L > 3){
					dikte = arguments[3];
					if (L > 4)	{
						al = arguments[4];
	}	}	}	}	}
	document.write('<DIV align="',al,'">');
	document.write('<TABLE cellpadding=5><TR>');
	document.write('<TD bgcolor=',bgkleur,' align="center"><FONT size=',dikte,' face="Tahoma,sans-serif" color=',tkleur,'><B><I>&nbsp;',Tekst,'&nbsp;</I></B></FONT></TD>');
	document.write('</TR></TABLE></DIV>');
}

function nSmallT()	{
	document.write('<DIV align="center">');
	document.write('<TABLE width="100%"><TR><TD style="width:20%;background:',sbg,';">&nbsp;</TD>');
		document.write('<TD bgcolor=',sbg,' align="center">');
	if ((arguments.length)||(arguments[0]==''))
		document.write('<TABLE cellpadding=5><TR><TD bgcolor=',sfg,' style="font:italic 13.5pt Tahoma,sans-serif;color:#FFFFFF;text-align:center">&nbsp;<B>',arguments[0],'</B>&nbsp;</TD></TR></TABLE>');	
	else
		document.write('&nbsp;');
	document.write('</TD><TD width="20%" style="background:',sbg,';text-align:right"><A style="decoration:none;" href="#" onClick="moveOnMenu();moveOffSelector()"><IMG src="pic/Alm.gif"></A></TD></TR></TABLE></DIV>');
}

function tempSmallT()	{
if (DU0 <= arguments[1])
	SmallT(arguments[0],'',arguments[2],arguments[3],arguments[4],arguments[5]);
}

function miniT()	{
var Tx;
	Tx = arguments[0];
	if (Tx.toUpperCase() == 'SJ')
		Tx = 'Sint-Jozef';
	if (Tx.toUpperCase() == 'SL')
		Tx = 'Sint-Laurentius';
	document.write('<DIV align="left"><TABLE cellpadding=0 cellspacing=0><TR>');
	document.write('<TD bgcolor=',sfg,' align="center"><FONT size=3 face="Tahoma" color="FFFFFF"><B><I>&nbsp;',Tx,'&nbsp;</I></B></FONT></TD>');
	document.write('</TR></TABLE></DIV>');
}

function tempT()	{	//geen lange sysdat !
var Dt1 = 0, Dt2 = 130000, Dt3; 
var L = arguments.length;
	if (L == 1)	{
		Dt1 = DU0;	Dt2 = arguments[0];}
	else 	if (L > 1)	{
		Dt1 = arguments[0];	Dt2 = arguments[1];	}
	Dt3 = Dt2;
	if ((Maand > 9)&&(Dt2 < 20000)&&(Dt1 > 110000))
			Dt3 = 123200;
	if ((DU0 >= Dt1)&&(DU0 < Dt3))
		document.write(T);
	else if ((DU0 >= Dt3)&&(T2.length > 1))
		document.write(T2);
	T = ' ';	T2 = ' ';
}

function printit()	{
if (navigator.appName == "Netscape")	
	window.print();
else	{
	var webBrowser = '<OBJECT ID="WebBrowser1" width=0 height=0 classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"></OBJECT>';
	document.body.insertAdjacentHTML('beforeEnd',webBrowser);
	WebBrowser1.ExecWB(6.2);
	WebBrowser1.outerHTML="";
}	}

function email1()	{
if (arguments.length > 1)	
	document.write('<A href="' +  mt + arguments[0] + at + arguments[1] + '">' + arguments[2] + '</A>');
}


function mystyle()	{
var sw = 850;
var wd = 800;
var l = arguments.length;
if (l)
	sw = arguments[0];
if (l > 1)
	wd = arguments[1];
if (screen.width >= sw * sb)
	document.write('<CENTER><TABLE width=',wd*sb,'><TR><TD>');
}

function endmystyle()	{
document.write('</TD></TR></TABLE></CENTER>');
}

function movetotop(IdOfElement){
var divname = document.getElementById(IdOfElement);
divname.scrollTop = divname.clientHeight - divname.scrollHeight;
}

//-------------------------------------------------------------------------------------------
//--------------------------------KALENDERFUNCTIES-------------------------------------------
//-------------------------------------------------------------------------------------------

function Volg()	{			//Juiste dag wijst naar vlg. week
//arg: WDoeldag, extra.
var FD, L = arguments.length;
	MDoeldag = MdDag + ((arguments[0] - WkDag + 6) % 7) + 1;
	NMaand = Maand;
	if (MDoeldag > mdlen[Maand])	{
		NMaand = (Maand == 11) ? 0 : (Maand+1);
		MDoeldag -= mdlen[Maand];
	}
	if (L > 1)	
		Plus(arguments[1]);
	Nulstring = (NMaand < 9) ? "0" : "";
	FD = (NMaand + 1) * 100 + MDoeldag;
	FileDatum = "_" + Nulstring + FD + ".htm";
	return(FD);
}

function Vorig()	{	//Juiste dag wijst naar vandaag
//arg: WDoeldag, extra.
var FD, L = arguments.length;
var Nulstring;
	MDoeldag = MdDag - ((WkDag - arguments[0] + 7) % 7);
	NMaand = Maand;
	if (MDoeldag < 1)	{
		NMaand = (Maand == 0) ? 11 : (Maand - 1);
		MDoeldag += mdlen[NMaand];
	}
	if (L > 1)	{
		if (arguments[1] > 0)
			Plus(arguments[1]);
		else if (arguments[1] < 0)
			Min(-arguments[1]);
	}
	Nulstring = (NMaand < 9) ? "0" : "";
	FD = (NMaand + 1) * 100 + MDoeldag;
	FileDatum = "_" + Nulstring + FD + ".htm";
	return(FD);
}

function Plus(extra)	{
var FD;
	MDoeldag += extra;
	while (MDoeldag > mdlen[NMaand])	{
		MDoeldag -= mdlen[NMaand];
		NMaand = (NMaand == 11)	? 0	: NMaand+1;
	}
	Nulstring = (NMaand < 9) ? "0" : "";
	FD = (NMaand + 1) * 100 + MDoeldag;
	FileDatum = "_" + Nulstring + FD + ".htm";
	return(FD);
}

function Min(extra)	{
var FD;
	MDoeldag -= extra;
	while (MDoeldag < 1)	{
		NMaand = (NMaand == 0)	? 11	: NMaand-1;
		MDoeldag += mdlen[NMaand];
	}
	Nulstring = (NMaand < 9) ? "0" : "";
	FD = (NMaand + 1) * 100 + MDoeldag;
	FileDatum = "_" + Nulstring + FD + ".htm";
	return(FD);
}

function Dplus(sdag,meer)	{	//Systeemdag, 'meer' = dagen later.(Niet negatief!)
var k, m = Math.floor((sdag%10000) / 100) - 1; 			//maand (0-11)
var J = (Math.floor(sdag/10000))	? 2000 + Math.floor(sdag/10000)	: Jaar;
var ML = ((J%4==0)&&(J%100)&&(m==1)) ? 29 : mdlen[m];		//lengte vd maand
var ndag = sdag%100 + meer;
	while (ndag > ML)	{
		ndag -= ML;
		m = (m+1)%12;
		ML = ((J%4==0)&&(J%100!=0)&&(m==1)) ? 29 : mdlen[m];
		J = (m)	? J	: J+1;
	}
	k = (sdag>1231)	? Math.floor(J%100)	: 0;	//nieuw resp. oud formaat sysdag
	return(10000*k + 100*(m+1) + ndag);
}

function Datnummer()	{	
//nr v.d. dag in het jaar  arg 1: sysdag  arg 2: jaar  default: vandaag
var M = Maand;
var datnr = MdDag;
var year = Jaar;
var oldmdlen = mdlen[1];
	if ((arguments.length>1)&&!(arguments[1]%4))
		mdlen[1] = 29;
	if (arguments.length)	{
		M = Math.floor(arguments[0]/100) - 1;
		datnr = arguments[0] % 100;
	}
	for (md = 0; md < M ; md++)
		datnr += mdlen[md];
	mdlen[1] = oldmdlen;
	return(datnr);
}

function Weekdag()	{
// weekdag arg1: sysdag arg2: jaar default: vandaag
var inp = (arguments.length) ? arguments[0] :D0;
var doel, year = Jaar;
	if ((arguments.length > 1)&&(arguments[1] > 1900))
		year = arguments[1];
	doel = new Date(EMnd[Math.floor(inp/100)-1] + ' ' + (inp%100) + ', ' + year);
	return(doel.getDay());
}

function Weeknummer()	{	//nr v.d. week in het jaar
//weeknummer arg 1: sysdag arg2: jaar default : vandaag 
var inp = (arguments.length) ? arguments[0] : D0;
var week, year = Jaar;
var abn = 0;
	if (arguments.length>1)
		year = arguments[1];
	if (year>2007)
		abn = 3;	//abnormaal nummer Pb value 0 - 3
	if (Weekdag(101,year) > 3)
		week = Math.ceil((Datnummer(inp) - Weekdag(inp))/7);	// week is het courante weeknummer
	else
		week = Math.floor((Datnummer(inp) - Weekdag(inp))/7);
	return((week + abn)%52);
}

function datStr()	{
var Inp = arguments[0]%10000;
var SMaand = Math.floor(Inp / 100);
var SJaar, njaar;
	if ((!arguments.length)||(!SMaand)||(SMaand > 12)||((Inp%100)>31))
		return 'undef.';
	else	{
		SJaar = nu.getFullYear();
		njaar = ((D0 > 1100)&&(Inp < 300)) ? (SJaar+1)	: SJaar;
		if ((D0 < 300)&&(Inp > 1100))	
			njaar = SJaar-1;

var Dstring = new Array(12);
var doeldg = new Date(EMnd[SMaand-1] + ' ' + (Inp % 100) + ', ' + njaar);
	
		Dt = (Inp % 100) + ' ' + Mnd[SMaand];
		Dstring[0] = Inp;
		Dstring[1] = dow[doeldg.getDay()];
		Dstring[2] = Dstring[1].substr(0,1).toUpperCase() + Dstring[1].slice(1);
		Dstring[3] = Dstring[1] + ' ' + Dt;
		Dstring[4] = Dstring[2] + ' ' + Dt;
		Dstring[5] = Dstring[3] + ' ' + njaar;
		Dstring[6] = Dstring[4] + ' ' + njaar;
		Dstring[9] = Dt;
		Dstring[10] = Dt + ' ' + njaar;
		Dstring[11] = njaar;
		Dstring[12] = '<B>' + Dstring[4] + ':</B>';
		Dt = (Inp % 100) + '/' + SMaand + '/';
		a = (njaar < 2010)	? '0' + (njaar % 1000)	: njaar % 100;
		Dstring[7] = Dt + a;
		Dstring[8] = Dt + njaar;
		if (arguments.length != 1)
			return Dstring[arguments[1]];
		else
			return (Dstring[12]);
}	}

function leesd(sbd,type)	{
var ja = sbd.substr(0,4);
var m = (sbd.substr(4,1)=='0')	? sbd.substr(5,1)	: sbd.substr(4,2);
var d = (sbd.substr(6,1)=='0')	? sbd.substr(7,1)	: sbd.substr(6,2);
if (sbd.length<5)
	return(ja);
else	{
	if (type==1)
		return(d + '/' + m + '/' + ja);
	if (type==2)
		return(d + ' ' + Mnd[m/1] + ' ' + ja);
}	}

//POL.  27/7/2003 // 12/11/03 // 26/11/03 //02/01/05 //29/04/05 //01/12/05 //27/5/07 //25/3/08