/*--------------------------------------------------|
| modified the dTree script for genealogy purpose   |
| by Menno Wilmans.com                              |
|--------------------------------------------------*/

/*--------------------------------------------------|
| dTree 2.05 | www.destroydrop.com/javascript/tree/ |
|---------------------------------------------------|
| Copyright (c) 2002-2003 Geir Landr�            |
|                                                   |
| This script can be used freely as long as all     |
| copyright messages are intact.                    |
|                                                   |
| Updated: 17.04.2003                               |
|--------------------------------------------------*/



dTree.prototype.createdata = function () {
		d.add(0,-1,0,1,'Wilmans stamboom','index.html');
		d.add(40,0,0,1,'Hendrik ?? - ?? Plaats onbekend','example01.html');
		d.add(50,40,0,1,'Hendrik 1758 - 1814 Amsterdam','example01.html');
		d.add(60,50,0,1,'Jan (Casper) 1791 - 1843 Amsterdam','example01.html');
		d.add(61,50,0,1,'Elizabeth 1790 - ???? Amsterdam','example01.html');

		d.add(70,60,0,1,'Hendrik 1815 - 1892 Amsterdam','example01.html');
		d.add(71,60,0,1,'Jan 1817 - 1848 Amsterdam','example01.html');

		d.add(80,70,0,1,'Jan Casper 1836 - 1838 Amsterdam','example01.html');
		d.add(81,70,0,1,'Jan Casper 1840 - 1842 Amsterdam','example01.html');
		d.add(82,70,0,1,'Hendrik 1842 - 1889 Amsterdam','example01.html');
		d.add(83,70,0,1,'Jan Casper 1847 - 1928 Amsterdam','example01.html');

		d.add(90,82,0,1,'Douwe 1873 - 1921 Amsterdam','example01.html');
		d.add(91,82,0,1,'Jan 1885 - 1886 Amsterdam','example01.html');
		d.add(92,82,0,1,'Anne Maria 1875 - ???? Amsterdam','example01.html');
		d.add(93,82,0,1,'Beitske 1870 - 1871 Amsterdam','example01.html');
		d.add(94,82,0,1,'Beitske 1883 - 1885 Amsterdam','example01.html');

		d.add(100,  90,0,1,'Dirk Thomas 1899 - 1971 Amsterdam','Dick1899.html');
		d.add(110, 100,0,1,'Dirk Thomas 1922  Amsterdam','Dick1922.html');
		d.add(111, 110,0,1,'Dirk Thomas 1944   Amersfoort','Dick1944.html');
		d.add(1110,111,0,1,'Raoul Thomas 1973  Amstelveen','Raoul1973.html');
		d.add(1111,111,0,1,'Angelique Johanna Maria 1977  Amstelveen','Lieke1975.html');
		d.add(112, 110,0,1,'Carla 195?  Amersfoort','example01.html');
		d.add(113, 110,0,1,'Christa 1954  Amersfoort','Christa1954.html');
		
		d.add(120, 100,0,1,'Johannes Leendert 1924 - 12-1971 Amsterdam','Joop1924.html');
		d.add(121, 120,0,1,'Johannes Leendert 1-3-1954  Amsterdam','example01.html');
		d.add(122, 121,0,1,'Paulina-christina 29-12-1964','example01.html');
		d.add(123, 121,0,1,'Adriana johanna 20-5-1966','example01.html');
		d.add(124, 121,0,1,'Remo jacobus  6-4-1968','example01.html');
		d.add(125, 121,0,1,'Dennis 22-6-1978','example01.html');
		d.add(126, 125,0,1,'Davey 14-6-2004','example01.html');
		

		d.add(130, 100,0,1,'Antoon Marinus 1937  Amsterdam','Antoon1937.html');
		d.add(131, 100,130,1,'Nora Smit 1936  Amsterdam','Nora1936.html');
		d.add(132, 130,0,1,'Petra 1963  Amsterdam','Petra1963.html');
		d.add(133, 130,0,1,'Menno 1965  Amsterdam','Menno1965.html');

		d.add(200,90,0,1,'Anna Margaretha 1-4-1918 - 3-4-1987 Amsterdam','example01.html');
		d.add(201,200,0,1,'Ans Kuulkers 6-9-1940   Amsterdam','example01.html');
		d.add(202,200,0,1,'Han Kuulkers 31-1-1947   Amsterdam','example01.html');

		d.add(210,90,0,1,'Antoon Marinus 1909 - 1997 Amsterdam','Antoon1909.html');
		d.add(211,210,0,1,'Frederik Pieter 17-10-1938 Amsterdam','Fred1938.html');
		d.add(212,211,0,1,'Peter 07-10-1963 Doetinchem','example01.html');
		d.add(213,211,0,1,'Marc 15-12-1970 Doetinchem','example01.html');
		d.add(214,211,0,1,'Linda 26-11-1971 Rotterdam','example01.html');
		
		d.add(220,90,0,1,'Douwe 1907 - 13-8-1994 Amsterdam','example01.html');
		d.add(221,220,0,1,'Piet 1930 - 2-10-1989 Amsterdam','example01.html');
		d.add(222,220,0,1,'Greet 3-8-1931 -  Amsterdam (nu in usa)','example01.html');
		d.add(230,90,0,1,'Cornelis Gerrit 1905 - 1979 Den Haag','example01.html');
		d.add(231,230,0,1,'Cornelis Gerrit 1944 (Purmerend)','example01.html');
		d.add(232,231,0,1,'Dennis Robert 1970','example01.html');
		d.add(233,231,0,1,'Colin Rodger 1973','example01.html');
		d.add(240,90,0,1,'Hendrik 1903 - 11-7-1989 Amsterdam','example01.html');
		d.add(241,240,0,1,'Annie 29-10-1941  (Nu in Driebergen)','example01.html');
		d.add(250,90,0,1,'Cornelis 1897 - 1966? (Geen kinderen)Amsterdam','example01.html');

        d.add(300,83,0,1,'Hilda Catharina Elizabeth 1875 - ? Amsterdam','example01.html');
        d.add(301,83,0,1,'Cristina Juliana 1878 - ? Amsterdam','example01.html');
        d.add(302,83,0,1,'Anna 1881 - ? Amsterdam','example01.html');
        d.add(303,83,0,1,'Geertruida 1885 - ? Amsterdam','example01.html');
        d.add(304,83,0,1,'Jan Casper 12-12-1887 - ? Amsterdam','example01.html');
        d.add(305,83,0,1,'Hendrik 1889 - ? Amsterdam','example01.html');
        d.add(306,83,0,1,'Johanna Maria 1892 - ? Amsterdam','example01.html');
        d.add(307,83,0,1,'Dirk Thomas 1894 - ? Amsterdam','example01.html');
        d.add(308,83,0,1,'Frederika Johanna 1896 - ? Amsterdam','example01.html');
        d.add(309,83,0,1,'Christina Juliana 1898 - ? Amsterdam','example01.html');

        d.add(315,304,0,1,'Jan Casper 08-10-1914 - 06-08-2005 Amsterdam','example01.html');
        d.add(335,315,0,1,'Jan Casper 03-07-1945 Meppel','example01.html');
        d.add(338,335,0,1,'Jan Casper 25-07-1976 Nijmegen','example01.html');

        d.add(320,305,0,1,'Hendrik 12-7-1914 - 13-1-2000 Amsterdam','example01.html');
        d.add(321,305,0,1,'Jan Casper 1915 - ? Amsterdam','example01.html');
        d.add(322,305,0,1,'Willem 1917 - ? Amsterdam','example01.html');
        d.add(323,305,0,1,'Christina Sebina Hendrina 1918 - ? Amsterdam','example01.html');

        d.add(330,320,0,1,'Hendrik 15-7-1946 Amsterdam','example01.html');
        d.add(331,320,0,1,'Gerard 13-5-1949 - 28-11-2007 Amsterdam','example01.html');

        d.add(341,330,0,1,'Lousie 25-5-1973 Hoorn','example01.html');
        d.add(342,330,0,1,'Rik 17-3-1979 Hoorn','example01.html');

        d.add(343,341,0,1,'Bas Hoorn','example01.html');
        d.add(344,341,0,1,'Fleur Hoorn','example01.html');

        d.add(345,331,0,1,'Nicky 22-9-1977 Hoorn','example01.html');
        d.add(346,331,0,1,'Danny 17-8-1981 Hoorn','example01.html');
        
        d.add(350,345,0,1,'Samantha 9-9-2008 Hoorn','example01.html');
        d.add(351,346,0,1,'Kevin 9-7-2006 Hoorn','example01.html');
}

//Don't modify the following Funcions


// Node object
function Node(id, pid, mid, intree, name, url, title, target, icon, iconOpen, open) {
	this.id = id;
	this.pid = pid; //children
	this.mid = mid; //married
	this.intree = intree; //shown in tree? nodig voor parenteel
	this.name = name;
	this.url = url;
	this.title = title;
	this.target = target;
	this.icon = icon;
	this.iconOpen = iconOpen;
	this._io = open || false;
	this._is = false;
	this._ls = false; //last sibling
	this._hc = false; //has children
	this._im = false; //is married
	this._ai = 0;
	this._p;
        // if (this.mid != 0) alert(this.name)
};


// Tree object
function dTree(objName) {
	this.config = {
		target		: null,
		folderLinks	: true,
		useSelection	: true,
		useCookies	: true,
		useLines	: true,
		useIcons	: true,
		useStatusText	: false,
		closeSameLevel	: false,
		inOrder		: true
	}
	this.icon = {
		root		: 'img/base.gif',
		folder		: 'img/folder.gif',
		folderOpen	: 'img/folderopen.gif',
		node		: 'img/page.gif',
		empty		: 'img/empty.gif',
		line		: 'img/line.gif',
		join		: 'img/join.gif',
		joinBottom	: 'img/joinbottom.gif',
		plus		: 'img/plus.gif',
		plusBottom	: 'img/plusbottom.gif',
		minus		: 'img/minus.gif',
		minusBottom	: 'img/minusbottom.gif',
		nlPlus		: 'img/nolines_plus.gif',
		nlMinus		: 'img/nolines_minus.gif',
                married         : 'img/married.gif'
	};
	this.obj = objName;
	this.aNodes = [];
	this.aIndent = [];
	this.root = new Node(-1);
	this.selectedNode = null;
	this.selectedFound = false;
	this.completed = false;
};

// Adds a new node to the node array
dTree.prototype.add = function(id, pid, mid, intree, name, url, title, target, icon, iconOpen, open) {
	this.aNodes[this.aNodes.length] = new Node(id, pid, mid, intree, name, url, title, target, icon, iconOpen, open);
};

// Open/close all nodes
dTree.prototype.openAll = function() {
	this.oAll(true);
};
dTree.prototype.closeAll = function() {
	this.oAll(false);
};

// Outputs the tree to the page
dTree.prototype.toString = function() {
	var str = '<div class="dtree">\n';
	if (document.getElementById) {
		if (this.config.useCookies) this.selectedNode = this.getSelected();
		str += this.addNode(this.root);
	} else str += 'Browser not supported.';
	str += '</div>';
	if (!this.selectedFound) this.selectedNode = null;
	this.completed = true;
	return str;
};

// Creates the tree structure
dTree.prototype.addNode = function(pNode) {
	var str = '';
	var n=0;
	if (this.config.inOrder) n = pNode._ai;
	for (n; n<this.aNodes.length; n++) {
		//if ((this.aNodes[n].mid == pNode.id) ||
		if ((this.aNodes[n].pid == pNode.id)) {
			var cn = this.aNodes[n];
			cn._p = pNode;
			cn._ai = n;
			this.setCS(cn);
			this.setMarriage(cn);
			if (!cn.target && this.config.target) cn.target = this.config.target;
			if (cn._hc && !cn._io && this.config.useCookies) cn._io = this.isOpen(cn.id);
			if (!this.config.folderLinks && cn._hc) cn.url = null;
			if (this.config.useSelection && cn.id == this.selectedNode && !this.selectedFound) {
					cn._is = true;
					this.selectedNode = n;
					this.selectedFound = true;
			}
			str += this.node(cn, n);
			if (cn._ls) break;
		}
	}
	return str;
};

// Creates the node icon, url and text
dTree.prototype.node = function(node, nodeId) {
	var str = '<div class="dTreeNode">' + this.indent(node, nodeId);
	if (this.config.useIcons) {
		if (!node.icon) node.icon = (this.root.id == node.pid) ? this.icon.root : 
                           ((node._hc) ? this.icon.folder : 
                           ((node._im) ? this.icon.married : this.icon.node));
		if (!node.iconOpen) node.iconOpen = (node._hc) ? this.icon.folderOpen : this.icon.node;
		if (this.root.id == node.pid) {
			node.icon = this.icon.root;
			node.iconOpen = this.icon.root;
		}
		str += '<img id="i' + this.obj + nodeId + '" src="' + ((node._io) ? node.iconOpen : node.icon) + '" alt="" />';
	}
	if (node.url) {
		str += '<a id="s' + this.obj + nodeId + '" class="' + ((this.config.useSelection) ? ((node._is ? 'nodeSel' : 'node')) : 'node') + '" href="' + node.url + '"';
		if (node.title) str += ' title="' + node.title + '"';
		if (node.target) str += ' target="' + node.target + '"';
		if (this.config.useStatusText) str += ' onmouseover="window.status=\'' + node.name + '\';return true;" onmouseout="window.status=\'\';return true;" ';
		if (this.config.useSelection && ((node._hc && this.config.folderLinks) || !node._hc))
			str += ' onclick="javascript: ' + this.obj + '.s(' + nodeId + ');"';
		str += '>';
	}
	else if ((!this.config.folderLinks || !node.url) && node._hc && node.pid != this.root.id)
		str += '<a href="javascript: ' + this.obj + '.o(' + nodeId + ');" class="node">';
	str += node.name;
	if (node.url || ((!this.config.folderLinks || !node.url) && node._hc)) str += '</a>';
	str += '</div>';
	//if (node._im) {
	//	str += '<div id="d' + this.obj + nodeId + '" class="clip" style="display:' + ((this.root.id == node.pid || node._io) ? 'block' : 'none') + ';">';
	//	str += this.addNode(node);
	//	str += '</div>';
	//}
	if (node._hc ) {
		str += '<div id="d' + this.obj + nodeId + '" class="clip" style="display:' + ((this.root.id == node.pid || node._io) ? 'block' : 'none') + ';">';
		str += this.addNode(node);
		str += '</div>';
	}
	this.aIndent.pop();
	return str;
};

/*
dTree.prototype.MarriedNode = function(pNode) {
	var str = '';
	var n=0;
	for (n; n<this.aNodes.length; n++) {
		if (this.aNodes[n].mid == pNode.id) {
			var cn = this.aNodes[n];
			cn._p = pNode;
			cn._ai = n;
			this.setCS(cn);
			this.setMarriage(cn);
			if (!cn.target && this.config.target) cn.target = this.config.target;
			if (cn._hc && !cn._io && this.config.useCookies) cn._io = this.isOpen(cn.id);
			if (!this.config.folderLinks && cn._hc) cn.url = null;
			if (this.config.useSelection && cn.id == this.selectedNode && !this.selectedFound) {
					cn._is = true;
					this.selectedNode = n;
					this.selectedFound = true;
			}
			str += this.node(cn, n);
			if (cn._ls) break;
		}
	}
	return str;
};
*/



// Adds the empty and line icons
dTree.prototype.indent = function(node, nodeId) {
	var str = '';
	if (this.root.id != node.pid) {
		for (var n=0; n<this.aIndent.length; n++)
			str += '<img src="' + ( (this.aIndent[n] == 1 && this.config.useLines) ? this.icon.line : this.icon.empty ) + '" alt="" />';
		(node._ls) ? this.aIndent.push(0) : this.aIndent.push(1);
		if (node._hc) {
			str += '<a href="javascript: ' + this.obj + '.o(' + nodeId + ');"><img id="j' + this.obj + nodeId + '" src="';
			if (!this.config.useLines) str += (node._io) ? this.icon.nlMinus : this.icon.nlPlus;
			else str += ( (node._io) ? ((node._ls && this.config.useLines) ? this.icon.minusBottom : this.icon.minus) : ((node._ls && this.config.useLines) ? this.icon.plusBottom : this.icon.plus ) );
			str += '" alt="" /></a>';
		}
/* 
                else if (node._im){ 
		    // if (this.config.useLines) alert('uselines is true');
                    //alert(node.name);
		    str += '<img src="' //+ ( (this.config.useLines) ? ((node._ls) ? this.icon.joinBottom : this.icon.join ) : this.icon.empty);  
                    str += ( (this.config.useLines) ? this.icon.married : this.icon.empty) + '" alt="" />';
                }
*/
                else str += '<img src="' + ( (this.config.useLines) ? ((node._ls) ? this.icon.joinBottom : this.icon.join ) : this.icon.empty) + '" alt="" />';
	}
	return str;
};

// Checks if a node has any children and if it is the last sibling
dTree.prototype.setCS = function(node) {
	var lastId;
	for (var n=0; n<this.aNodes.length; n++) {
		if (this.aNodes[n].pid == node.id) node._hc = true;
		if (this.aNodes[n].pid == node.pid) lastId = this.aNodes[n].id;
	}
	if (lastId==node.id) node._ls = true;
};

// Checks if a node is married 
dTree.prototype.setMarriage = function(node) {
	var lastId;
	for (var n=0; n<this.aNodes.length; n++) {
           if (this.aNodes[n].mid != 0){
 		if (this.aNodes[n].mid == node.id) {
                    node._im = true;
        	    node.mid = this.aNodes[n].id;
                    //alert(node.name);
                }
           }
	}
};

// Returns the selected node
dTree.prototype.getSelected = function() {
	var sn = this.getCookie('cs' + this.obj);
	return (sn) ? sn : null;
};

// Highlights the selected node
dTree.prototype.s = function(id) {
	if (!this.config.useSelection) return;
	var cn = this.aNodes[id];
	if (cn._hc && !this.config.folderLinks) return;
	if (this.selectedNode != id) {
		if (this.selectedNode || this.selectedNode==0) {
			eOld = document.getElementById("s" + this.obj + this.selectedNode);
			eOld.className = "node";
		}
		eNew = document.getElementById("s" + this.obj + id);
		eNew.className = "nodeSel";
		this.selectedNode = id;
		if (this.config.useCookies) this.setCookie('cs' + this.obj, cn.id);
	}
};

// Toggle Open or close
dTree.prototype.o = function(id) {
	var cn = this.aNodes[id];
	this.nodeStatus(!cn._io, id, cn._ls);
	cn._io = !cn._io;
	if (this.config.closeSameLevel) this.closeLevel(cn);
	if (this.config.useCookies) this.updateCookie();
};

// Open or close all nodes
dTree.prototype.oAll = function(status) {
	for (var n=0; n<this.aNodes.length; n++) {
		if (this.aNodes[n]._hc && this.aNodes[n].pid != this.root.id) {
			this.nodeStatus(status, n, this.aNodes[n]._ls)
			this.aNodes[n]._io = status;
		}
	}
	if (this.config.useCookies) this.updateCookie();
};

// Opens the tree to a specific node
dTree.prototype.openTo = function(nId, bSelect, bFirst) {
	if (!bFirst) {
		for (var n=0; n<this.aNodes.length; n++) {
			if (this.aNodes[n].id == nId) {
				nId=n;
				break;
			}
		}
	}
	var cn=this.aNodes[nId];
	if (cn.pid==this.root.id || !cn._p) return;
	cn._io = true;
	cn._is = bSelect;
	if (this.completed && cn._hc) this.nodeStatus(true, cn._ai, cn._ls);
	if (this.completed && bSelect) this.s(cn._ai);
	else if (bSelect) this._sn=cn._ai;
	this.openTo(cn._p._ai, false, true);
};

// Closes all nodes on the same level as certain node
dTree.prototype.closeLevel = function(node) {
	for (var n=0; n<this.aNodes.length; n++) {
		if (this.aNodes[n].pid == node.pid && this.aNodes[n].id != node.id && this.aNodes[n]._hc) {
			this.nodeStatus(false, n, this.aNodes[n]._ls);
			this.aNodes[n]._io = false;
			this.closeAllChildren(this.aNodes[n]);
		}
	}
}

// Closes all children of a node
dTree.prototype.closeAllChildren = function(node) {
	for (var n=0; n<this.aNodes.length; n++) {
		if (this.aNodes[n].pid == node.id && this.aNodes[n]._hc) {
			if (this.aNodes[n]._io) this.nodeStatus(false, n, this.aNodes[n]._ls);
			this.aNodes[n]._io = false;
			this.closeAllChildren(this.aNodes[n]);		
		}
	}
}

// Change the status of a node(open or closed)
dTree.prototype.nodeStatus = function(status, id, bottom) {
	eDiv	= document.getElementById('d' + this.obj + id);
	eJoin	= document.getElementById('j' + this.obj + id);
	if (this.config.useIcons) {
		eIcon	= document.getElementById('i' + this.obj + id);
		eIcon.src = (status) ? this.aNodes[id].iconOpen : this.aNodes[id].icon;
	}
	eJoin.src = (this.config.useLines)?
	((status)?((bottom)?this.icon.minusBottom:this.icon.minus):((bottom)?this.icon.plusBottom:this.icon.plus)):
	((status)?this.icon.nlMinus:this.icon.nlPlus);
	eDiv.style.display = (status) ? 'block': 'none';
};


// [Cookie] Clears a cookie
dTree.prototype.clearCookie = function() {
	var now = new Date();
	var yesterday = new Date(now.getTime() - 1000 * 60 * 60 * 24);
	this.setCookie('co'+this.obj, 'cookieValue', yesterday);
	this.setCookie('cs'+this.obj, 'cookieValue', yesterday);
};

// [Cookie] Sets value in a cookie
dTree.prototype.setCookie = function(cookieName, cookieValue, expires, path, domain, secure) {
	document.cookie =
		escape(cookieName) + '=' + escape(cookieValue)
		+ (expires ? '; expires=' + expires.toGMTString() : '')
		+ (path ? '; path=' + path : '')
		+ (domain ? '; domain=' + domain : '')
		+ (secure ? '; secure' : '');
};

// [Cookie] Gets a value from a cookie
dTree.prototype.getCookie = function(cookieName) {
	var cookieValue = '';
	var posName = document.cookie.indexOf(escape(cookieName) + '=');
	if (posName != -1) {
		var posValue = posName + (escape(cookieName) + '=').length;
		var endPos = document.cookie.indexOf(';', posValue);
		if (endPos != -1) cookieValue = unescape(document.cookie.substring(posValue, endPos));
		else cookieValue = unescape(document.cookie.substring(posValue));
	}
	return (cookieValue);
};

// [Cookie] Returns ids of open nodes as a string
dTree.prototype.updateCookie = function() {
	var str = '';
	for (var n=0; n<this.aNodes.length; n++) {
		if (this.aNodes[n]._io && this.aNodes[n].pid != this.root.id) {
			if (str) str += '.';
			str += this.aNodes[n].id;
		}
	}
	this.setCookie('co' + this.obj, str);
};

// [Cookie] Checks if a node id is in a cookie
dTree.prototype.isOpen = function(id) {
	var aOpen = this.getCookie('co' + this.obj).split('.');
	for (var n=0; n<aOpen.length; n++)
		if (aOpen[n] == id) return true;
	return false;
};

// If Push and pop is not implemented by the browser
if (!Array.prototype.push) {
	Array.prototype.push = function array_push() {
		for(var i=0;i<arguments.length;i++)
			this[this.length]=arguments[i];
		return this.length;
	}
};
if (!Array.prototype.pop) {
	Array.prototype.pop = function array_pop() {
		lastElement = this[this.length-1];
		this.length = Math.max(this.length-1,0);
		return lastElement;
	}
};