xXx

Hexid M1n1 5h3ll MobiLe

C:/www/familytree/mods/cousins_10.1.3.2/_[ Writable ]

File:C:/www/familytree/mods/cousins_10.1.3.2/cousin_marriages.php

<?php

$textpart = "reports";
$c_part=1;
include("tng_begin.php");
$flags['imgprev'] = true;

//error_reporting(E_ALL);
//ini_set('display_errors', 1);

include('cousins_inc.php'); //options for mod
global $birth;
//these can be set in the mod
$print_time = 0;
$showmarriages=1;
$allcousins=1;
$birth = 'birth';

$personID = $primaryID;
$flags['tabs'] = $tngconfig['tabs'];
tng_header($text['allcousinmarriages'], $flags);

$innermenu = "";
$curl = getURL('cousins', 1)."primaryID=$primaryID&amp;tree=$tree";
$cmurl = getURL('cousin_marriages', 1)."primaryID=$primaryID&amp;tree=$tree";
$imurl = getURL('inlaw_marriages', 1)."primaryID=$primaryID&amp;tree=$tree";
$innermenu = "";
if($cousins) $innermenu .= "<a href='$curl' class='lightlink'> $text[cousins]</a>&nbsp;&nbsp; | &nbsp;&nbsp;";
if($cousinmarriages) $innermenu .= "<a href='$cmurl' class='lightlink'> $text[allcousinmarriages]</a>&nbsp;&nbsp; ";
if ($allow_admin && $updateoption)
	$innermenu .= "<a href='$cmurl&amp;update=1'><img src='img/repeat.gif' alt='$text[update]' /></a>&nbsp;&nbsp; \n";
if ($inlaws) $innermenu .= "| &nbsp;&nbsp;<a href='$imurl' class='lightlink'> $text[allinlawmarriages] </a>";

$row = tng_fetch_assoc(tng_query("select * from $people_table where personID='$primaryID' and gedcom='$tree'"));
setLivingPrivateRights($row,$tree);
$namestr = getName($row);
$url = getURL('cousin_marriages', 1)."primaryID=$primaryID&amp;tree=$tree";
writelog( "<a href='$url'> $text[allcousinmarriages] ($tree)</a>" );
preparebookmark( "<a href='$url'>$text[allcousinmarriages] $namestr ($tree)</a>" );

echo tng_menu( "I", "relate", $primaryID, $innermenu );

$start=cptime();

$result=get_saved_result($tree,$filter);
if ($updateoption && $allow_admin && ($update || $result===false)) {
	$result = findcommonancestors($generations, $tree, $allcousins);
	save_result($tree, $result,$filter);
	$result=get_saved_result($tree);	//after elimination of higher
} 

if ($result===false) 
	echo "<p><b>$text[cousinmarriagesnotavailable].</b></p>";
elseif (!$result) echo "<p><b>$text[noresults].</b></p>";
else {
//	echo "<STYLE type='text/css'>.cousin>th {color:#FFBB00;}
//	.cousin>td>A {color:#FF8800;}
//	</style>\n"
	//print_temp('GP4');
	$cols = $showmarriages ? 6 : 4;
	if ($filter) list($name,$dates) = getdetails($filter,$tree);
	$of = $filter ? " $text[involving] $name $dates" : '';
	echo "<table cellpadding='4'><caption class='plainheader'>$text[allcousinmarriages]$of</caption>
	<tr class='fieldnameback'><th colspan='2'>&nbsp;</th>
	<th colspan='$cols' class='fieldname'>$text[marriages]</th>
	<th colspan='$cols' class='fieldname'>$text[ancestors]</th></tr>
	<tr class='fieldnameback'><th class='fieldname'>No</th><th class='fieldname'>$text[descent]</th>
	<th class='fieldname'>$text[husband1]</th><th class='fieldname'>$text[dates]</th>
	<th class='fieldname'>$text[wife]</th><th class='fieldname'>$text[dates]</th>";
	if ($showmarriages) echo "<th class='fieldname'>$text[marrplace]</th><th class='fieldname'>$text[date]</th>";
	echo "<th class='fieldname'>$text[husband1]</th><th class='fieldname'>$text[dates]</th>
	<th class='fieldname'>$text[wife]</th><th class='fieldname'>$text[dates]</th>";
	if ($showmarriages) echo "<th class='fieldname'>$text[marrplace]</th><th class='fieldname'>$text[date]</th>";
	echo "</tr>";
	$no=0;
	$occurrences = array();
	$databack = "databack";
	foreach ($result as $row) {
	  if ($row['relate']!='-1') {
		$databack =$databack == "databack"? "databackalt" : "databack";
		$no++;
		$gens=$generations+3;
		$rel1 = "relationship.php?primarypersonID=$row[husband]&amp;savedpersonID=$row[wife]&amp;tree=$tree&amp;maxrels=$relationships&amp;disallowspouses=0&amp;generations=$gens";
		$rel2 = "relationship.php?primarypersonID=$row[wife]&amp;savedpersonID=$row[husband]&amp;tree=$tree&amp;maxrels=$relationships&amp;disallowspouses=0&amp;generations=$gens";
		$no1 = occurrence($row['husband'],$occurrences);
		$no2 = occurrence($row['wife'],$occurrences);		
		$foot = $row['rel']=='half' ? ' &dagger;' : ($row['rel']? ' *':'');
		echo "<tr class='$databack'><td>$no </td><td>$row[relate]$foot</td>
		<td><a href='$rel1'>$row[hname]</a> $no1</td><td>$row[hbirth]</td>
		<td><a href='$rel2'>$row[wname]</a> $no2</td><td>$row[wbirth]</td>";
		if ($showmarriages) echo "<td>$row[marrplace1]</td><td>$row[marrdate1]</td>";
		$no3 = occurrence($row['pat'],$occurrences);
		$pat = !$row['pat']? '':
		"<a href='descend.php?personID=$row[pat]&amp;tree=$tree&amp;display=compact'>$row[pname]</a> $no3" ;
		$no4 = occurrence($row['mat'],$occurrences);
		$mat = !$row['mat']?'' : 
		"<a href='descend.php?personID=$row[mat]&amp;tree=$tree&amp;display=compact'>$row[mname]</a> $no4";
		echo "<td>$pat</td><td>$row[pbirth]</td><td>$mat</td><td>$row[mbirth]</td>\n";
		if ($showmarriages) echo "<td>$row[marrplace2]</td><td>$row[marrdate2]</td>\n";
		echo "</tr>";
	  }
	}
	echo "</table>";
	echo "$text[cousinmarriageshelp]";
}
//if($no==0) echo "<p>$text[noresults].</p>";

$time=cptime($start); 
if ($time>0.5) echo "<p>Time=$time secs</p>\n";

tng_footer($flags);

/**
*	findcommonancestors returns all the cousin marriages up to $gen'th cousins in tree $tree
*	if $allcousins is set it accepts non-genetic relationships
*	It returns the result as an array of arrays.
*	It works by creating a temporary table of everyone's parents and progressively
*	extending it to $gen generations. This is then used to find common ancestors for all
*	couples in the tree.
**/
function findcommonancestors($gen,$tree, $allcousins) {
	global $families_table, $children_table, $people_table, $birth;
	ptime('start');
	//build up temporary tables
	$res=tng_query("CREATE temporary table GP0
	(personID VARCHAR(22), pat VARCHAR(22), mat VARCHAR(22), fam VARCHAR(22), gen SMALLINT, rel VARCHAR(22), INDEX (personID))"); 
	if(!$res) {
		error("Can't create temporary table GP0");
		exit();
	}
	$s = $allcousins? "b.husband, b.wife"
	: "if(a.frel in ('$birth',''),b.husband,'') husband, if(a.mrel in ('$birth',''),b.wife,'') wife";
	
	tng_query("CREATE temporary table GP1 LIKE GP0");
	tng_query("INSERT ignore into GP1
		SELECT a.personID, $s, b.familyID, 1 as gen, 
		 if(a.frel in ('$birth',''), if( a.mrel in ('$birth',''),'', a.mrel), a.frel) rel
		FROM $children_table a
		JOIN $families_table b on a.familyID=b.familyID and a.gedcom=b.gedcom
		WHERE a.gedcom='$tree'");
	//if (!$allcousins) tng_query("DELETE from GP1 where pat='' and mat=''");
	tng_query("INSERT ignore into GP0 SELECT * from GP1");
	ptime('gen 1', 'GP1');
	
	for ($i=2; $i<=$gen; $i++)
		add_generation($i, $tree, $allcousins);
	tng_query("CREATE temporary table GPC LIKE GP0");
	tng_query("INSERT ignore into GPC SELECT personID, pat, mat, fam, gen, rel from GP0");	//create copy for MySQL sake
	ptime('copy tables', 'GPC');
	//if(b.pat!=c.pat,'',b.pat) pat, if(b.mat!=c.mat,'',b.mat) mat
	$res = tng_query("SELECT a.husband, a.wife, if(b.pat=c.pat,b.pat,'') pat, if(b.mat=c.mat,b.mat,'') mat,
		min(b.gen) gen1,min(c.gen) gen2,substring(d.birthdatetr,1,4) birth,
		if(b.fam!=c.fam, 'half', concat(b.rel,c.rel)) rel
		FROM $families_table a 
		JOIN GP0 b on a.husband=b.personID
		JOIN GPC c on a.wife=c.personID
		LEFT JOIN $people_table d on a.husband=d.personID and a.gedcom=d.gedcom
		WHERE a.gedcom='$tree' and 
		((b.pat=c.pat and b.pat!='') OR (b.mat=c.mat and b.mat!=''))
		group by a.husband,a.wife,b.pat,b.mat");
		    
	//(b.pat=c.pat or b.mat=c.mat) AND (b.mat!='' or b.pat=c.pat) and (b.pat!='' or b.mat=c.mat)
	ptime('find cousins');
	if (!$res) echo tng_error();
	$result = array();
	while ($row = tng_fetch_assoc($res)) {
		$result[] = $row;
//echo "$row[husband],$row[wife];";
	}
	tng_free_result($res);
	//load_message(0);
	return $result;
  }

/**
*	add_generation creates a new table GP$gen from GP$gen-1 by adding the parents of
*	the parents in the previous generation, and then adding the results to the root table GP0.
**/

function add_generation($gen, $tree, $allcousins) {
	global $families_table, $children_table, $people_table, $birth;
	$prev = $gen-1;
	tng_query("CREATE temporary table GP$gen LIKE GP0");
	$s = $allcousins? "d.husband, d.wife"
	: "if(c.frel in ('$birth',''),d.husband,'') husband, if(c.mrel in ('$birth',''),d.wife,'') wife";
	tng_query("INSERT ignore into GP$gen
	SELECT b.personID, $s, d.familyID, $gen gen, 
		if (b.rel, b.rel, if(c.frel in ('$birth',''), '', c.frel)) rel
		FROM GP$prev b
		JOIN $children_table c on b.pat=c.personID
		JOIN $families_table d on c.familyID=d.familyID and c.gedcom=d.gedcom
		WHERE c.gedcom='$tree'");
	tng_query("INSERT ignore into GP$gen
	SELECT b.personID, $s, d.familyID, $gen gen, 
		if (b.rel, b.rel, if( c.mrel in ('$birth',''),'', c.mrel)) rel
		FROM GP$prev b
		JOIN $children_table c on b.mat=c.personID
		JOIN $families_table d on c.familyID=d.familyID and c.gedcom=d.gedcom
		WHERE c.gedcom='$tree'");
	tng_query("DROP temporary table GP$prev");
	//if (!$allcousins) tng_query("DELETE from GP$gen where pat='' and mat=''");
	tng_query("INSERT ignore into GP0 SELECT * from GP$gen");
	ptime("gen $gen", "GP$gen");
}

/**
*	this saves the result in the database, with a special value of husband= -1 for an empty result.
*	Any sensitive information is added later. An id is used to preserve the sort order.
**/
function save_result($tree, $result) {
	global $cousin_marriages_table;
	tng_query("CREATE TABLE if not exists $cousin_marriages_table
	(id MEDIUMINT NOT NULL AUTO_INCREMENT, gedcom varchar (20), relate varchar (10), husband varchar(22),  wife varchar(22), 
	pat varchar(22), mat varchar(22), rel varchar(22), primary key (id), index (gedcom, relate))");
	tng_query("DELETE from $cousin_marriages_table where gedcom='$tree'");
	$saved=$del=0;
	
	if (!$result) 
		tng_query("INSERT ignore into $cousin_marriages_table (gedcom,relate) values ('$tree','-1')");
	else { 
		foreach ($result as &$row) {			//check for parent incest
			if ($row['gen1'] =='1' || $row['gen2']=='1') 
				adjustparent($row['husband'],$row['wife'],$row['gen1'],$row['gen2']);
		}
		if(!usort($result, function ($a, $b) {
			if ($t = (min($a['gen1'],$a['gen2']) - min($b['gen1'],$b['gen2']))) return $t;
			if ($t = (max($a['gen1'],$a['gen2']) - max($b['gen1'],$b['gen2']))) return $t;
			return $a['birth'] - $b['birth'];
		})) echo "sort failed<br/>";
		foreach ($result as $row) {
			tng_query("INSERT ignore into $cousin_marriages_table (gedcom, relate, husband,wife,pat,mat,rel) VALUES
			('$tree','$row[gen1]:$row[gen2]','$row[husband]','$row[wife]',
			'$row[pat]','$row[mat]','$row[rel]')");
			$saved++;
		}
		foreach ($result as $row) {			//remove higher cousins
			$t1 = $row['gen1'];
			$t2 = $row['gen2'];			
			$del += tng_query("delete from $cousin_marriages_table where gedcom='$tree' 
			and husband='$row[husband]' and wife='$row[wife]' 
			and (substring(relate,1,1)>'$t1' or substring(relate,3,1)>'$t2')");	//note different defn
		}
	}
}

/**
*	get_saved_result extracts the result from the database and adds personal information 
*	according to the current visibility restrictions. The $relate parameter allows selection
*	of first, second, third cousins, but is no longer used.
**/
function get_saved_result($tree,$filter=null) {
	global $cousin_marriages_table,$families_table;
	$res = tng_query("SHOW TABLES LIKE '$cousin_marriages_table'");
	if (tng_num_rows($res) == 0) return false;
	$res = tng_query("select * from $cousin_marriages_table where gedcom='$tree' and relate='-1'");
	if (tng_num_rows($res) == 1) return array();
	$res = tng_query("select * from $cousin_marriages_table where gedcom='$tree' order by id");
	if (tng_num_rows($res) == 0) return false;
	$result = array();
	while ($row = tng_fetch_assoc($res)) {
		if (!$filter || $filter==$row['husband']|| $filter==$row['wife']|| $filter==$row['pat']|| $filter==$row['mat']) {
		list($row['hname'],$row['hbirth']) = getdetails($row['husband'], $tree);
		list($row['wname'],$row['wbirth']) = getdetails($row['wife'], $tree);
		list($row['pname'],$row['pbirth']) = getdetails($row['pat'], $tree);
		list($row['mname'],$row['mbirth']) = getdetails($row['mat'], $tree);
		list($row['marrdate1'],$row['marrplace1']) = getmarriage($row['husband'],$row['wife'],$tree);
		list($row['marrdate2'],$row['marrplace2']) = getmarriage($row['pat'],$row['mat'],$tree);
		if (!$row['mat'] || !$row['pat']) 
			if ($s=twomarriages($row['pat'],$row['mat'],$tree)) 
				$row[$s] = "half?";
		$result[] = $row;
		}
	}
	tng_free_result($res);
	return $result;	 
}

/**
*	setLivingPrivateRights($row, $tree) is a more convenient version of determineLivingPrivateRights.
*	It modifies the $row parameter and is equivalent to the following code:
*		$righttree = checktree($tree);
*		$rightbranch = $righttree ? checkbranch($row['branch']) : false;
*		$rights = determineLivingPrivateRights($row, $righttree, $rightbranch);
*		$row['allow_living'] = $rights['living'];
*		$row['allow_private'] = $rights['private'];
*		$row['both'] = $rights['both'];
*		$row['allow_lds'] = = $rights['allow_lds'];
*		$row['righttree'] = $righttree;
*		$row['rightbranch'] = $rightbranch;
*	It normally sets global variables $rightbranch, $disallowgedcom and $allowpdf;
*		If this is not appropriate, set the third parameter to 0.
**/
function setLivingPrivateRights(&$row, $tree, $set=1) {  
	global $livedefault, $ldsdefault, $allow_living, $allow_private, $allow_lds, $tree;
	if ($set) global $rightbranch, $disallowgedcreate, $allowpdf;
	$row['allow_private'] = true;
	$row['allow_living'] = true;
 	$row['allow_lds'] = !$ldsdefault ? true : false;
	
	$righttree = checktree($tree);
	$rightbranch = $righttree ? checkbranch($row['branch']) : false;
	$living = $livedefault == 2 ? false : $row['living'];
    $private = $row['private'];

    if($private || $living || $ldsdefault == 2) {		//check tree
		$righttree = checktree($row['gedcom']);
		$rightbranch = $rightbranch ? checkbranch($row['branch']) : false;
    	$user_person = $_SESSION['mypersonID'] && $_SESSION['mygedcom'] == $tree 
    		&& $_SESSION['mypersonID'] == $row['personID'];

    	if($living && (!$allow_living || !$rightbranch) && !$user_person)
    		$row['allow_living'] = false;    		
    	if($private && (!$allow_private || !$rightbranch) && !$user_person)
    		$row['allow_private'] = false;
		if($ldsdefault == 2 && (($allow_lds && $rightbranch) || $user_person))
			$rights['allow_lds'] = true;
    }
   	$row['both'] = $row['allow_private'] && $row['allow_living'];
   	$row['righttree'] = $righttree;
   	$row['rightbranch'] = $rightbranch;
   	$treeResult = getTreeSimple($tree);
	$treerow = tng_fetch_assoc($treeResult);
	$disallowgedcreate = $treerow['disallowgedcreate'];
	$allowpdf = !$treerow['disallowpdf'] || ($allow_pdf && $rightbranch);
	tng_free_result($treeResult);
}

function getdetails($id,$tree) {
	global $people_table;
	$row = tng_fetch_assoc(tng_query("select * from $people_table where personID='$id' and gedcom='$tree'"));
	setLivingPrivateRights($row,$tree);
	return array(getName($row), get_years($row));
}

function get_years(&$row) {
	if ($row['both']) {
		$birth = substr($row['birthdatetr'] ? $row['birthdatetr'] : $row['altbirthdatetr'], 0,4);
		$death = substr($row['deathdatetr'] ? $row['deathdatetr'] : $row['burialdatetr'], 0,4);
		return $birth==0 ? ($death==0 ?'' : "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -$death") :
			($death==0 ?"$birth-":"$birth-$death");
	}	
	else return "";
}

function getmarriage($husband,$wife,$tree) {
	global $families_table;
		$mrow = tng_fetch_assoc(tng_query("select * from $families_table 
		where husband='$husband' and wife='$wife' and gedcom='$tree'"));
		setLivingPrivateRights($mrow,$tree);	
		if ($mrow['both']) {
			return array(substr(($mrow['marrdatetr']!=0?$mrow['marrdatetr']:''),0,4),
			$mrow['marrplace']);
		}
}

function twomarriages($h,$w,$tree) {	//if one partner has two or more marriages return the row name of the other
	global $families_table;
	$cond = $h ?  "husband='$h'" : "wife='$w'";
	$query = "select familyID from $families_table where $cond and gedcom='$tree'";
	if ($res = tng_query($query)) $n = tng_num_rows($res);
	return $n>1 ? ($h ? 'mname' : 'pname') :'';
}

function adjustparent($husband, $wife, &$gen1, &$gen2) { //catch case of incestuous parent
	global $cousin_marriages_table;
	$res = tng_query("select * from GP0 where (personID='$wife' and pat='$husband')
		or (personID='$husband' and mat='$wife')");
	if (tng_num_rows($res)>0) {
		$gen1--; $gen2--;
	}
	tng_free_result($res);
}

/**
*	occurrence returns a string such as [3] for any but the first occurrence of an id in the table.
*	It adds each id to the table.
**/
function occurrence($person, &$table) {
	global $primaryID, $tree;
	if ($person) {
		if ($no=$table[$person]) {
			$table[$person] = ++$no;
			return "<a href='cousin_marriages.php?primaryID=$primaryID&amp;tree=$tree&amp;filter=$person'>[$no]</a>";
		}
		else $table[$person] = 1;
	}
	return "";
}

/*
function print_temp($table) { 		//only call this with tiny tables
	$res = tng_query("select * from $table order by personID,pat,mat");
	if (tng_num_rows($res)>0) {
		echo "<table>\n";
		while ($row = tng_fetch_assoc($res))
			echo "<tr><td>$row[personID]</td><td>$row[pat]</td><td>$row[mat]</td><td>$row[gen]</td></tr>\n";
		echo "</table>\n";
	}
}
*/
function cptime($start=0) {	#s fp
	global $prev;
	if ($start) $prev=$start;
	$new= gettimeofday(true);
	$inc = $new-$prev;
	$prev = $new;
	return round($inc,3);
}

function ptime($stage,$table='') {
	global $print_time;
  if ($print_time) {
	if ($table) {
		$x=tng_query("select * from $table");
		$n = tng_num_rows($x);
	}
	echo "Time to $stage: ".cptime().($table?" for $n rows":'')."<br/>\n";
  }
}

Your Access Expired	Date. in : 30-10-2025
Regist : 09-12-2024	Expired : 01-12-2027