[?
_METAPATH( "Wizard\", "g" )

?]:. Dit rapport werd aangemaakt met de Aldfaer Rapportage Wizard
Sjabloon Aldfaer-kaartenbak Versie 1.3
Privacyfilter: _PREFPRIVFILT("uit;aan")
Bezig met:
Aanmaken basisverzameling
	_USES( KaartenbakHook, ";;;;"):.
	_USES( DutchDateFormat, ";;;;"):.
[?	_SETDEF( MOEDERSET )
	_SETFILL( MOEDERSET, _FAMIFILE )
	_PROGRESS( [:_SETAMOU( MOEDERSET ):] ) :. Initialisatie van voortgangsbalk
	_VARDEF( YMIN1 )	:.nodig in DATEFORMAT6
	_SETDEF(_ENDDATE)	:.nodig in DATEFORMAT6
	_SETDEF(_SQUOTE)
	_SETADD(_SQUOTE, [:':])
	_SETADD(_SQUOTE, [:´:])
	_SETADD(_SQUOTE, [:’:])
:.
_FUNCBEGI(ACHTERNAAM_VOLLEDIG)
[:_NAMEPREF[&[?_NAMEPREF?][?_SETORDE(_SQUOTE,[:_NAMEPREF._SUBS(0,0):])==?][?_SURN?] &]_SURN:]
_FUNCEND
:.
	_FILENAME( "aldfaer.css" )
	_FILEMODE( "CSS", ifNotExist )
?]Stijlenbestand aldfaer.css
[?_WRITBEGI
<style type="text/css">
<!--			
			{ background: #E8E8E8; }
	body		{ background: #E8E8E8; font-family: Arial; font-size: 12pt; color: #080000; }
	p		{ font-family: Arial; font-size: 12pt; font-weight: bold; }
	img		{ border-style: none; }
	.data		{ font-family: Arial; font-size: 12pt; font-weight: bold; color: #080000; }
	a:link		{ color: #0000FF; text-decoration: none; }
	a:visited	{ color: #008080; text-decoration: none; }
	a:active	{ color: #008080; text-decoration: none; }
	a:hover		{ color: #FF0000; text-decoration: none; }
	table		{ border-color: #000000; }
   	td,th		{ font-family: Courier New; font-size: 10pt; font-weight: normal; border-color: #000000; text-align:left; color: #080000; }
//-->
</style>
_WRITEND		
?]_PREFPHOT?_BEGI[?
	_FILEMODE( ".js", "ifNewer" )
	_FILENAME( "aldfaerphoto.js" )
?]Javascriptbestand aldfaerphoto.js
[?_WRITBEGI
		////////////////////////////////////////////////////////////////
		//
		//  a l d f a e r p h o t o . j s
		//
		//  Ondersteunende functies,
		//  bestemd voor gebruik door de door aldfaer gegenereerde kaartenbak.
		//
		//  copyright 2008 Aldfaerteam
		//
var childOpen = new Array();
var childWin = new Array();
var childcontent = new Array();
var childphoto = new Array();
var childtitle = new Array();
var last;
window.onunload = closeWins;
function openWin(foto,staand) {
	var i;
	
	if (!foto) {
		foto=album[teller];
		staand=portrait[teller];
	}
	for (i=0; i<childOpen.length; i++) {
		if (childphoto[i] == foto) {
			break;
		}
	}	
	if ((i<childOpen.length) && (childOpen[i]==true)) {
		last = i;
		if (window.focus) {
			childWin[i].focus();
		}
		return;
	} 
	if (staand) 
		childcontent[i] = '<input type="hidden" id="hiddenid" value="'+i+'" /><form action=# method="post" name="zoomform"><img src="'+foto+'" title="Klik links om te vergroten, klik rechts om te verkleinen" alt="'+foto+'" height="570" name="photo" onload="init_zoom();" onclick="zoomin();" oncontextmenu="zoomout();return false;" />';
	else
		childcontent[i] = '<input type="hidden" id="hiddenid" value="'+i+'" /><form action=# method="post" name="zoomform"><img src="'+foto+'" title="Klik links om te vergroten, klik rechts om te verkleinen" alt="'+foto+'" width="560" name="photo" onload="init_zoom();" onclick="zoomin();" oncontextmenu="zoomout();return false;" />';
	childindependent = '<select name="ratio" style="visibility:hidden;" onchange="zoom();"><option value="0.5">Zoom 50%</option><option value="0.75">Zoom 75%</option><option value="1" selected>Zoom 100%</option><option value="1.5">Zoom 150%</option><option value="2">Zoom 200%</option></select></form>'; 
	childphoto[i] = foto;
	childtitle[i] = foto;
	last = i;
	childOpen[i] = false;//wordt door het child op true gezet; hiermee wordt nagegaan of javascript actief is
	childWin[i] = window.open('fotovenster.htm','','width=600,height=600,directories=no,location=no,menubar=no,scrollbars=yes,status=no,toolbar=no,resizable=yes,top=50,left=50,screenX=50,screenY=50');
}
function closeWins() {
	for (var i=0; i<childOpen.length; i++) {
		if (childOpen[i] == true) {
			childWin[i].parentOpen = false;
			childWin[i].close();
		}
	}
}

function terugtonen() {
	document.images.afbeelding.style.visibility='visible';
}
function volgendefoto(x) {
	teller = teller+x;
	if (teller>=album.length)
		teller=album.length-1;
	else if (teller<0)
		teller=0;
	else {
		document.images.afbeelding.style.visibility='hidden';
		document.images.afbeelding.src=album[teller];
		document.images.afbeelding.title=title[teller];
		document.images.afbeelding.alt=alternative[teller];
		if (teller==0) {
			document.form1.button1.value=' ';
			document.form1.button2.value='>';
		} else if (teller == album.length-1) {
			document.form1.button1.value='<';
			document.form1.button2.value=' ';
		} else { 
			document.form1.button1.value='<';
			document.form1.button2.value='>';
		}
		document.images.afbeelding.style.width=width[teller]+'em';
		setTimeout('terugtonen()',350);
	}
}
_WRITEND
	_FILEMODE( "htm", "ifNewer" )
	_FILENAME( "fotovenster.htm" )
?]Fotovensterbestand
[?_WRITBEGI
!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="nl" >
<head>
<title>Fotovenster</title>
<meta http-equiv="Content-Type" content="text/html;charset=CHARSET" />
<style type="text/css"> 
body{ font-family: Verdana, Helvetica, sans-serif; font-size: 10pt; }
</style>
<script type="text/javascript">
<!--
function do_onload() {
	document.getElementById('njs').style.display = 'none';
}
if (window.addEventListener) {
	window.addEventListener('load', do_onload, false);
} else if(window.attachEvent) {
	window.attachEvent('onload', do_onload);
}
var parentOpen = true;
var height2, width2;
window.onload = UpdateParent1;
window.onunload = UpdateParent2;
function UpdateParent1() {
	if (parentOpen) {
		if (window && window.opener) {
			window.opener.childOpen[window.opener.last] = true;
		}
	}
}
function UpdateParent2() {
	if (parentOpen) {
		if (window && window.opener) {
			window.opener.last = document.getElementById("hiddenid").value;
			window.opener.childOpen[window.opener.last] = false;
		}
	}    
}
function init_zoom() {
	height2 = document.photo.height;
	width2 = document.photo.width;
}
function zoom() {
	if (height2)
		document.photo.height = Math.round(height2 * (document.zoomform.ratio.value));
	if (width2)
		document.photo.width = Math.round(width2 * (document.zoomform.ratio.value));
}
function zoomin() {
	if (document.zoomform.ratio.selectedIndex < 4) {
		document.zoomform.ratio.selectedIndex+=1;
		zoom();
	}
}
function zoomout() {
	if (document.zoomform.ratio.selectedIndex > 0) {
		document.zoomform.ratio.selectedIndex-=1;
		zoom();
	}
}
// -->
</script>
</head>
<body>
<script type="text/javascript">
if (window) {
	if (window.opener) {
		document.body.innerHTML = window.opener.childcontent[window.opener.last]+window.opener.childindependent;
		document.title = window.opener.childtitle[window.opener.last];
	} else {
		document.body.innerHTML = "<p>Er is een fout opgetreden bij het doorgeven van de fotogegevens aan dit venster.</p>";
		document.title = "Communicatieprobleem";
	}
}
</script>
<div id="maindiv">
<input type="hidden" id="hiddenid" value="0" />
</div>
<div id="njs">
<p>Vergroot tonen van beeldmateriaal vereist dat 
actieve inhoud uitgevoerd mag worden in bestanden op deze computer.
Dit is momenteel niet het geval. Je kan dit als volgt activeren.
Ga via Start naar het Configuratiescherm en 
selecteer daar 'Internetopties' (categorie Netwerk- en Internetverbindingen). 
Klik daarin op de tab Geavanceerd, vink onder het kopje Beveiliging 'Actieve inhoud mag 
worden uitgevoerd in bestanden op mijn computer' aan 
en klik onderaan op OK.
</p><p>
Je kan deze uitleg ook nog eens nalezen 
in het rapportvenster op het scherm Aldfaer-rapporten.</p>
</div>
</body>
</html>
_WRITEND
?]_END:. _PREFPHOT?
[?
	_FILEMODE( ".js", "ifNewer" )
	_FILENAME( "aldfaerage.js" )
?]Javascriptbestand aldfaerage.js
[?_WRITBEGI
		////////////////////////////////////////////////////////////////
		//
		//  a l d f a e r a g e . j s
		//
		// Functie voor het bepalen van de leeftijd van levende persoon
		//
		//  copyright 2009 Aldfaerteam
		//
		function getAge(exact,day,month,year)
		{
		[::]	var now = new Date();
		[::]	var days = new Array(31,28,31,30,31,30,31,31,30,31,30,31);
		[::]	var yearsold = now.getFullYear() - year;
		[::]	var monthsold;
		[::]	var daysold;
		[::]	var string;
		[::]
		[::]	month--;
		[::]	if (month < 0)
		[::]		monthsold = 0;
		[::]	else {
		[::]		monthsold = now.getMonth() - month;
		[::]		if (monthsold < 0)
		[::]		{
		[::]			yearsold--;
		[::]			monthsold += 12;
		[::]		}
		[::]	}
		[::]	
		[::]	if ((day < 0) || (month < 0))
		[::]		daysold = 0;
		[::]	else {
		[::]		daysold = now.getDate() - day;
		[::]		if (daysold < 0)
		[::]		{
		[::]			if (monthsold > 0)
		[::]		   		monthsold--;
		[::]			else
		[::]			{
		[::]				yearsold--;
		[::]		   		monthsold += 11;
		[::]	   		}
		[::]			if (day > days[month])
		[::]				daysold += day;
		[::]			else
		[::]	   			daysold += days[month];
		[::]		}
		[::]	}
		[::]
		[::]
		[::]	if (yearsold < 0)
		[::]		return 'nog niet geboren';
		[::]
		[::]	if ((yearsold == 0) && (monthsold == 0) && (daysold == 0))
		[::]		if ((month>=0) && (day>=0)) {
		[::]			switch (exact) {
		[::]			case 0: 
		[::]				return 'vandaag geboren';
		[::]			case 2:
		[::]				return 'voor vandaag geboren';
		[::]			case 3:
		[::]				return 'ongeveer vandaag geboren';
		[::]			default:
		[::]				return '?';
		[::]			}
		[::]		} else {
		[::]			switch (exact) {
		[::]			case 0: 
		[::]				if (month < 0)
		[::]					return '<1 jaar';
		[::]				else
		[::]					return '<1 maand';
		[::]			case 2:
		[::]				if (month < 0)
		[::]					return '>0 jaar';
		[::]				else
		[::]					return '>0 maanden';
		[::]			case 3:
		[::]				if (month < 0)
		[::]					return '¹0 jaar';
		[::]				else
		[::]					return '¹0 maanden';
		[::]			default:
		[::]				return '?';
		[::]			}
		[::]		}
		[::]
		[::]	if ((yearsold >= 1) && (exact == 0) && (((day < 0) && (monthsold == 0)) || (month < 0))) {
		[::]		return (yearsold-1) + ' of ' + yearsold + ' jaar';
		[::]	}
		[::]	
		[::]	switch (exact) {
		[::]	case 1:
		[::]		string = '<';
		[::]		break;
		[::]	case 2: 
		[::]		string = '>';
		[::]		break;
		[::]	case 3:
		[::]		string = '¹';
		[::]		break;
		[::]	default:
		[::]		string = '';
		[::]		break;
		[::]	}
		[::]	
		[::]	if (yearsold >= 1)
		[::]	{
		[::]		string += yearsold + ' jaar';
		[::]	} else 
		[::]	if (monthsold >= 1)
		[::]	{
		[::]		string += monthsold + ' maand';
		[::]		if (monthsold > 1) 
		[::]			string += 'en';
		[::]	} else 
		[::]	if (daysold > 0)
		[::]	{
		[::]		string += daysold + ' dag';
		[::]		if (daysold > 1) 
		[::]			string += 'en';	
		[::]	}
		[::]	return string;
		}
_WRITEND?]
_PREFGNDX?_BEGI[?
	_FILENAME( "gendex.txt" )
	_FILEMODE( "txt", overwrite )
?]Gendexbestand gendex.txt
[?_WRITBEGI
;; Gegenereerd met Aldfaer _CURRVERS op _CURRDATE([:DD-MM-YYYY:]) _CURRTIME[: door _USERNAME:]

_WRITEND
_FILEMODE( "html", append )
_SETDEF(GENDEXSET)
_SETFILL(GENDEXSET, MOEDERSET)
_PROGRESS( [:_SETAMOU( MOEDERSET ):] ) :. Herinitialisatie van voortgangsbalk
_LOOPBEGI
	_SETAMOU(GENDEXSET)?_BEGI
		_WRITBEGI
		_SETBEGI(GENDEXSET)
			_PROGRESS
			[?_NUMB < 1000?]?_BEGI
_LINK[&|&][:[:_NAMEPREF :]_SURN:]._UPPE[&|&][:_NAMEFIRS:]|[:_NAMENICK:]|[&-&] /[:[:_NAMEPREF :]_SURN:]._UPPE/[&|&]:.
[&[?_BIRTDATE([:Y:]) _BAPTDATE([:Y:])?][:_BIRTDATE([:_S_DATUM:]):]|[:_BAPTDATE([:_S_DATUM:]):]&][&|&]:.
[:_BIRTPLAC:]|[:_BAPTPLAC:][&|&]:.
[&[?_DEATDATE([:Y:]) _BURIDATE([:Y:])?][:_DEATDATE([:_S_DATUM:]):]|[:_BURIDATE([:_S_DATUM:]):]&][&|&]:.
[:_DEATPLAC:]|[:_BURIPLAC:][&|&]

				_SETSUB(GENDEXSET)
			_ELSE
				_BRK
			_END
		_SETEND
		_WRITEND
	_ELSE
		_BRK
	_END
_LOOPEND
?]_END
_FUNCBEGI( ZZZ )_M(";JAN;FEB;MAR;APR;MAY;JUN;JUL;AUG;SEP;OCT;NOV;DEC")_FUNCEND
_FUNCBEGI( HH )_E(";AFT ;BEF ;ABT ")_FUNCEND
_FUNCBEGI( _S_DATUM )[:HH[&[?M?]D &][:ZZZ :][:Y[: _S(";BC"):]:]:]_FUNCEND
:.---------------------------------------------------------------------------------------
[?
_FILEMODE( ".html", "ifNewer" )
_FILENAME( "naam.html" )
?]_FILENAME
[?:. naam.html indien index op achternamen of beginletter(s) van achternamen
_WRITBEGI
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="nl" >
<head>
<meta http-equiv="Content-Type" content="text/html;charset=CHARSET" />
<link rel="stylesheet" href="aldfaer.css" />


<script type="text/javascript" language="javascript">
<!-- Begin to hide script contents from old browsers.

// Javascript functies voor Aldfaer web generatie

function compare_naam( a, b ) 
{
	if ( a.nm.toUpperCase() > b.nm.toUpperCase() ) return 1;
	if ( a.nm.toUpperCase() < b.nm.toUpperCase() ) return -1;
	if ( a.vn && (!b.vn || a.vn.toUpperCase() > b.vn.toUpperCase()) ) return 1;
	if ( !a.vn || a.vn.toUpperCase() < b.vn.toUpperCase() ) return -1;
	return 0;
}

function compare_datum( a, b )
{
	if ( a.year  > b.year  ) return 1;
	if ( a.year  < b.year  ) return -1;
	if ( a.month > b.month ) return 1;
	if ( a.month < b.month ) return -1;
	if ( a.day   > b.day   ) return 1;
	if ( a.day   < b.day   ) return -1;
	return 0;
}

function compare_naam_ix( a, b ) 
{
	if ( a.toUpperCase() > b.toUpperCase() ) return 1;
	if ( a.toUpperCase() < b.toUpperCase() ) return -1;
	return 0;
}

function replace_it( s, find, repl )
{
	var arr = new Array;
	var retval;
	var ix = 0;
	var count;

	arr = s.split( find )
	retval = arr[ ix++ ];

	for ( count = arr.length - 1; count; count-- )
	{
		retval = retval + repl + arr[ ix++ ];
	} 

	return retval;
}

function write_index( web, letter )
{
	//
	// Er is op een letter in de letterindex geklikt. Genereer nu het
	// achternamenscherm voor de betreffende beginletter(s) Dit wordt *niet* gedaan 
	// indien alleen achternamen gekozen worden. 
	//
	var web_index;
	var naam_index;
	var sorted = new Array;
	var ass_sorted = new Array;
	var parname;

	letter = replace_it(letter,'~','\'')

	parent.index.document.open("text/html" )	// Open het onderste document
	with ( parent.index.document )
	{
		write( '<html><head>',
			'<meta http-equiv="Content-Type" content="text/html;charset=[:CHARSET:]" />',
			'<link rel="stylesheet" href="aldfaer.css" />',
			'</head><body><p>' )

		//
		// Selecteer alle namen met deze ('letter') beginletter.
		//
		for ( web_index = 0; web_index < web.length; web_index++ )
		{		
			var nm = web[web_index].nm; 
			
			if ( letter.length < parent.aantalLetters )
			{
				// Naam korter dan aantal indexletters
				if ( letter === replace_it(replace_it(nm,'&rsquo;','\''),'&acute;','\'').toUpperCase() )
				{
					if ( ass_sorted[ nm ] ) ass_sorted[ nm ]++; else ass_sorted[ nm ]=1;
				}
			}
			else
			{
				if ( letter === replace_it(replace_it(nm,'&rsquo;','\''),'&acute;','\'').substring( 0,letter.length ).toUpperCase() )
				{
					//	
					// Naam geselecteerd. Zet hem in een nieuwe array mat de naam als
					// index. (Associatieve array)
					//
					// Voorbeeld: begin letter BO, dan komt BOER, BOEF, BOOR is ass_sorted
					// met BOER, BOEF of BOOR als index.
					//
					if ( ass_sorted[ nm ] ) ass_sorted[ nm ]++; else ass_sorted[ nm ]=1;
				}
			}
		}

		//
		// ass_sorted heeft nu de achternamen als de naam van de elementen. Bouw 
		// nu een normale array met een numerieke index
		//
		for ( var i in ass_sorted ) 
		{	
			sorted[ sorted.length ] = i;
		}
					
		write( "In deze stamboom staan de volgende (" + sorted.length + ") namen met de beginletter " + letter.toUpperCase() + "</p><p>" );
		
		sorted.sort( compare_naam_ix );	//sorteer de array 

		for ( naam_index = 0; naam_index < sorted.length; naam_index++ )
		{		
			var nm = sorted[ naam_index ];
			var aantal = ass_sorted[ nm ];

			// Schrijf de achternaam met link naar de naamindex. De naam index
			// wordt ook door deze pagina opgebouwd indien de naam als parameter 
			// wordt meegegeven

			parname = replace_it( replace_it( replace_it( nm, ' ', '|' ),'&','*'),'#','$'); // Spaties naar bar, spaties kunnen problemen geven

			write( '<a href="naam.html?' + parname + '">'+ nm +'</a> (' + aantal + ')' );	
			write( '<br />' )
		}
		write( "</p></body></html>")
	}

	parent.index.document.close();
}
window.onunload = dummy;
function dummy(){}
// -->
</script>


</head>
<body>
<script type="text/javascript" language="javascript">
<!--

var familienaam;
var ix;

if ( location.search.length >= 2 )
{
	//
	// Een familienaam als parameter meegegeven. Bouw een index in kolommen op.
	//
	familienaam = replace_it( replace_it( replace_it( decodeURIComponent( location.search.substring( 1,location.search.length ) ), '|', ' ' ),'*' ,'&' ),'$' ,'#' );
	document.write( "<p>Index van familie " + familienaam + "</p>" );
	var naamindex = new Array;
	var regels;
	var kolommen;
	var aantal;

	//
	// Selecteer de personen met de juiste naam
	//
	for ( ix = 0; ix < parent.namen.length; ix++ )
	{
		if ( parent.namen[ix].nm == familienaam )
		{
			naamindex[ naamindex.length ] = parent.namen[ix];
		}
	}
	aantal = naamindex.length;
	
	//
	// Sorteer naar datum of naam
	//
	if ( parent.sortmethode != 0 )
	{
		naamindex.sort( compare_naam );
	}
	else
	{
		naamindex.sort( compare_datum );
	}

	if ( aantal > 20 )
	{
		regels   = Math.round((aantal + 0.9)/3);
		kolommen = 3;
	}
	else
	{
		regels   = aantal;
		kolommen = 1;
	}

	document.write('<table><tr>' );
	for ( i = 0; i < kolommen; i++ )
	{
		document.write( 	'<th align="left">',
					'<a href="blanc.html" onclick="parent.sortmethode=1;location.reload();return false;">Naam:</a></th>',
					'<th width=50% align="left">',
					'<a href="blanc.html" onclick="parent.sortmethode=0;location.reload();return false;">Geboren:</a></th>' );
	}
	document.write( '</tr>' );

	var i,j,k;
	var voornaam;
	for ( j = 0; j < regels; j++ )
	{
		document.write( "<tr>" );
		for ( i = 0; i < kolommen; i++ )
		{
			k = j + (i * regels)
			if ( k < aantal )
			{
				voornaam = naamindex[k].vn.length ? naamindex[k].vn : naamindex[k].rn;
				if ( naamindex[k].lk.length > 0 )
				document.write( '<td style="white-space: nowrap"><span class="data"><a href="' + naamindex[k].lk + '">' + voornaam + " " + naamindex[k].tv + naamindex[k].nm + '</a></span></td><td style="white-space: nowrap"><span class="data">' );
				else
				document.write( '<td style="white-space: nowrap"><span class="data">' + voornaam + " " + naamindex[k].tv + naamindex[k].nm + '</span></td><td style="white-space: nowrap"><span class="data">' );
				
				if ( naamindex[k].year )
				{
					document.write( naamindex[k].year + "</span></td>" );
				}
				else
				{
					document.write( " -</span></td>" );
				}
			}
		}	
		document.write( "</tr>" );	
	}
	document.write( "</table>" )
	document.write( "</body></html>")	
}
else
{
	//
	// Aanroep zonder parameter. In dit geval moet in het bovenste deel
	// van het scherm een letterindex worden opgebouwd.
	//
	// Zowel het aantal kolommen als de array met alle namen zijn in de parent van dit scherm 
	// opgenomen, zodat dit bestand niet verandert.
	//
	var hoofdindex = new Array;
	var sortedhoofdindex = new Array;
	var first;
	var parname;

	for ( ix = 0; ix < parent.namen.length; ix++ )
	{
		// Neem de eerste N letters van elke naam 
		// als index in de associatieve array 'hoofdindex'
		if ( parent.aantalLetters == 0 )
		{	
			if ( hoofdindex[ parent.namen[ix].nm ] )
			{
				hoofdindex[ parent.namen[ix].nm ]++;
			}
			else
			{
				hoofdindex[ parent.namen[ix].nm ] = 1;
			}
		}
		else
		{
			parname = replace_it(replace_it(parent.namen[ix].nm, '&rsquo;', '\''),'&acute;','\'');
			hoofdindex[ parname.substring( 0,parent.aantalLetters ).toUpperCase() ] = 1;
		}
	}

	//
	// Zet alle elementnamen van de associatieve rij in een normaal sorteerbare rij
	//

	for ( var i in hoofdindex ) 
	{	
		sortedhoofdindex[ sortedhoofdindex.length ] = i;
	}


	// En... sorteer de rij.

	sortedhoofdindex.sort( compare_naam_ix );
	

	// Schrijf de keuzes die gedaan kunnen worden naar het scherm

	if ( parent.aantalLetters == 0 )
	{
		document.write( "<p>" );
	}
	else
	{
		document.write( "<p style='text-align:center'>" );
	}	
	first = 1;
	for ( ix = 0; ix < sortedhoofdindex.length; ix++ )
	{
		i = sortedhoofdindex[ ix ];
		if ( first ) 
		{
			first = 0;
		}
		else
		{
			if ( parent.aantalLetters == 0 )
			{
				document.write( "<br />" );
			}
			else
			{
				document.write( " | " );
			}
		}

		parname = replace_it( replace_it( replace_it( i, ' ', '|' ),'&' ,'*' ),'#' ,'$' );

		if ( parent.aantalLetters == 0 )
		{
			document.write( '<a href="naam.html?' + parname + '" target="index">' + i + ' (' + hoofdindex[i] + ')</a>');
		}
		else
		{
			parname=replace_it(i,'\'','~').substring( 0,parent.aantalLetters );
			document.write( '<a href="blanc.html" target="index" onclick="write_index(parent.namen,\'' +
				parname.toUpperCase() + '\');return false;" >'+i+'</a>' );
		}
	}
}

//-->
</script>

</body>
</html>
_WRITEND
?][?
_FILEMODE( ".html", "ifNewer" )
?]_SETBEGI( MOEDERSET ).[?
_FILENAME( _METALINK )
_WRITBEGI<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="nl" >
<head>
<!-- Created with Aldfaer _CURRVERS -->
<title>Persoonskaart NAAM1</title>
<meta http-equiv="Content-Type" content="text/html;charset=CHARSET" />
<link rel="stylesheet" href="aldfaer.css" />
[&[?_PREFPHOT?]<script type="text/javascript" src="aldfaerphoto.js"></script>&]
<script type="text/javascript" src="aldfaerage.js"></script>
</head>
_PROGRESS
<body>
<a href="index.html" target="_top">TERUG NAAR START</a>
<div style="text-align:center">
<table width="100%" border="1" style="background-color: #DCD9D3" cellspacing="0" cellpadding="4">
:. Regel 1, tabel-kop
<tr><td colspan="2">TABELKOP</td></tr>
:. Regel 2, links persoonsgegevens, rechts ouders
<tr><td width="50%" height="120" valign="top">PERSOON1</td><td width="50%" valign="top">OUDERS1</td></tr>
:. Regel 3, met 'n relatie, links de relatie, rechts de kinderen. Dit herhaald voor alle relaties
_RELA?_BEGI
_RELABEGI
[&_NORE[?_CHIL(_BIOL)==?]&]?_BEGI
_CHIL?_BEGI
<tr><td height="120" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"></table></td><td valign="top">KINDEREN1</td></tr>
_END
_ELSE
<tr><td height="120" valign="top">RELATIE1</td><td valign="top">KINDEREN1</td></tr>
_END
_RELAEND
_END
:. Regel 3, zonder relatie met kind. Links een 'leeg' relatieblok met rechts de kinderen
ZONDERRELATIE
:.Regel 4, de notities
NOTITIES1
</table>
</div>
</body>
</html>
:. Functies
:.
:. fotohoogte in centi-em
_FUNCBEGI(FOTOHOOGTE)1000[::]_FUNCEND
:.
_FUNCBEGI( _HEIGHT )
	_VARDIV( _VARTEMP, [:FOTOHOOGTE:], 100 )
	[&[?_VAROUT( _VARTEMP, "0" )==0?][?[:FOTOHOOGTE:]<0?]-&]:.
	_VAROUT( _VARTEMP, "0" )[&.&]:.
	_VARABS( _VARTEMP, [:FOTOHOOGTE:] )
	_VARMOD( _VARTEMP, 100)
 	_VAROUT( _VARTEMP, "0" )em:.
_FUNCEND
_FUNCBEGI( _WIDTH )
	_VARDIV( _VARTEMP, FOTOB, 100 )
	[&[?_VAROUT( _VARTEMP, "0" )==0?][?_VAROUT(FOTOB,"0")<0?]-&]:.
	_VAROUT( _VARTEMP, "0" )[&.&]:.
	_VARABS( _VARTEMP, FOTOB )
	_VARMOD( _VARTEMP, 100)
 	_VAROUT( _VARTEMP, "0" )em:.
_FUNCEND
_FUNCBEGI( TABELKOP)
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr><td colspan="4" style="text-align:center"><span class="data">[:[:_NAMEFIRS:]|[:_NAMENICK:][&[?_NAMEFIRS?][: (_NAMENICK):]&][: ACHTERNAAM_VOLLEDIG:]:]._SPAC</span></td>
:. Kwartiernummer van persoon t.o.v. referentie-persoon
[:[?_ASCENUM?]<td width="60" valign="top" style="text-align:right"><span class="data">Nr. _ASCENUM</span></td>:]</tr>
[&_PREFPHOT _PHOTAMOU _PRIV("1;")&]?_BEGI
_VARDEF(FOTOB)
_VARDEF(_VARTEMP)
_VARIN(_VARTEMP,0)
_VARIN(FOTOB,[:FOTOHOOGTE:])
_VARMUL(FOTOB, [:_PHOTWIDT:])
_VARDIV(FOTOB, [:_PHOTHEIG:])
[&[?_PHOTAMOU > 1?] _PREFPHOT(";;1")&]?_BEGI
:. Alle afbeeldingen mogen getoond worden er zijn er meer dan één
<tr>
<script type="text/javascript" language="javascript">
<!--
var teller=0;
var album=new Array;
var title=new Array;
var alternative=new Array;
var portrait=new Array;
var width=new Array;
_VARDEF(_LOOP):.
_VARIN(_LOOP,0):.
_PHOTBEGI:.
album[_VAROUT(_LOOP,"0")]='[:_FOTOPAD:]_PHOT';
title[_VAROUT(_LOOP,"0")]='_PHOTTITL (klik voor foto in apart venster)';
alternative[_VAROUT(_LOOP,"0")]='_PHOT';
portrait[_VAROUT(_LOOP,"0")]=[&[?_PHOTWIDT("0")<_PHOTHEIG("0")?]1&]|[&0&];
_PHOTHEIG?_BEGI
width[_VAROUT(_LOOP,"0")]=((FOTOHOOGTE*(_PHOTWIDT("0")))/(_PHOTHEIG)/100);
_ELSE
width[_VAROUT(_LOOP,"0")]=0;
_END
_VARADD(_LOOP,1):.
_PHOTEND:.
_VARDEL(_LOOP):.
document.writeln ("<td width='74' style='text-align:left' valign='middle'>");
document.writeln ("<form name='form1' id='form1'>");
document.writeln ("<input type='button' value=' ' onclick='volgendefoto(-1)' name='button1' id='button1'>");
document.writeln ("<input type='button' value='>' onclick='volgendefoto(1)' name='button2' id='button2'>");
document.writeln ("</form></td>");
//-->
</script>
<td colspan="2" style="text-align:left; height:_HEIGHT" valign="middle">
<a href="javascript:" onmouseover="window.status='klik voor foto in apart venster'; return true;" onmouseout="window.status=''; return true;" onclick="openWin('',1); return false;">
<img src= "[:_FOTOPAD:]_PHOT" title="_PHOTTITL (klik voor foto in apart venster)" alt="_PHOT" id="afbeelding" name="afbeelding" style="height:_HEIGHT; width=_WIDTH; visibility:visible;" /></a>
</td><td width="229">&nbsp;</td></tr>
_ELSE
:. slechts 1 afbeelding wordt getoond
_PHOTBEGI
<tr><td colspan="2" style="text-align:left" valign="middle">
<a href="javascript:" onmouseover="window.status='klik voor foto in apart venster'; return true;" onmouseout="window.status=''; return true;" onclick="openWin('[:_FOTOPAD:]_PHOT',[&[?_PHOTWIDT("0")<_PHOTHEIG("0")?]1&]|[&0&]); return false;">
<img src= "[:_FOTOPAD:]_PHOT" title="_PHOTTITL (klik voor foto in apart venster)" alt="_PHOT" id="afbeelding" name="afbeelding" style="height:_HEIGHT; width=_WIDTH;" /></a>
</td></tr>
_BRK
_PHOTEND
_END:.
_VARDEL(FOTOB)
_VARDEL(_VARTEMP)
_END:.
</table>
_FUNCEND
:.
_FUNCBEGI( PERSOON1 )
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr><td width="90">Geslacht</td><td colspan="3" width="350"><span class="data">_SEX( "Man;Vrouw;Onbekend" )</span></td></tr>
_PRIV?_BEGI
:. Geen gegevens vermelden i.v.m. Prive in rapport
_ELSE
_STIL?_BEGI[::]_ELSE
<tr>:.
	<td>Leeftijd</td>:.
	<td colspan="3"><span class="data">:.
		_DEAT?_BEGI
			_DEATDATE?_BEGI
				_SETCLR(_ENDDATE)_SETADD(_ENDDATE,"overlijden",_DEATDATE)
			_ELSE
				_SETCLR(_ENDDATE)_SETADD(_ENDDATE,"begraven",_BURIDATE)
			_END
			[&_BIRTDATE _DEATDATE&]?_BEGI[::][:_BIRTDATE([:_DIFFDATE(_DEATDATE)DATEFORMAT6:]):]|[&Onbekend&]_ELSE
			[&_BIRTDATE _BURIDATE&]?_BEGI[&_BIRTDATE([:_DIFFDATE(_BURIDATE)DATEFORMAT6:]) <span style="font-weight: normal;">(Gebaseerd op _BURITYPE(";crematiedatum;begraafdatum;datum dat lichaam ter beschikking gesteld werd aan de wetenschap;datum van vermissing;lijkbezorgingsdatum;resomatiedatum"))</span>&]|[&Onbekend&]_ELSE
			[&_BAPTDATE _DEATDATE&]?_BEGI[&_BAPTDATE([:_DIFFDATE(_DEATDATE)DATEFORMAT6:]) <span style="font-weight: normal;">(Gebaseerd op doopdatum)</span>&]|[&Onbekend&]_ELSE
			[&_BAPTDATE _BURIDATE&]?_BEGI[&_BAPTDATE([:_DIFFDATE(_BURIDATE)DATEFORMAT6:]) <span style="font-weight: normal;">(Gebaseerd op doopdatum/_BURITYPE(";crematiedatum;begraafdatum;datum dat lichaam ter beschikking gesteld werd aan de wetenschap;datum van vermissing;lijkbezorgingsdatum;resomatiedatum"))</span>&]|[&Onbekend&]_ELSE
			[&Onbekend&]:.
			_END[::]_END[::]_END[::]_END
		_ELSE
		_BIRTDATE([:Y:])?_BEGI:.
<script type="text/javascript">
document.write(getAge(_BIRTDATE([:_E("0;1;2;3"):]),[:_BIRTDATE([:D:]):]|[&-1&],[:_BIRTDATE([:M:]):]|[&-1&],_BIRTDATE([:Y:])));
</script>
		_ELSE[::]_BAPTDATE([:Y:])?_BEGI:.
<script type="text/javascript">
document.write(getAge(_BAPTDATE([:_E("0;1;2;3"):]),[:_BAPTDATE([:D:]):]|[&-1&],[:_BAPTDATE([:M:]):]|[&-1&],_BAPTDATE([:Y:])));
</script>
			<span style="font-weight: normal;">(Gebaseerd op doopdatum)</span>
		_ELSE
			[&Onbekend&]:.
		_END[::]_END:.
		_END
		</span>:.
	</td>:.
</tr>:.
_END
:. Maak een lege regel
<tr><td>&nbsp;</td></tr>
[&<tr>[&[?_DEATDATE?][?_STIL?]<td width="90">Levenloos geboren</td>&][:[:<td width="110"><span class="data">_DEATDATE([:DATEFORMAT2:])</span></td>:][:<td width="25">te</td><td width="350"><span class="data">_DEATPLAC</span></td>:]:]</tr>&]|[&
<tr>[&[?_BIRTDATE?][?_STIL?]<td width="90">Levenloos geboren</td>&][:[:<td width="110"><span class="data">_BIRTDATE([:DATEFORMAT2:])</span></td>:][:<td width="25">te</td><td width="350"><span class="data">_BIRTPLAC</span></td>:]:]</tr>&]|[&
<tr>[&[?_BIRTDATE?]<td width="90">Geboren</td>&][:[:<td width="110"><span class="data">_BIRTDATE([:DATEFORMAT2:])</span></td>:][:<td width="25">te</td><td width="350"><span class="data">_BIRTPLAC</span></td>:]:]</tr>&]|[&
<tr>[:[?_BIRTPLAC?]<td width="90">Geboren</td>:][:[&<td width="110"><span class="data">&nbsp;</span></td>&][:<td width="25">te</td><td width="350"><span class="data">_BIRTPLAC</span></td>:]:]</tr>&]|[&&]
[&<tr>[&[?_BAPTDATE?]<td width="90">Gedoopt</td>&][:[:<td width="110"><span class="data">_BAPTDATE([:DATEFORMAT2:])</span></td>:][:<td width="25">te</td><td width="350"><span class="data">_BAPTPLAC</span></td>:]:]</tr>&]|[&
<tr>[:[?_BAPTPLAC?]<td width="90">Gedoopt</td>:][:[&<td width="110"><span class="data">&nbsp;</span></td>&][:<td width="25">te</td><td width="350"><span class="data">_BAPTPLAC</span></td>:]:]</tr>&]|[&&]
[?_STIL==?]?_BEGI
[&<tr>[&[?_DEATDATE?]<td width="90">Overleden</td>&][:[:<td width="110"><span class="data">_DEATDATE([:DATEFORMAT2:])</span></td>:][:<td width="25">te</td><td width="350"><span class="data">_DEATPLAC</span></td>:]:]</tr>&]|[&
<tr>[:[?_DEATPLAC?]<td width="90">Overleden</td>:][:[&<td width="110"><span class="data">&nbsp;</span></td>&][:<td width="25">te</td><td width="350"><span class="data">_DEATPLAC</span></td>:]:]</tr>&]|[&&]
_END
[&<tr>[&[?_BURIDATE?]<td width="90">_BURITYPE(";Gecremeerd;Begraven;Tbs wetenschap;Vermist;Lijkbezorging;Geresomeerd")</td>&][:[:<td width="110"><span class="data">_BURIDATE([:DATEFORMAT2:])</span></td>:][:<td width="25">te</td><td width="350"><span class="data">_BURIPLAC</span></td>:]:]</tr>&]|[&
<tr>[&[?_BURIPLAC?]<td width="90">_BURITYPE(";Gecremeerd;Begraven;Tbs wetenschap;Vermist;Lijkbezorging;Geresomeerd")</td>&][:[&<td width="110"><span class="data">&nbsp;</span></td>&][:<td width="25">te</td><td width="350"><span class="data">_BURIPLAC</span></td>:]:]</tr>&]|[&&]
_END
</table>
_FUNCEND
:.
_FUNCBEGI( NAAM1 )[:_NAMEFIRS|_NAMENICK[: ACHTERNAAM_VOLLEDIG:]:]._SPAC[::]_FUNCEND
:.
_FUNCBEGI( OUDERS1 )
<table width="100%" border="0" cellspacing="0" cellpadding="0">
_FATHBEGI
<tr><td valign="top" width="70">_PARETYPE("V;Adoptiev;Pleegv;Stiefv;Gewettigde v")ader&nbsp;</td><td colspan="2"><span class="data">_LINK?_BEGI
<a href="_LINK"
onmouseover="window.status='Bekijk de kaart van vader NAAM1';return true;" onmouseout="window.status='';">NAAM1</a>_ELSE[::]NAAM1[::]_END</span></td></tr>
<tr><td>&nbsp;</td>OUDERBIRT
<tr><td>&nbsp;</td>OUDERDOOD
_FATHEND
:.
_MOTHBEGI
<tr><td>_PARETYPE("M;Adoptiem;Pleegm;Stiefm;Gewettigde m")oeder&nbsp;</td><td colspan="2"><span class="data">_LINK?_BEGI
<a href="_LINK"
onmouseover="window.status='Bekijk de kaart van moeder NAAM1';return true;" onmouseout="window.status='';">NAAM1</a>_ELSE[::]NAAM1[::]_END[::]</span></td></tr>
<tr><td>&nbsp;</td>OUDERBIRT
<tr><td>&nbsp;</td>OUDERDOOD
_MOTHEND
BROERSZUSSEN
<tr><td>&nbsp;</td></tr>:. ten behoeve van Mozilla Firefox en Netscape, kader tonen bij leeg veld
</table>
_FUNCEND
:.
_FUNCBEGI( RELATIE1 )
<table width="100%" border="0" cellspacing="0" cellpadding="0">
[&[?_MARL?][?[:_RELASTAR _RELAPLAC [&[?_PREFSOUR?]_RELASOUR&]:]==?][?[:_MARCDATE _MARCPLAC [&[?_PREFSOUR?]_MARCSOUR&]:]==?]&]?_BEGI
:. alleen ondertrouw
<tr><td valign="top" width="120">Ondertrouw</td>
_ELSE[&[?_MARC?][?[:_RELASTAR _RELAPLAC [&[?_PREFSOUR?]_RELASOUR&]:]==?]&]?_BEGI
:. alleen kerkelijk huwelijk
<tr><td valign="top" width="120">Kerkelijk huwelijk</td>
_ELSE[&_NORE _CHIL(_BIOL)&]?_BEGI
:. geen relatie
<tr><td valign="top" width="120">[:[?_CHILAMOU(_BIOL)==1?]Kind:]|[&Kinderen&] samen</td>
_ELSE[::]_RELA?_BEGI
<tr><td valign="top" width="120">_RELATYPE("Huwelijk;Geregistreerd partnerschap;Samenleven;Relatie;;Onbekende relatievorm")</td>
_ELSE
<tr><td valign="top" width="120"></td>
_END
_END
_END
_END
_PRIV?_BEGI
:. Toon geen relatie datum en plaats informatie i.v.m. privacy
_ELSE
[?_RELASTAR _RELAPLAC?]?_BEGI
<td valign="top" width="110">[&<span class="data">_RELASTAR([:DATEFORMAT2:])</span>&]</td>
<td valign="top" width="25">[&[?_RELAPLAC?]te&]</td>
<td valign="top" width="350">[&<span class="data">_RELAPLAC</span>&]</td>
_ELSE
[?_MARCDATE _MARCPLAC?]?_BEGI
<td valign="top" width="110">[&<span class="data">_MARCDATE([:DATEFORMAT2:])</span>&]</td>
<td valign="top" width="25">[&[?_MARCPLAC?]te&]</td>
<td valign="top" width="350">[&<span class="data">_MARCPLAC</span>&]</td>
_ELSE
[?_MARLDATE _MARLPLAC?]?_BEGI
<td valign="top" width="110">[&<span class="data">_MARLDATE([:DATEFORMAT2:])</span>&]</td>
<td valign="top" width="25">[&[?_MARLPLAC?]te&]</td>
<td valign="top" width="350">[&<span class="data">_MARCPLAC</span>&]</td>
_ELSE
<td valign="top" width="110"></td><td valign="top" width="25"></td><td valign="top" width="350"></td>
_END
_END
_END
_END
</tr><tr><td>&nbsp;</td></tr>
<tr><td>met</td><td colspan="3"><span class="data">_LINK?_BEGI<a href="_LINK"
onmouseover="window.status='Bekijk de kaart van partner NAAM1';return true;" onmouseout="window.status='';">NAAM1</a>_ELSE[::]NAAM1[::]_END</span></td></tr>
_PRIV?_BEGI
:. Toon geen informatie i.v.m. privacy
_ELSE
[:[?_BIRTDATE?]<tr><td>&nbsp;</td><td>Geboren</td><td colspan="2"><span class="data">_BIRTDATE([:DATEFORMAT2:])</span></td></tr>:]|[:[?_BAPTDATE?]<tr><td>&nbsp;</td><td>Gedoopt</td><td colspan="2"><span class="data">_BAPTDATE([:DATEFORMAT2:])</span></td></tr>:]|[&&]
[:[?_DEATDATE?]<tr><td>&nbsp;</td><td>Overleden</td><td colspan="2"><span class="data">_DEATDATE([:DATEFORMAT2:])</span></td></tr>:]|[&[?_BURIDATE?]<tr><td>&nbsp;</td><td>_BURITYPE(";Gecremeerd;Begraven;Tbs wetenschap;Vermist;Lijkbezorging;Geresomeerd")</td><td colspan="2"><span class="data">_BURIDATE([:DATEFORMAT2:])</span></td></tr>&]|[&&]
[&_PREFNOTERELA("1;")&]?_BEGI[:vinkje niet gezet:]_ELSE[::]_RELANOTE?_BEGI<tr><td valign="top">Notities</td><td colspan="3"><span class="data">_RELANOTE</span></td></tr>_END[::]_END
_END
_DIV?
_BEGI
<tr>:.
	<td>&nbsp;</td>:.
</tr>:.
<tr>:.
	<td colspan="4">_RELATYPE("Het huwelijk;Het geregistreerd partnerschap;Het samenleven;De relatie;;De onbekende relatievorm") werd beëindigd[::]_PRIV("1;")?_BEGI[:[?_DIVDATE _DIVPLAC?]::]|[&.&]_ELSE._END</td>:.
</tr><tr>:.
	<td width="90"></td>
	<td width="110">_PRIV("1;")?_BEGI<span class="data">_DIVDATE([:DATEFORMAT2:])</span>_END</td>:.
	<td width="25">_PRIV("1;")?_BEGI[&[?_DIVPLAC?]te&]_END</td>:.
	<td width="350">_PRIV("1;")?_BEGI<span class="data">_DIVPLAC</span>_END</td>:.
</tr>:.
_END
</table>
_FUNCEND
:.
_FUNCBEGI(KINDEREN1)
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
_CHIL?_BEGI
_CHIL(_BIOL)?_BEGI
<td width="40" valign="top">[:[?_CHILAMOU(_BIOL)==1?]Kind:]|[&Kinderen&]&nbsp;</td>
<td><span class="data">_CHILBEGI(_BIOL)[::]KINDEREN2[::]_CHILEND</span></td>
_END
_CHIL(_ADOP)?_BEGI
[&[?_CHIL(_BIOL)?]</tr><tr>&]
<td width="40" valign="top">[:[?_CHILAMOU(_ADOP)==1?]Adoptiekind:]|[&Adoptiekinderen&]&nbsp;</td>
<td><span class="data">_CHILBEGI(_ADOP)[::]KINDEREN2[::]_CHILEND</span></td>
_END
_CHIL(_FOST)?_BEGI
[&[?_CHIL(_BIOL)_CHIL(_ADOP)?]</tr><tr>&]
<td width="40" valign="top">[:[?_CHILAMOU(_FOST)==1?]Pleegkind:]|[&Pleegkinderen&]&nbsp;</td>
<td><span class="data">_CHILBEGI(_FOST)[::]KINDEREN2[::]_CHILEND</span></td>
_END
_CHIL(_STEP)?_BEGI
[&[?_CHIL(_BIOL)_CHIL(_ADOP)_CHIL(_FOST)?]</tr><tr>&]
<td width="40" valign="top">[:[?_CHILAMOU(_STEP)==1?]Stiefkind:]|[&Stiefkinderen&]&nbsp;</td>
<td><span class="data">_CHILBEGI(_STEP)[::]KINDEREN2[::]_CHILEND</span></td>
_END
_CHIL(_LEGA)?_BEGI
[&[?_CHIL(_BIOL)_CHIL(_ADOP)_CHIL(_FOST)_CHIL(_STEP)?]</tr><tr>&]
<td width="40" valign="top">[:[?_CHILAMOU(_LEGA)==1?]Gewettigd kind:]|[&Gewettigde kinderen&]&nbsp;</td>
<td><span class="data">_CHILBEGI(_LEGA)[::]KINDEREN2[::]_CHILEND</span></td>
_END
_ELSE
[:[?_RELACHILLESS _CHILLESS?]<td width="90" valign="top"><span class="data">Kinderloos</span></td>:]
<td>&nbsp;</td>:. ten behoeve van Mozilla Firefox en Netscape, kader tonen om leeg veld
_END
</tr>
</table>
_FUNCEND
:.
_FUNCBEGI( KINDEREN2 )
[?_NAMEFIRS|_NAMENICK?]?_BEGI
_LINK?_BEGI
<a href="_LINK"
onmouseover="window.status='Bekijk de kaart van kind _NAME';return true;" onmouseout="window.status='';">_NAMEFIRS|_NAMENICK</a>:.
_ELSE
_NAMEFIRS|_NAMENICK:.
_END
_ELSE
_LINK?_BEGI
<a href="_LINK"
onmouseover="window.status='Bekijk de kaart van kind _NUMB';return true;" onmouseout="window.status='';">Kind _NUMB</a>:.
_ELSE
Kind _NUMB:.
_END
_END<br />
_FUNCEND
:.
_FUNCBEGI(NOTITIES1)
_PRIV?_BEGI
:. Geen notities vermelden i.v.m. Prive in rapport
_ELSE
[&[&_PREFNOTEPERS("1;")&][&_PREFNOTEBIRT("1;")&][&_PREFNOTEDEAT("1;")&]&]?_BEGI
:. Geen notities vermelden i.v.m. met vinken tekstoverzicht
_ELSE
[:[:_NOTE("1;"):][:_BIRTNOTE:][:_DEATNOTE:]:]?_BEGI
<tr><td colspan="2" height="125" valign="top">NOTITIES2</td></tr>
_ELSE
:. Geen notities voor persoon, geboorte en overlijden
_END
_END
_END
_FUNCEND
:.
_FUNCBEGI(NOTITIES2)
<table width="100%" border="0" cellspacing="0" cellpadding="0">
[&_PREFNOTEPERS("1;")&]?_BEGI[::]_ELSE[::]_NOTE?_BEGI<tr><td width="160" valign="top">Notities persoon</td><td colspan="3"><span class="data">_NOTE</span></td></tr>_END[::]_END
[&_PREFNOTEBIRT("1;")&]?_BEGI[::]_ELSE[::]_BIRTNOTE?_BEGI<tr><td width="160" valign="top">Notities geboorte</td><td colspan="3"><span class="data">_BIRTNOTE</span></td></tr>_END[::]_END
[&_PREFNOTEDEAT("1;")&]?_BEGI[::]_ELSE[::]_DEATNOTE?_BEGI<tr><td width="160" valign="top">Notities overlijden</td><td colspan="3"><span class="data">_DEATNOTE</span></td></tr>_END[::]_END
</table>
_FUNCEND
:.
_FUNCBEGI( OUDERBIRT )
_PRIV?_BEGI
</tr>:. Toon geen geboorte of doop informatie i.v.m. privacy
_ELSE
[:[:_BIRTDATE?_BEGI<td>Geboren&nbsp;</td><td width="350"><span class="data">_BIRTDATE([:DATEFORMAT2:])</span></td></tr>_END:]|[:_BAPTDATE?_BEGI<td>Gedoopt&nbsp;</td><td width="350"><span class="data">_BAPTDATE([:DATEFORMAT2:])</span></td></tr>_END:]|[&</tr>&]:]
_END
_FUNCEND
:.
_FUNCBEGI( OUDERDOOD )
_PRIV?_BEGI 
</tr>:. Geen gegevens worden getoond i.v.m. privacy
_ELSE
_DEAT?_BEGI
[:[:[?_DEATDATE?]<td>Overleden&nbsp;</td><td width="350"><span class="data">_DEATDATE([:DATEFORMAT2:])</span></td></tr>:]|
[&[?_BURIDATE?]<td>_BURITYPE(";Gecremeerd;Begraven;Tbs wetenschap;Vermist;Lijkbezorging;Geresomeerd")&nbsp;</td><td width="350"><span class="data">_BURIDATE([:DATEFORMAT2:])</span></td></tr>&]:]
_ELSE</tr>_END[::]_END
_FUNCEND
:.
_FUNCBEGI( BROERSZUSSEN )
_SETDEF( adoptiebrzus )
_SETDEF( pleegbrzus )
_SETDEF( stiefbrzus )
_SETDEF( gewettigdebrzus )
_SETDEF( brzus )
_SETDEF( halfbrzus )
[&_FATH(_BIOL)_MOTH(_BIOL)&]?_BEGI
_FATHBEGI(_BIOL):. Alle kinderen van de vader
_CHILBEGI(_BIOL)_SETADD(brzus)_SETADD( halfbrzus )_CHILEND
_CHILBEGI(_ADOP)_SETADD( adoptiebrzus )_CHILEND
_CHILBEGI(_FOST)_SETADD( pleegbrzus )_CHILEND
_CHILBEGI(_STEP)_SETADD( stiefbrzus )_CHILEND
_CHILBEGI(_LEGA)_SETADD( gewettigdebrzus )_CHILEND
_FATHEND
_MOTHBEGI(_BIOL):. Alle kinderen van de moeder
_CHILBEGI(_BIOL)_SETORDE(brzus)?_BEGI[::]_SETSUB( halfbrzus )_ELSE[::]_SETADD( halfbrzus )_END[::]_CHILEND
_CHILBEGI(_ADOP)_SETADD( adoptiebrzus )_CHILEND
_CHILBEGI(_FOST)_SETADD( pleegbrzus )_CHILEND
_CHILBEGI(_STEP)_SETADD( stiefbrzus )_CHILEND
_MOTHEND
_SETORDE( halfbrzus )?_BEGI
_SETSUB( halfbrzus ):. Huidige persoon uit set verwijderen
_END
_SETORDE( brzus )?_BEGI
_SETSUB( brzus ):. Huidige persoon uit set verwijderen
_END
_SETBEGI( halfbrzus )_SETORDE( brzus )?_BEGI[::]_SETSUB( brzus )_END[::]_SETEND:. Haal de halfbroers en zussen uit de set van brzus
_ELSE
:. Als de huidige persoon maar één bekende ouder heeft worden
:. alle andere kinderen van dezelfde ouder en zonder andere ouder
:. als broers/zusters beschouwd
_FATHBEGI(_BIOL):. Alle kinderen van de vader
_CHILBEGI(_BIOL)_MOTH(_BIOL)?_BEGI[::]_SETADD( halfbrzus )_ELSE[::]_SETADD(brzus)_END[::]_CHILEND
_CHILBEGI(_ADOP)_SETADD( adoptiebrzus )_CHILEND
_CHILBEGI(_FOST)_SETADD( pleegbrzus )_CHILEND
_CHILBEGI(_STEP)_SETADD( stiefbrzus )_CHILEND
_CHILBEGI(_LEGA)_SETADD( gewettigdebrzus )_CHILEND
_FATHEND
_MOTHBEGI(_BIOL):. Alle kinderen van de moeder
_CHILBEGI(_BIOL)_FATH(_BIOL)?_BEGI[::]_SETADD( halfbrzus )_ELSE[::]_SETADD(brzus)_END[::]_CHILEND
_CHILBEGI(_ADOP)_SETADD( adoptiebrzus )_CHILEND
_CHILBEGI(_FOST)_SETADD( pleegbrzus )_CHILEND
_CHILBEGI(_STEP)_SETADD( stiefbrzus )_CHILEND
_MOTHEND
_SETORDE( halfbrzus )?_BEGI
_SETSUB( halfbrzus ):. Huidige persoon uit set verwijderen
_END
_SETORDE( brzus )?_BEGI
_SETSUB( brzus ):. Huidige persoon uit set verwijderen
_END
_END
_FATHBEGI(_ADOP)_CHILBEGI(_BIOL)_SETADD( adoptiebrzus )_CHILEND[::]_FATHEND:. Biologische kinderen van adoptievader
_MOTHBEGI(_ADOP)_CHILBEGI(_BIOL)_SETADD( adoptiebrzus )_CHILEND[::]_MOTHEND:. Biologische kinderen van adoptiemoeder
_SETBEGI( halfbrzus )_SETORDE( adoptiebrzus )?_BEGI[::]_SETSUB( adoptiebrzus )_END[::]_SETEND:. Haal de halfbroers en zussen uit de set van adoptiebrzus
_FATHBEGI(_FOST)_CHILBEGI(_BIOL)_SETADD( pleegbrzus )_CHILEND[::]_FATHEND:. Biologische kinderen van pleegvader
_MOTHBEGI(_FOST)_CHILBEGI(_BIOL)_SETADD( pleegbrzus )_CHILEND[::]_MOTHEND:. Biologische kinderen van pleegmoeder
_SETBEGI( halfbrzus )_SETORDE( pleegbrzus )?_BEGI[::]_SETSUB( pleegbrzus )_END[::]_SETEND:. Haal de halfbroers en zussen uit de set van pleegbrzus
_FATHBEGI(_STEP)_CHILBEGI(_BIOL)_SETADD( stiefbrzus )_CHILEND[::]_FATHEND:. Biologische kinderen van stiefvader
_MOTHBEGI(_STEP)_CHILBEGI(_BIOL)_SETADD( stiefbrzus )_CHILEND[::]_MOTHEND:. Biologische kinderen van stiefmoeder
_SETBEGI( halfbrzus )_SETORDE( stiefbrzus )?_BEGI[::]_SETSUB( stiefbrzus )_END[::]_SETEND:. Haal de halfbroers en zussen uit de set van stiefbrzus
_FATHBEGI(_LEGA)_CHILBEGI(_BIOL)_SETADD( gewettigdebrzus )_CHILEND[::]_FATHEND:. Biologische kinderen van gewettigde vader
_SETBEGI( halfbrzus )_SETORDE( gewettigdebrzus )?_BEGI[::]_SETSUB( gewettigdebrzus )_END[::]_SETEND:. Haal de halfbroers en zussen uit de set van gewettigdebrzus
:. Toon broers en zussen
_SETBEGI( brzus )
<tr><td>_SEX("Broer;Zus;Broer/zus")&nbsp;</td><td colspan="3" width="350"><span class="data">
[?_NAMEFIRS|_NAMENICK?]?_BEGI
_LINK?_BEGI<a href="_LINK"
onmouseover="window.status='Bekijk de kaart van _SEX("Broer;Zus;Broer/zus") _NAME';return true;"
onmouseout="window.status='';">_NAMEFIRS|_NAMENICK[::]_PRIV?_BEGI[::]_ELSE</a>_BIRTDATE?_BEGI<span style="font-weight: normal;"> *</span><span style="white-space: nowrap">_BIRTDATE([:DATEFORMAT2:])</span>_ELSE:.
_BAPTDATE?_BEGI<span style="font-weight: normal;"> ~</span><span style="white-space: nowrap">_BAPTDATE([:DATEFORMAT2:])</span>_END[::]_END[::]_END
_ELSE
_NAMEFIRS|_NAMENICK[::]_PRIV?_BEGI[::]_ELSE[::]_BIRTDATE?_BEGI<span style="font-weight: normal;"> *</span><span style="white-space: nowrap">_BIRTDATE([:DATEFORMAT2:])</span>_ELSE:.
_BAPTDATE?_BEGI<span style="font-weight: normal;"> ~</span><span style="white-space: nowrap">_BAPTDATE([:DATEFORMAT2:])</span>_END[::]_END[::]_END
_END
_ELSE
_LINK?_BEGI
<a href="_LINK"
onmouseover="window.status='Bekijk de kaart van _SEX("Broer;Zus;Broer/zus")';return true;"
onmouseout="window.status='';">kind _NUMB[::]_PRIV?_BEGI[::]_ELSE</a>_BIRTDATE?_BEGI<span style="font-weight: normal;"> *</span><span style="white-space: nowrap">_BIRTDATE([:DATEFORMAT2:])</span>_ELSE:.
_BAPTDATE?_BEGI<span style="font-weight: normal;"> ~</span><span style="white-space: nowrap">_BAPTDATE([:DATEFORMAT2:])</span>_END[::]_END[::]_END
_ELSE
Kind _NUMB[::]_PRIV?_BEGI[::]_ELSE[::]_BIRTDATE?_BEGI<span style="font-weight: normal;"> *</span><span style="white-space: nowrap">_BIRTDATE([:DATEFORMAT2:])</span>_ELSE:.
_BAPTDATE?_BEGI<span style="font-weight: normal;"> ~</span><span style="white-space: nowrap">_BAPTDATE([:DATEFORMAT2:])</span>_END[::]_END[::]_END
_END[::]_END<br /></span></td></tr>
_SETEND
:. Toon halfbroers en halfzusters
_SETBEGI( halfbrzus )
<tr><td>_SEX("Halfbroer;Halfzus;Halfbroer/halfzus")&nbsp;</td><td colspan="3" width="350"><span class="data">
[?_NAMEFIRS|_NAMENICK?]?_BEGI
_LINK?_BEGI<a href="_LINK"
onmouseover="window.status='Bekijk de kaart van _SEX("Halfbroer;Halfzus;Halfbroer/halfzus") _NAME';return true;"
onmouseout="window.status='';">_NAMEFIRS|_NAMENICK[::]_PRIV?_BEGI[::]_ELSE</a>_BIRTDATE?_BEGI<span style="font-weight: normal;"> *</span><span style="white-space: nowrap">_BIRTDATE([:DATEFORMAT2:])</span>_ELSE:.
_BAPTDATE?_BEGI<span style="font-weight: normal;"> ~</span><span style="white-space: nowrap">_BAPTDATE([:DATEFORMAT2:])</span>_END[::]_END[::]_END
_ELSE
_NAMEFIRS|_NAMENICK[::]_PRIV?_BEGI[::]_ELSE[::]_BIRTDATE?_BEGI<span style="font-weight: normal;"> *</span><span style="white-space: nowrap">_BIRTDATE([:DATEFORMAT2:])</span>_ELSE:.
_BAPTDATE?_BEGI<span style="font-weight: normal;"> ~</span><span style="white-space: nowrap">_BAPTDATE([:DATEFORMAT2:])</span>_END[::]_END[::]_END
_END
_ELSE
_LINK?_BEGI
<a href="_LINK"
onmouseover="window.status='Bekijk de kaart van _SEX("Halfbroer;Halfzus;Halfbroer/halfzus")';return true;"
onmouseout="window.status='';">kind _NUMB[::]_PRIV?_BEGI[::]_ELSE</a>_BIRTDATE?_BEGI<span style="font-weight: normal;"> *</span><span style="white-space: nowrap">_BIRTDATE([:DATEFORMAT2:])</span>_ELSE:.
_BAPTDATE?_BEGI<span style="font-weight: normal;"> ~</span><span style="white-space: nowrap">_BAPTDATE([:DATEFORMAT2:])</span>_END[::]_END[::]_END
_ELSE
Kind _NUMB[::]_PRIV?_BEGI[::]_ELSE[::]_BIRTDATE?_BEGI<span style="font-weight: normal;"> *</span><span style="white-space: nowrap">_BIRTDATE([:DATEFORMAT2:])</span>_ELSE:.
_BAPTDATE?_BEGI<span style="font-weight: normal;"> ~</span><span style="white-space: nowrap">_BAPTDATE([:DATEFORMAT2:])</span>_END[::]_END[::]_END
_END
_END<br /></span>
</td>
</tr>
_SETEND
:. Toon adoptiebroers en adoptiezusters
_SETBEGI( adoptiebrzus )
<tr><td>_SEX("Adoptiebroer;Adoptiezus;Adoptiebroer/adoptiezus")&nbsp;</td><td colspan="3" width="350"><span class="data">
[?_NAMEFIRS|_NAMENICK?]?_BEGI
_LINK?_BEGI<a href="_LINK"
onmouseover="window.status='Bekijk de kaart van _SEX("Adoptiebroer;Adoptiezus;Adoptiebroer/adoptiezus") _NAME';return true;"
onmouseout="window.status='';">_NAMEFIRS|_NAMENICK[::]_PRIV?_BEGI[::]_ELSE</a>_BIRTDATE?_BEGI<span style="font-weight: normal;"> *</span><span style="white-space: nowrap">_BIRTDATE([:DATEFORMAT2:])</span>_ELSE:.
_BAPTDATE?_BEGI<span style="font-weight: normal;"> ~</span><span style="white-space: nowrap">_BAPTDATE([:DATEFORMAT2:])</span>_END[::]_END[::]_END
_ELSE
_NAMEFIRS|_NAMENICK[::]_PRIV?_BEGI[::]_ELSE[::]_BIRTDATE?_BEGI<span style="font-weight: normal;"> *</span><span style="white-space: nowrap">_BIRTDATE([:DATEFORMAT2:])</span>_ELSE:.
_BAPTDATE?_BEGI<span style="font-weight: normal;"> ~</span><span style="white-space: nowrap">_BAPTDATE([:DATEFORMAT2:])</span>_END[::]_END[::]_END
_END
_ELSE
_LINK?_BEGI
<a href="_LINK"
onmouseover="window.status='Bekijk de kaart van _SEX("Adoptiebroer;Adoptiezus;Adoptiebroer/adoptiezus")';return true;"
onmouseout="window.status='';">kind _NUMB[::]_PRIV?_BEGI[::]_ELSE</a>_BIRTDATE?_BEGI<span style="font-weight: normal;"> *</span><span style="white-space: nowrap">_BIRTDATE([:DATEFORMAT2:])</span>_ELSE:.
_BAPTDATE?_BEGI<span style="font-weight: normal;"> ~</span><span style="white-space: nowrap">_BAPTDATE([:DATEFORMAT2:])</span>_END[::]_END[::]_END
_ELSE
Kind _NUMB[::]_PRIV?_BEGI[::]_ELSE[::]_BIRTDATE?_BEGI<span style="font-weight: normal;"> *</span><span style="white-space: nowrap">_BIRTDATE([:DATEFORMAT2:])</span>_ELSE:.
_BAPTDATE?_BEGI<span style="font-weight: normal;"> ~</span><span style="white-space: nowrap">_BAPTDATE([:DATEFORMAT2:])</span>_END[::]_END[::]_END
_END
_END<br /></span>
</td>
</tr>
_SETEND
:. Toon pleegbroers en pleegzusters
_SETBEGI( pleegbrzus )
<tr><td>_SEX("Pleegbroer;Pleegzus;Pleegbroer/pleegzus")&nbsp;</td><td colspan="3" width="350"><span class="data">
[?_NAMEFIRS|_NAMENICK?]?_BEGI
_LINK?_BEGI<a href="_LINK"
onmouseover="window.status='Bekijk de kaart van _SEX("Pleegbroer;Pleegzus;Pleegbroer/pleegzus") _NAME';return true;"
onmouseout="window.status='';">_NAMEFIRS|_NAMENICK[::]_PRIV?_BEGI[::]_ELSE</a>_BIRTDATE?_BEGI<span style="font-weight: normal;"> *</span><span style="white-space: nowrap">_BIRTDATE([:DATEFORMAT2:])</span>_ELSE:.
_BAPTDATE?_BEGI<span style="font-weight: normal;"> ~</span><span style="white-space: nowrap">_BAPTDATE([:DATEFORMAT2:])</span>_END[::]_END[::]_END
_ELSE
_NAMEFIRS|_NAMENICK[::]_PRIV?_BEGI[::]_ELSE[::]_BIRTDATE?_BEGI<span style="font-weight: normal;"> *</span><span style="white-space: nowrap">_BIRTDATE([:DATEFORMAT2:])</span>_ELSE:.
_BAPTDATE?_BEGI<span style="font-weight: normal;"> ~</span><span style="white-space: nowrap">_BAPTDATE([:DATEFORMAT2:])</span>_END[::]_END[::]_END
_END
_ELSE
_LINK?_BEGI
<a href="_LINK"
onmouseover="window.status='Bekijk de kaart van _SEX("Pleegbroer;Pleegzus;Pleegbroer/pleegzus")';return true;"
onmouseout="window.status='';">kind _NUMB[::]_PRIV?_BEGI[::]_ELSE</a>_BIRTDATE?_BEGI<span style="font-weight: normal;"> *</span><span style="white-space: nowrap">_BIRTDATE([:DATEFORMAT2:])</span>_ELSE:.
_BAPTDATE?_BEGI<span style="font-weight: normal;"> ~</span><span style="white-space: nowrap">_BAPTDATE([:DATEFORMAT2:])</span>_END[::]_END[::]_END
_ELSE
Kind _NUMB[::]_PRIV?_BEGI[::]_ELSE[::]_BIRTDATE?_BEGI<span style="font-weight: normal;"> *</span><span style="white-space: nowrap">_BIRTDATE([:DATEFORMAT2:])</span>_ELSE:.
_BAPTDATE?_BEGI<span style="font-weight: normal;"> ~</span><span style="white-space: nowrap">_BAPTDATE([:DATEFORMAT2:])</span>_END[::]_END[::]_END
_END
_END<br /></span>
</td>
</tr>
_SETEND
:. Toon stiefbroers en stiefzusters
_SETBEGI( stiefbrzus )
<tr><td>_SEX("Stiefbroer;Stiefzus;Stiefbroer/stiefzus")&nbsp;</td><td colspan="3" width="350"><span class="data">
[?_NAMEFIRS|_NAMENICK?]?_BEGI
_LINK?_BEGI<a href="_LINK"
onmouseover="window.status='Bekijk de kaart van _SEX("Stiefbroer;Stiefzus;Stiefbroer/stiefzus") _NAME';return true;"
onmouseout="window.status='';">_NAMEFIRS|_NAMENICK[::]_PRIV?_BEGI[::]_ELSE</a>_BIRTDATE?_BEGI<span style="font-weight: normal;"> *</span><span style="white-space: nowrap">_BIRTDATE([:DATEFORMAT2:])</span>_ELSE:.
_BAPTDATE?_BEGI<span style="font-weight: normal;"> ~</span><span style="white-space: nowrap">_BAPTDATE([:DATEFORMAT2:])</span>_END[::]_END[::]_END
_ELSE
_NAMEFIRS|_NAMENICK[::]_PRIV?_BEGI[::]_ELSE[::]_BIRTDATE?_BEGI<span style="font-weight: normal;"> *</span><span style="white-space: nowrap">_BIRTDATE([:DATEFORMAT2:])</span>_ELSE:.
_BAPTDATE?_BEGI<span style="font-weight: normal;"> ~</span><span style="white-space: nowrap">_BAPTDATE([:DATEFORMAT2:])</span>_END[::]_END[::]_END
_END
_ELSE
_LINK?_BEGI
<a href="_LINK"
onmouseover="window.status='Bekijk de kaart van _SEX("Stiefbroer;Stiefzus;Stiefbroer/stiefzus")';return true;"
onmouseout="window.status='';">kind _NUMB[::]_PRIV?_BEGI[::]_ELSE</a>_BIRTDATE?_BEGI<span style="font-weight: normal;"> *</span><span style="white-space: nowrap">_BIRTDATE([:DATEFORMAT2:])</span>_ELSE:.
_BAPTDATE?_BEGI<span style="font-weight: normal;"> ~</span><span style="white-space: nowrap">_BAPTDATE([:DATEFORMAT2:])</span>_END[::]_END[::]_END
_ELSE
Kind _NUMB[::]_PRIV?_BEGI[::]_ELSE[::]_BIRTDATE?_BEGI<span style="font-weight: normal;"> *</span><span style="white-space: nowrap">_BIRTDATE([:DATEFORMAT2:])</span>_ELSE:.
_BAPTDATE?_BEGI<span style="font-weight: normal;"> ~</span><span style="white-space: nowrap">_BAPTDATE([:DATEFORMAT2:])</span>_END[::]_END[::]_END
_END
_END<br /></span>
</td>
</tr>
_SETEND
:. Toon gewettigde broers en zusters
_SETBEGI( gewettigdebrzus )
<tr><td>_SEX("Gewettigde broer;Gewettigde zus;Gewettigde broer/zus")&nbsp;</td><td colspan="3" width="350"><span class="data">
[?_NAMEFIRS|_NAMENICK?]?_BEGI
_LINK?_BEGI<a href="_LINK"
onmouseover="window.status='Bekijk de kaart van _SEX("Gewettigde broer;Gewettigde zus;Gewettigde broer/zus") _NAME';return true;"
onmouseout="window.status='';">_NAMEFIRS|_NAMENICK[::]_PRIV?_BEGI[::]_ELSE</a>_BIRTDATE?_BEGI<span style="font-weight: normal;"> *</span><span style="white-space: nowrap">_BIRTDATE([:DATEFORMAT2:])</span>_ELSE:.
_BAPTDATE?_BEGI<span style="font-weight: normal;"> ~</span><span style="white-space: nowrap">_BAPTDATE([:DATEFORMAT2:])</span>_END[::]_END[::]_END
_ELSE
_NAMEFIRS|_NAMENICK[::]_PRIV?_BEGI[::]_ELSE[::]_BIRTDATE?_BEGI<span style="font-weight: normal;"> *</span><span style="white-space: nowrap">_BIRTDATE([:DATEFORMAT2:])</span>_ELSE:.
_BAPTDATE?_BEGI<span style="font-weight: normal;"> ~</span><span style="white-space: nowrap">_BAPTDATE([:DATEFORMAT2:])</span>_END[::]_END[::]_END
_END
_ELSE
_LINK?_BEGI
<a href="_LINK"
onmouseover="window.status='Bekijk de kaart van _SEX("Gewettigde broer;Gewettigde zus;Gewettigde broer/zus")';return true;"
onmouseout="window.status='';">kind _NUMB[::]_PRIV?_BEGI[::]_ELSE</a>_BIRTDATE?_BEGI<span style="font-weight: normal;"> *</span><span style="white-space: nowrap">_BIRTDATE([:DATEFORMAT2:])</span>_ELSE:.
_BAPTDATE?_BEGI<span style="font-weight: normal;"> ~</span><span style="white-space: nowrap">_BAPTDATE([:DATEFORMAT2:])</span>_END[::]_END[::]_END
_ELSE
Kind _NUMB[::]_PRIV?_BEGI[::]_ELSE[::]_BIRTDATE?_BEGI<span style="font-weight: normal;"> *</span><span style="white-space: nowrap">_BIRTDATE([:DATEFORMAT2:])</span>_ELSE:.
_BAPTDATE?_BEGI<span style="font-weight: normal;"> ~</span><span style="white-space: nowrap">_BAPTDATE([:DATEFORMAT2:])</span>_END[::]_END[::]_END
_END
_END<br /></span>
</td>
</tr>
_SETEND
_SETDEL( gewettigdebrzus )
_SETDEL( stiefbrzus )
_SETDEL( adoptiebrzus )
_SETDEL( pleegbrzus )
_SETDEL( halfbrzus )
_SETDEL( brzus )
_FUNCEND
:.
_FUNCBEGI( ZONDERRELATIE )
:. Haal alle kinderen van hoofdpersoon
_SETDEF( ALLEKINDEREN )
_CHILBEGI[::]_SETADD( ALLEKINDEREN )_CHILEND
:. Verwijder alle kinderen uit een relatie van hoofdpersoon
_RELABEGI[::]_CHILBEGI[::]_SETORDE( ALLEKINDEREN )?_BEGI[::]_SETSUB( ALLEKINDEREN )_END[::]_CHILEND[::]_RELAEND
_SETAMOU( ALLEKINDEREN )?_BEGI
<tr><td height="120" valign="top"> 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr><td width="90">Relatie</td><td width="350"><span class="data">[:[?_RELALESS?]Ongehuwd:]|[&Geen&]</span></td><td>&nbsp;</td></tr>
</table></td><td valign='top'>
<table width="100%" border="0" cellspacing="0" cellpadding="0"><tr>
<td width="40" valign="top">[:[?_SETAMOU( ALLEKINDEREN )==1?]Kind:]|[&Kinderen&nbsp;&]</td><td><span class="data">
_SETBEGI( ALLEKINDEREN )KINDEREN2[::]_SETEND
</span></td></tr></table></td>
</tr>
_ELSE:. Ongehuwd zonder kinderen
[:[?_RELALESS?]<tr><td height="120" valign="top"> 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr><td width="90">Relatie</td><td width="350"><span class="data">Ongehuwd</span></td></tr>
</table></td><td valign='top'>
<table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td>&nbsp;</td></tr></table></td></tr>:]
_END
_SETDEL( ALLEKINDEREN )
_FUNCEND
:.
_FUNCBEGI( DATEFORMAT2 )
[&:.
	[?_D _M _Y?]<span style="white-space: nowrap">:.Alleen als dag, maand of het jaar is gegeven
	[:E :]|[&&]:.					toon de zekerheid, expandeert altijd
	[:D-:]|[&[?_M?] ?-&]|[&&]:.			de dag, indien die bestaat
	[:M-:]|[&[?_D?] ?-&]|[&&]:.			de maand, of een vraagteken indien de dag bekend is
	[:Y[: SS:]:]|[& ?&]:.				het jaar, of een vraagteken
	</span>:.
&]._SPAC:.
_FUNCEND
:.
_FUNCBEGI( DATEFORMAT6 )
[&[?_E==?][?_Y?]
[?[&_BIRTDATE([:D:])[?_BIRTDATE([:D:])==1?]_BIRTDATE([:M:])[?_BIRTDATE([:M:])==1?]&]==?]
[?[&[?_SETEXP(_ENDDATE,1,_SETDATE)==_DEATDATE?]_DEATDATE([:D:])[?_DEATDATE([:D:])==31?]_DEATDATE([:M:])[?_DEATDATE([:M:])==12?]&]==?][?
[&_BIRTDATE[:[&[?_M==?][?_BIRTDATE([:D:])==?]&][?_BIRTDATE([:M:])==?]:]&][&[?_BIRTDATE==?]_BAPTDATE[:[&[?_M==?][?_BAPTDATE([:D:])==?]&][?_BAPTDATE([:M:])==?]:]&]
[&_SETEXP(_ENDDATE,1,_SETDATE)[:[&[?_M==?][?_SETEXP(_ENDDATE,1,_SETDATE)([:D:])==?]&][?_SETEXP(_ENDDATE,1,_SETDATE)([:M:])==?]:]&]?]
[:[?_VARIN(YMIN1,[:_Y:])_VARSUB(YMIN1,1)?]_VAROUT(YMIN1,"0") of _Y jaar:]&]|[&:.
[?_E==?][?_SETEXP(_ENDDATE,1,_SETDATE)([:E:])?]&]|[::.
[:E :][:_Y jaar:]|[:[:[?_M==1?]1 maand:]|[:_M maanden:]:]|[:[:[?_D==1?]1 dag:]|[:_D dagen:]|[&:.
[&[&[?_E==?]< 1&]|[&1&]&] [&[?[&[&[:_BIRTDATE([:D:])[&[?_BIRTDATE==?]_BAPTDATE([:D:])&]:][:_SETEXP(_ENDDATE,1,_SETDATE)([:D:]):]&]:.
[&[:_BIRTDATE([:M:])[&[?_BIRTDATE==?]_BAPTDATE([:M:])&]:][:_SETEXP(_ENDDATE,1,_SETDATE)([:M:]):]&]&]?]dag&]|[&:.
[?[&[:_BIRTDATE([:M:])[&[?_BIRTDATE==?]_BAPTDATE([:M:])&]:][:_SETEXP(_ENDDATE,1,_SETDATE)([:M:]):]&]?]maand&]|[&jaar&]&]:]:]:.
_FUNCEND
:.
_FUNCBEGI( CHARSET)
_SETDEF(CURRVERS, _SETDUPL)
_SETSPLICE(CURRVERS, [:_CURRVERS:], ".")
_VARDEF(NR_CURRVERS)
_VARIN(NR_CURRVERS, [:_SETEXP(CURRVERS,1,_SETSTRI ):])
[?_VAROUT(NR_CURRVERS) < 7?]?
_BEGI
	iso-8859-1:.
_ELSE
	utf-8:.
_END
_SETDEL(CURRVERS)
_VARDEL(NR_CURRVERS)
_FUNCEND
:. Einde functies
_WRITEND
?]_SETEND

[?
?][?
_FILEMODE( ".html", "ifNotExist" )
_FILENAME( "start.html" )
?]_FILENAME
[?_FILEMODE( "HTML", ifNotExist )
_WRITBEGI
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="nl" >
<head>
	<title>Welkom pagina</title>
	<meta http-equiv="Content-Type" content="text/html;charset=CHARSET" />
	<link rel="stylesheet" href="aldfaer.css" />
</head>
<body>
<h1 class="data" style="text-align:center">Genealogie van familie[: ACHTERNAAM_VOLLEDIG:]</h1>
<p style="text-align:center">Vervang deze pagina door uw eigen welkomstpagina. Noem hem start.html. 
Deze pagina zal niet worden overschreven bij een volgende webgeneratie.
</p>
<p style="text-align:center">
<small>Gegenereerd met Aldfaer _CURRVERS op _CURRDATE([:DD-MM-YYYY:]) _CURRTIME[: door _USERNAME:]</small></p>
</body>
</html>
_WRITEND

?][?
_FILEMODE( ".html", "ifNewer" )
_FILENAME( "index.html" )
?]_FILENAME
[?:. index.html indien index op beginletter(s) van achternamen
_FILEMODE( ".html", "overwrite" )
_WRITBEGI
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="nl" >
<head>
	<!-- Created with Aldfaer _CURRVERS -->
	<title>Stamboom familie _NAME[: ACHTERNAAM_VOLLEDIG:]</title>
	<meta http-equiv="Content-Type" content="text/html;charset=CHARSET" />
	<link rel="stylesheet" href="aldfaer.css" />
<script type="text/javascript" language="javascript">
<!--

var sorteermethode = 0;

function naam( nm, tv, vn, rn, dat, lnk )
{

	if ( dat != "" )
	{
		datum = dat.split('/');

		if ( datum.length == 3 )
		{
			this.year  = datum[2];
			this.month = datum[1];
			this.day   = datum[0];
		}
		if ( datum.length == 2 )
		{
			this.year  = datum[1];
			this.month = datum[0];
			this.day   = 0;
		}
		if ( datum.length == 1 )
		{
			this.year  = datum[0];
			this.month = 0
			this.day   = 0;
		}
	}
	else
	{
		this.year  = 0;
		this.month = 0;
		this.day   = 0;
	}
	if ( this.year.length  == 5 ) this.year  = this.year.substring(  1,5 );
	if ( this.month.length == 3 ) this.month = this.month.substring( 1,3 );
	if ( this.day.length   == 3 )  this.day  = this.day.substring(   1,3 );


	this.nm = nm;	// achternaam
	if (tv === "") this.tv = "";
	else if (tv.length < 8) this.tv = tv + " ";
	else if (tv.substring(tv.length-7,tv.length) == "&acute;" || tv.substring(tv.length-7,tv.length) == "&rsquo;") this.tv = tv;
	else this.tv = tv + " ";
	this.vn = vn;	// voornamen
	this.rn = rn;	// roepnaam
	this.lk = lnk;	// link
}

var aantalLetters = 1;

var namen = new Array;

// gegenereerd door Aldfaer: haal de namen
_WRITEND
_FILEMODE( ".html", append )
_PROGRESS( [:_SETAMOU( MOEDERSET ):] ) :. Herinitialisatie van voortgangsbalk
_LOOPBEGI
	_SETAMOU(MOEDERSET)?_BEGI
		_WRITBEGI
		_SETBEGI(MOEDERSET)
			_PROGRESS
			[?_NUMB < 1000?]?_BEGI
namen[namen.length] = new naam( _SURN?_BEGI"_SURN._QUOT"_ELSE"-"_END, "_NAMEPREF._QUOT", "_NAMEFIRS._QUOT", "_NAMENICK._QUOT", _PRIV?_BEGI""_ELSE _BIRTDATE?_BEGI"_BIRTDATE([:DD/MM/Y[: SS:]:])"_ELSE"_BAPTDATE([:DD/MM/Y[: SS:]:])"_END _END, _LINK?_BEGI"_LINK"_ELSE""_END );
				_SETSUB(MOEDERSET)
			_ELSE
				_BRK
			_END
		_SETEND
		_WRITEND
	_ELSE
		_BRK
	_END
_LOOPEND
_WRITBEGI
// Einde gegenereerd door Aldfaer
window.onunload = dummy;
function dummy(){}
//-->
</script>
</head>
<frameset rows="55,*" border="0">
<frame src="naam.html" name="mainindex" frameborder="0" />
<frame src="start.html" name="index" frameborder="0" />
<noframes>
<body>
<p>Uw browser ondersteunt geen frames</p>
</body>
</noframes>
</frameset>
</html>
_WRITEND
?]