xXx

Hexid M1n1 5h3ll MobiLe

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

File:C:/www/dummy/familytree/mods/id_analysis_v11.0.0.1.cfg

This is a TNG mod directive file
%name:ID Analysis%
%version:v11.0.0.1%
%description:Adds a tab (ID Analysis) to the Admin > Miscellaneous page. Lists for each tree in the database, for people and families - declared prefix or suffix, total rows/records, list of unused ID numbers (if any), list of IDs not conforming to the declared prefix or suffix (if any).<br />TNG 11.0.0 version.<br /><br />Mod developer is Warren S Gilbert.<br />For additional details see the TNG Wiki article <a href="http://http://tng.lythgoes.net/wiki/index.php?title=ID_Analysis" target="_blank">ID_Analysis</a>.%

%wikipage:ID_Analysis%

%target:admin_misc.php%
%location:%
	$misctabs[3] = array(1,"admin_data_validation.php",$admtext['dataval'],"validation");
%end:%
%insert:after%
	$misctabs[4] = array(1,"admin_idanalysis.php",$admtext['idanalysis'],"idanalysis");
%end:%

%location:%
	<span class="normal miscmenu"><?php echo $admtext['dvblurb']; ?></span></p>
%end:%
%insert:after%
	<p class="subhead"><img src="img/tng_expand.gif" width="15" height="15" border="0"/> <a href="admin_idanalysis.php"><b><?php echo $admtext['idanalysis']; ?></b></a><br />
	<span class="normal miscmenu"><?php echo $admtext['idablurb']; ?></span></p>
%end:%


%target:admin_mostwanted.php%
%location:%
	$misctabs[3] = array(1,"admin_data_validation.php",$admtext['dataval'],"validation");
%end:%
%insert:after%
	$misctabs[4] = array(1,"admin_idanalysis.php",$admtext['idanalysis'],"idanalysis");
%end:%

%target:admin_whatsnewmsg.php%
%location:%
	$misctabs[3] = array(1,"admin_data_validation.php",$admtext['dataval'],"validation");
%end:%
%insert:after%
	$misctabs[4] = array(1,"admin_idanalysis.php",$admtext['idanalysis'],"idanalysis");
%end:%

%target:admin_data_validation.php%
%location:%
	$misctabs[3] = array(1,"admin_data_validation.php",$admtext['dataval'],"validation");
%end:%
%insert:after%
	$misctabs[4] = array(1,"admin_idanalysis.php",$admtext['idanalysis'],"idanalysis");
%end:%

%target:languages/English/cust_text.php%
%location:%
?>
%end:%
%insert:before%
// ID Analysis
$admtext['familyidprefix'] = "Family ID Prefix";
$admtext['familyidsuffix'] = "Family ID Suffix";
$admtext['idanalysis'] = "ID Analysis";
$admtext['invalidfamilyids'] = "Invalid Family IDs";
$admtext['invalidpersonids'] = "Invalid Person IDs";
$admtext['personidprefix'] = "Person ID Prefix";
$admtext['personidsuffix'] = "Person ID Suffix";
$admtext['total'] = "Total";
$admtext['tree'] = "Tree";
$admtext['treename'] = "Tree Name";
$admtext['unusedfamilyidnumbers'] = "Unused FamilyID Numbers";
$admtext['unusedpersonidnumbers'] = "Unused PersonID Numbers";
$admtext['idablurb'] = "Lists for each tree in the database, for people and families: - declared prefix or suffix, total rows/records, list of unused ID numbers (if any), list of IDs not conforming to the declared prefix or suffix (if any).";
$admtext['miscitems'] = "Notes, What's New, Most Wanted, ID Analysis";
%end:%	

%target:languages/English-UTF8/cust_text.php%
%location:%
?>
%end:%
%insert:before%
// ID Analysis
$admtext['familyidprefix'] = "Family ID Prefix";
$admtext['familyidsuffix'] = "Family ID Suffix";
$admtext['idanalysis'] = "ID Analysis";
$admtext['invalidfamilyids'] = "Invalid Family IDs";
$admtext['invalidpersonids'] = "Invalid Person IDs";
$admtext['personidprefix'] = "Person ID Prefix";
$admtext['personidsuffix'] = "Person ID Suffix";
$admtext['total'] = "Total";
$admtext['tree'] = "Tree";
$admtext['treename'] = "Tree Name";
$admtext['unusedfamilyidnumbers'] = "Unused FamilyID Numbers";
$admtext['unusedpersonidnumbers'] = "Unused PersonID Numbers";
$admtext['idablurb'] = "Lists for each tree in the database, for people and families: - declared prefix or suffix, total rows/records, list of unused ID numbers (if any), list of IDs not conforming to the declared prefix or suffix (if any).";
$admtext['miscitems'] = "Notes, What's New, Most Wanted, ID Analysis";
%end:%		
		
%target:languages/English/misc_help.php%
%location:%
			<a href="#validation" class="lightlink">Data Validation</a>
%end:%
%replace:%
			<a href="#validation" class="lightlink">Data Validation</a> &nbsp; | &nbsp;
			<a href="#idanalysis" class="lightlink">ID analysis</a>
%end:%


%location:%
</table>
%end:%
%replace:%
<tr class="databack">
	<td class="tngshadow">

		<p style="float:right"><a href="#top">Top</a></p>
		<a name="idanalysis"></a><p class="subheadbold">ID analysis</p>
		<p>Clicking on the ID analysis tab will produce a report for each tree in the database, listing for people and families: -<br />
 - Declared Prefix or Suffix<br />
 - Total rows/records<br />
 - List of unused ID numbers (if any)<br />
 - List of IDs not conforming to the declared Prefix or Suffix (if any)</p>

	</td>
</tr>

</table>
%end:%


%newfile:admin_idanalysis.php%
%fileversion:v11.0.0.1%
<?php
// ID analysis
// Mod by Warren S Gilbert
// Last Updated: 18 March 2016 by Warren S Gilbert for TNG v11.0
//
// %version:v11.0.0.1%
//
// This mod is designed to work with TNG v11.0 and later
//
// The mod adds a new tab (ID analysis) to the Admin >> Reports page.
//
// Clicking on the ID analysis tab will produce a report for each tree in the
// database listing for people and families: -
//   Declared Prefix or Suffix
//   Total rows/records
//   List of unused ID numbers (if any)
//   List of IDs not conforming to the declared Prefix or Suffix (if any)
//
include("begin.php");
include("adminlib.php");
$textpart = "misc";
include("getlang.php");
include("$mylanguage/admintext.php");
tng_db_connect($database_host,$database_name,$database_username,$database_password) or exit;
$admin_login = 1;
include("checklogin.php");
include("version.php");

function processTree() {
	global $admtext, $families_table, $gedcom, $people_table, $text, $tngconfig, $treename;
	echo "<tr><td colspan=\"2\"><span class=\"subhead\"><strong>".$admtext['tree'].":</strong> ".$gedcom." <strong>".$admtext['treename'].":</strong> ".$treename."</span></td></tr>\n";
	echo "<tr><td class=\"fieldnameback fieldname\" nowrap>&nbsp;<b>".$admtext['description']."</b>&nbsp;</td><td class=\"fieldnameback fieldname\" nowrap>&nbsp;<b>".$admtext['detail']."</b>&nbsp;</td></tr>\n";
// Check for missing personIDs
	processTable("$people_table", "personID", $tngconfig['personprefix'], $tngconfig['personsuffix'], $admtext['personidprefix'], $admtext['personidsuffix'], $admtext['people'], $admtext['unusedpersonidnumbers'], $admtext['invalidpersonids']);

// Check for missing familyIDs
	processTable("$families_table", "familyID", $tngconfig['familyprefix'], $tngconfig['familysuffix'], $admtext['familyidprefix'], $admtext['familyidsuffix'], $admtext['families'], $admtext['unusedfamilyidnumbers'], $admtext['invalidfamilyids']);
}

function processTable($table, $column, $prefix, $suffix, $descprefix, $descsuffix, $heading, $unusediddesc, $invalidids) {
	global $admtext, $gedcom, $text;
	if ($prefix) {
		$part1 = "'$prefix', -1";
		$desc = $descprefix;
		$affix = $prefix;
	}
	else {
		$part1 = "'$suffix', 1";
		$desc = $descsuffix;
		$affix = $suffix;
	}
	$prefixlen = strlen($prefix);
	$suffixlen = strlen($suffix) * -1;
	$currNo = 1;
	$invalids = 0;
	$IDinvalid = '';
	$IDunused = '';
	$separator1 = '';
	$separator2 = '';
	$totalmissing = 0;
	$query = "SELECT MIN(LENGTH($column)) AS minlen, MAX(LENGTH($column)) AS maxlen FROM $table WHERE gedcom = '$gedcom'";
	$result = tng_query($query);
	$row = tng_fetch_assoc($result);
	$fixed_length = 0;
  if ($row['minlen'] == $row['maxlen']) {
    $fixed_length = $row['maxlen'];
	}
	tng_free_result($result);

	$query = "SELECT T1.".$column.", 0+SUBSTRING_INDEX(T1.".$column.", ".$part1." ) AS IDnumber FROM $table T1 WHERE T1.gedcom = '".$gedcom."' ORDER BY IDnumber";
	$result = tng_query($query);
	$numrows = tng_num_rows($result);
	
	while( $row = tng_fetch_assoc($result))	{
 		if (($prefix && (substr($row[$column], 0, $prefixlen) != $prefix || !is_numeric(substr($row[$column], $prefixlen )))) || ($suffix && (substr($row[$column], $suffixlen) != $suffix || !is_numeric(substr($row[$column], 0, $suffixlen))))) {
			$invalids++;
 			$IDinvalid = $IDinvalid.$separator1.$row[$column];
 			$separator1 = ", ";
		}
		else {
			if ($currNo != $row[IDnumber]) {
				if (($currNo == 1) && ($row[IDnumber]-$currNo > 2)) {				
					$n1 = $row[IDnumber]-1;
					if ($fixed_length) {
						$j = str_pad($currno, ($fixed_length-1), "0", STR_PAD_LEFT);
						$k = str_pad($n1, ($fixed_length-1), "0", STR_PAD_LEFT);
					} else {
						$j = $currno;
						$k = $n1;
					}  
					$IDunused = $IDunused.$separator2.$prefix.$j.$suffix." ".$text['to']." ".$prefix.$k.$suffix;
		 			$separator2 = ", ";
					$totalmissing += $row[IDnumber]-$currNo;
				}
				else {
					for ($i=$currNo; $i < $row[IDnumber]; $i++) {
						if ($fixed_length) {
						  $j = str_pad($i, ($fixed_length-1), "0", STR_PAD_LEFT);
						} else {
						  $j = $i;
						}  
						$IDunused = $IDunused.$separator2.$prefix.$j.$suffix;
						$separator2 = ", ";
						$totalmissing++;
					}
				}
			}
			$currNo = $row[IDnumber]+1;
		}
	}
	echo "<tr><td class=\"lightback\" valign=\"top\"><span class=\"normal\">", $desc, "</span></td><td class=\"lightback\" valign=\"top\"><span class=\"normal\">", $affix, "</span></td></tr>\n";
	echo "<tr><td class=\"lightback\" valign=\"top\"><span class=\"normal\">", $admtext['total'], " ", $heading,"</span></td>\n";
	echo "<td class=\"lightback\" valign=\"top\"><span class=\"normal\">", $numrows, "</span></td></tr>\n";
	echo "<tr><td class=\"lightback\" valign=\"top\"><span class=\"normal\">", $unusediddesc, "</span></td>\n";
	if ($IDunused == '') {
		echo "<td class=\"lightback\" valign=\"top\"><span class=\"normal\">", $text['none'], "</span></td></tr>\n";
	}
	else {
		echo "<td class=\"lightback\" valign=\"top\"><span class=\"normal\">", $IDunused, "<br />", $admtext['total'], ": ", $totalmissing, "</span></td></tr>\n";
	}
	echo "<tr><td class=\"lightback\" valign=\"top\"><span class=\"normal\">", $invalidids, "</span></td>\n";
	if ($IDinvalid == '') {
		echo "<td class=\"lightback\" valign=\"top\"><span class=\"normal\">", $text['none'], "</span></td></tr>\n";
	}
	else {
		echo "<td class=\"lightback\" valign=\"top\"><span class=\"normal\">", $IDinvalid, "<br />", $admtext['total'], ": ", $invalids, "</span></td></tr>\n";
	}	
}

if( $assignedtree ) {
	$wherestr = "WHERE gedcom = \"$assignedtree\"";
	$tree = $assignedtree;
}
else {
	$wherestr = "";
}

$idanalysis_url = getURL( "idanalysis", 0 );
$helplang = findhelp("reports_help.php");

$flags['tabs'] = $tngconfig['tabs'];
tng_adminheader( $admtext['idanalysis'], $flags );
?>
</head>

<body background="img/background.gif">

<?php
	$misctabs[0] = array(1,"admin_misc.php",$admtext['menu'],"misc");
	$misctabs[1] = array(1,"admin_whatsnewmsg.php",$admtext['whatsnew'],"whatsnew");
	$misctabs[2] = array(1,"admin_mostwanted.php",$admtext['mostwanted'],"mostwanted");
	$misctabs[3] = array(1,"admin_data_validation.php",$admtext['dataval'],"validation");
	$misctabs[4] = array(1,"admin_idanalysis.php",$admtext['idanalysis'],"idanalysis");
	$innermenu = "<a href=\"#\" onclick=\"return openHelp('$helplang/misc_help.php#idanalysis');\" class=\"lightlink\">{$admtext['help']}</a>";
	$menu = doMenu($misctabs,"idanalysis",$innermenu);
	echo displayHeadline($admtext['misc']." &gt;&gt; ".$admtext['idanalysis'],"img/misc_icon.gif",$menu,$message);
?>
<table width="100%" border="0" cellpadding="10" cellspacing="2" class="lightback">
<tr class="databack">
<td class="tngshadow">
	<table cellpadding="3" cellspacing="1" border="0">

<?php
	$treequery = "SELECT gedcom, treename FROM $trees_table $wherestr ORDER BY treename";
	$treeresult = tng_query($treequery);
	$rownumber = 0;
	while($treerow = tng_fetch_assoc($treeresult)) {
		$gedcom = $treerow[gedcom];
		$treename = $treerow[treename];
		if ($rownumber) {
			echo "<tr><td><span class=\"subhead\">&nbsp;</span></td></tr>\n";
		}
		$rownumber++;
		processTree();
	}
?>
	</table>

</td>
</tr>

</table>

<?php
	echo "<div align=\"right\"><span class=\"normal\">$tng_title, v.$tng_version</span></div>"; 
?>

</body>
</html>
%fileend:%

Your Access Expired	Date. in : 02-11-2025
Regist : 09-12-2024	Expired : 01-12-2027