xXx

Hexid M1n1 5h3ll MobiLe

C:/www/familytree/mods/_[ Writable ]

File:C:/www/familytree/mods/CountAncestorsDescendants_mod_v10.1.1.3c.cfg

%name:CountAncestorsDescendants mod%
%version:V10.1.1.3c%
%description:Shows number of Ancestors and Descendants in a textstring below the Individ's name in <i>getperson.php</i>.<br/>
Mod by Erik Hoppe.
<p>
Tested in TNG <b>v10.1.3</b> and <b>v11.0.1</b><br />
</p>
<p>
After installation you can change the counter's limit (default is 100) in <i>Edit Options</i>.
</p>
<p>
Supported languages:<br />
English<br/>
German if present<br/>
Spanish if present<br/>
Dutch if present<br/>
French if present<br/>
Swedish if present
</p>
<p>
Please report errors using the Mod Support link at the Wiki page.<br />
Please report success by adding to the Site list at the Wiki page.<br />
Thank You,<br/>
Erik
</p>
%
%wikipage:Count_Ancestors_n_Descendants%


The line-numbers below correspond to original TNG v10.1.1 files.


******* GENLIB.php *******


* mod 1) Location = l 284. Insert = global personID and textpart (to only display at getperson.php)

%target:genlib.php%
%location:%	
function tng_DrawHeading($photostr, $namestr, $years) {
%end:%		
%insert:after%

/* START MOD: CountAncestorsDescendants mod V10.1.1.3c (m1 l 284) */

	global $personID, $textpart;

/* END MOD: CountAncestorsDescendants mod V10.1.1.3c  (m1) */

%end:%



* mod 2) Location = l 290. Replace = take away <br />tag (more later on same line)

%location:%	
			$outputstr .= "<span class=\"normal\">$years</span><br />\n";
%end:%		
%replace:%

/* START MOD: CountAncestorsDescendants mod V10.1.1.3c (m2 l 290) */

			$outputstr .= "<span class=\"normal\">$years</span>\n";

/* END MOD: CountAncestorsDescendants mod V10.1.1.3c  (m2) */

%end:%



* mod 3) Location = l 292. Insert = call to getXerxxNumberOfAncDesc($personID)

// user-specified counter limit
%parameter:$xerxxLimit:100%
%desc:<b>How many persons of each kind shall be counted?</b><br />
<span style="color:red;">Do do not use quotes or parentheses.</span><br />
Enter the number of your choice and click <i>Update</i></br />
The counter will count to 1 more and then stop.</br />
Defaults to (100)%
%end:%

%location:%	
	$outputstr .= "<br clear=\"all\" /><br />\n";
%end:%		
%insert:before%

/* START MOD: CountAncestorsDescendants mod V10.1.1.3c (m3 l 292) */

	if ($textpart == "getperson") {
		$xerxxLimit = 100;
		$outputstr .= getXerxxNumberOfAncDesc($personID, $xerxxLimit);
	}

/* END MOD: CountAncestorsDescendants mod V10.1.1.3c  (m3) */

%end:%



* mod 4) Location = End of file. Insert = custom functions called from tng_drawheading()

%location:%	
//debugPrint($linkdefs);
	return $menustr;
}
%end:%		
%insert:after%

/* START MOD: CountAncestorsDescendants mod V10.1.1.3c (m4 eof) */

// This function is called from getXerxxNumberOfAncDesc($pID) below

function xerxxCountAllAncestors($inPersID, $xerxxCntr, $xerxxLimit) {

   global $tree, $xerxxAncArray;

   if ($xerxxAncArray[0] > 0 && in_array($inPersID, $xerxxAncArray)) { $xerxxCntr--; return $xerxxCntr; }
   $xerxxAncArray[0]++;
   $xerxxAncArray[ $xerxxAncArray[0] ] = $inPersID;

   $select2 = "SELECT familyID from tng_children WHERE personID = '" . $inPersID . "' AND gedcom = '" . $tree . "';";
   $result2 = tng_query($select2) or die ("FEL 1: *". $select2 . "*");
   if ($result2) {
      $rad2 =  tng_fetch_array($result2);
      $select = "SELECT husband, wife from tng_families WHERE gedcom = '" . $tree . "' AND familyID = '" .$rad2['familyID'] . "';";
      $result = tng_query($select);
      if ($result) {
         while ($rad = tng_fetch_array($result)) {
               if ($rad['husband'] != "") {
                  $xerxxCntr ++;
                  if ($xerxxCntr > $xerxxLimit) break;
                  $xerxxCntr = xerxxCountAllAncestors($rad['husband'], $xerxxCntr, $xerxxLimit);
                  if ($xerxxCntr > $xerxxLimit) break;
               }
               if ($rad['wife'] != "") {
                  $xerxxCntr ++;
                  if ($xerxxCntr > $xerxxLimit) break;
                  $xerxxCntr = xerxxCountAllAncestors($rad['wife'], $xerxxCntr, $xerxxLimit);
                  if ($xerxxCntr > $xerxxLimit) break;
               }
         }
         tng_free_result($result);
      }
   }
   tng_free_result($result2);
   return $xerxxCntr;
}


// This function is called from getXerxxNumberOfAncDesc($pID) below

function xerxxCountAllDescendants($inPersID, $xerxxCntr, $xerxxLimit) {

   global $tree, $xerxxDescArray;

   if ($xerxxDescArray[0] > 0 && in_array($inPersID, $xerxxDescArray)) { $xerxxCntr--; return $xerxxCntr; }
   $xerxxDescArray[0]++;
   $xerxxDescArray[ $xerxxDescArray[0] ] = $inPersID;

  $select = "SELECT familyID from tng_families WHERE gedcom = '" . $tree . "' AND (husband = '" .$inPersID . "' OR wife = '" . $inPersID . "');";
  $result = tng_query($select);
  if ($result) {
     while ($rad = tng_fetch_array($result)) {
           $select2 = "SELECT personID from tng_children WHERE gedcom = '" . $tree . "' AND familyID = '" . $rad['familyID'] . "';";
           $result2 = tng_query($select2);
           if ($result2) {
              while ($rad2 =  tng_fetch_array($result2)) {
                    $xerxxCntr ++;
                    if ($xerxxCntr > $xerxxLimit) break;
                    $xerxxCntr = xerxxCountAllDescendants($rad2['personID'], $xerxxCntr, $xerxxLimit);
                    if ($xerxxCntr > $xerxxLimit) break;
              }
              tng_free_result($result2);
           }
           if ($xerxxCntr > $xerxxLimit) break;
     }
     tng_free_result($result);
  }
  return $xerxxCntr;
}


function getXerxxNumberOfAncDesc($pID, $xerxxLimit) {

// This function is called from tng_DrawHeading()

/*
This function:
   Counts Ancestors
   Counts Descendants
   Returns a string with the above in text to display
*/

   global $text;

   $returnText = "";
   $inled = $text['xerxxGPstarttext'] ;
   $ochMen = $text['xerxxGPand'];
   $slut = $text['xerxxGPdescs'] ;

   $xerxxAncArray = array(0 => 0, 1 => "");
   // Added to prevent double-counting

   $summa2 = xerxxCountAllAncestors($pID, 0, $xerxxLimit);
   if ($summa2 == 0) {
      $inled .= $text['xerxxGPstarttextNone'];
      $summa = $text['xerxxGPno'] . $text['xerxxGPancs'];
   } elseif ($summa2 == 1) {
      $inled .= $text['xerxxGPstarttextSing'];
      $summa = $text['xerxxGPone'] . $text['xerxxGPanc'];
   } elseif ($summa2 > $xerxxLimit) {
      $summa = $text['xerxxGPmore'] . $xerxxLimit . $text['xerxxGPancs'];
   } else {
      $summa = $summa2 . $text['xerxxGPancs'];
      $inled .= $text['xerxxGPstarttextPlur'];
   }
   $returnText .= $inled . $summa;

   $xerxxDescArray = array(0 => 0, 1 => "");
   // Added to prevent double-counting

   $summa1 = xerxxCountAllDescendants($pID, 0, $xerxxLimit);
   $summa = $summa1;
   if ($summa1 == 0) {
      $summa = $text['xerxxGPno'];
   } elseif ($summa1 == 1) {
      $summa = $text['xerxxGPone'];
      $slut = $text['xerxxGPdesc'];
   } elseif ($summa1 > $xerxxLimit) {
      $summa = $text['xerxxGPmore'] . $xerxxLimit;
   }
   if (($summa1 == 0 && $summa2 > 0) || ($summa1 > 0 && $summa2 == 0)) $ochMen = $text['xerxxGPbut'];
   $returnText .= $ochMen . $summa . $slut . $text['xerxxGPfinishtext'];

   return $returnText;
}

/* END MOD: CountAncestorsDescendants mod V10.1.1.3c (m4) */

%end:%


******************************************
******************************************

These are the custom text variables
Currently English, German, Spanish, Dutch, French and Swedish


%target:languages/English/cust_text.php%
%location:%
?>
%end:%
%insert:before%

/* START Texts for: CountAncestorsDescendants mod V10.1.1.3c */

$text['xerxxGPstarttext'] = "&nbsp;&nbsp;&nbsp;Has ";
$text['xerxxGPstarttextNone'] = "";
$text['xerxxGPstarttextSing'] = "";
$text['xerxxGPstarttextPlur'] = "";
$text['xerxxGPdescs'] = " descendants";
$text['xerxxGPdesc'] = " descendant";
$text['xerxxGPancs'] = " ancestors";
$text['xerxxGPanc'] = " ancestor";
$text['xerxxGPno'] = "no";
$text['xerxxGPone'] = "one";
$text['xerxxGPand'] = " and ";
$text['xerxxGPbut'] = " but ";
$text['xerxxGPmore'] = "more than ";
$text['xerxxGPfinishtext'] = " in this family tree.";

/* END Texts for: CountAncestorsDescendants mod V10.1.1.3c */

%end:%

%target:languages/English-UTF8/cust_text.php%
%location:%
?>
%end:%
%insert:before%

/* START Texts for: CountAncestorsDescendants mod V10.1.1.3c */

$text['xerxxGPstarttext'] = "&nbsp;&nbsp;&nbsp;Has ";
$text['xerxxGPstarttextNone'] = "";
$text['xerxxGPstarttextSing'] = "";
$text['xerxxGPstarttextPlur'] = "";
$text['xerxxGPdescs'] = " descendants";
$text['xerxxGPdesc'] = " descendant";
$text['xerxxGPancs'] = " ancestors";
$text['xerxxGPanc'] = " ancestor";
$text['xerxxGPno'] = "no";
$text['xerxxGPone'] = "one";
$text['xerxxGPand'] = " and ";
$text['xerxxGPbut'] = " but ";
$text['xerxxGPmore'] = "more than ";
$text['xerxxGPfinishtext'] = " in this family tree.";

/* END Texts for: CountAncestorsDescendants mod V10.1.1.3c */

%end:%



%target:languages/German/cust_text.php%
%fileoptional:%
%location:%
?>
%end:%
%insert:before%

/* START Texts for: CountAncestorsDescendants mod V10.1.1.3c */

$text['xerxxGPstarttext'] = "&nbsp;&nbsp;&nbsp;Es ";
$text['xerxxGPstarttextNone'] = "sind ";
$text['xerxxGPstarttextSing'] = "ist ";
$text['xerxxGPstarttextPlur'] = "gibt ";
$text['xerxxGPdescs'] = " Nachkommen";
$text['xerxxGPdesc'] = " Nachkomme";
$text['xerxxGPancs'] = " Vorfahren";
$text['xerxxGPanc'] = " Vorfahr";
$text['xerxxGPno'] = "keine";
$text['xerxxGPone'] = "ein";
$text['xerxxGPand'] = " und ";
$text['xerxxGPbut'] = " aber ";
$text['xerxxGPmore'] = "mehr als ";
$text['xerxxGPfinishtext'] = " in diesem Stammbaum.";

/* END Texts for: CountAncestorsDescendants mod V10.1.1.3c */

%end:%

%target:languages/German-UTF8/cust_text.php%
%fileoptional:%
%location:%
?>
%end:%
%insert:before%

/* START Texts for: CountAncestorsDescendants mod V10.1.1.3c */

$text['xerxxGPstarttext'] = "&nbsp;&nbsp;&nbsp;Es ";
$text['xerxxGPstarttextNone'] = "sind ";
$text['xerxxGPstarttextSing'] = "ist ";
$text['xerxxGPstarttextPlur'] = "gibt ";
$text['xerxxGPdescs'] = " Nachkommen";
$text['xerxxGPdesc'] = " Nachkomme";
$text['xerxxGPancs'] = " Vorfahren";
$text['xerxxGPanc'] = " Vorfahr";
$text['xerxxGPno'] = "keine";
$text['xerxxGPone'] = "ein";
$text['xerxxGPand'] = " und ";
$text['xerxxGPbut'] = " aber ";
$text['xerxxGPmore'] = "mehr als ";
$text['xerxxGPfinishtext'] = " in diesem Stammbaum.";

/* END Texts for: CountAncestorsDescendants mod V10.1.1.3c */

%end:%


%target:languages/Spanish/cust_text.php%
%fileoptional:%
%location:%
?>
%end:%
%insert:before%

/* START Texts for: CountAncestorsDescendants mod V10.1.1.3c */
$text['xerxxGPstarttext'] = "&nbsp;&nbsp;&nbsp;Tiene ";
$text['xerxxGPstarttextNone'] = "";
$text['xerxxGPstarttextSing'] = "";
$text['xerxxGPstarttextPlur'] = "";
$text['xerxxGPdescs'] = " descendientes";
$text['xerxxGPdesc'] = " descendiente";
$text['xerxxGPancs'] = " antepasados";
$text['xerxxGPanc'] = " antepasado";
$text['xerxxGPno'] = "no";
$text['xerxxGPone'] = "uno";
$text['xerxxGPand'] = " y ";
$text['xerxxGPbut'] = " pero ";
$text['xerxxGPmore'] = "mas que ";
$text['xerxxGPfinishtext'] = " en este &Aacute;rbol.";
/* END Texts for: CountAncestorsDescendants mod V10.1.1.3c */

%end:%


%target:languages/Spanish-UTF8/cust_text.php%
%fileoptional:%
%location:%
?>
%end:%
%insert:before%

/* START Texts for: CountAncestorsDescendants mod V10.1.1.3c */
$text['xerxxGPstarttext'] = "&nbsp;&nbsp;&nbsp;Tiene ";
$text['xerxxGPstarttextNone'] = "";
$text['xerxxGPstarttextSing'] = "";
$text['xerxxGPstarttextPlur'] = "";
$text['xerxxGPdescs'] = " descendientes";
$text['xerxxGPdesc'] = " descendiente";
$text['xerxxGPancs'] = " antepasados";
$text['xerxxGPanc'] = " antepasado";
$text['xerxxGPno'] = "no";
$text['xerxxGPone'] = "uno";
$text['xerxxGPand'] = " y ";
$text['xerxxGPbut'] = " pero ";
$text['xerxxGPmore'] = "mas que ";
$text['xerxxGPfinishtext'] = " en este &Aacute;rbol.";
/* END Texts for: CountAncestorsDescendants mod V10.1.1.3c */

%end:%


%target:languages/Dutch/cust_text.php%
%fileoptional:%
%location:%
?>
%end:%
%insert:before%

/* START Texts for: CountAncestorsDescendants mod V10.1.1.3c */
$text['xerxxGPstarttext'] = "&nbsp;&nbsp;&nbsp;Heeft ";
$text['xerxxGPstarttextNone'] = "";
$text['xerxxGPstarttextSing'] = "";
$text['xerxxGPstarttextPlur'] = "";
$text['xerxxGPdescs'] = " nakomelingen";
$text['xerxxGPdesc'] = " afstammeling";
$text['xerxxGPancs'] = " voorvaders";
$text['xerxxGPanc'] = " voorvader";
$text['xerxxGPno'] = "nee";
$text['xerxxGPone'] = "een";
$text['xerxxGPand'] = " en ";
$text['xerxxGPbut'] = " mar ";
$text['xerxxGPmore'] = "meer dan ";
$text['xerxxGPfinishtext'] = " in deze stamboom.";
/* END Texts for: CountAncestorsDescendants mod V10.1.1.3c */

%end:%


%target:languages/Dutch-UTF8/cust_text.php%
%fileoptional:%
%location:%
?>
%end:%
%insert:before%

/* START Texts for: CountAncestorsDescendants mod V10.1.1.3c */
$text['xerxxGPstarttext'] = "&nbsp;&nbsp;&nbsp;Heeft ";
$text['xerxxGPstarttextNone'] = "";
$text['xerxxGPstarttextSing'] = "";
$text['xerxxGPstarttextPlur'] = "";
$text['xerxxGPdescs'] = " nakomelingen";
$text['xerxxGPdesc'] = " afstammeling";
$text['xerxxGPancs'] = " voorvaders";
$text['xerxxGPanc'] = " voorvader";
$text['xerxxGPno'] = "nee";
$text['xerxxGPone'] = "een";
$text['xerxxGPand'] = " en ";
$text['xerxxGPbut'] = " mar ";
$text['xerxxGPmore'] = "meer dan ";
$text['xerxxGPfinishtext'] = " in deze stamboom.";
/* END Texts for: CountAncestorsDescendants mod V10.1.1.3c */

%end:%


%target:languages/French/cust_text.php%
%fileoptional:%
%location:%
?>
%end:%
%insert:before%

/* START Texts for: CountAncestorsDescendants mod V10.1.1.3c */
$text['xerxxGPstarttext'] = "&nbsp;&nbsp;&nbsp;A ";
$text['xerxxGPstarttextNone'] = "";
$text['xerxxGPstarttextSing'] = "";
$text['xerxxGPstarttextPlur'] = "";
$text['xerxxGPdescs'] = " descendance";
$text['xerxxGPdesc'] = " descendant";
$text['xerxxGPancs'] = " anc&ecirc;tres";
$text['xerxxGPanc'] = " anc&ecirc;tre";
$text['xerxxGPno'] = "pas des";
$text['xerxxGPone'] = "un";
$text['xerxxGPand'] = " et ";
$text['xerxxGPbut'] = " mais ";
$text['xerxxGPmore'] = "plus que ";
$text['xerxxGPfinishtext'] = " dans cet arbre de la famille.";
/* END Texts for: CountAncestorsDescendants mod V10.1.1.3c */

%end:%


%target:languages/French-UTF8/cust_text.php%
%fileoptional:%
%location:%
?>
%end:%
%insert:before%

/* START Texts for: CountAncestorsDescendants mod V10.1.1.3c */
$text['xerxxGPstarttext'] = "&nbsp;&nbsp;&nbsp;A ";
$text['xerxxGPstarttextNone'] = "";
$text['xerxxGPstarttextSing'] = "";
$text['xerxxGPstarttextPlur'] = "";
$text['xerxxGPdescs'] = " descendance";
$text['xerxxGPdesc'] = " descendant";
$text['xerxxGPancs'] = " anc&ecirc;tres";
$text['xerxxGPanc'] = " anc&ecirc;tre";
$text['xerxxGPno'] = "pas des";
$text['xerxxGPone'] = "un";
$text['xerxxGPand'] = " et ";
$text['xerxxGPbut'] = " mais ";
$text['xerxxGPmore'] = "plus que ";
$text['xerxxGPfinishtext'] = " dans cet arbre de la famille.";
/* END Texts for: CountAncestorsDescendants mod V10.1.1.3c */

%end:%



%target:languages/Swedish/cust_text.php%
%fileoptional:%
%location:%
?>
%end:%
%insert:before%

/* START Texts for: CountAncestorsDescendants mod V10.1.1.3c */

$text['xerxxGPstarttext'] = "&nbsp;&nbsp;&nbsp;Har ";
$text['xerxxGPstarttextNone'] = "";
$text['xerxxGPstarttextSing'] = "";
$text['xerxxGPstarttextPlur'] = "";
$text['xerxxGPdescs'] = " &auml;ttlingar";
$text['xerxxGPdesc'] = " &auml;ttling";
$text['xerxxGPancs'] = " anor";
$text['xerxxGPanc'] = " ana";
$text['xerxxGPno'] = "inga";
$text['xerxxGPone'] = "en";
$text['xerxxGPand'] = " och ";
$text['xerxxGPbut'] = " men ";
$text['xerxxGPmore'] = "fler &auml;n ";
$text['xerxxGPfinishtext'] = " i detta sl&auml;kttr&auml;d.";

/* END Texts for: CountAncestorsDescendants mod V10.1.1.3c */

%end:%

%target:languages/Swedish-UTF8/cust_text.php%
%fileoptional:%
%location:%
?>
%end:%
%insert:before%

/* START Texts for: CountAncestorsDescendants mod V10.1.1.3c */

$text['xerxxGPstarttext'] = "&nbsp;&nbsp;&nbsp;Har ";
$text['xerxxGPstarttextNone'] = "";
$text['xerxxGPstarttextSing'] = "";
$text['xerxxGPstarttextPlur'] = "";
$text['xerxxGPdescs'] = " &auml;ttlingar";
$text['xerxxGPdesc'] = " &auml;ttling";
$text['xerxxGPancs'] = " anor";
$text['xerxxGPanc'] = " ana";
$text['xerxxGPno'] = "inga";
$text['xerxxGPone'] = "en";
$text['xerxxGPand'] = " och ";
$text['xerxxGPbut'] = " men ";
$text['xerxxGPmore'] = "fler &auml;n ";
$text['xerxxGPfinishtext'] = " i detta sl&auml;kttr&auml;d.";

/* END Texts for: CountAncestorsDescendants mod V10.1.1.3c */

%end:%

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