xXx

Hexid M1n1 5h3ll MobiLe

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

File:C:/www/familytree/mods/burials-more_details_v11.0.0.14a.cfg

This is a TNG mod directive file
%name:Burials-More Details%
%version:v11.0.0.14a%
%description:This mod changes the All Burials table for a cemetery, as displayed by showmap.php. More specifically, it adds birth, death, and spouse data, and removes the burial place name (which is, by definition, always the same), and the personID.
<br>
Mod developer: <a href="http://tng.lythgoes.net/wiki/index.php?title=User:Robinrichm">Robin Richmond</a>
%
%wikipage:Burials-More_Details%
!@#Author:RR%Robin Richmond%http://tng.lythgoes.net/wiki/index.php?title=User:Robinrichm%
!@#affectedby:RR-Places Short Names:showmap.php Location 3%

**********************************
History:
v14a - 1 Jul 2017
 - The Display Mod Names mod is no longer referenced at all, since showmap.php is an 
   end-user program (though it can be invoked from the Admin side.)
v14 - 30 May 2016
 - Moved the changes to Headstones.php out of this mod to the new Headstones Report 
   mod (which is a successor to Headstones-No Headstones). This mod now focuses one
   the All Burials table in showmap.php, and Headstones Report focuses on the
   Headstone Photos tables in headstones.php and showmap.php.  (Those two headstones
   tables are essentially identical.
 - Made the Norwegian cust_text files optional
v13 - 4 Apr 2016
  - Modified to accommodate the tablesaw specifications in TNGv11
  - Change the layout of the list of cemeteries in headstones.php. Cemeteries
    with headstones are now in a titlebox, and all cemetery pins in the list
    are cut off so that there is not too much whitespace.
  - Added "Matches x though y of z" like many other list programs.
  - Added bold text and more info to the message in showmap.php about
    a missing value for the Cemetery place.
  - The mod is no longer compatible with Headstones-No Headstones, which is now obsolete.
v12 - 27 Sep 2015
  - Added Show Mod Names
  - Burial Date column is omitted if it contains no data.
  - Removed some translations that were not necessary & added a hard-coded string to cust_text.php. 
  - Added Norwegian translations.
v11b - 6 Sep 2015
  - No functional changes; just repositioned the language strings in the cust_text files.
v11a - 17 Jul 2015
  - Moved the Llocation 4 changes into Location 3 since TNGv10.1.2 changed
    code that affected the search string for Location 4.
v11 17 Apr 2015
  - Found an untranslated string; added Dutch translations by Marco van den heuvel
v10 13 Apr 2015
  - Fixed bug where my modification to headstones.php tried to count burials in the people table when
    the cemetery didn't link to a place name.
v8 17 Dec 2014
  - Changed database function calls for TNG v10.1 compatibility (i.e. mysql* became tng*)
v7 17 Dec 2014
  - In showmap, location 3, Instead of replacing a large block of code, I insert the new block in front of the  
    old block, and skip around it by forcing an If condition to be false.
v6 29 Nov 2014
  - Added changes to headstones.php. Added a count of burials to the cemetery name list. 

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

%target:showmap.php%
** Report program that displays cemetery name, map, description and All Burials table.

********* showmap.php Location 1 - Top-of-file comments in showmap.php 
%location:%
$textpart = "headstones";
%end:%
%insert:before%
# This program has been modified by Robin Richmond's Burials-More Details mod:
# - Added a query of the trees table that counts trees and builds an associative array that
#    will map tree abbreviations to tree names.
# - Modified the "all burials" query and table to include birth and death info instead of just burial info.
# - Also added  spouses, since gravestones typically show the husband's last name, not the wife's maiden name.
# - Suppressed the person ID column.  I've added too many columns to keep displaying it.
# - Each spouse is in a separate data row, but I check for duplicate people, and display only the spouse in such cases.
# - Note: As a result of the new spouse logic, there can be fewer HTML table rows than data rows.
# - Forced the "Tree" column not to wrap because it was always wrapping.
# - Forced the date columns not to wrap unless there is a "betw" prefix.
$tngModNames['Burials-More Details']['showmap.php'] = '14a'; #"Register" the mod

%end:%

********* showmap.php Location 2 - New query to get the number of trees and build the array $treenames(code)=tree name
%location:%
tng_free_result( $hsresult );
%end:%
%insert:after%

###Burials-More Details Location 2: Query the tree table to get the number of trees and an associative array of tree names by tree abbreviation.
$query = "SELECT gedcom, treename FROM $trees_table";
$treeresult = tng_query($query);
$numtrees = tng_num_rows($treeresult);
$treenames = array();
while( $treerow = tng_fetch_assoc( $treeresult ) ) {
	$treenames[$treerow['gedcom']] = $treerow['treename'];
}
tng_free_result( $treeresult );
###Burials-More Details Location 2: End of insertion
%end:%

********* showmap.php Location 3 - Replace the All Burials Query
%location:%
	$treestr = $tree ? "and $people_table.gedcom = \"$tree\"" : "";
	$query = "SELECT * FROM ($people_table, $trees_table) WHERE burialplace = \"" . addslashes($cemetery['place']) . "\" and $people_table.gedcom = $trees_table.gedcom $treestr ORDER BY lastname, firstname";
%end:%
%replace:%
	###Burials-More Details Location 3: Replace the All Burials query
	$treestr = $tree ? " AND p.gedcom = \"$tree\"" : "";
	#Define two SQL snippets that will be modified by the RR-Places Short Names mod, which
	#adds alternative fields for the birth and death place names. Adding them in this mod
	#means that RR-Places Short Names doesn't have to modify the query itself.
	$placefields = 'p.birthplace, p.deathplace';
	$placejoin = '';

	#The All Burials now joins to Families to get the spouses, so users can more easily 
	#recognize the tombstone name of women who are buried with their husband's last name.
	#(Note: This query gives us extra result set rows for second and third spouses, 
	# which makes theloop through the result set awarkward, since we only want to print 
	# one HTML table row per burial. I tried to modify the query to retrieve the first 
	# spouse and a count of spouses. That would allow me to simply the loop through the
	# result set (which would need to do a separate query for multiple spouses). That
	# scheme would also make it practical for me to bulletize multiple spouses for
	# readability in case spouse names wrap within the spouse column. As things stand,
	# I don't want to bulletize single spouses, so no spouses are bulletized.
	# In any case, I just couldn't get that alternate query to work. - Robin)
	$query = "SELECT p.personID, p.gedcom, p.lnprefix, p.lastname, p.firstname, p.sex,
		p.nickname, p.title, p.prefix, p.suffix, p.nameorder,
		p.birthdate, p.deathdate, p.burialdate, $placefields,
		p.living, p.private, p.branch, f.husband, f.wife, t.treename
		FROM $people_table p 
		INNER JOIN $trees_table t ON t.gedcom=p.gedcom
		LEFT JOIN $families_table f ON (f.husband=p.personID OR f.wife=p.personID) AND f.gedcom=p.gedcom
		$placejoin
		WHERE p.burialplace = \"" . addslashes($cemetery['place']) . "\" $treestr 
		ORDER BY p.lastname, p.firstname, p.birthdatetr";
	###Burials-More Details Location 3: End of replacement text
%end:%

********* showmap.php Location 4 - Put the Associated Place name in a heading above the All Burials table.
%location:%
		$body .= "<br/><div class=\"titlebox\">\n";
		$body .= "<span class=\"subhead\"><b>{$text['allburials']}</b></span><br /><br />\n";
%end:%
%replace:%
		###Burials-More Details Location 4: Put the Associated Place name in a heading above the All Burials table.
		# There are results to put in the HTML table of all burials at this cemetery.
		$foundABurialDate = false;  #We'll eliminate a column if there's no data.
		$body .= "<div class='titlebox'>\n";
		# Put the cemetery name in the heading above the table, since the map is between the table and the cemetery name in the page heading .
		$body .= "<h4 class='subhead'>{$text['allburials']} {$text['in']} {$cemetery['place']}</h4>\n";
		#The HTML code that is currently being built is in $body. Save it to $bodySaved, and use $body
		#temporarily to hold just the HTML code for the All Burials table, since we need to do some
		#manipulation of the All Burials table.
		$bodySaved = $body;
		$body = '';
		###Burials-More Details Location 4: End of replacement text
%end:%

********* showmap.php Location 5 - All Burials Table column headings
%location:%
		$body .= "<th data-tablesaw-priority=\"2\" colspan=\"2\" class=\"fieldnameback\"><span class=\"fieldname\">&nbsp;<b>{$text['buried']}</b>&nbsp;</span></th>\n";
		$body .= "<th data-tablesaw-priority=\"3\" class=\"fieldnameback\"><span class=\"fieldname nw\">&nbsp;{$text['personid']}&nbsp;</span></th>\n";
		if($numtrees > 1) {
%end:%
%replace:%
###Burials-More Details Location 5: Modifications to the All Burials table headings.
		# Insert column headings for "born" and "died"
		$body .= "<th data-tablesaw-priority=\"2\" class='fieldnameback fieldname' colspan='2'>{$text['born']}</th>\n";
		$body .= "<th data-tablesaw-priority=\"3\" class='fieldnameback fieldname' colspan='2'>{$text['died']}</th>\n";

		#Use only one column for burial data, since the burial place, is, by definition, the same for
		#everyone in the All Burials table.  Also save that column heading in the temp variable #$burialheading so that we can remove the burial column if there are no burial dates.
		$burialheading = "<th data-tablesaw-priority=\"2\" class='fieldnameback fieldname'>{$text['buried']}</th>\n";
		$body .= $burialheading;
		#Omit the personID column that is in the pristine code, and display a "Spouse(s)" column.
		$body .= "<th class='fieldnameback fieldname'>{$text['spouses']}</th>\n";
		#Don't display the $tree column if we've selected a tree or there is only 1 tree.
		if (!$tree && $numtrees>1) {
###Burials-More Details Location 5: End of replacement text.
%end:%

********* showmap.php Location 6 - Initialization for All Burials data
%location:%
		$body .= "</tr></thead>\n";

		$i = 1;
%end:%
%insert:after%
		###Burials-More Details Location 6: Initialization for All Burials data
		#First - since we have a <thead> element, add a <tbody> element.
		$body .= "<tbody>\n";

		#The data for this table is complicated by the fact that we may have selected multiple spouses
		#(and thus multiple SQL results) for a buried person, but we want to print only one table row
		#per burial.  Multiple spouses for one person will be added to the spouse(s) cell in that one row.
		# The match string recognizes multiple data rows for the same person. Successive rows for the same 
		# person contribute just another spouse for that person, not a new row in the HTML table.
		#The matchstring will consist of the personID and the treeID
		$matchstring = "";
		#Initial the variable that will hold the list of spouses for a person.
		$spouselist = '';
		#$emptyBurialCell is a cell with no data, but with a comment. It is used for the Burial Date table
		#cell when there is no Burial Data.  If it turns out that there are no Burial Dates in the entire
		#table, we will remove the Burial column from the table.
		$emptyBurialCell = "<td class='databack'>&nbsp;<!-- burial --></td>";

		##Burials-More Details Location 6: End of insertion
%end:%

********* showmap.php Location 7 - Start a new row in the All Burials result set.
%location:%
		while( $row = tng_fetch_assoc( $result ) ) {
%end:%
%insert:after%
			###Burials-More Details Location 7: Start a new record in the All Burials result set.
			# $matchstring prevents a person who has multiple spouses from being listed multiple times.
			$matchstring = $row['treeID'] . $row['personID'];
			if ($matchstring == $oldmatchstring) {
				#This is the same person as the previous row, so, from this row, just add this spouse to the Spouse(s) column.
				if ($row['husband']==$row['personID'] && $row['wife']!=NULL)
					$spouselist .= '<br>' . getPersonName( $row['wife'], $row['gedcom'] ) . "\n";
				elseif ($row['husband'] != NULL)
					$spouselist .= '<br>' . getPersonName( $row['husband'], $row['gedcom'] ) . "\n";
			} else {
				#This is a new person, so we can insert the additional spousenames in the spouses cell
				#while removing the comment that flags the spouses cell.
				if ($i>1)
					$body = str_replace('<!-- spouses -->', $spouselist, $body);
				$spouselist = '';
				#(note that the next few lines of unchanged code are not indented as deeply as the current logic calls for.
				##Burials-More Details Location 7: End of insertion.
%end:%

********* showmap.php Location 8 - Row contents in the All Burials table
%location:%
			$body .= "<td class=\"databack\"><a href=\"$pedigree_url" . "personID={$row['personID']}&amp;tree={$row['gedcom']}\">$chartlink</a> <a href=\"$getperson_url" . "personID={$row['personID']}&amp;tree={$row['gedcom']}\">$name</a>&nbsp;</td>\n";

			$placetxt = $row['burialplace'] . " <a href=\"$placesearch_url" . "tree=$tree&amp;psearch=" . urlencode( $row['burialplace'] ) . "\" title=\"{$text['findplaces']}\"><img src=\"{$cms['tngpath']}img/tng_search_small.gif\" border=\"0\" alt=\"{$text['findplaces']}\" width=\"9\" height=\"9\"></a>";

			$deathdate = $row['burialdate'] ? $row['burialdate'] : $row['deathdate'];
			if( $row['burialdate'] ) $abbrev = $text['burialabbr'];
			elseif( $row['deathdate'] ) $abbrev = $text['deathabbr'];
			$burialdate = $deathdate ? "$abbrev " . displayDate( $deathdate ) : "";

			$body .= "<td class=\"databack\">&nbsp;" . $burialdate . "</span></td>\n";
			$body .= "<td class=\"databack\"><span class=\"normal\">$placetxt&nbsp;</span></td>";
			$body .= "<td class=\"databack\">{$row['personID']}</td>\n";
			if($numtrees > 1)
%end:%
%replace:%
				###Burials-More Details Location 8: Row contents in the All Burials table
				# Don't display birth and death data if this person is marked as Living or Private.
				if (!$rights['living'] || !$rights['private']) {
					$row['burialdate'] = $row['birthdate'] = $row['deathdate'] ='';
					$row['birthplace'] = $row['deathplace'] = '';
				}
				$body .= "<td class='databack'><a href=\"{$getperson_url}personID={$row['personID']}&amp;tree={$row['gedcom']}\">$name</a></td>";
				$body .= datePlaceInTable($tree, $row, 'birthdate', 'birthplace', $placesearch_url);
				$body .= datePlaceInTable($tree, $row, 'deathdate', 'deathplace', $placesearch_url);

				#Display the burial date. We're not displaying the burial place because it is common to everyone in the table.
				$dateclass = '';
				if ($row['burialdate']) {
					#There's a date. Set a flag so that we do not remove the burial data column.
					$foundABurialDate = true;
					#Suppress wrapping unless the date prefix is "Betw".
					if (strtolower(substr($datetxt,0,4)) != 'betw') $dateclass = ' nw';
					$body .= "<td class='databack$dateclass'>" . displayDate($row['burialdate']) . "</td>";
				} else #No burial date to display. Put the empty burial cell in the HTML code.
					$body .= $emptyburialcell;
				#Output the first spouse for this person.
				$body .= "<td class='databack'>";
				if ($row['husband'] == $row['personID'] && $row['wife']!=NULL)
					$body .= getPersonName( $row['wife'], $row['gedcom'] );
				elseif ($row['husband']!=NULL) 
					$body .= getPersonName( $row['husband'], $row['gedcom'] );
				$body .= '<!-- spouses --></td>';

				if (!$tree && $numtrees>1)
				###Burials-More Details Location 8: End of replacement text
%end:%

********* showmap.php Location 9 - End of the All Burials loop
%location:%
			$i++;
		}

		$body .= "</table>\n";
		$body .= "</div>\n";
	}
%end:%
%replace:%
###Burials-More Details Location 9: End of the All Burials loop
				$body .= "</tr>";
				$i++;
			} #End of is this a new person
			$oldmatchstring = $matchstring;
		} #end of loop through the result set 
		#Add  any extra spouse name for the last person buried in this cemetery to the spouses cell. 
		if ($i>1) $body = str_replace('<!-- spouses -->',$spouselist, $body);

		# See if we can remove the burial date column
		if (!$foundABurialDate) {
			$body = str_replace( $emptyBurialCell, '', $body);
			$body = str_replace( $burialheading, '', $body);
		}
		# Return $body to its original meaning as the html output.
		$body = $bodySaved . $body;
		$body .= "</tbody></table>\n";
		$body .= "</div>\n"; #End the titlebox

	} #End if there are results to display.
	else $body .= $text['nomatches'] ;
###Burials-More Details Location 9: End of replacement text.
%end:%

********* showmap.php Location 10 - At the bottom of the program
%location:%
	tng_free_result($result);
}
%end:%
%insert:after%
###Burials-More Details Location 10: At the bottom of the program
else #The cemetery isn't linked to a burial place. Display a message only if the user is an admin
	if( $allow_admin ) $body .= "<strong>{$text['missingcemeteryplace']}</strong>\n";

###################### Add two PHP functions ##############################

#New PHP function to get a person's name, considering private & living flags and branch access.
#Modeled after the code used by getperson.php, and used for spouses.
function getPersonName ($personid, $gedcom) {
	global $people_table, $text;

	if ( $personid == NULL ) return '';
	if ( !$personid ) return '';

	// Ask for the name- and privacy-related fields from the Person table.
	$query = "SELECT p.personID, p.lnprefix, p.lastname, p.firstname, p.sex, p.nickname, p.title, p.prefix, p.suffix, p.nameorder, p.living, p.private, p.branch FROM $people_table p WHERE p.personid = '$personid' AND p.gedcom = '$gedcom';";
	$result = tng_query($query);

	if (tng_num_rows($result)) {
		$newrow = tng_fetch_assoc( $result );
		$rights = determineLivingPrivateRights($newrow);
		$newrow['allow_living'] = $rights['living'];
		$newrow['allow_private'] = $rights['private'];
		$thename = getNameRev( $newrow );
	}
	else $thename = $text['personnotvalid'];
	tng_free_result($result);
	return $thename;
}
## New PHP function to add a date column and possibly a place column to an HTML table.
function datePlaceInTable($tree, $row, $datefield, $placefield, $placesearch_url) {
	global $text, $cms;
	$dateclass = '';
	if ($row[$datefield]) {
		#There's a date. Suppress  wrapping unless its prefix is "betw".
		$datetxt = displayDate($row[$datefield]);
		if (strtolower(substr($datetxt,0,4)) != 'betw') $dateclass = ' nw';
	} else $datetxt = '&nbsp;';
	$mystring = "<td class=\"databack$dateclass\">$datetxt</td>";

	# Add an HTML place column only if there IS a place field.
	if ($placefield) {
		if ($row[$placefield]) {
			# Add a spyglass hyperlink to display activity at that place.
			$placetxt .= "<a href='$placesearch_url" . "tree=$tree&amp;psearch=" . urlencode($row[$placefield]) . "' title='{$text['findplaces']}'>{$row[$placefield]}<img src='{$cms['tngpath']}img/tng_search_small.gif' border='0' alt='{$text['findplaces']}' width='9' height='9'></a>";
		} else $placetxt="&nbsp;"; # The place field has no value
		$mystring .= "<td class=\"databack\">$placetxt</td>";
	} #End is there a place field?

	return $mystring;
}
###################### End of new PHP functions ##############################
###Burials More Details:End of Location 10 replacement text

%end:%

*****************************************************************
%target:languages/English/cust_text.php%

******** English/cust_text.php - Location 1 - New strings
%location:%
//Put your own custom messages here, like this:
//$text[messagename] = "This is the message";
%end:%
%insert:before%

################### Burials-More Details mod: new strings
$text['personnotvalid'] = 'Invalid Person ID';
$text['nomatches'] = 'No Matches';
$text['missingcemeteryplace'] = 'This cemetery has no value for its Place field.  As a result, it is impossible to list all of the people in the database who are buried at this cemetery. ';
$text['burials'] = 'burials';
$text['spouses'] = 'Spouse(s)';
################### Burials-More Details mod: End of new strings

%end:%

*****************************************************************
%target:languages/English-UTF8/cust_text.php%
%fileoptional:%

******** English-UTF8/cust_text.php - Location 1 - New error messages
%location:%
//Put your own custom messages here, like this:
//$text[messagename] = "This is the message";
%end:%
%insert:before%

################### Burials-More Details mod: new strings
$text['personnotvalid'] = 'Invalid Person ID';
$text['nomatches'] = 'No Matches';
$text['missingcemeteryplace'] = 'This cemetery has no value for its Place field.  As a result, it is impossible to list all of the people in the database who are buried at this cemetery. ';
$text['burials'] = 'burials';
$text['spouses'] = 'Spouse(s)';
################### Burials-More Details mod: End of new strings

%end:%

*****************************************************************
%target:languages/Dutch/cust_text.php%
%fileoptional:%
******** Dutch/cust_text.php - Location 1 - New strings
%location:%
//Put your own custom messages here, like this:
//$text[messagename] = "This is the message";
%end:%
%insert:before%

################### Burials-More Details mod: new strings
$text['personnotvalid'] = 'Ongeldig Persoon ID';
$text['nomatches'] = 'Geen overeenkomsten';
$text['missingcemeteryplace'] = 'Bij deze begraafplaats is geen plaatsnaam ingevuld';
$text['burials'] = 'Begrafenissen';
$text['spouses'] = 'Partner';
################### Burials-More Details mod: End of new strings

%end:%

*****************************************************************
%target:languages/Dutch-UTF8/cust_text.php%
%fileoptional:%
******** Dutch-UTF8/cust_text.php - Location 1 - New error messages
%location:%
//Put your own custom messages here, like this:
//$text[messagename] = "This is the message";
%end:%
%insert:before%

################### Burials-More Details mod: new strings
$text['personnotvalid'] = 'Ongeldig Persoon ID';
$text['nomatches'] = 'Geen overeenkomsten';
$text['missingcemeteryplace'] = 'Bij deze begraafplaats is geen plaatsnaam ingevuld';
$text['burials'] = 'Begrafenissen';
$text['spouses'] = 'Partner';
################### Burials-More Details mod: End of new strings

%end:%

*****************************************************************
%target:languages/Norwegian/cust_text.php%
%fileoptional:%

******** English/cust_text.php - Location 1 - New strings
%location:%
//Put your own custom messages here, like this:
//$text[messagename] = "This is the message";
%end:%
%insert:before%

################### Burials-More Details mod: new strings
$text['personnotvalid'] = 'Ugyldig person ID';
$text['nomatches'] = 'ingen treff';
$text['missingcemeteryplace'] = 'Denne kirkegården har ingen verdi for sitt sted felt';
$text['burials'] = "Begravelser";
$text['spouses'] = 'Ektefelle(er)';
################### Burials-More Details mod: End of new strings

%end:%

*****************************************************************
%target:languages/Norwegian-UTF8/cust_text.php%
%fileoptional:%

******** English/cust_text.php - Location 1 - New strings
%location:%
//Put your own custom messages here, like this:
//$text[messagename] = "This is the message";
%end:%
%insert:before%

################### Burials-More Details mod: new strings
$text['personnotvalid'] = 'Ugyldig person ID';
$text['nomatches'] = 'ingen treff';
$text['missingcemeteryplace'] = 'Denne kirkegården har ingen verdi for sitt sted felt';
$text['burials'] = "Begravelser";
$text['spouses'] = 'Ektefelle(er)';
################### Burials-More Details mod: End of new strings

%end:%

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