function print_blank_marriage() {

document.writeln('<table border="0"><form><tr><td align="right"><b>Marriage Date:</b></td><td><input type="text" size="15" value="&nbsp;"></td></tr>');
document.writeln('<tr><td><b>Marriage Location:</b></td><td><input type="text" size="30" value="&nbsp;"></td></tr></form></table>');

}


function print_marriage(fg) {

	switch (group[fg].mcert) {
		case "N":
document.writeln('<table border="0"><form><tr><td align="right"><b>Marriage Date:</b></td><td><input type="text" size="17" value="' + printDate(group[fg].marrDate) + '"></td></tr>');
document.writeln('<tr><td><b>Marriage Location:</b></td><td><input type="text" size="45" value="' + getMarrPlace(group[fg].marrPlace) + '"></td></tr></form></table>');
			break;
		case "Y":
document.writeln('<table border="0"><form><tr><td align="right"><b>Marriage Date:</b></td><td><input type="text" size="17" value="' + printDate(group[fg].marrDate) + '"></td></tr>');
document.writeln('<tr><td><b>Marriage Location:</b></td><td><input type="text" size="45" value="' + getMarrPlace(group[fg].marrPlace) + '"></td><td>&nbsp;</td><td><a  href="Marriages.htm#' + fg + '"><img src="document.gif" alt="Marriage Certificate" title="Marriage Certificate" border="0"></a></td></tr></form></table>');
			break;
	}
}

function print_blank_person(BID) {
	switch (individual[BID].sex) {
		case "M":
			partnerType = "Wife:";
			break;
		case "F": 
			partnerType = "Husband:";
			break;
	}

document.writeln('<table border="0"><form><tr><td align="right"><b>' + partnerType + '</b></td><td><input type="text" size="30" value="&nbsp;"></td>');
document.writeln('<td>&nbsp;</td></tr>');
document.writeln('<tr><td><b>Date Born:</b></td><td><input type="text" size="17" value="&nbsp"></td><td>&nbsp;&nbsp;<b>in</b></td><td><input type="text" size="30" value="&nbsp;"></td></tr>');
document.writeln('<tr><td><b>Date Died:</b></td><td><input type="text" size="17" value="&nbsp;"></td><td>&nbsp;&nbsp;<b>in</b></td><td><input type="text" size="30" value="&nbsp;"></td></tr></form></table>');
return;
}

function print_person(PID) {

	var PARLINK = "";
	if (individual[PID].AID != "")
		{ PARLINK = '<input type="button" class="emButtonLong" value="Parents of ' + individual[PID].firstName + '" onClick="softCookie(' + "'" + individual[PID].AID + "'" + ')">'; }
	
	switch (individual[PID].sex ) {
		case "F":
			partnerType = "Wife:";
			break;
		case "M":
			partnerType = "Husband:";
			break;
	}

	WBT=getTown(individual[PID].placeBornTown); 	
	WBC=getCounty(individual[PID].placeBornCounty);
	WDT=getTown(individual[PID].placeDiedTown);
	WDC=getCounty(individual[PID].placeDiedCounty);
			
	switch (individual[PID].dcert) {
		case "N":
		if (WBT !== "") {
			CATWBTC=WBT + ", " + WBC;
		}
		else	{ CATWBTC=WBT + WBC; }
		if (WDT !== "") {
			CATWDTC=WDT + ", " + WDC;
		}
		else	{ CATWDTC=WDT + WDC; }
document.writeln('<table border="0"><form><tr><td align="right"><b>' + partnerType + '</b></td><td><input type="text" size="33" value="' + individual[PID].firstName + " " + getMiddleName(individual[PID].middleName) + " " + getSurname(individual[PID].surname) + '"></td><td>&nbsp;</td><td><a href="Notes/' + PID + '.htm"><img src="infored.gif" alt="Notes about ' + individual[PID].firstName + '" title="Notes about ' + individual[PID].firstName + '" border="0"></a></td><td>' + PARLINK + '</td></tr>');
document.writeln('<tr><td><b>Date Born:</b></td><td><input type="text" size="17" value="' + printDate(individual[PID].birthDate) + '"></td><td>&nbsp;&nbsp;<b>in</b> &nbsp;&nbsp;</td><td><input type="text" size="35" value="' + CATWBTC + '"></td></tr>');
document.writeln('<tr><td><b>Date Died:</b></td><td><input type="text" size="17" value="' + printDate(individual[PID].deathDate) + '"></td><td>&nbsp;&nbsp;<b>in</b> &nbsp;&nbsp;</td><td><input type="text" size="35" value="' + CATWDTC + '"></td></tr></table></form>');
return;	
			break;
		case "Y":
		if (WBT !== "") {
			CATWBTC=WBT + ", " + WBC;
		}
		else	{ CATWBTC=WBT + WBC; }
		if (WDT !== "") {
			CATWDTC=WDT + ", " + WDC;
		}
		else	{ CATWDTC=WDT + WDC; }
document.writeln('<table border="0"><form><tr><td align="right"><b>' + partnerType + '</b></td><td><input type="text" size="33" value="' + individual[PID].firstName + " " + getMiddleName(individual[PID].middleName) + " " + getSurname(individual[PID].surname) + '"></td><td>&nbsp;</td><td><a href="Notes/' + PID + '.htm"><img src="infored.gif" alt="Notes about ' + individual[PID].firstName + '" title="Notes about ' + individual[PID].firstName + '" border="0"></a><td>&nbsp;</td><td>' + PARLINK + '</td></tr>');
document.writeln('<tr><td><b>Date Born:</b></td><td><input type="text" size="17" value="' + printDate(individual[PID].birthDate) + '"></td><td>&nbsp;&nbsp;<b>in</b> &nbsp;&nbsp;</td><td><input type="text" size="35" value="' + CATWBTC + '"></td></tr>');
document.writeln('<tr><td><b>Date Died:</b></td><td><input type="text" size="17" value="' + printDate(individual[PID].deathDate) + '"></td><td>&nbsp;&nbsp;<b>in</b> &nbsp;&nbsp;</td><td><input type="text" size="35" value="' + CATWDTC + '"><td>&nbsp;</td><td><a href="Deaths.htm#' + PID + '"><img src="document.gif" alt="Death Certificate" title="Death Certificate" border="0"></a></td></tr></table></form>');
return;
			break;
	}

}

function print_progeny_blank(SpouseCount) {
	document.writeln('<p><p><table border="1" cellspacing="1" cellpadding="1" width="650" bgcolor="white"><tr><th>&nbsp;&nbsp;</th><th border="1" align="left">Children</th><th>Sex</th><th>Birth Dates</th><th>Notes</th><th align="center">Family Page</th></tr>');
	document.writeln('</table>');

	// Status bar go details here -->

	parents = getParents(P1);
	window.defaultStatus =  "Parents: " + parents;
	window.status =  "Parents: " + parents;
}

function print_progeny(fg, SpouseCount) {
	document.writeln('<p><p><table border="1" cellspacing="1" cellpadding="1" width="650" bgcolor="white"><tr><th>&nbsp;&nbsp;</th><th border="1" align="left">Children</th><th>Sex</th><th>Birth Dates</th><th>Notes</th><th align="center">Family Page</th></tr>');
	if (group[fg].progeny != "") 
		{ kids = group[fg].progeny.split(":"); }
	else { kids = ""; }
	
	var counter = 1;
	if (kids) {
		for (var i = 0; i < kids.length; i++) 
		{ document.writeln('<tr><td>' + counter++ + '</td><td>' + individual[kids[i]].firstName + " " + getMiddleName(individual[kids[i]].middleName) + " " + getSurname(individual[kids[i]].surname) + '</td><td align="center">' + individual[kids[i]].sex + '</td><td>' + printDate(individual[kids[i]].birthDate) + '</td><td align="center"><a href="Notes/' + kids[i] + '.htm"><img src="infored.gif" alt="Notes about ' + individual[kids[i]].firstName + '" title="Notes about ' + individual[kids[i]].firstName + '" border="0"></a></td><td align="center"><input type="button"  class="emButton" value="' + individual[kids[i]].firstName + '" onclick="softKidCookie(' + "'" + kids[i] +  "'" + ')"></td></tr>'); }
			
	}
	document.write('</table>');
	
	// Status bar go details here -->
	
	if (P1 == "")
		{ A = "Unknown"; }
	else	{ A = getParents(P1); }
	
	if (partnr == "Unknown")
		{ B = "Unknown"; }
	else	{ B = getParents(partnr); }
	
	if (individual[P1].sex == "M")
		{ parents = A + "/" + B ; }
	else	{ parents = B + "/" + A ; }

	if (counter-1 > 0) 
		{ window.defaultStatus =  "Parents: " + parents +  "  | Children: " + (counter-1) + " | Spouses: " + (SpouseCount); 
		  window.status =  "Parents: " + parents +  "  | Children: " + (counter-1) + " | Spouses: " + (SpouseCount); }
	else 	{ window.defaultStatus =  "Parents: " + parents; 
		  window.status =  "Parents: " + parents; }
	
}


function print_progeny_more(fg, SpouseCount) {
	document.writeln('<p><p><table border="1" cellspacing="1" cellpadding="1" width="650" bgcolor="white"><tr><th>&nbsp;&nbsp;</th><th border="1" align="left">Children</th><th>Sex</th><th>Birth Dates</th><th>Notes</th><th align="center">Family Page</th></tr>');
	var counter = 1;
	var kids = new Array();
	for (var n = 0; n < fg.length; n++)
	{
		if (group[fg[n]].progeny != "")
			{ kids = group[fg[n]].progeny.split(":"); }
		else	{ kids = ""; }
	
	if (kids) {
		for (var i = 0; i < kids.length; i++) 
		{ document.writeln('<tr><td>' + counter++ + '</td><td>' + individual[kids[i]].firstName + " " + getMiddleName(individual[kids[i]].middleName) + " " + getSurname(individual[kids[i]].surname) + '</td><td align="center">' + individual[kids[i]].sex + '</td><td>' + printDate(individual[kids[i]].birthDate) + '</td><td align="center"><a href="Notes/' + kids[i] + '.htm"><img src="infored.gif" alt="Notes about ' + individual[kids[i]].firstName + '" title="Notes about ' + individual[kids[i]].firstName + '" border="0"></a></td><td align="center"><input type="button"  class="emButton" value="' + individual[kids[i]].firstName + '" onClick="softKidCookie(' + "'" + kids[i] +  "'" + ')"></td></tr>'); }
			
		}
	}
	
	document.write('</table>');

	// Status bar go details here -->
	
	var pos = new Array;
		
	for (var n = 0; n < fg.length; n++)
	{ 	if (group[fg[n]].husband == "")
			{ pos.push(""); }
		else { pos.push(group[fg[n]].husband); }
		if (group[fg[n]].wife == "")
			{ pos.push(""); }
		 else { pos.push(group[fg[n]].wife); }
	}
	
	pos = unique(pos);
	
	var collect = new Array();
	for (var i = 0; i < pos.length; i ++)
	{ 	if (pos[i] == "")
			{ collect[i] = "Unknown"; }
		else 	{ collect[i] = getParents(pos[i]); }
	}
	parents = collect.join("/") ;
	if (counter-1 > 0) 
		{ window.defaultStatus =  "Parents: " + parents +  " | Children: " + (counter-1) + "  | Spouses: " + (SpouseCount); 
		  window.status =  "Parents: " + parents +  " | Children: " + (counter-1) + "  | Spouses: " + (SpouseCount); }
	else 	{ window.defaultStatus =  "Parents: " + parents; 
		  window.status =  "Parents: " + parents; }
	
}

function softCookie(fg) {
//document.write("softCookie = " + fpid + "<br>");	
	if (fg) {
		if (group[fg].husband != "")
			{ fpid = group[fg].husband; }
		else	{ fpid = group[fg].wife; }
		var PIDCookie = "fpid = " + fpid;
		document.cookie = PIDCookie;
		location.reload();
				
	}
	else { alert("No more information available." ); }
	
}

function softKidCookie(fpid) {
	
	if (fpid) {
		
		var PIDCookie = "fpid = " + fpid;
		document.cookie = PIDCookie;
		location.reload();
				
	}
	else { alert("No more information available." ); }
	
}

function hardCookie(HCid) {
//document.write("hardCookie id = " + HCid + "<br>");
var mypid = "fpid";
var value = fpid;
var oneWeek = 7 * 24 * 60 * 60 * 1000;
var expDate = new Date();
expDate.setTime(expDate.getTime() + oneWeek);
path= "/;";
document.cookie = mypid + "=" + unescape(value) + "; expires=" + expDate.toGMTString() + ";";

}

function getCookieValue() {
mypid = "fpid";
var result = null;
var myCookie = " " + document.cookie + ";";
var searchName = " " + mypid + "=";
var startOfCookie = myCookie.indexOf(searchName);
var endOfCookie;
if (startOfCookie != -1)
	{ startOfCookie += searchName.length;
	  endOfCookie = myCookie.indexOf(";",startOfCookie);
	  result = unescape(myCookie.substring(startOfCookie, endOfCookie)); }
else { result = ""; }
if (result.length != 4)
	{ result = ""; }
return(result);
}


function getFPID(mypid, sid) {
var result = null;
var myCookie = " " + document.cookie + ";";
var searchName = " " + mypid + "=";
var startOfCookie = myCookie.indexOf(searchName);
var endOfCookie;
if (endOfCookie != -1) {
	startOfCookie += searchName.length;
	endOfCookie = myCookie.indexOf(";",startOfCookie);
	result = unescape(myCookie.substring(startOfCookie,endOfCookie));
	}
	return(result);
}


function getParents(GPID) {

if (individual[GPID].AID)
{ 	
	ancestors = individual[GPID].AID; 
	if (group[ancestors].husband)
		{ father = group[ancestors].husband; 
	  	pa = printParent(father); }
	else if (group[ancestors].husband == "")
		{ pa = "Unknown"; }
	if (group[ancestors].wife)
		{ mother = group[ancestors].wife; 
	  	ma = printParent(mother); }
	else if (group[ancestors].wife == "")
		{ ma = "Unknown"; }
 	folks = ma + " and " + pa;
}
else { folks = "Unknown"; }


return(folks);
	 
}



function getSurname(Surname) {

// Evaluate number substitution -->

switch (Surname) {
		case "1":
			SN = "West";
			break;
		case "2":
			SN = "Wakeham";
			break;
		case "3":
			SN = "Steadman";
			break;
		case "4":
			SN = "Gradwell";
			break;
		case "5":
			SN = "Searle";
			break;
		case "6":
			SN = "Floate";
			break;
		default:
			SN= Surname;
			break;
	}
return(SN);
}

function getCounty(County) {

// Evaluate number substitution -->

switch (County) {
		case "1":
			C = "Sussex";
			break;
		case "2":
			C = "Surrey";
			break;
		case "3":
			C = "London";
			break;
		case "4":
			C = "Essex";
			break;
		case "5":
			C = "Hampshire";
			break;
		case "6":
			C = "Kent";
			break;
		case "7":
			C = "Cheshire";
			break;
		case "8":
			C = "Middlesex";
			break;
		case "9":
			C = "Herts";
			break;
		case "10":
			C = "Canada";
			break;
		default:
			C = County;
			break;
	}
return(C);
}

function getTown(Town) {

// Evaluate number substitution -->

switch (Town) {
		case "1":
			T = "Rackham";
			break;
		case "2":
			T = "Amberley";
			break;
		case "3":
			T = "Parham";
			break;
		case "4":
			T = "Worthing";
			break;
		case "5":
			T = "Storrington";
			break;
		case "6":
			T = "Crossgates";
			break;
		case "7":
			T = "Cheadle Hulme";
			break;
		case "8":
			T = "Portslade";
			break;
		case "9":
			T = "Farnborough";
			break;
		case "10":
			T = "Virden, Manitoba";
			break;
		case "11": 
			T = "Greatham";
			break;
		case "12":
			T = "Brighton";
			break;
		case "13":
			T = "Henfield";
			break;
		case "14":
			T = "Broadwater";
			break;
		case "15":
			T = "Portsmouth";
			break;
		case "16":
			T = "Chichester";
			break;
		case "17":
			T = "Fareham";
			break;
		case "18":
			T = "Cowfold";
			break;
		case "19":
			T = "Shermanbury";
			break;
		case "20":
			T = "Bolney";
			break;
		case "21":
			T = "Hurstpierpoint";
			break;
		case "22":
			T = "Littlehampton";
			break;
		default:
			T = Town;
			break;
	}
return(T);
}

function getMarrPlace(MPID) {

// Evaluate number substitution -->

	switch (MPID) {
		case "1":
			LOC="St Michael, Amberley";
			break;
		case "2":
			LOC="St Peter, Parham";
			break;
		case "3":
			LOC="Parish of Broadwater";
			break;
		case "4":
			LOC="St Mary, Storrington";
			break;
		case "5":
			LOC="Parish of Cheadle";
			break;
		case "6":
			LOC="Worthing, Sussex";
			break;
		case "7":
			LOC="Portslade, Sussex";
			break;
		case "8":
			LOC="Chanctonbury Reg. Dist.";
			break;
		case "9":
			LOC="St Peter, Henfield";
			break;
		case "10":
			LOC="St James, Milton";
			break;
		case "11":
			LOC="St Peter, Cowfold";
			break;
		case "12":
			LOC="St Nicholas, Brighton";
			break;
		default:
			LOC=MPID;
			break;
	}
	return(LOC);
}

function getMiddleName(mn) {
switch (mn) {
		case "":
			MN = "";
			break;
		default:
			MN = mn;
			break;
	}
return(MN);
}

function getMiddleInitial(mi) {
switch (mi) {
		case "":
			MI = "";
			break;
		default:
			MI = " " + mi.substring(0,1) + ".";
			break;
	}
return(MI);
}

function getYear(year) {
	if (year.length > 4)
	{ chop = year.length - 4;
		year = year.substr(chop); }
	else { year = year; }
	return(year);
}

function printDate(adate) {
	
	switch (adate) {
		case "4": return(adate);
			break;
		default: 
	  		var chop = adate.length - 4;
	 		var byear = adate.substr(chop);
	  		var cyear = new Date();
	  		var thisYear = cyear.getFullYear(); 
	  		hundredTest = thisYear - byear;
			if (hundredTest > 99) 
	  			{ return(adate); }
			else { return(byear); }
			break;
			}
}

function cardindex() {

Card = window.open("CardIndex.htm","Card","directories=no,status=yes,toolbar=no,scrollbars=yes,resizable=no,width=550,height=350,top=200,left=250");

}

function getMateID(fg,gender) {
var p;
if (gender == "M") 
	{ p = group[fg].wife; }
else if (gender == "F")
	{ p = group[fg].husband; }

if (p == "")
{ p = "Unknown"; }
		
return(p);
}

function printParent(sid) {
if (sid)
	{ bod = individual[sid].firstName + "" + getMiddleInitial(individual[sid].middleName) + " " + getSurname(individual[sid].surname); }
else 	{ bod = "Unknown"; }
return(bod);

}

function unique(arrayName) {

for (var i = 0; i < arrayName.length; i++)
{
	if (arrayName[i] == arrayName[i+1])
		{ delete(arrayName[i+1]);
		  break;}
	else if (arrayName[i] == arrayName[i+2])
		{ delete(arrayName[i+2]);
		  break;}
	else if (arrayName[i] == arrayName[i+3])
		{ delete(arrayName[i+3]);
		  break;}
}

var result = new Array();
for (var i = 0; i < arrayName.length; i++)
{
	if (arrayName[i] != undefined)
	{ result.push(arrayName[i]); }
}
return(result);


}