//Script to format a family tree
function drawancestorstree(treetype){
re= /@/
re2=/£/
for(i=0;i<noPeo;i++){
	cell=dT[i].split(re)
	if(treetype=="full"){document.write("<tr>")}else{
		if((cell[0]!="b")||(cell[2]!="b")){document.write("<tr>")}else{document.write("<tr class='tog2'>")}}
	for(j=0;j<noALevels*2+1;j++){
		if (cell[j]=="m") 
			{document.writeln("<td class='treegraphic'><img src='../../i/mal.gif'></td>")}
		else 
			{if(cell[j]=="f") 
				{document.writeln("<td class='treegraphic'><img src='../../i/fem.gif'></td>")}
			else 
				{if(cell[j]=="v") 
					{document.writeln("<td class='treegraphic'><img src='../../i/vert.gif'></td>")}
				else 
					{if(!cell[j]||cell[j]=="b") 
						{document.writeln("<td>&nbsp;</td>")}
					else 		
						{namedate=cell[j].split(re2)
						fullname=namedate[0].replace(/(\s+)/g,"&nbsp;")
						dates=namedate[1].replace(/(\s+)/g,"&nbsp;")
						acols=noALevels*2-j+1
						document.writeln("<td colspan=\'" + acols + "\'><a class='tree' href=\'../../h/p/p"+cell[noALevels*2+1]+".html\'>"+fullname+"</a><span class='treedate'>"+dates+"</span></td>")
						}
					}
				}
			}
		}
	document.writeln("</tr>")
	}
}