xXx

Hexid M1n1 5h3ll MobiLe

C:/www/familytree/mods/textplus_charts_v10.1.0.13b/_[ Writable ]

File:C:/www/familytree/mods/textplus_charts_v10.1.0.13b/textplusmod_innermenuedit.php

<?php
# textplusmod_innermenuedit.php - Removes or restores the old "Text" chart in the innermenus of Ancestor or Descendant chart program.
# Installed by the TextPlus Charts Mod.
# The Ancestor and Descendant innermenus can get crowded after mods add programs to them.
# Since the Text+ charts essentially supercede the Text charts, some site Admins who
# have installed the TextPlus mod may want to elmininate the old Text charts from the
# Ancestor and/or Descendant innermenus. But, because different mods install different
# programs, it is hard to know exactly which PHP chart program need to be modified.
# That is, Mod Manager really is up to the task, but this program is.
#
# This program 
#  a. Looks for standard Ancestor and Descendant chart programs,
#  b. Checks for the presence of innermenu links to the standard Ancestor or Descendant
#     text chart program,
#  c. Determines whether the link has been commented out, and
#  d. Offers to disable or restore the link.
#  The user can specify other programs that should be processed, too.

define ("SUPPRESSION_COMMENT", '#Suppress Old Text Link# ');
define ("EMPTY_CELL", "<td class='lightback'>&nbsp;</td>");
$textplus_cust_text = 1; #This flag causes the TextPlus custom strings to be loaded
$tngModNames['TextPlus Charts']['textplusmod_innermenuedit.php'] = '13a'; #Register this mod

include("begin.php");
include($cms['tngpath'] ."adminlib.php");
$textpart = "textplus";
include($cms['tngpath'] ."getlang.php");
include($cms['tngpath'] ."$mylanguage/admintext.php");
$admin_login = 1;
include($cms['tngpath'] ."checklogin.php");
include($cms['tngpath'] ."version.php");

$flags['tabs'] = $tngconfig['tabs'];
tng_adminheader( $admtext['rrbt-heading1'], $flags );

#**************** Javascript functions ****************************
echo "<script type='text/javascript'>
//Function to select or clear all checkeboxes in a column. The checkboxed in each column are flagged as
//class='disable' or class='restore'.
function toggleCheckboxes (buttonclass, setOrNot) {
	$('.'+buttonclass).prop('checked',setOrNot);
}
</script>

</head>\n";

echo "<body background='{$cms['tngpath']}img/background.gif'>\n";
$tabmenu='';
$innermenu = "<a href=\"{$_SERVER['SCRIPT_NAME']}\" class=\"lightlink\">Reload</a>";
$innermenu .= "&nbsp;|&nbsp; This menu bar is the TNG \"innermenu\". It is often preceded by a Tab bar.";
$menu = doMenu("", "", $innermenu);
$admtext['tp-utility'] = "<span class='nw'>TextPlus Charts Innermenu Utility</span> - <span class='nw'>Disable Standard Text Chart Links</span>";
echo displayHeadline($admtext['tp-utility'] , "{$cms['tngpath']}img/misc_icon.gif", $menu, "");
?>

<table width="100%" border="0" cellpadding="10" cellspacing="2" class="lightback">
<tr class="databack">
<td class="tngshadow normal">
<h4>The Innermenus of some Descendant and Ancestor Chart programs (particularly Ancestor 
Charts), can get awfully crowded after certain TNG mods have added links to those menus.
Since the original Text charts have been substantially superceded by the TextPlus charts,
you can shorten those Innermenus just a little by disabling the original "Text" link.
</h4>

<?php
	#Hard-coded lists of Ancestor and Descdant chart programs
	$descendantPrograms = 'descend,descendtext,descendtextplus,register,desctracker,descendcount';
	$ancestorPrograms = 'pedigree,pedigreetext,pedigreetextplus,verticalchart,ahnentafel,extrastree,fan,mappedigree';
	#Add programs supplied by mod parameters.
	$otherAncestorChartPrograms = 'none'; #Mod parameter
	$otherDescendantChartPrograms = 'none'; #Mod parameter
	$notAModParameter = 'none'; #Fake mod parameter
	#Remove spaces that may have been placed between program names, and remove the 
	#filename extension .php.
	if ($otherDescendantChartPrograms != 'none')
		$descendantPrograms .= ',' . str_replace(' ','', str_replace('.php', '', $otherDescendantChartPrograms));
	if ($otherAncestorChartPrograms != 'none')
		$ancestorPrograms .= ',' . str_replace(' ','', str_replace('.php', '', $otherAncestorChartPrograms));
	#Create arrays to make it easier to process the lists
	$descendantPrograms = explode(',', $descendantPrograms);
	$ancestorPrograms = explode(',', $ancestorPrograms);

	#Start by taking any action that was specified by the submit buttons, which are named 'b1'
	#The functions called here display the programs that they process, and indication what they did (or couldn't do).
	if ($b1 == $admtext['tp-disable']) {
		if (count($_GET['descendant']))
			disableInnermenuLinks($_GET['descendant'], 'descend');
		if (count($_GET['ancestor']))
			disableInnermenuLinks($_GET['ancestor'], 'pedigree');
	}
	elseif ($b1 == $admtext['tp-restore']) {
		restoreInnermenuLinks($_GET['restore'] );
	}
	# End of actions

	$checkboxcount = array('disableancestor'=>0, 'disabledescendant'=>0, 'restore'=>0);

	#This form and table list all of the standard chart programs that are hardcoded above, along with
	#- The evident number of Innermenu Links
	#- The status of the Text Chart Link
	#- Checkboxes that let the user indicate what action to take on specific programs.
	echo "<form action='' method='get' name='innermenuedit'>

	<table cellpadding='3' cellspacing='1' border='0' class='normal'>
	<thead>
		<tr class='fieldnameback' style='vertical-align:bottom'>
			<th rowspan='2' class='fieldname'>File</th>
			<th class='fieldname' rowspan='2'>Type</th>
			<th class='fieldname' rowspan='2'>Innermenu<br>Links</th>
			<th class='fieldname' rowspan='2'>Text Chart<br>Link Status</th>
			<th class='fieldname' style='text-align:center;'><input type='button' value='{$admtext['selectall']}' onClick=\"toggleCheckboxes('disable', true);\"/> <br>
				<input type='button' value='{$admtext['clearall']}' onClick=\"toggleCheckboxes('disable', false);\"/></th>
			<th class='fieldname' style='text-align:center;'><input type='button' value='{$admtext['selectall']}' onClick=\"toggleCheckboxes('restore', true);\"/> <br>
				<input type='button' value='{$admtext['clearall']}' onClick=\"toggleCheckboxes('restore', false);\"/></th>
			<th class='fieldname' rowspan='2'>Unexpected Text</th>
		</tr>
		<tr><th class='fieldname' style='text-align:center;'>{$admtext['tp-disable']}</th>
			<th class='fieldname' style='text-align:center;'>{$admtext['tp-restore']}</th></tr>
	</thead>
	<tbody>\n";

	#List the descendant programs, and then the ancestor programs. 
	for ($p=0; $p<count($descendantPrograms); $p++) 
		echo tableRow($descendantPrograms[$p], 'descendant');
	for ($p=0; $p<count($ancestorPrograms); $p++) 
		echo tableRow($ancestorPrograms[$p], 'ancestor');
	#Add a row for the submit buttons
	echo "</tbody>
		<tr>", str_repeat("<th class='fieldname'>&nbsp;</td>", 4), "
		<td class='fieldname'><input type='submit' name='b1' value='{$admtext['tp-disable']}'/></td>
		<td class='fieldname'><input type='submit' name='b1' value='{$admtext['tp-restore']}'/></td>
		<td class='fieldname'>&nbsp;</td>
		</tr>
	</table>
	</form>\n";

	echo "<p style='font-weight:bold;'>{$admtext['rrbt-close']}</p>\n";
?>
<hr>
<b>Notes:</b>
<ol>
	<li>First - the "Inner Menu" is a standard navigation menu in TNG programs that sits below the "main" page navigation and page heading, and is usually immediately preceded by a "Tab" menu.  The links on the Inner Menu are text, not buttons, and are often separated by vertical bars. " 
	<li>Some of the programs listed above above are installed by mods, and thus it may be quite reasonably for them to be listed as missing. For instance,
	<ol>
		<li>fan.php is not standard in TNGv10, and can be installed by the Fan Chart mod.</li>
		<li>mappedigree.php is installed by the Ancestor Map mod, and</li>
		<li>descendcount.php is installed by the Count Descendants mod.</li>
	</ol></li>
	<li>If you have installed other Ancestor or Descendant chart programs, such as any of the Maternal and/or Paternal Lines charts, you can use the mod parameters of the TextPlus Charts Mod to add those programs to the lists above.</li>
	<li>You should not try to Install or Uninstall any mods that add Ancestor or Descant Chart programs <em>while the "Text" links are hidden</em>. You will probably break one mod or another if you do so. But if you simply us this program to restore the "Text" links before Installing or Uninstalling such a mod, you should be fine. You can then hide them again after you have Installed or Uninstalled the mod.
		<ul><li>Specifically, the TextPlus Charts mod - and, I suspect, some others - keeps its "Installed" status if you hide "Text" links, but if you <em>Uninstall</em> the TextPlus Charts mod <em>while the "Text" links are hidden</em>, the mod's status will be "cannot install".  You should be able to fix status that by using this program to restore the hidden links. </li>
		<ul></li>
	<li>Point 2 above notes that you can use the TextPlus Chart mod parameters to cause this program to (try to) hide the "Text" link in other Ancestor or Descendant chart programs.  But some programs may use unexpected HTML code, and this program may not alwasy work.  But, in general, you should be able to hide any Inner Menu links easily by editing the program's PHP file.
	<p>
	Let's focus for the moment on links to the Ancestor "Text" chart.
	<ol type='a'>
		<li>You need to know the name of the program you are trying to hide; not just the link text. For the Ancestor "Text" link, the program name is pedigreetext.php.  </li>
		<li>Open each Ancestor or Descendant chart program whose Inner Menu you want to edit.</li>
		<li>Use a text editor to search for that program name, <em><b>without the .php extension</b></em> - that is, just "pedigreetext".
			<ul><li>Many TNG programs use a function that looks for a file by name (just as you are doing) and stores its filename in a PHP variable.  So you will likely encounter a line of PHP code that look like this: 
			<br><code>$descendtext_url = getURL( "descendtext", 1 );</code>
			<br>(Frankly, at a glance, this code seems kind of pointless. After all, we really already know that the "descendtext" program is "descendtext.php", so you may wonder why we need the getURL function to find it.  There <em>is</em> a reason, but it isn't worth going into here.</li>
		<li>Keep searching for "descendtext".  If you don't find a call to getURL, then you could search for "descendtext.php".  Or, once you find that function call and assignment statement, you could search for "descendtext_url".  In any case, you should soon find a line that starts like this:
				<br><code>&nbsp;&nbsp;$innermenu .= "&lt;a href=\"$descendtext_url...</code>, or maybe
				<br><code>&nbsp;&nbsp;$innermenu .= "&lt;a href=\"descendtext.php...</code></li>
		<li>This line <em>adds</em> the descendtext hyperlink to the PHP variable $innermenu, which contains all of the links in the Inner Menu!</li>
		<li>To disable a link, you can just add a PHP comment such as 
			<br><code>//Disable this link &nbsp;&nbsp;$innermenu .= "&lt;a href= ...</code>
			<br>which disables the rest of the line of PHP code and removes that particular link from the Inner Menu.</li>
		<li>That's it. Close the file and go on to the next program file.
			<b>But, as with program files modified by this program, you should probably edit the file to remove that comment before you try to Install or Uninstall any mod that affects the Inner Menu.</li> 
	</ol>
	</li>
</ol>

</td>
</tr>
</table>
<?php
if (file_exists('showmodnames.php')) include_once ('showmodnames.php'); #List mods
?>
<?php echo "<div align=\"right\"><span class=\"normal\">$tng_title, v.$tng_version</span></div>"; ?>
</body>
</html>

<?php
##############################################################################
################## End of Mainline code; PHP Functions follow ################
##############################################################################

#### Function to display a table row for one Ancestor or Descendant Chart program
function tableRow ($program, $programtype) {
	global $rootpath, $admtext; 

	$html = "<tr><td class='lightback'>$program.php</td><td class='lightback'>$programtype</td>";
	$textchartprefix = $programtype == 'descendant' ? 'descend' : 'pedigree';

	$filespec = "$rootpath/$program.php";
	if (file_exists($filespec)) {
		$contents = file_get_contents( $filespec );
		if ($contents) {
			#Count the innermenu hyperlinks.
			$pattern = '@\$innermenu .*= "( &nbsp;&nbsp; \| &nbsp;&nbsp; )*<a href=@';
			$menuentries = preg_match_all($pattern, $contents, $matches);
			$html .= "<td class='lightback'>$menuentries </td><td class='lightback'>";
			#Look for an innermenu Text Chart hyperlink. We don't need a regular expression here.
			$pattern = '$innermenu .= "<a href=\"$' . $textchartprefix . 'text_url';
			$textchartlink = strpos($contents, $pattern);
			#if ($textchartlink !== false) {
				#Check the beginning of the line that has the Text Chart hyperlink to see if it
				#contains our disabling comment.
				$pattern = '@^\t*(.*)\$innermenu .= "<a href=\\\\"\$' . $textchartprefix .'text_url@m';
				if (preg_match ($pattern, $contents, $matches)) {
					# Figure out what is between the start of the line and the start of the assignment statement
					if (!$matches[1]) #Nothing between the tabs and $innermenu, so it is active
						$html .= "{$admtext['active']}</td><td class='lightback' style='text-align:center;'>" . checkbox($program, $programtype, 'disable') . "</td>" . str_repeat( EMPTY_CELL, 2);
					elseif ($matches[1] == SUPPRESSION_COMMENT)
						$html .= "{$admtext['tp-disabled']}</td>" . EMPTY_CELL . "<td class='lightback' style='text-align:center;'>" . checkbox($program, $programtype, 'restore') . "</td>" . EMPTY_CELL;
					elseif (strpos($matches[1], constant("SUPPRESSION_COMMENT")) !== false)
						#The comment is there, but so is something else
						$html .= "{$admtext['tp-other']}</td>". EMPTY_CELL ."<td class='lightback' style='text-align:center;'>" . checkbox($program, $programtype, 'restore') . "</td><td class='lightback'>{$matches[1]}</td>";
					else #Something completely unexpected is there
						$html .= "{$admtext['tp-other']}</td>" . str_repeat( EMPTY_CELL, 2) . "<td class='lightback'>{$matches[1]}</td>";
				}
			else # The chart link isn't there
				$html .= "<strong style='color:brown;'>{$admtext['tp-missing']}</strong></td>" . str_repeat( EMPTY_CELL, 3);
		} else #the program file is empty
			 $html .= "<td colspan='2' class='lightback'>{$admtext['tp-nofile']}</td>" .
				str_repeat( EMPTY_CELL, 3);
	} else #the program file is missing
		 $html .= "<td colspan='2' class='lightback'>{$admtext['tp-nofile']}</td>" .
			str_repeat( EMPTY_CELL, 3);

	 return "$html</tr>\n";
} #end function tableRow

###############################################
# Function to create a checkbox
# Parameters:
#  $program - The name of the Ancestor or descendancy program we are looking at.
#             It will be the value of the checkbox.
#  $programtype = 'Ancestor' or 'Descendant'
#  $action = 'disable' or 'restore'
function checkbox ($program, $programtype, $action) {
	global $checkboxcounts;

	#When disabling the link, we need to distinguish between Ancestor and Descendant programs,
	#but to restore the link, we don't, since all we need to know is that the suppression comment
	#is there.
	if ($action == 'disable') $checkboxname = $programtype;
	else $checkboxname = 'restore';

	#For disabling, check the boxes for Ancestor links, but not Descendant links because 
	#Ancestor innermenu are much more like to be too crowded than Descendant innermenus.
	#For restoring, check all boxed, since we know it has the suppression comment.
	$checked = '';
	if ($action == 'restore' || $programtype == 'ancestor') $checked = ' checked';

	#Increment a count to make sure that the checkbox ID's are unique.
	#(However, as things stand, we don't use the IDs, so this isn't necessary.)
	$checkboxcounts[$checkboxname]++;

	$html = "<input type='checkbox' class='$action' name='{$checkboxname}[]' id='{$checkboxname}{$checkboxcounts[$checkboxname]}'
		value='$program'$checked />";
	return $html;
} #end of function checkbox


###############################################
# Disable links to a the Text version of an Ancestor or Descendant report by inserting 
# a comment in front of the assignment statement that adds the link to the innermenu.
# $programlist is a vector whose values are program names
# $searchtext tells us whether the Text Chart link in that program is to the Ancestor or Descendant Text report.
function disableInnermenuLinks( $programlist, $searchtext ) {
	global $rootpath, $admtext;

	echo "<b>$searchtext</b>";
	foreach ($programlist AS $program) {
		echo "<div>$program.php: ";
		$filename = "{$rootpath}$program.php";
		$contents = file_get_contents( $filename );
		if (!$contents) echo "$filename {$admtext['tp-notfound']}</div>";
		else {
			$pattern = "#(^t*)(\$innermenu .= \"<a href=\\\"\${$searchtext}_url).*#";
			$pattern = '@(^\t*)(\$innermenu .= "<a href=\\\\"\$' . $searchtext .'text_url)@m';
			$newcontents = preg_replace( $pattern, '$1'. constant("SUPPRESSION_COMMENT") . '$2', $contents);
			if (!$newcontents) 
				echo $admtext['tp-nolink'] . '</div>';
			else {
				if ($contents == $newcontents) 
					echo $admtext['tp-nochange'] . '</div>';
				else {
					$byteswritten = file_put_contents( $filename, $newcontents);
					if ($byteswritten) echo $admtext['tp-linkdisabled'] . '</div>';
					else echo $admtext['tp-nowrite'] . '</div>';
				}
			}
		}
	}
} #end of function removeInnermenuLinks

################################################
function restoreInnermenuLinks( $programlist) {
	global $rootpath, $admtext;
	echo "<b>Restoring links</b>";
	foreach ($programlist AS $program) {
		echo "<div>$program.php: ";
		$filename = "{$rootpath}$program.php";
		$contents = file_get_contents( $filename );
		if (!$contents) echo "$filename {$admtext['tp-notfound']}</div>";
		else {
			$newcontents = str_replace( constant("SUPPRESSION_COMMENT"), "", $contents);
			if (!$newcontents) 
				echo $admtext['tp-noconnent'] . '</div>';
			else {
				if ($newcontents == $contents) 
					echo $admtext['tp-nochange'] . '</div>';
				else {
					$byteswritten = file_put_contents( $filename, $newcontents);
					if ($byteswritten) echo $admtext['tp-restored'] . '</div>';
					else echo $admtext['tp-nowrite'] . '</div>';
				}
			}
		}
	}
} #end of function restoreInnermenuLinks

#################################################
# Function to create a field if it doesn't already exist.
# It displays a message showing the fieldname and "...Done"
# I haven't figured out how to check for or suppress errors, so the program will 
# crash if there is a problem creating the field.
# The function parameter is an array with the table and field names in the first two numbered array elements.
function createField($fieldspec) {
	global $admtext;
	if (!checkField( $fieldspec[0], $fieldspec[1])) {
		$query = "ALTER TABLE {$fieldspec[0]} ADD {$fieldspec[1]} {$fieldspec[2]} {$fieldspec[3]}
				COMMENT 'Created by the Branch Timestamps mod'";
		echo "<div>Creating {$fieldspec[0]}.{$fieldspec[1]} \n";
		$result = @tng_query($query);
		echo "...{$admtext['rrbbt-done']}</div>\n";
	}
}

##############################################################################
# Function to delete a field if it exists.
# Displays a message showing the fieldname and "...Done"
# I haven't figured out how to check for or suppress errors, so the program will 
# crash if there is a problem dropping the field.
# The function parameter is an array of field specifications:
# 0 - The table name,
# 1 - The field name,
# 2 - The data type
# 3 - Additional attributes to be placed in an ALTER TABLE command, such as "NOT NULL" 
#     and the default value.
function removeField($fieldspec) {
	global $admtext;
	if (checkField( $fieldspec[0], $fieldspec[1])) {
		$query = "ALTER TABLE {$fieldspec[0]} DROP {$fieldspec[1]}";
		echo "<div>Dropping {$fieldspec[0]}.{$fieldspec[1]} ";
		$result = @tng_query($query);
		if( $result )
			echo "...{$admtext['done']}</div>\n";
		else echo "...<strong>{$admtext['rrbt-notdeleted']}</strong></div>\n";
	}
}

##############################################################################
# This function returns a boolean flag that is true if the field exists.
function checkField($table, $fieldname) {
	global $admtext;
	$query = "SHOW columns FROM $table WHERE field = '$fieldname'";
	$result = tng_query($query);
	$fieldIsPresent = (tng_num_rows($result) == 1);
	tng_free_result($result);
	return $fieldIsPresent;
}
?>

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