/**
* print the information for an individual chart box
*
* find and print a given individuals information for a pedigree chart
* @param string $pid the Gedcom Xref ID of the individual to print
*/
function print_pedigree_person_nav2($pid)
{
global $spouselinks, $parentlinks, $step_parentlinks, $persons, $person_step, $person_parent;
global $natdad, $natmom;
$person = WT_Individual::getInstance($pid);
if ($pid == false || empty($person)) {
$spouselinks = false;
$parentlinks = false;
$step_parentlinks = false;
}
$tmp = array('M' => '', 'F' => 'F', 'U' => 'NN');
$isF = $tmp[$person->getSex()];
$spouselinks = "";
$parentlinks = "";
$step_parentlinks = "";
if ($person->canShowName()) {
//-- draw a box for the family popup
$spouselinks .= "<table id=\"flyoutFam\" class=\"person_box{$isF}\"><tr><td class=\"name2 ltr\">";
$spouselinks .= "<b>" . WT_I18N::translate('Family') . "</b> (" . $person->getFullName() . ")<br>";
$parentlinks .= "<table id=\"flyoutPar\" class=\"person_box{$isF}\"><tr><td class=\"name2 ltr\">";
$parentlinks .= "<b>" . WT_I18N::translate('Parents') . "</b> (" . $person->getFullName() . ")<br>";
$step_parentlinks .= "<table id=\"flyoutStep\" class=\"person_box{$isF}\"><tr><td class=\"name2 ltr\">";
$step_parentlinks .= "<b>" . WT_I18N::translate('Parents') . "</b> (" . $person->getFullName() . ")<br>";
$persons = '';
$person_parent = '';
$person_step = '';
//-- parent families --------------------------------------
foreach ($person->getChildFamilies() as $family) {
$husb = $family->getHusband($person);
$wife = $family->getWife($person);
$children = $family->getChildren();
if ($husb || $children) {
if ($husb) {
$person_parent = "Yes";
if ($husb->canShowName()) {
$fulln = strip_tags($husb->getFullName());
$parentlinks .= "<a href=\"#\" onclick=\"opener.insertRowToTable(";
$parentlinks .= "'" . $husb->getXref() . "', ";
// pid = PID
$parentlinks .= "'" . htmlentities($fulln) . "', ";
// nam = Name
$parentlinks .= "'',";
$parentlinks .= "'',";
$parentlinks .= "'',";
$parentlinks .= "'',";
$parentlinks .= "'',";
$parentlinks .= "'',";
$parentlinks .= "'',";
$parentlinks .= "''";
$parentlinks .= ");\">";
$parentlinks .= $husb->getFullName();
$parentlinks .= "</a>";
} else {
$parentlinks .= WT_I18N::translate('Private');
}
$natdad = "yes";
}
}
if ($wife || $children) {
if ($wife) {
$person_parent = "Yes";
if ($wife->canShowName()) {
$fulln = strip_tags($wife->getFullName());
$parentlinks .= "<a href=\"#\" onclick=\"opener.insertRowToTable(";
$parentlinks .= "'" . $wife->getXref() . "',";
// pid = PID
$parentlinks .= "'" . htmlentities($fulln) . "',";
// nam = Full Name
$parentlinks .= "'',";
$parentlinks .= "'',";
$parentlinks .= "'',";
$parentlinks .= "'',";
$parentlinks .= "'',";
$parentlinks .= "'',";
$parentlinks .= "'',";
$parentlinks .= "''";
$parentlinks .= ");\">";
$parentlinks .= $wife->getFullName();
$parentlinks .= "</a>";
} else {
$parentlinks .= WT_I18N::translate('Private');
}
$parentlinks .= "<br>";
$natmom = "yes";
}
}
}
//-- step families -----------------------------------------
$fams = $person->getChildStepFamilies();
foreach ($fams as $family) {
if (!is_null($family)) {
$husb = $family->getHusband($person);
$wife = $family->getWife($person);
$children = $family->getChildren();
if ($natdad == "yes") {
} else {
// Husband -----------------------
if (($husb || $children) && $husb->getLabel() != ".") {
if ($husb) {
$person_step = "Yes";
$tmp = $husb->getXref();
if ($husb->canShowName()) {
$parentlinks .= "<a href=\"individual.php?pid={$tmp}&&gedcom=" . WT_GEDURL . "\">";
$parentlinks .= $husb->getFullName();
$parentlinks .= "</a>";
} else {
$parentlinks .= WT_I18N::translate('Private');
}
$parentlinks .= "<br>";
}
}
}
if ($natmom == "yes") {
} else {
// Wife ----------------------------
if ($wife || $children) {
if ($wife) {
$person_step = "Yes";
$tmp = $wife->getXref();
if ($wife->canShowName()) {
$parentlinks .= "<a href=\"individual.php?pid={$tmp}&gedcom=" . WT_GEDURL . "\">";
$parentlinks .= $wife->getFullName();
$parentlinks .= "</a>";
} else {
$parentlinks .= WT_I18N::translate('Private');
}
$parentlinks .= "<br>";
}
}
}
}
}
// Spouse Families -------------------------------------- @var $family Family
foreach ($person->getSpouseFamilies() as $family) {
$spouse = $family->getSpouse($person);
$children = $family->getChildren();
// Spouse ------------------------------
if ($spouse && $spouse->canShowName()) {
$spouselinks .= "<a href=\"#\" onclick=\"opener.insertRowToTable(";
$spouselinks .= "'" . $spouse->getXref() . "',";
// pid = PID
$spouselinks .= "'" . strip_tags($spouse->getFullName()) . "',";
// Full Name
$spouselinks .= "'',";
$spouselinks .= "'',";
$spouselinks .= "'',";
$spouselinks .= "'',";
$spouselinks .= "'',";
$spouselinks .= "'',";
$spouselinks .= "'',";
$spouselinks .= "''";
$spouselinks .= ");\">";
$spouselinks .= $spouse->getFullName();
// Full Name
$spouselinks .= "</a>";
} else {
$spouselinks .= WT_I18N::translate('Private');
}
$spouselinks .= "</a>";
if ($spouse->getFullName() != "") {
$persons = "Yes";
}
// Children ------------------------------ @var $child Person
$spouselinks .= "<div id='spouseFam'>";
$spouselinks .= "<ul class=\"clist\">";
foreach ($children as $child) {
$persons = "Yes";
if ($child->canShowName()) {
$fulln = strip_tags($child->getFullName());
$spouselinks .= "<li>";
$spouselinks .= "<a href=\"#\" onclick=\"opener.insertRowToTable(";
$spouselinks .= "'" . $child->getXref() . "',";
// pid = PID
$spouselinks .= "'" . htmlentities($fulln) . "',";
// nam = Name
$spouselinks .= "'',";
$spouselinks .= "'',";
$spouselinks .= "'',";
$spouselinks .= "'',";
$spouselinks .= "'',";
$spouselinks .= "'',";
$spouselinks .= "'',";
$spouselinks .= "''";
$spouselinks .= ");\">";
$spouselinks .= $child->getFullName();
// Full Name
$spouselinks .= "</a>";
} else {
$spouselinks .= WT_I18N::translate('Private');
}
$spouselinks .= "</li>";
}
$spouselinks .= "</ul>";
$spouselinks .= "</div>";
}
if ($persons != "Yes") {
$spouselinks .= "(" . WT_I18N::translate('none') . ")</td></tr></table>";
} else {
$spouselinks .= "</td></tr></table>";
}
if ($person_parent != "Yes") {
$parentlinks .= "(" . WT_I18N::translate_c('unknown family', 'unknown') . ")</td></tr></table>";
} else {
$parentlinks .= "</td></tr></table>";
}
if ($person_step != "Yes") {
$step_parentlinks .= "(" . WT_I18N::translate_c('unknown family', 'unknown') . ")</td></tr></table>";
} else {
$step_parentlinks .= "</td></tr></table>";
}
}
}
private static function isRelated(WT_Individual $target, $distance)
{
static $cache = null;
$user_individual = WT_Individual::getInstance(WT_USER_GEDCOM_ID);
if ($user_individual) {
if (!$cache) {
$cache = array(0 => array($user_individual), 1 => array());
foreach ($user_individual->getFacts('FAM[CS]', false, WT_PRIV_HIDE) as $fact) {
$family = $fact->getTarget();
if ($family) {
$cache[1][] = $family;
}
}
}
} else {
// No individual linked to this account? Cannot use relationship privacy.
return true;
}
// Double the distance, as we count the INDI-FAM and FAM-INDI links separately
$distance *= 2;
// Consider each path length in turn
for ($n = 0; $n <= $distance; ++$n) {
if (array_key_exists($n, $cache)) {
// We have already calculated all records with this length
if ($n % 2 == 0 && in_array($target, $cache[$n], true)) {
return true;
}
} else {
// Need to calculate these paths
$cache[$n] = array();
if ($n % 2 == 0) {
// Add FAM->INDI links
foreach ($cache[$n - 1] as $family) {
foreach ($family->getFacts('HUSB|WIFE|CHIL', false, WT_PRIV_HIDE) as $fact) {
$individual = $fact->getTarget();
// Don’t backtrack
if ($individual && !in_array($individual, $cache[$n - 2], true)) {
$cache[$n][] = $individual;
}
}
}
if (in_array($target, $cache[$n], true)) {
return true;
}
} else {
// Add INDI->FAM links
foreach ($cache[$n - 1] as $individual) {
foreach ($individual->getFacts('FAM[CS]', false, WT_PRIV_HIDE) as $fact) {
$family = $fact->getTarget();
// Don’t backtrack
if ($family && !in_array($family, $cache[$n - 2], true)) {
$cache[$n][] = $family;
}
}
}
}
}
}
return false;
}
function __construct()
{
global $USE_RIN;
$xref = WT_Filter::get('pid', WT_REGEX_XREF);
$this->record = WT_Individual::getInstance($xref);
if (!$this->record && $USE_RIN) {
$rin = find_rin_id($xref);
$this->record = WT_Individual::getInstance($rin);
}
parent::__construct();
$this->tabs = WT_Module::getActiveTabs();
// If we can display the details, add them to the page header
if ($this->record && $this->record->canShow()) {
$this->setPageTitle($this->record->getFullName() . ' ' . $this->record->getLifespan());
}
}
public function __construct()
{
parent::__construct();
$this->rootid = WT_Filter::get('rootid', WT_REGEX_XREF);
if ($this->rootid) {
$this->root = WT_Individual::getInstance($this->rootid);
} else {
// Missing rootid parameter? Do something.
$this->root = $this->getSignificantIndividual();
$this->rootid = $this->root->getXref();
}
if (!$this->root || !$this->root->canShowName()) {
header($_SERVER['SERVER_PROTOCOL'] . ' 403 Forbidden');
$this->error_message = WT_I18N::translate('This individual does not exist or you do not have permission to view it.');
$this->rootid = null;
}
}
public function getTarget()
{
$xref = trim($this->getValue(), '@');
switch ($this->tag) {
case 'FAMC':
case 'FAMS':
return WT_Family::getInstance($xref, $this->getParent()->getGedcomId());
case 'HUSB':
case 'WIFE':
case 'CHIL':
return WT_Individual::getInstance($xref, $this->getParent()->getGedcomId());
case 'SOUR':
return WT_Source::getInstance($xref, $this->getParent()->getGedcomId());
case 'OBJE':
return WT_Media::getInstance($xref, $this->getParent()->getGedcomId());
case 'REPO':
return WT_Repository::getInstance($xref, $this->getParent()->getGedcomId());
case 'NOTE':
return WT_Note::getInstance($xref, $this->getParent()->getGedcomId());
default:
return WT_GedcomRecord::getInstance($xref, $this->getParent()->getGedcomId());
}
}
private function show_list()
{
global $controller;
$controller = new WT_Controller_Page();
$controller->setPageTitle($this->getTitle())->pageHeader()->addExternalJavascript(WT_JQUERY_DATATABLES_URL)->addInlineJavascript('
jQuery("#story_table").dataTable({
dom: \'<"H"pf<"dt-clear">irl>t<"F"pl>\',
' . WT_I18N::datatablesI18N() . ',
autoWidth: false,
paging: true,
pagingType: "full_numbers",
lengthChange: true,
filter: true,
info: true,
jQueryUI: true,
sorting: [[0,"asc"]],
columns: [
/* 0-name */ null,
/* 1-NAME */ null
]
});
');
$stories = WT_DB::prepare("SELECT block_id, xref" . " FROM `##block` b" . " WHERE module_name=?" . " AND gedcom_id=?" . " ORDER BY xref")->execute(array($this->getName(), WT_GED_ID))->fetchAll();
echo '<h2 class="center">', WT_I18N::translate('Stories'), '</h2>';
if (count($stories) > 0) {
echo '<table id="story_table" class="width100">';
echo '<thead><tr>
<th>', WT_I18N::translate('Story title'), '</th>
<th>', WT_I18N::translate('Individual'), '</th>
</tr></thead>
<tbody>';
foreach ($stories as $story) {
$indi = WT_Individual::getInstance($story->xref);
$story_title = get_block_setting($story->block_id, 'title');
$languages = get_block_setting($story->block_id, 'languages');
if (!$languages || in_array(WT_LOCALE, explode(',', $languages))) {
if ($indi) {
if ($indi->canShow()) {
echo '<tr><td><a href="' . $indi->getHtmlUrl() . '#stories">' . $story_title . '</a></td><td><a href="' . $indi->getHtmlUrl() . '#stories">' . $indi->getFullName() . '</a></td></tr>';
}
} else {
echo '<tr><td>', $story_title, '</td><td class="error">', $story->xref, '</td></tr>';
}
}
}
echo '</tbody></table>';
}
}
private static function search_indis_year_range($startyear, $endyear)
{
// At present, the lifespan chart is driven by Gregorian years.
// We ought to allow it to work with other calendars...
$gregorian_calendar = new GregorianCalendar();
$startjd = $gregorian_calendar->ymdToJd($startyear, 1, 1);
$endjd = $gregorian_calendar->ymdToJd($endyear, 12, 31);
$sql = "SELECT DISTINCT i_id AS xref, i_file AS gedcom_id, i_gedcom AS gedcom" . " FROM `##individuals`" . " JOIN `##dates` ON i_id=d_gid AND i_file=d_file" . " WHERE i_file=? AND d_julianday1 BETWEEN ? AND ?";
$rows = WT_DB::prepare($sql)->execute(array(WT_GED_ID, $startjd, $endjd))->fetchAll();
$list = array();
foreach ($rows as $row) {
$list[] = WT_Individual::getInstance($row->xref, $row->gedcom_id, $row->gedcom);
}
return $list;
}
function add_descendancy(&$list, $pid, $parents = false, $generations = -1)
{
$person = WT_Individual::getInstance($pid);
if ($person == null) {
return;
}
if (!isset($list[$pid])) {
$list[$pid] = $person;
}
if (!isset($list[$pid]->generation)) {
$list[$pid]->generation = 0;
}
foreach ($person->getSpouseFamilies() as $family) {
if ($parents) {
$husband = $family->getHusband();
$wife = $family->getWife();
if ($husband) {
$list[$husband->getXref()] = $husband;
if (isset($list[$pid]->generation)) {
$list[$husband->getXref()]->generation = $list[$pid]->generation - 1;
} else {
$list[$husband->getXref()]->generation = 1;
}
}
if ($wife) {
$list[$wife->getXref()] = $wife;
if (isset($list[$pid]->generation)) {
$list[$wife->getXref()]->generation = $list[$pid]->generation - 1;
} else {
$list[$wife->getXref()]->generation = 1;
}
}
}
$children = $family->getChildren();
foreach ($children as $child) {
if ($child) {
$list[$child->getXref()] = $child;
if (isset($list[$pid]->generation)) {
$list[$child->getXref()]->generation = $list[$pid]->generation + 1;
} else {
$list[$child->getXref()]->generation = 2;
}
}
}
if ($generations == -1 || $list[$pid]->generation + 1 < $generations) {
foreach ($children as $child) {
add_descendancy($list, $child->getXref(), $parents, $generations);
// recurse on the childs family
}
}
}
}
public static function getChartsMenu()
{
global $SEARCH_SPIDER, $controller;
if ($SEARCH_SPIDER || !WT_GED_ID) {
return null;
}
$indi_xref = $controller->getSignificantIndividual()->getXref();
$menu = new WT_Menu(WT_I18N::translate('Charts'), 'pedigree.php?rootid=' . $indi_xref . '&ged=' . WT_GEDURL, 'menu-chart');
// Build a sortable list of submenu items and then sort it in localized name order
$menuList = array('pedigree' => WT_I18N::translate('Pedigree'), 'descendancy' => WT_I18N::translate('Descendants'), 'ancestry' => WT_I18N::translate('Ancestors'), 'compact' => WT_I18N::translate('Compact tree'), 'hourglass' => WT_I18N::translate('Hourglass chart'), 'familybook' => WT_I18N::translate('Family book'), 'timeline' => WT_I18N::translate('Timeline'), 'lifespan' => WT_I18N::translate('Lifespans'), 'relationship' => WT_I18N::translate('Relationships'), 'statistics' => WT_I18N::translate('Statistics'));
if (function_exists('imagettftext')) {
$menuList['fanchart'] = WT_I18N::translate('Fan chart');
}
// TODO: Use WT_Module_Chart ??
if (array_key_exists('tree', WT_Module::getActiveModules())) {
$menuList['tree'] = WT_I18N::translate('Interactive tree');
}
if (array_key_exists('googlemap', WT_Module::getActiveModules())) {
$menuList['pedigree_map'] = WT_I18N::translate('Pedigree map');
}
asort($menuList);
// Produce the submenus in localized name order
foreach ($menuList as $menuType => $menuName) {
switch ($menuType) {
case 'pedigree':
$submenu = new WT_Menu($menuName, 'pedigree.php?rootid=' . $indi_xref . '&ged=' . WT_GEDURL, 'menu-chart-pedigree');
$menu->addSubmenu($submenu);
break;
case 'descendancy':
$submenu = new WT_Menu($menuName, 'descendancy.php?rootid=' . $indi_xref . '&ged=' . WT_GEDURL, 'menu-chart-descendancy');
$menu->addSubmenu($submenu);
break;
case 'ancestry':
$submenu = new WT_Menu($menuName, 'ancestry.php?rootid=' . $indi_xref . '&ged=' . WT_GEDURL, 'menu-chart-ancestry');
$menu->addSubmenu($submenu);
break;
case 'compact':
$submenu = new WT_Menu($menuName, 'compact.php?rootid=' . $indi_xref . '&ged=' . WT_GEDURL, 'menu-chart-compact');
$menu->addSubmenu($submenu);
break;
case 'fanchart':
$submenu = new WT_Menu($menuName, 'fanchart.php?rootid=' . $indi_xref . '&ged=' . WT_GEDURL, 'menu-chart-fanchart');
$menu->addSubmenu($submenu);
break;
case 'hourglass':
$submenu = new WT_Menu($menuName, 'hourglass.php?rootid=' . $indi_xref . '&ged=' . WT_GEDURL, 'menu-chart-hourglass');
$menu->addSubmenu($submenu);
break;
case 'familybook':
$submenu = new WT_Menu($menuName, 'familybook.php?rootid=' . $indi_xref . '&ged=' . WT_GEDURL, 'menu-chart-familybook');
$menu->addSubmenu($submenu);
break;
case 'timeline':
$submenu = new WT_Menu($menuName, 'timeline.php?pids%5B%5D=' . $indi_xref . '&ged=' . WT_GEDURL, 'menu-chart-timeline');
if ($controller instanceof WT_Controller_Family && $controller->record) {
// Build a sortable list of submenu items and then sort it in localized name order
$menuList = array();
$menuList['parentTimeLine'] = WT_I18N::translate('Show couple on timeline chart');
$menuList['childTimeLine'] = WT_I18N::translate('Show children on timeline chart');
$menuList['familyTimeLine'] = WT_I18N::translate('Show family on timeline chart');
asort($menuList);
// Produce the submenus in localized name order
foreach ($menuList as $submenuType => $submenuName) {
switch ($submenuType) {
case 'parentTimeLine':
// charts / parents_timeline
$subsubmenu = new WT_Menu($submenuName, 'timeline.php?' . $controller->getTimelineIndis(array('HUSB', 'WIFE')) . '&ged=' . WT_GEDURL, 'menu-chart-timeline-parents');
$submenu->addSubmenu($subsubmenu);
break;
case 'childTimeLine':
// charts / children_timeline
$subsubmenu = new WT_Menu($submenuName, 'timeline.php?' . $controller->getTimelineIndis(array('CHIL')) . '&ged=' . WT_GEDURL, 'menu-chart-timeline-children');
$submenu->addSubmenu($subsubmenu);
break;
case 'familyTimeLine':
// charts / family_timeline
$subsubmenu = new WT_Menu($submenuName, 'timeline.php?' . $controller->getTimelineIndis(array('HUSB', 'WIFE', 'CHIL')) . '&ged=' . WT_GEDURL, 'menu-chart-timeline-family');
$submenu->addSubmenu($subsubmenu);
break;
}
}
}
$menu->addSubmenu($submenu);
break;
case 'lifespan':
$submenu = new WT_Menu($menuName, 'lifespan.php?pids%5B%5D=' . $indi_xref . '&addFamily=1&ged=' . WT_GEDURL, 'menu-chart-lifespan');
$menu->addSubmenu($submenu);
break;
case 'relationship':
if ($indi_xref) {
// Pages focused on a specific person - from the person, to me
$pid1 = WT_USER_GEDCOM_ID ? WT_USER_GEDCOM_ID : WT_USER_ROOT_ID;
$pid2 = $indi_xref;
if ($pid1 == $pid2) {
$pid2 = '';
}
$submenu = new WT_Menu(WT_I18N::translate('Relationships'), 'relationship.php?pid1=' . $pid1 . '&pid2=' . $pid2 . '&ged=' . WT_GEDURL, 'menu-chart-relationship');
if (array_key_exists('user_favorites', WT_Module::getActiveModules())) {
// Add a submenu showing relationship from this person to each of our favorites
foreach (user_favorites_WT_Module::getFavorites(WT_USER_ID) as $favorite) {
if ($favorite['type'] == 'INDI' && $favorite['gedcom_id'] == WT_GED_ID) {
$person = WT_Individual::getInstance($favorite['gid']);
if ($person instanceof WT_Individual) {
$subsubmenu = new WT_Menu($person->getFullName(), 'relationship.php?pid1=' . $person->getXref() . '&pid2=' . $pid2 . '&ged=' . WT_GEDURL, 'menu-chart-relationship-' . $person->getXref() . '-' . $pid2);
$submenu->addSubmenu($subsubmenu);
}
}
}
}
} else {
// Regular pages - from me, to somebody
$pid1 = WT_USER_GEDCOM_ID ? WT_USER_GEDCOM_ID : WT_USER_ROOT_ID;
$pid2 = '';
$submenu = new WT_Menu(WT_I18N::translate('Relationships'), 'relationship.php?pid1=' . $pid1 . '&pid2=' . $pid2 . '&ged=' . WT_GEDURL, 'menu-chart-relationship');
}
$menu->addSubmenu($submenu);
break;
case 'statistics':
$submenu = new WT_Menu($menuName, 'statistics.php?ged=' . WT_GEDURL, 'menu-chart-statistics');
$menu->addSubmenu($submenu);
break;
case 'tree':
$submenu = new WT_Menu($menuName, 'module.php?mod=tree&mod_action=treeview&ged=' . WT_GEDURL . '&rootid=' . $indi_xref, 'menu-chart-tree');
$menu->addSubmenu($submenu);
break;
case 'pedigree_map':
$submenu = new WT_Menu($menuName, 'module.php?ged=' . WT_GEDURL . '&mod=googlemap&mod_action=pedigree_map&rootid=' . $indi_xref, 'menu-chart-pedigree_map');
$menu->addSubmenu($submenu);
break;
}
}
return $menu;
}
private function pedigreeMapJavascript($hideflags, $hidelines)
{
global $controller, $SHOW_HIGHLIGHT_IMAGES, $PEDIGREE_GENERATIONS;
// The HomeControl returns the map to the original position and style
$js = 'function HomeControl(controlDiv, pm_map) {' . 'controlDiv.style.paddingTop = "5px";
controlDiv.style.paddingRight = "0px";' . 'var controlUI = document.createElement("DIV");
controlUI.style.backgroundColor = "white";
controlUI.style.color = "black";
controlUI.style.borderColor = "black";
controlUI.style.borderColor = "black";
controlUI.style.borderStyle = "solid";
controlUI.style.borderWidth = "2px";
controlUI.style.cursor = "pointer";
controlUI.style.textAlign = "center";
controlUI.title = "";
controlDiv.appendChild(controlUI);' . 'var controlText = document.createElement("DIV");
controlText.style.fontFamily = "Arial,sans-serif";
controlText.style.fontSize = "12px";
controlText.style.paddingLeft = "15px";
controlText.style.paddingRight = "15px";
controlText.innerHTML = "<b>' . WT_I18N::translate('Redraw map') . '<\\/b>";
controlUI.appendChild(controlText);' . 'google.maps.event.addDomListener(controlUI, "click", function() {
pm_map.setMapTypeId(google.maps.MapTypeId.TERRAIN),
pm_map.fitBounds(bounds),
pm_map.setCenter(bounds.getCenter()),
infowindow.close()
if (document.getElementById(lastlinkid) != null) {
document.getElementById(lastlinkid).className = "person_box:target";
}
});
}' . 'function myclick(i) {
if (document.getElementById(lastlinkid) != null) {
document.getElementById(lastlinkid).className = "person_box:target";
}
google.maps.event.trigger(gmarkers[i], "click");
}' . 'var side_bar_html = "";' . 'var gmarkers = [];
var i = 0;
var lastlinkid;
var infowindow = new google.maps.InfoWindow({});' . 'var gicons = [];
gicons["1"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon1.png")
gicons["1"].shadow = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/shadow50.png",
new google.maps.Size(37, 34), // Shadow size
new google.maps.Point(0, 0), // Shadow origin
new google.maps.Point(10, 34) // Shadow anchor is base of image
);
gicons["2"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon2.png")
gicons["2"].shadow = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/shadow50.png",
new google.maps.Size(37, 34), // Shadow size
new google.maps.Point(0, 0), // Shadow origin
new google.maps.Point(10, 34) // Shadow anchor is base of image
);
gicons["2L"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon2L.png",
new google.maps.Size(32, 32), // Image size
new google.maps.Point(0, 0), // Image origin
new google.maps.Point(28, 28) // Image anchor
);
gicons["2L"].shadow = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/shadow-left-large.png",
new google.maps.Size(49, 32), // Shadow size
new google.maps.Point(0, 0), // Shadow origin
new google.maps.Point(32, 27) // Shadow anchor is base of image
);
gicons["2R"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon2R.png",
new google.maps.Size(32, 32), // Image size
new google.maps.Point(0, 0), // Image origin
new google.maps.Point(4, 28) // Image anchor
);
gicons["2R"].shadow = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/shadow-right-large.png",
new google.maps.Size(49, 32), // Shadow size
new google.maps.Point(0, 0), // Shadow origin
new google.maps.Point(15, 27) // Shadow anchor is base of image
);
gicons["2Ls"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon2Ls.png",
new google.maps.Size(24, 24), // Image size
new google.maps.Point(0, 0), // Image origin
new google.maps.Point(22, 22) // Image anchor
);
gicons["2Rs"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon2Rs.png",
new google.maps.Size(24, 24), // Image size
new google.maps.Point(0, 0), // Image origin
new google.maps.Point(2, 22) // Image anchor
);
gicons["3"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon3.png")
gicons["3"].shadow = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/shadow50.png",
new google.maps.Size(37, 34), // Shadow size
new google.maps.Point(0, 0), // Shadow origin
new google.maps.Point(10, 34) // Shadow anchor is base of image
);
gicons["3L"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon3L.png",
new google.maps.Size(32, 32), // Image size
new google.maps.Point(0, 0), // Image origin
new google.maps.Point(28, 28) // Image anchor
);
gicons["3L"].shadow = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/shadow-left-large.png",
new google.maps.Size(49, 32), // Shadow size
new google.maps.Point(0, 0), // Shadow origin
new google.maps.Point(32, 27) // Shadow anchor is base of image
);
gicons["3R"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon3R.png",
new google.maps.Size(32, 32), // Image size
new google.maps.Point(0, 0), // Image origin
new google.maps.Point(4, 28) // Image anchor
);
gicons["3R"].shadow = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/shadow-right-large.png",
new google.maps.Size(49, 32), // Shadow size
new google.maps.Point(0, 0), // Shadow origin
new google.maps.Point(15, 27) // Shadow anchor is base of image
);
gicons["3Ls"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon3Ls.png",
new google.maps.Size(24, 24), // Image size
new google.maps.Point(0, 0), // Image origin
new google.maps.Point(22, 22) // Image anchor
);
gicons["3Rs"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon3Rs.png",
new google.maps.Size(24, 24), // Image size
new google.maps.Point(0, 0), // Image origin
new google.maps.Point(2, 22) // Image anchor
);
gicons["4"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon4.png")
gicons["4"].shadow = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/shadow50.png",
new google.maps.Size(37, 34), // Shadow size
new google.maps.Point(0, 0), // Shadow origin
new google.maps.Point(10, 34) // Shadow anchor is base of image
);
gicons["4L"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon4L.png",
new google.maps.Size(32, 32), // Image size
new google.maps.Point(0, 0), // Image origin
new google.maps.Point(28, 28) // Image anchor
);
gicons["4L"].shadow = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/shadow-left-large.png",
new google.maps.Size(49, 32), // Shadow size
new google.maps.Point(0, 0), // Shadow origin
new google.maps.Point(32, 27) // Shadow anchor is base of image
);
gicons["4R"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon4R.png",
new google.maps.Size(32, 32), // Image size
new google.maps.Point(0, 0), // Image origin
new google.maps.Point(4, 28) // Image anchor
);
gicons["4R"].shadow = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/shadow-right-large.png",
new google.maps.Size(49, 32), // Shadow size
new google.maps.Point(0, 0), // Shadow origin
new google.maps.Point(15, 27) // Shadow anchor is base of image
);
gicons["4Ls"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon4Ls.png",
new google.maps.Size(24, 24), // Image size
new google.maps.Point(0, 0), // Image origin
new google.maps.Point(22, 22) // Image anchor
);
gicons["4Rs"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon4Rs.png",
new google.maps.Size(24, 24), // Image size
new google.maps.Point(0, 0), // Image origin
new google.maps.Point(2, 22) // Image anchor
);
gicons["5"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon5.png")
gicons["5"].shadow = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/shadow50.png",
new google.maps.Size(37, 34), // Shadow size
new google.maps.Point(0, 0), // Shadow origin
new google.maps.Point(10, 34) // Shadow anchor is base of image
);
gicons["5L"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon5L.png",
new google.maps.Size(32, 32), // Image size
new google.maps.Point(0, 0), // Image origin
new google.maps.Point(28, 28) // Image anchor
);
gicons["5L"].shadow = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/shadow-left-large.png",
new google.maps.Size(49, 32), // Shadow size
new google.maps.Point(0, 0), // Shadow origin
new google.maps.Point(32, 27) // Shadow anchor is base of image
);
gicons["5R"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon5R.png",
new google.maps.Size(32, 32), // Image size
new google.maps.Point(0, 0), // Image origin
new google.maps.Point(4, 28) // Image anchor
);
gicons["5R"].shadow = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/shadow-right-large.png",
new google.maps.Size(49, 32), // Shadow size
new google.maps.Point(0, 0), // Shadow origin
new google.maps.Point(15, 27) // Shadow anchor is base of image
);
gicons["5Ls"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon5Ls.png",
new google.maps.Size(24, 24), // Image size
new google.maps.Point(0, 0), // Image origin
new google.maps.Point(22, 22) // Image anchor
);
gicons["5Rs"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon5Rs.png",
new google.maps.Size(24, 24), // Image size
new google.maps.Point(0, 0), // Image origin
new google.maps.Point(2, 22) // Image anchor
);
gicons["6"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon6.png")
gicons["6"].shadow = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/shadow50.png",
new google.maps.Size(37, 34), // Shadow size
new google.maps.Point(0, 0), // Shadow origin
new google.maps.Point(10, 34) // Shadow anchor is base of image
);
gicons["6L"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon6L.png",
new google.maps.Size(32, 32), // Image size
new google.maps.Point(0, 0), // Image origin
new google.maps.Point(28, 28) // Image anchor
);
gicons["6L"].shadow = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/shadow-left-large.png",
new google.maps.Size(49, 32), // Shadow size
new google.maps.Point(0, 0), // Shadow origin
new google.maps.Point(32, 27) // Shadow anchor is base of image
);
gicons["6R"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon6R.png",
new google.maps.Size(32, 32), // Image size
new google.maps.Point(0, 0), // Image origin
new google.maps.Point(4, 28) // Image anchor
);
gicons["6R"].shadow = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/shadow-right-large.png",
new google.maps.Size(49, 32), // Shadow size
new google.maps.Point(0, 0), // Shadow origin
new google.maps.Point(15, 27) // Shadow anchor is base of image
);
gicons["6Ls"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon6Ls.png",
new google.maps.Size(24, 24), // Image size
new google.maps.Point(0, 0), // Image origin
new google.maps.Point(22, 22) // Image anchor
);
gicons["6Rs"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon6Rs.png",
new google.maps.Size(24, 24), // Image size
new google.maps.Point(0, 0), // Image origin
new google.maps.Point(2, 22) // Image anchor
);
gicons["7"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon7.png")
gicons["7"].shadow = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/shadow50.png",
new google.maps.Size(37, 34), // Shadow size
new google.maps.Point(0, 0), // Shadow origin
new google.maps.Point(10, 34) // Shadow anchor is base of image
);
gicons["7L"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon7L.png",
new google.maps.Size(32, 32), // Image size
new google.maps.Point(0, 0), // Image origin
new google.maps.Point(28, 28) // Image anchor
);
gicons["7L"].shadow = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/shadow-left-large.png",
new google.maps.Size(49, 32), // Shadow size
new google.maps.Point(0, 0), // Shadow origin
new google.maps.Point(32, 27) // Shadow anchor is base of image
);
gicons["7R"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon7R.png",
new google.maps.Size(32, 32), // Image size
new google.maps.Point(0, 0), // Image origin
new google.maps.Point(4, 28) // Image anchor
);
gicons["7R"].shadow = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/shadow-right-large.png",
new google.maps.Size(49, 32), // Shadow size
new google.maps.Point(0, 0), // Shadow origin
new google.maps.Point(15, 27) // Shadow anchor is base of image
);
gicons["7Ls"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon7Ls.png",
new google.maps.Size(24, 24), // Image size
new google.maps.Point(0, 0), // Image origin
new google.maps.Point(22, 22) // Image anchor
);
gicons["7Rs"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon7Rs.png",
new google.maps.Size(24, 24), // Image size
new google.maps.Point(0, 0), // Image origin
new google.maps.Point(2, 22) // Image anchor
);
gicons["8"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon8.png")
gicons["8"].shadow = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/shadow50.png",
new google.maps.Size(37, 34), // Shadow size
new google.maps.Point(0, 0), // Shadow origin
new google.maps.Point(10, 34) // Shadow anchor is base of image
);
gicons["8L"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon8L.png",
new google.maps.Size(32, 32), // Image size
new google.maps.Point(0, 0), // Image origin
new google.maps.Point(28, 28) // Image anchor
);
gicons["8L"].shadow = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/shadow-left-large.png",
new google.maps.Size(49, 32), // Shadow size
new google.maps.Point(0, 0), // Shadow origin
new google.maps.Point(32, 27) // Shadow anchor is base of image
);
gicons["8R"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon8R.png",
new google.maps.Size(32, 32), // Image size
new google.maps.Point(0, 0), // Image origin
new google.maps.Point(4, 28) // Image anchor
);
gicons["8R"].shadow = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/shadow-right-large.png",
new google.maps.Size(49, 32), // Shadow size
new google.maps.Point(0, 0), // Shadow origin
new google.maps.Point(15, 27) // Shadow anchor is base of image
);
gicons["8Ls"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon8Ls.png",
new google.maps.Size(24, 24), // Image size
new google.maps.Point(0, 0), // Image origin
new google.maps.Point(22, 22) // Image anchor
);
gicons["8Rs"] = new google.maps.MarkerImage(WT_STATIC_URL+WT_MODULES_DIR+"googlemap/images/icon8Rs.png",
new google.maps.Size(24, 24), // Image size
new google.maps.Point(0, 0), // Image origin
new google.maps.Point(2, 22) // Image anchor
);' . 'function createMarker(point, name, html, mhtml, icontype) {
var contentString = "<div id=\'iwcontent_edit\'>"+mhtml+"<\\/div>";' . 'var marker = new google.maps.Marker({
icon: gicons[icontype],
shadow: gicons[icontype].shadow,
map: pm_map,
position: point,
zIndex: 0
});
var linkid = "link"+i;
google.maps.event.addListener(marker, "click", function() {
infowindow.close();
infowindow.setContent(contentString);
infowindow.open(pm_map, marker);
document.getElementById(linkid).className = "person_box";
if (document.getElementById(lastlinkid) != null) {
document.getElementById(lastlinkid).className = "person_box:target";
}
lastlinkid=linkid;
});' . 'gmarkers[i] = marker;' . 'side_bar_html += "<br><div id=\'"+linkid+"\' onclick=\'myclick(" + i + ")\'>" + html +"<br></div>";
i++;
return marker;
};' . 'var myOptions = {
zoom: 6,
center: new google.maps.LatLng(0, 0),
mapTypeId: google.maps.MapTypeId.TERRAIN, // ROADMAP, SATELLITE, HYBRID, TERRAIN
mapTypeControlOptions: {
style: google.maps.MapTypeControlStyle.DROPDOWN_MENU // DEFAULT, DROPDOWN_MENU, HORIZONTAL_BAR
},
navigationControlOptions: {
position: google.maps.ControlPosition.TOP_RIGHT, // BOTTOM, BOTTOM_LEFT, LEFT, TOP, etc
style: google.maps.NavigationControlStyle.SMALL // ANDROID, DEFAULT, SMALL, ZOOM_PAN
},
streetViewControl: false, // Show Pegman or not
scrollwheel: true
};
var pm_map = new google.maps.Map(document.getElementById("pm_map"), myOptions);
google.maps.event.addListener(pm_map, "click", function() {
if (document.getElementById(lastlinkid) != null) {
document.getElementById(lastlinkid).className = "person_box:target";
}
infowindow.close();
});' . 'var homeControlDiv = document.createElement("DIV");
var homeControl = new HomeControl(homeControlDiv, pm_map);
homeControlDiv.index = 1;
pm_map.controls[google.maps.ControlPosition.TOP_RIGHT].push(homeControlDiv);' . 'var bounds = new google.maps.LatLngBounds();';
// add the points
$curgen = 1;
$count = 0;
$colored_line = array('1' => '#FF0000', '2' => '#0000FF', '3' => '#00FF00', '4' => '#FFFF00', '5' => '#00FFFF', '6' => '#FF00FF', '7' => '#C0C0FF', '8' => '#808000');
$lat = array();
$lon = array();
$latlongval = array();
$flags = array();
for ($i = 0; $i < $controller->treesize; $i++) {
// moved up to grab the sex of the individuals
$person = WT_Individual::getInstance($controller->treeid[$i]);
if ($person) {
$name = $person->getFullName();
// -- check to see if we have moved to the next generation
if ($i + 1 >= pow(2, $curgen)) {
$curgen++;
}
$relationship = get_close_relationship_name($controller->root, $person);
$event = '<img src="' . WT_STATIC_URL . WT_MODULES_DIR . 'googlemap/images/sq' . $curgen . '.png" width="10" height="10"> ' . '<strong>' . $relationship . '</strong>';
// add thumbnail image
if ($SHOW_HIGHLIGHT_IMAGES) {
$image = $person->displayImage();
} else {
$image = '';
}
// end of add image
$dataleft = WT_Filter::escapeJs($image . $event . ' — ' . $name);
$datamid = WT_Filter::escapeJs(' <span><a href="' . $person->getHtmlUrl() . '">(' . WT_I18N::translate('View person') . ')</a></span>');
$dataright = WT_Filter::escapeJs('<br><strong>' . WT_I18N::translate('Birth:') . ' </strong>' . $person->getBirthDate()->Display(false) . ' — ' . $person->getBirthPlace());
$latlongval[$i] = $this->getLatitudeAndLongitudeFromPlaceLocation($person->getBirthPlace());
if ($latlongval[$i]) {
$lat[$i] = (double) str_replace(array('N', 'S', ','), array('', '-', '.'), $latlongval[$i]->pl_lati);
$lon[$i] = (double) str_replace(array('E', 'W', ','), array('', '-', '.'), $latlongval[$i]->pl_long);
if ($lat[$i] || $lon[$i]) {
if (!$hideflags && $latlongval[$i]->pl_icon) {
$flags[$i] = $latlongval[$i]->pl_icon;
$ffile = strrchr($latlongval[$i]->pl_icon, '/');
$ffile = substr($ffile, 1, strpos($ffile, '.') - 1);
if (empty($flags[$ffile])) {
$flags[$ffile] = $i;
// Only generate the flag once
$js .= 'var point = new google.maps.LatLng(' . $lat[$i] . ',' . $lon[$i] . ');';
$js .= 'var Marker1_0_flag = new google.maps.MarkerImage();';
$js .= 'Marker1_0_flag.image = "' . WT_STATIC_URL . WT_MODULES_DIR . 'googlemap/' . $flags[$i] . '";';
$js .= 'Marker1_0_flag.shadow = "' . WT_STATIC_URL . WT_MODULES_DIR . 'googlemap/images/flag_shadow.png";';
$js .= 'Marker1_0_flag.iconSize = new google.maps.Size(25, 15);';
$js .= 'Marker1_0_flag.shadowSize = new google.maps.Size(35, 45);';
$js .= 'Marker1_0_flag.iconAnchor = new google.maps.Point(1, 45);';
$js .= 'var Marker1_0 = new google.maps.LatLng(point, {icon:Marker1_0_flag});';
}
}
$marker_number = $curgen;
$dups = 0;
for ($k = 0; $k < $i; $k++) {
if ($latlongval[$i] == $latlongval[$k]) {
$dups++;
switch ($dups) {
case 1:
$marker_number = $curgen . 'L';
break;
case 2:
$marker_number = $curgen . 'R';
break;
case 3:
$marker_number = $curgen . 'Ls';
break;
case 4:
$marker_number = $curgen . 'Rs';
break;
case 5:
//adjust position where markers have same coodinates
//adjust position where markers have same coodinates
default:
$marker_number = $curgen;
$lon[$i] = $lon[$i] + 0.0025;
$lat[$i] = $lat[$i] + 0.0025;
break;
}
}
}
$js .= 'var point = new google.maps.LatLng(' . $lat[$i] . ',' . $lon[$i] . ');';
$js .= "var marker = createMarker(point, \"" . WT_Filter::escapeJs($name) . "\",\"<div>" . $dataleft . $datamid . $dataright . "</div>\", \"";
$js .= "<div class='iwstyle'>";
$js .= "<a href='module.php?ged=" . WT_GEDURL . "&mod=googlemap&mod_action=pedigree_map&rootid=" . $person->getXref() . "&PEDIGREE_GENERATIONS={$PEDIGREE_GENERATIONS}";
if ($hideflags) {
$js .= '&hideflags=1';
}
if ($hidelines) {
$js .= '&hidelines=1';
}
$js .= "' title='" . WT_I18N::translate('Pedigree map') . "'>" . $dataleft . "</a>" . $datamid . $dataright . "</div>\", \"" . $marker_number . "\");";
// Construct the polygon lines
if (!$hidelines) {
$to_child = intval(($i - 1) / 2);
// Draw a line from parent to child
if (array_key_exists($to_child, $lat) && $lat[$to_child] != 0 && $lon[$to_child] != 0) {
$js .= '
var linecolor;
var plines;
var lines = [new google.maps.LatLng(' . $lat[$i] . ',' . $lon[$i] . '),
new google.maps.LatLng(' . $lat[$to_child] . ',' . $lon[$to_child] . ')];
linecolor = "' . $colored_line[$curgen] . '";
plines = new google.maps.Polygon({
paths: lines,
strokeColor: linecolor,
strokeOpacity: 0.8,
strokeWeight: 3,
fillColor: "#FF0000",
fillOpacity: 0.1
});
plines.setMap(pm_map);';
}
}
// Extend and fit marker bounds
$js .= 'bounds.extend(point);';
$js .= 'pm_map.fitBounds(bounds);';
$count++;
}
}
} else {
$latlongval[$i] = null;
}
}
$js .= 'pm_map.setCenter(bounds.getCenter());' . 'google.maps.event.addListener(infowindow, "closeclick", function() {
document.getElementById(lastlinkid).className = "person_box:target";
});' . 'document.getElementById("side_bar").innerHTML = side_bar_html;' . 'var contextmenu = document.createElement("div");
contextmenu.style.visibility="hidden";
contextmenu.innerHTML = "<a href=\'#\' onclick=\'zoomIn()\'><div class=\'optionbox\'> ' . WT_I18N::translate('Zoom in') . ' </div></a>"
+ "<a href=\'#\' onclick=\'zoomOut()\'><div class=\'optionbox\'> ' . WT_I18N::translate('Zoom out') . ' </div></a>"
+ "<a href=\'#\' onclick=\'zoomInHere()\'><div class=\'optionbox\'> ' . WT_I18N::translate('Zoom in here') . '</div></a>"
+ "<a href=\'#\' onclick=\'zoomOutHere()\'><div class=\'optionbox\'> ' . WT_I18N::translate('Zoom out here') . ' </div></a>"
+ "<a href=\'#\' onclick=\'centreMapHere()\'><div class=\'optionbox\'> ' . WT_I18N::translate('Center map here') . ' </div></a>";' . 'google.maps.event.addListener(pm_map,"singlerightclick", function(pixel,tile) {' . 'clickedPixel = pixel;
var x=pixel.x;
var y=pixel.y;
if (x > pm_map.getSize().width - 120) { x = pm_map.getSize().width - 120 }
if (y > pm_map.getSize().height - 100) { y = pm_map.getSize().height - 100 }
var pos = new GControlPosition(G_ANCHOR_TOP_LEFT, new GSize(x,y));
pos.apply(contextmenu);
contextmenu.style.visibility = "visible";
});
' . 'function zoomIn() {' . 'pm_map.zoomIn();' . 'contextmenu.style.visibility="hidden";
}
function zoomOut() {' . 'pm_map.zoomOut();' . 'contextmenu.style.visibility="hidden";
}
function zoomInHere() {' . 'var point = pm_map.fromContainerPixelToLatLng(clickedPixel)
pm_map.zoomIn(point,true);' . 'contextmenu.style.visibility="hidden";
}
function zoomOutHere() {' . 'var point = pm_map.fromContainerPixelToLatLng(clickedPixel)
pm_map.setCenter(point,pm_map.getZoom()-1);' . 'contextmenu.style.visibility="hidden";
}
function centreMapHere() {' . 'var point = pm_map.fromContainerPixelToLatLng(clickedPixel)
pm_map.setCenter(point);' . 'contextmenu.style.visibility="hidden";
}' . 'google.maps.event.addListener(pm_map, "click", function() {
contextmenu.style.visibility="hidden";
});';
return $js;
}
function advancedSearch($justSql = false, $table = "individuals", $prefix = "i")
{
$this->myindilist = array();
$fct = count($this->fields);
if ($fct == 0) {
return;
}
// Dynamic SQL query, plus bind variables
$sql = "SELECT DISTINCT ind.i_id AS xref, ind.i_file AS gedcom_id, ind.i_gedcom AS gedcom FROM `##individuals` ind";
$bind = array();
// Join the following tables
$father_name = false;
$mother_name = false;
$spouse_family = false;
$indi_name = false;
$indi_date = false;
$fam_date = false;
$indi_plac = false;
$fam_plac = false;
foreach ($this->fields as $n => $field) {
if ($this->values[$n]) {
if (substr($field, 0, 14) == 'FAMC:HUSB:NAME') {
$father_name = true;
} elseif (substr($field, 0, 14) == 'FAMC:WIFE:NAME') {
$mother_name = true;
} elseif (substr($field, 0, 4) == 'NAME') {
$indi_name = true;
} elseif (strpos($field, ':DATE') !== false) {
if (substr($field, 0, 4) == 'FAMS') {
$fam_date = true;
$spouse_family = true;
} else {
$indi_date = true;
}
} elseif (strpos($field, ':PLAC') !== false) {
if (substr($field, 0, 4) == 'FAMS') {
$fam_plac = true;
$spouse_family = true;
} else {
$indi_plac = true;
}
}
}
}
if ($father_name || $mother_name) {
$sql .= " JOIN `##link` l_1 ON (l_1.l_file=ind.i_file AND l_1.l_from=ind.i_id AND l_1.l_type='FAMC')";
}
if ($father_name) {
$sql .= " JOIN `##link` l_2 ON (l_2.l_file=ind.i_file AND l_2.l_from=l_1.l_to AND l_2.l_type='HUSB')";
$sql .= " JOIN `##name` f_n ON (f_n.n_file=ind.i_file AND f_n.n_id =l_2.l_to)";
}
if ($mother_name) {
$sql .= " JOIN `##link` l_3 ON (l_3.l_file=ind.i_file AND l_3.l_from=l_1.l_to AND l_3.l_type='WIFE')";
$sql .= " JOIN `##name` m_n ON (m_n.n_file=ind.i_file AND m_n.n_id =l_3.l_to)";
}
if ($spouse_family) {
$sql .= " JOIN `##link` l_4 ON (l_4.l_file=ind.i_file AND l_4.l_from=ind.i_id AND l_4.l_type='FAMS')";
$sql .= " JOIN `##families` fam ON (fam.f_file=ind.i_file AND fam.f_id =l_4.l_to)";
}
if ($indi_name) {
$sql .= " JOIN `##name` i_n ON (i_n.n_file=ind.i_file AND i_n.n_id=ind.i_id)";
}
if ($indi_date) {
$sql .= " JOIN `##dates` i_d ON (i_d.d_file=ind.i_file AND i_d.d_gid=ind.i_id)";
}
if ($fam_date) {
$sql .= " JOIN `##dates` f_d ON (f_d.d_file=ind.i_file AND f_d.d_gid=fam.f_id)";
}
if ($indi_plac) {
$sql .= " JOIN `##placelinks` i_pl ON (i_pl.pl_file=ind.i_file AND i_pl.pl_gid =ind.i_id)";
$sql .= " JOIN (" . "SELECT CONCAT_WS(', ', p1.p_place, p2.p_place, p3.p_place, p4.p_place, p5.p_place, p6.p_place, p7.p_place, p8.p_place, p9.p_place) AS place, p1.p_id AS id, p1.p_file AS file" . " FROM `##places` AS p1" . " LEFT JOIN `##places` AS p2 ON (p1.p_parent_id=p2.p_id)" . " LEFT JOIN `##places` AS p3 ON (p2.p_parent_id=p3.p_id)" . " LEFT JOIN `##places` AS p4 ON (p3.p_parent_id=p4.p_id)" . " LEFT JOIN `##places` AS p5 ON (p4.p_parent_id=p5.p_id)" . " LEFT JOIN `##places` AS p6 ON (p5.p_parent_id=p6.p_id)" . " LEFT JOIN `##places` AS p7 ON (p6.p_parent_id=p7.p_id)" . " LEFT JOIN `##places` AS p8 ON (p7.p_parent_id=p8.p_id)" . " LEFT JOIN `##places` AS p9 ON (p8.p_parent_id=p9.p_id)" . ") AS i_p ON (i_p.file =ind.i_file AND i_pl.pl_p_id= i_p.id)";
}
if ($fam_plac) {
$sql .= " JOIN `##placelinks` f_pl ON (f_pl.pl_file=ind.i_file AND f_pl.pl_gid =fam.f_id)";
$sql .= " JOIN (" . "SELECT CONCAT_WS(', ', p1.p_place, p2.p_place, p3.p_place, p4.p_place, p5.p_place, p6.p_place, p7.p_place, p8.p_place, p9.p_place) AS place, p1.p_id AS id, p1.p_file AS file" . " FROM `##places` AS p1" . " LEFT JOIN `##places` AS p2 ON (p1.p_parent_id=p2.p_id)" . " LEFT JOIN `##places` AS p3 ON (p2.p_parent_id=p3.p_id)" . " LEFT JOIN `##places` AS p4 ON (p3.p_parent_id=p4.p_id)" . " LEFT JOIN `##places` AS p5 ON (p4.p_parent_id=p5.p_id)" . " LEFT JOIN `##places` AS p6 ON (p5.p_parent_id=p6.p_id)" . " LEFT JOIN `##places` AS p7 ON (p6.p_parent_id=p7.p_id)" . " LEFT JOIN `##places` AS p8 ON (p7.p_parent_id=p8.p_id)" . " LEFT JOIN `##places` AS p9 ON (p8.p_parent_id=p9.p_id)" . ") AS f_p ON (f_p.file =ind.i_file AND f_pl.pl_p_id= f_p.id)";
}
// Add the where clause
$sql .= " WHERE ind.i_file=?";
$bind[] = WT_GED_ID;
for ($i = 0; $i < $fct; $i++) {
$field = $this->fields[$i];
$value = $this->values[$i];
if ($value === '') {
continue;
}
$parts = preg_split("/:/", $field . '::::');
if ($parts[0] == 'NAME') {
// NAME:*
switch ($parts[1]) {
case 'GIVN':
switch ($parts[2]) {
case 'EXACT':
$sql .= " AND i_n.n_givn=?";
$bind[] = $value;
break;
case 'BEGINS':
$sql .= " AND i_n.n_givn LIKE CONCAT(?, '%')";
$bind[] = $value;
break;
case 'CONTAINS':
$sql .= " AND i_n.n_givn LIKE CONCAT('%', ?, '%')";
$bind[] = $value;
break;
case 'SDX_STD':
$sdx = WT_Soundex::soundex_std($value);
if ($sdx) {
$sdx = explode(':', $sdx);
foreach ($sdx as $k => $v) {
$sdx[$k] = "i_n.n_soundex_givn_std LIKE CONCAT('%', ?, '%')";
$bind[] = $v;
}
$sql .= ' AND (' . implode(' OR ', $sdx) . ')';
} else {
// No phonetic content? Use a substring match
$sql .= " AND i_n.n_givn LIKE CONCAT('%', ?, '%')";
$bind[] = $value;
}
break;
case 'SDX':
// SDX uses DM by default.
// SDX uses DM by default.
case 'SDX_DM':
$sdx = WT_Soundex::soundex_dm($value);
if ($sdx) {
$sdx = explode(':', $sdx);
foreach ($sdx as $k => $v) {
$sdx[$k] = "i_n.n_soundex_givn_dm LIKE CONCAT('%', ?, '%')";
$bind[] = $v;
}
$sql .= ' AND (' . implode(' OR ', $sdx) . ')';
} else {
// No phonetic content? Use a substring match
$sql .= " AND i_n.n_givn LIKE CONCAT('%', ?, '%')";
$bind[] = $value;
}
break;
}
break;
case 'SURN':
switch ($parts[2]) {
case 'EXACT':
$sql .= " AND i_n.n_surname=?";
$bind[] = $value;
break;
case 'BEGINS':
$sql .= " AND i_n.n_surname LIKE CONCAT(?, '%')";
$bind[] = $value;
break;
case 'CONTAINS':
$sql .= " AND i_n.n_surname LIKE CONCAT('%', ?, '%')";
$bind[] = $value;
break;
case 'SDX_STD':
$sdx = WT_Soundex::soundex_std($value);
if ($sdx) {
$sdx = explode(':', $sdx);
foreach ($sdx as $k => $v) {
$sdx[$k] = "i_n.n_soundex_surn_std LIKE CONCAT('%', ?, '%')";
$bind[] = $v;
}
$sql .= " AND (" . implode(' OR ', $sdx) . ")";
} else {
// No phonetic content? Use a substring match
$sql .= " AND i_n.n_surn LIKE CONCAT('%', ?, '%')";
$bind[] = $value;
}
break;
case 'SDX':
// SDX uses DM by default.
// SDX uses DM by default.
case 'SDX_DM':
$sdx = WT_Soundex::soundex_dm($value);
if ($sdx) {
$sdx = explode(':', $sdx);
foreach ($sdx as $k => $v) {
$sdx[$k] = "i_n.n_soundex_surn_dm LIKE CONCAT('%', ?, '%')";
$bind[] = $v;
}
$sql .= " AND (" . implode(' OR ', $sdx) . ")";
break;
} else {
// No phonetic content? Use a substring match
$sql .= " AND i_n.n_surn LIKE CONCAT('%', ?, '%')";
$bind[] = $value;
}
}
break;
case 'NICK':
case '_MARNM':
case '_HEB':
case '_AKA':
$sql .= " AND i_n.n_type=? AND i_n.n_full LIKE CONCAT('%', ?, '%')";
$bind[] = $parts[1];
$bind[] = $value;
break;
}
} elseif ($parts[1] == 'DATE') {
// *:DATE
$date = new WT_Date($value);
if ($date->isOK()) {
$jd1 = $date->date1->minJD;
if ($date->date2) {
$jd2 = $date->date2->maxJD;
} else {
$jd2 = $date->date1->maxJD;
}
if (!empty($this->plusminus[$i])) {
$adjd = $this->plusminus[$i] * 365;
//echo $jd1.":".$jd2.":".$adjd;
$jd1 = $jd1 - $adjd;
$jd2 = $jd2 + $adjd;
}
$sql .= " AND i_d.d_fact=? AND i_d.d_julianday1>=? AND i_d.d_julianday2<=?";
$bind[] = $parts[0];
$bind[] = $jd1;
$bind[] = $jd2;
}
} elseif ($parts[0] == 'FAMS' && $parts[2] == 'DATE') {
// FAMS:*:DATE
$date = new WT_Date($value);
if ($date->isOK()) {
$jd1 = $date->date1->minJD;
if ($date->date2) {
$jd2 = $date->date2->maxJD;
} else {
$jd2 = $date->date1->maxJD;
}
if (!empty($this->plusminus[$i])) {
$adjd = $this->plusminus[$i] * 365;
//echo $jd1.":".$jd2.":".$adjd;
$jd1 = $jd1 - $adjd;
$jd2 = $jd2 + $adjd;
}
$sql .= " AND f_d.d_fact=? AND f_d.d_julianday1>=? AND f_d.d_julianday2<=?";
$bind[] = $parts[1];
$bind[] = $jd1;
$bind[] = $jd2;
}
} elseif ($parts[1] == 'PLAC') {
// *:PLAC
// SQL can only link a place to a person/family, not to an event.
$sql .= " AND i_p.place LIKE CONCAT('%', ?, '%')";
//$sql.=" AND i_p.p_place=?";
$bind[] = $value;
} elseif ($parts[0] == 'FAMS' && $parts[2] == 'PLAC') {
// FAMS:*:PLAC
// SQL can only link a place to a person/family, not to an event.
$sql .= " AND f_p.place LIKE CONCAT('%', ?, '%')";
$bind[] = $value;
} elseif ($parts[0] == 'FAMC' && $parts[2] == 'NAME') {
$table = $parts[1] == 'HUSB' ? 'f_n' : 'm_n';
// NAME:*
switch ($parts[3]) {
case 'GIVN':
switch ($parts[4]) {
case 'EXACT':
$sql .= " AND {$table}.n_givn=?";
$bind[] = $value;
break;
case 'BEGINS':
$sql .= " AND {$table}.n_givn LIKE CONCAT(?, '%')";
$bind[] = $value;
break;
case 'CONTAINS':
$sql .= " AND {$table}.n_givn LIKE CONCAT('%', ?, '%')";
$bind[] = $value;
break;
case 'SDX_STD':
$sdx = WT_Soundex::soundex_std($value);
if ($sdx) {
$sdx = explode(':', $sdx);
foreach ($sdx as $k => $v) {
$sdx[$k] = "{$table}.n_soundex_givn_std LIKE CONCAT('%', ?, '%')";
$bind[] = $v;
}
$sql .= ' AND (' . implode(' OR ', $sdx) . ')';
} else {
// No phonetic content? Use a substring match
$sql .= " AND {$table}.n_givn = LIKE CONCAT('%', ?, '%')";
$bind[] = $value;
}
break;
case 'SDX':
// SDX uses DM by default.
// SDX uses DM by default.
case 'SDX_DM':
$sdx = WT_Soundex::soundex_dm($value);
if ($sdx) {
$sdx = explode(':', $sdx);
foreach ($sdx as $k => $v) {
$sdx[$k] = "{$table}.n_soundex_givn_dm LIKE CONCAT('%', ?, '%')";
$bind[] = $v;
}
$sql .= ' AND (' . implode(' OR ', $sdx) . ')';
break;
} else {
// No phonetic content? Use a substring match
$sql .= " AND {$table}.n_givn = LIKE CONCAT('%', ?, '%')";
$bind[] = $value;
}
}
break;
case 'SURN':
switch ($parts[4]) {
case 'EXACT':
$sql .= " AND {$table}.n_surname=?";
$bind[] = $value;
break;
case 'BEGINS':
$sql .= " AND {$table}.n_surname LIKE CONCAT(?, '%')";
$bind[] = $value;
break;
case 'CONTAINS':
$sql .= " AND {$table}.n_surname LIKE CONCAT('%', ?, '%')";
$bind[] = $value;
break;
case 'SDX_STD':
$sdx = WT_Soundex::soundex_std($value);
if ($sdx) {
$sdx = explode(':', $sdx);
foreach ($sdx as $k => $v) {
$sdx[$k] = "{$table}.n_soundex_surn_std LIKE CONCAT('%', ?, '%')";
$bind[] = $v;
}
$sql .= ' AND (' . implode(' OR ', $sdx) . ')';
} else {
// No phonetic content? Use a substring match
$sql .= " AND {$table}.n_surn = LIKE CONCAT('%', ?, '%')";
$bind[] = $value;
}
break;
case 'SDX':
// SDX uses DM by default.
// SDX uses DM by default.
case 'SDX_DM':
$sdx = WT_Soundex::soundex_dm($value);
if ($sdx) {
$sdx = explode(':', $sdx);
foreach ($sdx as $k => $v) {
$sdx[$k] = "{$table}.n_soundex_surn_dm LIKE CONCAT('%', ?, '%')";
$bind[] = $v;
}
$sql .= ' AND (' . implode(' OR ', $sdx) . ')';
} else {
// No phonetic content? Use a substring match
$sql .= " AND {$table}.n_surn = LIKE CONCAT('%', ?, '%')";
$bind[] = $value;
}
break;
}
break;
}
} elseif ($parts[0] == 'FAMS') {
$sql .= " AND fam.f_gedcom LIKE CONCAT('%', ?, '%')";
$bind[] = $value;
} else {
$sql .= " AND ind.i_gedcom LIKE CONCAT('%', ?, '%')";
$bind[] = $value;
}
}
$rows = WT_DB::prepare($sql)->execute($bind)->fetchAll();
foreach ($rows as $row) {
$person = WT_Individual::getInstance($row->xref, $row->gedcom_id, $row->gedcom);
// Check for XXXX:PLAC fields, which were only partially matched by SQL
foreach ($this->fields as $n => $field) {
if ($this->values[$n] && preg_match('/^(' . WT_REGEX_TAG . '):PLAC$/', $field, $match)) {
if (!preg_match('/\\n1 ' . $match[1] . '(\\n[2-9].*)*\\n2 PLAC .*' . preg_quote($this->values[$n], '/') . '/i', $person->getGedcom())) {
continue 2;
}
}
}
$this->myindilist[] = $person;
}
}
public function getSignificantIndividual()
{
if ($this->pids) {
return WT_Individual::getInstance($this->pids[0]);
} else {
return parent::getSignificantIndividual();
}
}
function format_fact_date(WT_Fact $event, WT_GedcomRecord $record, $anchor = false, $time = false)
{
global $pid, $SEARCH_SPIDER, $SHOW_PARENTS_AGE;
$factrec = $event->getGedcom();
$html = '';
// Recorded age
if (preg_match('/\\n2 AGE (.+)/', $factrec, $match)) {
$fact_age = $match[1];
} else {
$fact_age = '';
}
if (preg_match('/\\n2 HUSB\\n3 AGE (.+)/', $factrec, $match)) {
$husb_age = $match[1];
} else {
$husb_age = '';
}
if (preg_match('/\\n2 WIFE\\n3 AGE (.+)/', $factrec, $match)) {
$wife_age = $match[1];
} else {
$wife_age = '';
}
// Calculated age
if (preg_match('/2 DATE (.+)/', $factrec, $match)) {
$date = new WT_Date($match[1]);
$html .= ' ' . $date->Display($anchor && !$SEARCH_SPIDER);
// time
if ($time) {
$timerec = get_sub_record(2, '2 TIME', $factrec);
if ($timerec == '') {
$timerec = get_sub_record(2, '2 DATE', $factrec);
}
if (preg_match('/[2-3] TIME (.*)/', $timerec, $tmatch)) {
$html .= '<span class="date"> - ' . $tmatch[1] . '</span>';
}
}
$fact = $event->getTag();
if ($record instanceof WT_Individual) {
// age of parents at child birth
if ($fact == 'BIRT' && $SHOW_PARENTS_AGE) {
$html .= format_parents_age($record, $date);
} else {
if ($fact != 'CHAN' && $fact != '_TODO') {
$birth_date = $record->getBirthDate();
// Can't use getDeathDate(), as this also gives BURI/CREM events, which
// wouldn't give the correct "days after death" result for people with
// no DEAT.
$death_event = $record->getFirstFact('DEAT');
if ($death_event) {
$death_date = $death_event->getDate();
} else {
$death_date = new WT_Date('');
}
$ageText = '';
if (WT_Date::Compare($date, $death_date) <= 0 || !$record->isDead() || $fact == 'DEAT') {
// Before death, print age
$age = WT_Date::GetAgeGedcom($birth_date, $date);
// Only show calculated age if it differs from recorded age
if ($age != '') {
if ($fact_age != '' && $fact_age != $age || $fact_age == '' && $husb_age == '' && $wife_age == '' || $husb_age != '' && $record->getSex() == 'M' && $husb_age != $age || $wife_age != '' && $record->getSex() == 'F' && $wife_age != $age) {
if ($age != "0d") {
$ageText = '(' . WT_I18N::translate('Age') . ' ' . get_age_at_event($age, false) . ')';
}
}
}
}
if ($fact != 'DEAT' && WT_Date::Compare($date, $death_date) >= 0) {
// After death, print time since death
$age = get_age_at_event(WT_Date::GetAgeGedcom($death_date, $date), true);
if ($age != '') {
if (WT_Date::GetAgeGedcom($death_date, $date) == "0d") {
$ageText = '(' . WT_I18N::translate('on the date of death') . ')';
} else {
$ageText = '(' . $age . ' ' . WT_I18N::translate('after death') . ')';
// Family events which occur after death are probably errors
if ($event->getParent() instanceof WT_Family) {
$ageText .= '<i class="icon-warning"></i>';
}
}
}
}
if ($ageText) {
$html .= ' <span class="age">' . $ageText . '</span>';
}
}
}
} elseif ($record instanceof WT_Family) {
$indi = WT_Individual::getInstance($pid);
if ($indi) {
$birth_date = $indi->getBirthDate();
$death_date = $indi->getDeathDate();
$ageText = '';
if (WT_Date::Compare($date, $death_date) <= 0) {
$age = WT_Date::GetAgeGedcom($birth_date, $date);
// Only show calculated age if it differs from recorded age
if ($age != '' && $age > 0) {
if ($fact_age != '' && $fact_age != $age || $fact_age == '' && $husb_age == '' && $wife_age == '' || $husb_age != '' && $indi->getSex() == 'M' && $husb_age != $age || $wife_age != '' && $indi->getSex() == 'F' && $wife_age != $age) {
$ageText = '(' . WT_I18N::translate('Age') . ' ' . get_age_at_event($age, false) . ')';
}
}
}
if ($ageText) {
$html .= ' <span class="age">' . $ageText . '</span>';
}
}
}
} else {
// 1 DEAT Y with no DATE => print YES
// 1 BIRT 2 SOUR @S1@ => print YES
// 1 DEAT N is not allowed
// It is not proper GEDCOM form to use a N(o) value with an event tag to infer that it did not happen.
$factdetail = explode(' ', trim($factrec));
if (isset($factdetail) && (count($factdetail) == 3 && strtoupper($factdetail[2]) == 'Y') || count($factdetail) == 4 && $factdetail[2] == 'SOUR') {
$html .= WT_I18N::translate('yes');
}
}
// print gedcom ages
foreach (array(WT_Gedcom_Tag::getLabel('AGE') => $fact_age, WT_Gedcom_Tag::getLabel('HUSB') => $husb_age, WT_Gedcom_Tag::getLabel('WIFE') => $wife_age) as $label => $age) {
if ($age != '') {
$html .= ' <span class="label">' . $label . ':</span> <span class="age">' . get_age_at_event($age, false) . '</span>';
}
}
return $html;
}
/**
* creates an array with all of the individual ids to be displayed on an ascendancy chart
*
* the id in position 1 is the root person. The other positions are filled according to the following algorithm
* if an individual is at position $i then individual $i’s father will occupy position ($i*2) and $i’s mother
* will occupy ($i*2)+1
*
* @param string $rootid
* @param int $maxgen
*
* @return array $treeid
*/
function ancestry_array($rootid, $maxgen = 0)
{
global $PEDIGREE_GENERATIONS;
// -- maximum size of the id array
if ($maxgen == 0) {
$maxgen = $PEDIGREE_GENERATIONS;
}
$treesize = pow(2, $maxgen);
$treeid = array();
$treeid[0] = "";
$treeid[1] = $rootid;
// -- fill in the id array
for ($i = 1; $i < $treesize / 2; $i++) {
$treeid[$i * 2] = false;
// -- father
$treeid[$i * 2 + 1] = false;
// -- mother
$person = WT_Individual::getInstance($treeid[$i]);
if ($person) {
$family = $person->getPrimaryChildFamily();
if ($family) {
if ($family->getHusband()) {
$treeid[$i * 2] = $family->getHusband()->getXref();
}
if ($family->getWife()) {
$treeid[$i * 2 + 1] = $family->getWife()->getXref();
}
}
}
}
return $treeid;
}
function print_media_links($factrec, $level)
{
global $SEARCH_SPIDER, $HIDE_GEDCOM_ERRORS;
$nlevel = $level + 1;
if (preg_match_all("/{$level} OBJE @(.*)@/", $factrec, $omatch, PREG_SET_ORDER) == 0) {
return;
}
$objectNum = 0;
while ($objectNum < count($omatch)) {
$media_id = $omatch[$objectNum][1];
$media = WT_Media::getInstance($media_id);
if ($media) {
if ($media->canShow()) {
if ($objectNum > 0) {
echo '<br class="media-separator" style="clear:both;">';
}
echo '<div class="media-display"><div class="media-display-image">';
echo $media->displayImage();
echo '</div>';
// close div "media-display-image"
echo '<div class="media-display-title">';
if ($SEARCH_SPIDER) {
echo $media->getFullName();
} else {
echo '<a href="mediaviewer.php?mid=', $media->getXref(), '&ged=', WT_GEDURL, '">', $media->getFullName(), '</a>';
}
// NOTE: echo the notes of the media
echo '<p>';
echo print_fact_notes($media->getGedcom(), 1);
$ttype = preg_match("/" . ($nlevel + 1) . " TYPE (.*)/", $media->getGedcom(), $match);
if ($ttype > 0) {
$mediaType = WT_Gedcom_Tag::getFileFormTypeValue($match[1]);
echo '<p class="label">', WT_I18N::translate('Type'), ': </span> <span class="field">', $mediaType, '</p>';
}
echo '</p>';
//-- print spouse name for marriage events
$ct = preg_match("/WT_SPOUSE: (.*)/", $factrec, $match);
if ($ct > 0) {
$spouse = WT_Individual::getInstance($match[1]);
if ($spouse) {
echo '<a href="', $spouse->getHtmlUrl(), '">';
echo $spouse->getFullName();
echo '</a>';
}
if (empty($SEARCH_SPIDER)) {
$ct = preg_match("/WT_FAMILY_ID: (.*)/", $factrec, $match);
if ($ct > 0) {
$famid = trim($match[1]);
$family = WT_Family::getInstance($famid);
if ($family) {
if ($spouse) {
echo " - ";
}
echo '<a href="', $family->getHtmlUrl(), '">', WT_I18N::translate('View family'), '</a>';
}
}
}
}
echo print_fact_notes($media->getGedcom(), $nlevel);
echo print_fact_sources($media->getGedcom(), $nlevel);
echo '</div>';
//close div "media-display-title"
echo '</div>';
//close div "media-display"
}
} elseif (!$HIDE_GEDCOM_ERRORS) {
echo '<p class="ui-state-error">', $media_id, '</p>';
}
$objectNum++;
}
}
/**
* Generate both the HTML and PNG components of the fan chart
*
* The HTML and PNG components both require the same co-ordinate calculations,
* so we generate them using the same code, but we send them in separate
* HTTP requests.
*
* @param string $what "png" or "html"
* @param string[] $fanChart Presentation parameters, provided by the theme.
*
* @return string
*/
public function generate_fan_chart($what, $fanChart)
{
$treeid = ancestry_array($this->root->getXref(), $this->generations);
$fanw = 640 * $this->fan_width / 100;
$fandeg = 90 * $this->fan_style;
$html = '';
$treesize = count($treeid);
// generations count
$gen = log($treesize) / log(2) - 1;
$sosa = $treesize - 1;
// fan size
if ($fandeg == 0) {
$fandeg = 360;
}
$fandeg = min($fandeg, 360);
$fandeg = max($fandeg, 90);
$cx = $fanw / 2 - 1;
// center x
$cy = $cx;
// center y
$rx = $fanw - 1;
$rw = $fanw / ($gen + 1);
$fanh = $fanw;
// fan height
if ($fandeg == 180) {
$fanh = round($fanh * ($gen + 1) / ($gen * 2));
}
if ($fandeg == 270) {
$fanh = round($fanh * 0.86);
}
$scale = $fanw / 640;
// image init
$image = ImageCreate($fanw, $fanh);
$white = ImageColorAllocate($image, 0xff, 0xff, 0xff);
ImageFilledRectangle($image, 0, 0, $fanw, $fanh, $white);
ImageColorTransparent($image, $white);
$color = ImageColorAllocate($image, hexdec(substr($fanChart['color'], 1, 2)), hexdec(substr($fanChart['color'], 3, 2)), hexdec(substr($fanChart['color'], 5, 2)));
$bgcolor = ImageColorAllocate($image, hexdec(substr($fanChart['bgColor'], 1, 2)), hexdec(substr($fanChart['bgColor'], 3, 2)), hexdec(substr($fanChart['bgColor'], 5, 2)));
$bgcolorM = ImageColorAllocate($image, hexdec(substr($fanChart['bgMColor'], 1, 2)), hexdec(substr($fanChart['bgMColor'], 3, 2)), hexdec(substr($fanChart['bgMColor'], 5, 2)));
$bgcolorF = ImageColorAllocate($image, hexdec(substr($fanChart['bgFColor'], 1, 2)), hexdec(substr($fanChart['bgFColor'], 3, 2)), hexdec(substr($fanChart['bgFColor'], 5, 2)));
// imagemap
$imagemap = '<map id="fanmap" name="fanmap">';
// loop to create fan cells
while ($gen >= 0) {
// clean current generation area
$deg2 = 360 + ($fandeg - 180) / 2;
$deg1 = $deg2 - $fandeg;
ImageFilledArc($image, $cx, $cy, $rx, $rx, $deg1, $deg2, $bgcolor, IMG_ARC_PIE);
$rx -= 3;
// calculate new angle
$p2 = pow(2, $gen);
$angle = $fandeg / $p2;
$deg2 = 360 + ($fandeg - 180) / 2;
$deg1 = $deg2 - $angle;
// special case for rootid cell
if ($gen == 0) {
$deg1 = 90;
$deg2 = 360 + $deg1;
}
// draw each cell
while ($sosa >= $p2) {
$pid = $treeid[$sosa];
$person = WT_Individual::getInstance($pid);
if ($person) {
$name = $person->getFullName();
$addname = $person->getAddName();
$text = WT_I18N::reverseText($name);
if ($addname) {
$text .= "\n" . WT_I18N::reverseText($addname);
}
$text .= "\n" . WT_I18N::reverseText($person->getLifeSpan());
switch ($person->getSex()) {
case 'M':
$bg = $bgcolorM;
break;
case 'F':
$bg = $bgcolorF;
break;
case 'U':
$bg = $bgcolor;
break;
}
ImageFilledArc($image, $cx, $cy, $rx, $rx, $deg1, $deg2, $bg, IMG_ARC_PIE);
// split and center text by lines
$wmax = (int) ($angle * 7 / $fanChart['size'] * $scale);
$wmax = min($wmax, 35 * $scale);
if ($gen == 0) {
$wmax = min($wmax, 17 * $scale);
}
$text = $this->split_align_text($text, $wmax);
// text angle
$tangle = 270 - ($deg1 + $angle / 2);
if ($gen == 0) {
$tangle = 0;
}
// calculate text position
$deg = $deg1 + 0.44;
if ($deg2 - $deg1 > 40) {
$deg = $deg1 + ($deg2 - $deg1) / 11;
}
if ($deg2 - $deg1 > 80) {
$deg = $deg1 + ($deg2 - $deg1) / 7;
}
if ($deg2 - $deg1 > 140) {
$deg = $deg1 + ($deg2 - $deg1) / 4;
}
if ($gen == 0) {
$deg = 180;
}
$rad = deg2rad($deg);
$mr = ($rx - $rw / 4) / 2;
if ($gen > 0 && $deg2 - $deg1 > 80) {
$mr = $rx / 2;
}
$tx = $cx + $mr * cos($rad);
$ty = $cy - $mr * -sin($rad);
if ($sosa == 1) {
$ty -= $mr / 2;
}
// print text
ImageTtfText($image, (double) $fanChart['size'], $tangle, $tx, $ty, $color, $fanChart['font'], $text);
$imagemap .= '<area shape="poly" coords="';
// plot upper points
$mr = $rx / 2;
$deg = $deg1;
while ($deg <= $deg2) {
$rad = deg2rad($deg);
$tx = round($cx + $mr * cos($rad));
$ty = round($cy - $mr * -sin($rad));
$imagemap .= "{$tx},{$ty},";
$deg += ($deg2 - $deg1) / 6;
}
// plot lower points
$mr = ($rx - $rw) / 2;
$deg = $deg2;
while ($deg >= $deg1) {
$rad = deg2rad($deg);
$tx = round($cx + $mr * cos($rad));
$ty = round($cy - $mr * -sin($rad));
$imagemap .= "{$tx},{$ty},";
$deg -= ($deg2 - $deg1) / 6;
}
// join first point
$mr = $rx / 2;
$deg = $deg1;
$rad = deg2rad($deg);
$tx = round($cx + $mr * cos($rad));
$ty = round($cy - $mr * -sin($rad));
$imagemap .= "{$tx},{$ty}";
// add action url
$imagemap .= '" href="#' . $pid . '"';
$tempURL = 'fanchart.php?rootid=' . $pid . '&generations=' . $this->generations . '&fan_width=' . $this->fan_width . '&fan_style=' . $this->fan_style . '&ged=' . WT_GEDURL;
$html .= '<div id="' . $pid . '" class="fan_chart_menu">';
$html .= '<div class="person_box"><div class="details1">';
$html .= '<a href="' . $person->getHtmlUrl() . '" class="name1">' . $name;
if ($addname) {
$html .= $addname;
}
$html .= '</a>';
$html .= '<ul class="charts">';
$html .= "<li><a href=\"pedigree.php?rootid={$pid}&amp;ged=" . WT_GEDURL . "\" >" . WT_I18N::translate('Pedigree') . "</a></li>";
if (array_key_exists('googlemap', WT_Module::getActiveModules())) {
$html .= "<li><a href=\"module.php?mod=googlemap&mod_action=pedigree_map&rootid=" . $pid . "&ged=" . WT_GEDURL . "\">" . WT_I18N::translate('Pedigree map') . "</a></li>";
}
if (WT_USER_GEDCOM_ID && WT_USER_GEDCOM_ID != $pid) {
$html .= "<li><a href=\"relationship.php?pid1=" . WT_USER_GEDCOM_ID . "&pid2={$pid}&ged=" . WT_GEDURL . "\">" . WT_I18N::translate('Relationship to me') . "</a></li>";
}
$html .= "<li><a href=\"descendancy.php?rootid={$pid}&ged=" . WT_GEDURL . "\" >" . WT_I18N::translate('Descendants') . "</a></li>";
$html .= "<li><a href=\"ancestry.php?rootid={$pid}&ged=" . WT_GEDURL . "\">" . WT_I18N::translate('Ancestors') . "</a></li>";
$html .= "<li><a href=\"compact.php?rootid={$pid}&ged=" . WT_GEDURL . "\">" . WT_I18N::translate('Compact tree') . "</a></li>";
$html .= "<li><a href=\"" . $tempURL . "\">" . WT_I18N::translate('Fan chart') . "</a></li>";
$html .= "<li><a href=\"hourglass.php?rootid={$pid}&ged=" . WT_GEDURL . "\">" . WT_I18N::translate('Hourglass chart') . "</a></li>";
if (array_key_exists('tree', WT_Module::getActiveModules())) {
$html .= '<li><a href="module.php?mod=tree&mod_action=treeview&ged=' . WT_GEDURL . '&rootid=' . $pid . '">' . WT_I18N::translate('Interactive tree') . '</a></li>';
}
$html .= '</ul>';
// spouse(s) and children
foreach ($person->getSpouseFamilies() as $family) {
$spouse = $family->getSpouse($person);
if ($spouse) {
$html .= '<a href="' . $spouse->getHtmlUrl() . '" class="name1">' . $spouse->getFullName() . '</a>';
$kids = $family->getChildren();
if ($kids) {
$html .= '<ul class="children">';
foreach ($kids as $child) {
$html .= '<li><a href="' . $child->getHtmlUrl() . '" class="name1">' . $child->getFullName() . '</a></li>';
}
$html .= '</ul>';
}
}
}
// siblings
foreach ($person->getChildFamilies() as $family) {
$children = $family->getChildren();
if ($children) {
$html .= '<div class="name1">' . WT_I18N::plural('Sibling', 'Siblings', count($children) - 1) . '</div>';
$html .= '<ul class="siblings">';
foreach ($children as $sibling) {
if ($sibling !== $person) {
$html .= '<li><a href="' . $sibling->getHtmlUrl() . '" class="name1"> ' . $sibling->getFullName() . '</a></li>';
}
}
$html .= '</ul>';
}
}
$html .= '</div></div>';
$html .= '</div>';
$imagemap .= ' alt="' . strip_tags($person->getFullName()) . '" title="' . strip_tags($person->getFullName()) . '">';
}
$deg1 -= $angle;
$deg2 -= $angle;
$sosa--;
}
$rx -= $rw;
$gen--;
}
$imagemap .= '</map>';
switch ($what) {
case 'html':
$image_title = WT_I18N::translate('Fan chart of %s', strip_tags($person->getFullName()));
return $html . $imagemap . '<div id="fan_chart_img"><img src="' . WT_SCRIPT_NAME . '?rootid=' . $this->rootid . '&fan_style=' . $this->fan_style . '&generations=' . $this->generations . '&fan_width=' . $this->fan_width . '&img=1" width="' . $fanw . '" height="' . $fanh . '" alt="' . $image_title . '" title="' . $image_title . '" usemap="#fanmap"></div>';
case 'png':
header('Content-Type: image/png');
ImageStringUp($image, 1, $fanw - 10, $fanh / 3, WT_SERVER_NAME . WT_SCRIPT_PATH, $color);
ImagePng($image);
ImageDestroy($image);
}
}
function format_indi_table($datalist, $option = '')
{
global $GEDCOM, $SHOW_LAST_CHANGE, $SEARCH_SPIDER, $MAX_ALIVE_AGE, $controller;
$table_id = 'table-indi-' . Uuid::uuid4();
// lists requires a unique ID in case there are multiple lists per page
$SHOW_EST_LIST_DATES = get_gedcom_setting(WT_GED_ID, 'SHOW_EST_LIST_DATES');
$controller->addExternalJavascript(WT_JQUERY_DATATABLES_URL)->addInlineJavascript('
jQuery.fn.dataTableExt.oSort["unicode-asc" ]=function(a,b) {return a.replace(/<[^<]*>/, "").localeCompare(b.replace(/<[^<]*>/, ""))};
jQuery.fn.dataTableExt.oSort["unicode-desc" ]=function(a,b) {return b.replace(/<[^<]*>/, "").localeCompare(a.replace(/<[^<]*>/, ""))};
jQuery.fn.dataTableExt.oSort["num-html-asc" ]=function(a,b) {a=parseFloat(a.replace(/<[^<]*>/, "")); b=parseFloat(b.replace(/<[^<]*>/, "")); return (a<b) ? -1 : (a>b ? 1 : 0);};
jQuery.fn.dataTableExt.oSort["num-html-desc"]=function(a,b) {a=parseFloat(a.replace(/<[^<]*>/, "")); b=parseFloat(b.replace(/<[^<]*>/, "")); return (a>b) ? -1 : (a<b ? 1 : 0);};
jQuery("#' . $table_id . '").dataTable( {
dom: \'<"H"<"filtersH_' . $table_id . '">T<"dt-clear">pf<"dt-clear">irl>t<"F"pl<"dt-clear"><"filtersF_' . $table_id . '">>\',
' . WT_I18N::datatablesI18N() . ',
jQueryUI: true,
autoWidth: false,
processing: true,
retrieve: true,
columns: [
/* 0 givn */ { dataSort: 2 },
/* 1 surn */ { dataSort: 3 },
/* 2 GIVN,SURN */ { type: "unicode", visible: false },
/* 3 SURN,GIVN */ { type: "unicode", visible: false },
/* 4 sosa */ { dataSort: 5, class: "center", visible: ' . ($option == 'sosa' ? 'true' : 'false') . ' },
/* 5 SOSA */ { type: "num", visible: false },
/* 6 birt date */ { dataSort: 7 },
/* 7 BIRT:DATE */ { visible: false },
/* 8 anniv */ { dataSort: 7, class: "center" },
/* 9 birt plac */ { type: "unicode" },
/* 10 children */ { dataSort: 11, class: "center" },
/* 11 children */ { type: "num", visible: false },
/* 12 deat date */ { dataSort: 13 },
/* 13 DEAT:DATE */ { visible: false },
/* 14 anniv */ { dataSort: 13, class: "center" },
/* 15 age */ { dataSort: 16, class: "center" },
/* 16 AGE */ { type: "num", visible: false },
/* 17 deat plac */ { type: "unicode" },
/* 18 CHAN */ { dataSort: 19, visible: ' . ($SHOW_LAST_CHANGE ? 'true' : 'false') . ' },
/* 19 CHAN_sort */ { visible: false },
/* 20 SEX */ { visible: false },
/* 21 BIRT */ { visible: false },
/* 22 DEAT */ { visible: false },
/* 23 TREE */ { visible: false }
],
sorting: [[' . ($option == 'sosa' ? '4, "asc"' : '1, "asc"') . ']],
displayLength: 20,
pagingType: "full_numbers"
});
jQuery("#' . $table_id . '")
/* Hide/show parents */
.on("click", ".btn-toggle-parents", function() {
jQuery(this).toggleClass("ui-state-active");
jQuery(".parents", jQuery(this).closest("table").DataTable().rows().nodes()).slideToggle();
})
/* Hide/show statistics */
.on("click", ".btn-toggle-statistics", function() {
jQuery(this).toggleClass("ui-state-active");
jQuery("#indi_list_table-charts_' . $table_id . '").slideToggle();
})
/* Filter buttons in table header */
.on("click", "button[data-filter-column]", function() {
var btn = jQuery(this);
// De-activate the other buttons in this button group
btn.siblings().removeClass("ui-state-active");
// Apply (or clear) this filter
var col = jQuery("#' . $table_id . '").DataTable().column(btn.data("filter-column"));
if (btn.hasClass("ui-state-active")) {
btn.removeClass("ui-state-active");
col.search("").draw();
} else {
btn.addClass("ui-state-active");
col.search(btn.data("filter-value")).draw();
}
});
jQuery(".indi-list").css("visibility", "visible");
jQuery(".loading-image").css("display", "none");
');
$stats = new WT_Stats($GEDCOM);
// Bad data can cause "longest life" to be huge, blowing memory limits
$max_age = min($MAX_ALIVE_AGE, $stats->LongestLifeAge()) + 1;
// Inititialise chart data
for ($age = 0; $age <= $max_age; $age++) {
$deat_by_age[$age] = '';
}
for ($year = 1550; $year < 2030; $year += 10) {
$birt_by_decade[$year] = '';
$deat_by_decade[$year] = '';
}
$html = '
<div class="loading-image"> </div>
<div class="indi-list">
<table id="' . $table_id . '">
<thead>
<tr>
<th colspan="24">
<div class="btn-toolbar">
<div class="btn-group">
<button
class="ui-state-default"
data-filter-column="20"
data-filter-value="M"
title="' . WT_I18N::translate('Show only males.') . '"
type="button"
>
' . WT_Individual::sexImage('M', 'large') . '
</button>
<button
class="ui-state-default"
data-filter-column="20"
data-filter-value="F"
title="' . WT_I18N::translate('Show only females.') . '"
type="button"
>
' . WT_Individual::sexImage('F', 'large') . '
</button>
<button
class="ui-state-default"
data-filter-column="20"
data-filter-value="U"
title="' . WT_I18N::translate('Show only individuals for whom the gender is not known.') . '"
type="button"
>
' . WT_Individual::sexImage('U', 'large') . '
</button>
</div>
<div class="btn-group">
<button
class="ui-state-default"
data-filter-column="22"
data-filter-value="N"
title="' . WT_I18N::translate('Show individuals who are alive or couples where both partners are alive.') . '"
type="button"
>
' . WT_I18N::translate('Alive') . '
</button>
<button
class="ui-state-default"
data-filter-column="22"
data-filter-value="Y"
title="' . WT_I18N::translate('Show individuals who are dead or couples where both partners are deceased.') . '"
type="button"
>
' . WT_I18N::translate('Dead') . '
</button>
<button
class="ui-state-default"
data-filter-column="22"
data-filter-value="YES"
title="' . WT_I18N::translate('Show individuals who died more than 100 years ago.') . '"
type="button"
>
' . WT_Gedcom_Tag::getLabel('DEAT') . '>100
</button>
<button
class="ui-state-default"
data-filter-column="22"
data-filter-value="Y100"
title="' . WT_I18N::translate('Show individuals who died within the last 100 years.') . '"
type="button"
>
' . WT_Gedcom_Tag::getLabel('DEAT') . '<=100
</button>
</div>
<div class="btn-group">
<button
class="ui-state-default"
data-filter-column="21"
data-filter-value="YES"
title="' . WT_I18N::translate('Show individuals born more than 100 years ago.') . '"
type="button"
>
' . WT_Gedcom_Tag::getLabel('BIRT') . '>100
</button>
<button
class="ui-state-default"
data-filter-column="21"
data-filter-value="Y100"
title="' . WT_I18N::translate('Show individuals born within the last 100 years.') . '"
type="button"
>
' . WT_Gedcom_Tag::getLabel('BIRT') . '<=100
</button>
</div>
<div class="btn-group">
<button
class="ui-state-default"
data-filter-column="23"
data-filter-value="R"
title="' . WT_I18N::translate('Show “roots” couples or individuals. These individuals may also be called “patriarchs”. They are individuals who have no parents recorded in the database.') . '"
type="button"
>
' . WT_I18N::translate('Roots') . '
</button>
<button
class="ui-state-default"
data-filter-column="23"
data-filter-value="L"
title="' . WT_I18N::translate('Show “leaves” couples or individuals. These are individuals who are alive but have no children recorded in the database.') . '"
type="button"
>
' . WT_I18N::translate('Leaves') . '
</button>
</div>
</div>
</th>
</tr>
<tr>
<th>' . WT_Gedcom_Tag::getLabel('GIVN') . '</th>
<th>' . WT_Gedcom_Tag::getLabel('SURN') . '</th>
<th>GIVN</th>
<th>SURN</th>
<th>' . WT_I18N::translate('Sosa') . '</th>
<th>SOSA</th>
<th>' . WT_Gedcom_Tag::getLabel('BIRT') . '</th>
<th>SORT_BIRT</th>
<th><i class="icon-reminder" title="' . WT_I18N::translate('Anniversary') . '"></i></th>
<th>' . WT_Gedcom_Tag::getLabel('PLAC') . '</th>
<th><i class="icon-children" title="' . WT_I18N::translate('Children') . '"></i></th>
<th>NCHI</th>
<th>' . WT_Gedcom_Tag::getLabel('DEAT') . '</th>
<th>SORT_DEAT</th>
<th><i class="icon-reminder" title="' . WT_I18N::translate('Anniversary') . '"></i></th>
<th>' . WT_Gedcom_Tag::getLabel('AGE') . '</th>
<th>AGE</th>
<th>' . WT_Gedcom_Tag::getLabel('PLAC') . '</th>
<th>' . WT_Gedcom_Tag::getLabel('CHAN') . '</th>
<th>CHAN</th>
<th>SEX</th>
<th>BIRT</th>
<th>DEAT</th>
<th>TREE</th>
</tr>
</thead>
<tfoot>
<tr>
<th colspan="24">
<div class="btn-toolbar">
<div class="btn-group">
<button type="button" class="ui-state-default btn-toggle-parents">
' . WT_I18N::translate('Show parents') . '
</button>
<button type="button" class="ui-state-default btn-toggle-statistics">
' . WT_I18N::translate('Show statistics charts') . '
</button>
</div>
</div>
</th>
</tr>
</tfoot>
<tbody>';
$d100y = new WT_Date(date('Y') - 100);
// 100 years ago
$unique_indis = array();
// Don't double-count indis with multiple names.
foreach ($datalist as $key => $value) {
if (is_object($value)) {
// Array of objects
$person = $value;
} elseif (!is_array($value)) {
// Array of IDs
$person = WT_Individual::getInstance($value);
} else {
// Array of search results
$gid = $key;
if (isset($value['gid'])) {
$gid = $value['gid'];
}
// from indilist
if (isset($value[4])) {
$gid = $value[4];
}
// from indilist ALL
$person = WT_Individual::getInstance($gid);
}
if (!$person || !$person->canShowName()) {
continue;
}
if ($person->isNew()) {
$class = ' class="new"';
} elseif ($person->isOld()) {
$class = ' class="old"';
} else {
$class = '';
}
$html .= '<tr' . $class . '>';
//-- Indi name(s)
$html .= '<td colspan="2">';
foreach ($person->getAllNames() as $num => $name) {
if ($name['type'] == 'NAME') {
$title = '';
} else {
$title = 'title="' . strip_tags(WT_Gedcom_Tag::getLabel($name['type'], $person)) . '"';
}
if ($num == $person->getPrimaryName()) {
$class = ' class="name2"';
$sex_image = $person->getSexImage();
list($surn, $givn) = explode(',', $name['sort']);
} else {
$class = '';
$sex_image = '';
}
$html .= '<a ' . $title . ' href="' . $person->getHtmlUrl() . '"' . $class . '>' . highlight_search_hits($name['full']) . '</a>' . $sex_image . '<br>';
}
// Indi parents
$html .= $person->getPrimaryParentsNames('parents details1', 'none');
$html .= '</td>';
// Dummy column to match colspan in header
$html .= '<td style="display:none;"></td>';
//-- GIVN/SURN
// Use "AAAA" as a separator (instead of ",") as Javascript.localeCompare() ignores
// punctuation and "ANN,ROACH" would sort after "ANNE,ROACH", instead of before it.
// Similarly, @N.N. would sort as NN.
$html .= '<td>' . WT_Filter::escapeHtml(str_replace('@P.N.', 'AAAA', $givn)) . 'AAAA' . WT_Filter::escapeHtml(str_replace('@N.N.', 'AAAA', $surn)) . '</td>';
$html .= '<td>' . WT_Filter::escapeHtml(str_replace('@N.N.', 'AAAA', $surn)) . 'AAAA' . WT_Filter::escapeHtml(str_replace('@P.N.', 'AAAA', $givn)) . '</td>';
//-- SOSA
if ($option == 'sosa') {
$html .= '<td><a href="relationship.php?pid1=' . $datalist[1] . '&pid2=' . $person->getXref() . '" title="' . WT_I18N::translate('Relationships') . '">' . WT_I18N::number($key) . '</a></td><td>' . $key . '</td>';
} else {
$html .= '<td> </td><td>0</td>';
}
//-- Birth date
$html .= '<td>';
if ($birth_dates = $person->getAllBirthDates()) {
foreach ($birth_dates as $num => $birth_date) {
if ($num) {
$html .= '<br>';
}
$html .= $birth_date->Display(!$SEARCH_SPIDER);
}
if ($birth_dates[0]->gregorianYear() >= 1550 && $birth_dates[0]->gregorianYear() < 2030 && !isset($unique_indis[$person->getXref()])) {
$birt_by_decade[(int) ($birth_dates[0]->gregorianYear() / 10) * 10] .= $person->getSex();
}
} else {
$birth_date = $person->getEstimatedBirthDate();
if ($SHOW_EST_LIST_DATES) {
$html .= $birth_date->Display(!$SEARCH_SPIDER);
} else {
$html .= ' ';
}
$birth_dates[0] = new WT_Date('');
}
$html .= '</td>';
//-- Event date (sortable)hidden by datatables code
$html .= '<td>' . $birth_date->JD() . '</td>';
//-- Birth anniversary
$html .= '<td>' . WT_Date::getAge($birth_dates[0], null, 2) . '</td>';
//-- Birth place
$html .= '<td>';
foreach ($person->getAllBirthPlaces() as $n => $birth_place) {
$tmp = new WT_Place($birth_place, WT_GED_ID);
if ($n) {
$html .= '<br>';
}
if ($SEARCH_SPIDER) {
$html .= $tmp->getShortName();
} else {
$html .= '<a href="' . $tmp->getURL() . '" title="' . strip_tags($tmp->getFullName()) . '">';
$html .= highlight_search_hits($tmp->getShortName()) . '</a>';
}
}
$html .= '</td>';
//-- Number of children
$nchi = $person->getNumberOfChildren();
$html .= '<td>' . WT_I18N::number($nchi) . '</td><td>' . $nchi . '</td>';
//-- Death date
$html .= '<td>';
if ($death_dates = $person->getAllDeathDates()) {
foreach ($death_dates as $num => $death_date) {
if ($num) {
$html .= '<br>';
}
$html .= $death_date->Display(!$SEARCH_SPIDER);
}
if ($death_dates[0]->gregorianYear() >= 1550 && $death_dates[0]->gregorianYear() < 2030 && !isset($unique_indis[$person->getXref()])) {
$deat_by_decade[(int) ($death_dates[0]->gregorianYear() / 10) * 10] .= $person->getSex();
}
} else {
$death_date = $person->getEstimatedDeathDate();
if ($SHOW_EST_LIST_DATES) {
$html .= $death_date->Display(!$SEARCH_SPIDER);
} else {
if ($person->isDead()) {
$html .= WT_I18N::translate('yes');
} else {
$html .= ' ';
}
}
$death_dates[0] = new WT_Date('');
}
$html .= '</td>';
//-- Event date (sortable)hidden by datatables code
$html .= '<td>' . $death_date->JD() . '</td>';
//-- Death anniversary
$html .= '<td>' . WT_Date::getAge($death_dates[0], null, 2) . '</td>';
//-- Age at death
$age = WT_Date::getAge($birth_dates[0], $death_dates[0], 0);
if (!isset($unique_indis[$person->getXref()]) && $age >= 0 && $age <= $max_age) {
$deat_by_age[$age] .= $person->getSex();
}
// Need both display and sortable age
$html .= '<td>' . WT_Date::getAge($birth_dates[0], $death_dates[0], 2) . '</td><td>' . WT_Date::getAge($birth_dates[0], $death_dates[0], 1) . '</td>';
//-- Death place
$html .= '<td>';
foreach ($person->getAllDeathPlaces() as $n => $death_place) {
$tmp = new WT_Place($death_place, WT_GED_ID);
if ($n) {
$html .= '<br>';
}
if ($SEARCH_SPIDER) {
$html .= $tmp->getShortName();
} else {
$html .= '<a href="' . $tmp->getURL() . '" title="' . strip_tags($tmp->getFullName()) . '">';
$html .= highlight_search_hits($tmp->getShortName()) . '</a>';
}
}
$html .= '</td>';
//-- Last change
if ($SHOW_LAST_CHANGE) {
$html .= '<td>' . $person->lastChangeTimestamp() . '</td>';
} else {
$html .= '<td> </td>';
}
//-- Last change hidden sort column
if ($SHOW_LAST_CHANGE) {
$html .= '<td>' . $person->lastChangeTimestamp(true) . '</td>';
} else {
$html .= '<td> </td>';
}
//-- Sorting by gender
$html .= '<td>';
$html .= $person->getSex();
$html .= '</td>';
//-- Filtering by birth date
$html .= '<td>';
if (!$person->canShow() || WT_Date::Compare($birth_date, $d100y) > 0) {
$html .= 'Y100';
} else {
$html .= 'YES';
}
$html .= '</td>';
//-- Filtering by death date
$html .= '<td>';
// Died in last 100 years? Died? Not dead?
if (WT_Date::Compare($death_date, $d100y) > 0) {
$html .= 'Y100';
} elseif ($death_date->minJD() || $person->isDead()) {
$html .= 'YES';
} else {
$html .= 'N';
}
$html .= '</td>';
//-- Roots or Leaves ?
$html .= '<td>';
if (!$person->getChildFamilies()) {
$html .= 'R';
} elseif (!$person->isDead() && $person->getNumberOfChildren() < 1) {
$html .= 'L';
} else {
$html .= ' ';
}
$html .= '</td>';
$html .= '</tr>';
$unique_indis[$person->getXref()] = true;
}
$html .= '
</tbody>
</table>
<div id="indi_list_table-charts_' . $table_id . '" style="display:none">
<table class="list-charts">
<tr>
<td>
' . print_chart_by_decade($birt_by_decade, WT_I18N::translate('Decade of birth')) . '
</td>
<td>
' . print_chart_by_decade($deat_by_decade, WT_I18N::translate('Decade of death')) . '
</td>
</tr>
<tr>
<td colspan="2">
' . print_chart_by_age($deat_by_age, WT_I18N::translate('Age related to death year')) . '
</td>
</tr>
</table>
</div>
</div>';
return $html;
}
//
// This program is free software; you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation; either version 2 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
$xref = WT_Filter::get('xref', WT_REGEX_XREF);
$person = WT_Individual::getInstance($xref);
check_record_access($person);
$controller->setPageTitle(WT_I18N::translate('Create a new shared note using assistant'))->addInlineJavascript('jQuery("head").append(\'<link rel="stylesheet" href="' . WT_STATIC_URL . WT_MODULES_DIR . 'GEDFact_assistant/css/cens_style.css" type="text/css">\');')->pageHeader();
echo '<div id="edit_interface-page">';
echo '<h3>', $controller->getPageTitle(), ' ';
// When more languages are added to the wiki, we can expand or redesign this
switch (WT_LOCALE) {
case 'fr':
echo wiki_help_link('/fr/Module_Assistant_Recensement');
break;
case 'en':
default:
echo wiki_help_link('/en/Census_Assistant_module');
break;
}
echo '</h3>';
}
break;
case 'masquerade':
$user = User::find(WT_Filter::postInteger('user_id'));
if ($user && Auth::isAdmin() && Auth::user() !== $user) {
Log::addAuthenticationLog('Masquerade as user: '******'HTTP/1.0 406 Not Acceptable');
}
break;
case 'unlink-media':
// Remove links from an individual and their spouse-family records to a media object.
// Used by the "unlink" option on the album (lightbox) tab.
require WT_ROOT . 'includes/functions/functions_edit.php';
$source = WT_Individual::getInstance(WT_Filter::post('source', WT_REGEX_XREF));
$target = WT_Filter::post('target', WT_REGEX_XREF);
if ($source && $source->canShow() && $source->canEdit() && $target) {
// Consider the individual and their spouse-family records
$sources = $source->getSpouseFamilies();
$sources[] = $source;
foreach ($sources as $source) {
foreach ($source->getFacts() as $fact) {
if (!$fact->isOld()) {
if ($fact->getValue() == '@' . $target . '@') {
// Level 1 links
$source->deleteFact($fact->getFactId(), true);
} elseif (strpos($fact->getGedcom(), ' @' . $target . '@')) {
// Level 2-3 links
$source->updateFact($fact->getFactId(), preg_replace(array('/\\n2 OBJE @' . $target . '@(\\n[3-9].*)*/', '/\\n3 OBJE @' . $target . '@(\\n[4-9].*)*/'), '', $fact->getGedcom()), true);
}
function create_edit_form(WT_GedcomRecord $record, WT_Fact $fact)
{
global $ADVANCED_PLAC_FACTS, $date_and_time, $FULL_SOURCES, $tags;
$pid = $record->getXref();
$tags = array();
$gedlines = explode("\n", $fact->getGedcom());
$linenum = 0;
$fields = explode(' ', $gedlines[$linenum]);
$glevel = $fields[0];
$level = $glevel;
$type = $fact->getTag();
$parent = $fact->getParent();
$level0type = $parent::RECORD_TYPE;
$level1type = $type;
$i = $linenum;
$inSource = false;
$levelSource = 0;
$add_date = true;
// List of tags we would expect at the next level
// NB add_missing_subtags() already takes care of the simple cases
// where a level 1 tag is missing a level 2 tag. Here we only need to
// handle the more complicated cases.
$expected_subtags = array('SOUR' => array('PAGE', 'DATA'), 'DATA' => array('TEXT'), 'PLAC' => array('MAP'), 'MAP' => array('LATI', 'LONG'));
if ($FULL_SOURCES) {
$expected_subtags['SOUR'][] = 'QUAY';
$expected_subtags['DATA'][] = 'DATE';
}
if (preg_match_all('/(' . WT_REGEX_TAG . ')/', $ADVANCED_PLAC_FACTS, $match)) {
$expected_subtags['PLAC'] = array_merge($match[1], $expected_subtags['PLAC']);
}
$stack = array(0 => $level0type);
// Loop on existing tags :
while (true) {
// Keep track of our hierarchy, e.g. 1=>BIRT, 2=>PLAC, 3=>FONE
$stack[(int) $level] = $type;
// Merge them together, e.g. BIRT:PLAC:FONE
$label = implode(':', array_slice($stack, 1, $level));
$text = '';
for ($j = 2; $j < count($fields); $j++) {
if ($j > 2) {
$text .= ' ';
}
$text .= $fields[$j];
}
$text = rtrim($text);
while ($i + 1 < count($gedlines) && preg_match("/" . ($level + 1) . " CONT ?(.*)/", $gedlines[$i + 1], $cmatch) > 0) {
$text .= "\n" . $cmatch[1];
$i++;
}
if ($type == "SOUR") {
$inSource = true;
$levelSource = $level;
} elseif ($levelSource >= $level) {
$inSource = false;
}
if ($type != "DATA" && $type != "CONT") {
$tags[] = $type;
$person = WT_Individual::getInstance($pid);
$subrecord = $level . ' ' . $type . ' ' . $text;
if ($inSource && $type == "DATE") {
add_simple_tag($subrecord, '', WT_Gedcom_Tag::getLabel($label, $person));
} elseif (!$inSource && $type == "DATE") {
add_simple_tag($subrecord, $level1type, WT_Gedcom_Tag::getLabel($label, $person));
$add_date = false;
} elseif ($type == 'STAT') {
add_simple_tag($subrecord, $level1type, WT_Gedcom_Tag::getLabel($label, $person));
} elseif ($level0type == 'REPO') {
$repo = WT_Repository::getInstance($pid);
add_simple_tag($subrecord, $level0type, WT_Gedcom_Tag::getLabel($label, $repo));
} else {
add_simple_tag($subrecord, $level0type, WT_Gedcom_Tag::getLabel($label, $person));
}
}
// Get a list of tags present at the next level
$subtags = array();
for ($ii = $i + 1; isset($gedlines[$ii]) && preg_match('/^\\s*(\\d+)\\s+(\\S+)/', $gedlines[$ii], $mm) && $mm[1] > $level; ++$ii) {
if ($mm[1] == $level + 1) {
$subtags[] = $mm[2];
}
}
// Insert missing tags
if (!empty($expected_subtags[$type])) {
foreach ($expected_subtags[$type] as $subtag) {
if (!in_array($subtag, $subtags)) {
if (!$inSource || $subtag != "DATA") {
add_simple_tag($level + 1 . ' ' . $subtag, '', WT_Gedcom_Tag::getLabel("{$label}:{$subtag}"));
}
if (!empty($expected_subtags[$subtag])) {
foreach ($expected_subtags[$subtag] as $subsubtag) {
add_simple_tag($level + 2 . ' ' . $subsubtag, '', WT_Gedcom_Tag::getLabel("{$label}:{$subtag}:{$subsubtag}"));
}
}
}
}
}
// Awkward special cases
if ($level == 2 && $type == 'DATE' && in_array($level1type, $date_and_time) && !in_array('TIME', $subtags)) {
add_simple_tag("3 TIME");
// TIME is NOT a valid 5.5.1 tag
}
if ($level == 2 && $type == 'STAT' && WT_Gedcom_Code_Temp::isTagLDS($level1type) && !in_array('DATE', $subtags)) {
add_simple_tag("3 DATE", '', WT_Gedcom_Tag::getLabel('STAT:DATE'));
}
$i++;
if (isset($gedlines[$i])) {
$fields = explode(' ', $gedlines[$i]);
$level = $fields[0];
if (isset($fields[1])) {
$type = trim($fields[1]);
} else {
$level = 0;
}
} else {
$level = 0;
}
if ($level <= $glevel) {
break;
}
}
if ($level1type != '_PRIM') {
insert_missing_subtags($level1type, $add_date);
}
return $level1type;
}
public function configureBlock($block_id)
{
global $ctype, $controller;
$PEDIGREE_ROOT_ID = get_gedcom_setting(WT_GED_ID, 'PEDIGREE_ROOT_ID');
if (WT_Filter::postBool('save') && WT_Filter::checkCsrf()) {
set_block_setting($block_id, 'details', WT_Filter::postBool('details'));
set_block_setting($block_id, 'type', WT_Filter::post('type', 'pedigree|descendants|hourglass|treenav', 'pedigree'));
set_block_setting($block_id, 'pid', WT_Filter::post('pid', WT_REGEX_XREF));
exit;
}
$details = get_block_setting($block_id, 'details', false);
$type = get_block_setting($block_id, 'type', 'pedigree');
$pid = get_block_setting($block_id, 'pid', WT_USER_ID ? WT_USER_GEDCOM_ID ? WT_USER_GEDCOM_ID : $PEDIGREE_ROOT_ID : $PEDIGREE_ROOT_ID);
$controller->addExternalJavascript(WT_STATIC_URL . 'js/autocomplete.js')->addInlineJavascript('autocomplete();');
?>
<tr><td class="descriptionbox wrap width33"><?php
echo WT_I18N::translate('Chart type');
?>
</td>
<td class="optionbox">
<select name="type">
<option value="pedigree"<?php
if ($type == "pedigree") {
echo " selected=\"selected\"";
}
?>
><?php
echo WT_I18N::translate('Pedigree');
?>
</option>
<option value="descendants"<?php
if ($type == "descendants") {
echo " selected=\"selected\"";
}
?>
><?php
echo WT_I18N::translate('Descendants');
?>
</option>
<option value="hourglass"<?php
if ($type == "hourglass") {
echo " selected=\"selected\"";
}
?>
><?php
echo WT_I18N::translate('Hourglass chart');
?>
</option>
<option value="treenav"<?php
if ($type == "treenav") {
echo " selected=\"selected\"";
}
?>
><?php
echo WT_I18N::translate('Interactive tree');
?>
</option>
</select>
</td></tr>
<tr>
<td class="descriptionbox wrap width33"><?php
echo WT_I18N::translate('Show details');
?>
</td>
<td class="optionbox">
<select name="details">
<option value="no" <?php
if (!$details) {
echo " selected=\"selected\"";
}
?>
><?php
echo WT_I18N::translate('no');
?>
</option>
<option value="yes" <?php
if ($details) {
echo " selected=\"selected\"";
}
?>
><?php
echo WT_I18N::translate('yes');
?>
</option>
</select>
</td>
</tr>
<tr>
<td class="descriptionbox wrap width33"><?php
echo WT_I18N::translate('Individual');
?>
</td>
<td class="optionbox">
<input data-autocomplete-type="INDI" type="text" name="pid" id="pid" value="<?php
echo $pid;
?>
" size="5">
<?php
echo print_findindi_link('pid');
$root = WT_Individual::getInstance($pid);
if ($root) {
echo ' <span class="list_item">', $root->getFullName(), $root->format_first_major_fact(WT_EVENTS_BIRT, 1), '</span>';
}
?>
</td>
</tr>
<?php
require_once WT_ROOT . 'includes/functions/functions_edit.php';
$block = get_block_setting($block_id, 'block', false);
echo '<tr><td class="descriptionbox wrap width33">';
echo WT_I18N::translate('Add a scrollbar when block contents grow');
echo '</td><td class="optionbox">';
echo edit_field_yes_no('block', $block);
echo '</td></tr>';
}
global $tags, $values;
$indexes = $tags[$tag];
$vals = array();
foreach ($indexes as $i) {
$vals[] = $values[$i];
}
return $vals;
}
//-- setup the arrays
$newvars = array();
foreach ($vars as $name => $var) {
$newvars[$name]['id'] = $var;
if (!empty($type[$name])) {
switch ($type[$name]) {
case 'INDI':
$record = WT_Individual::getInstance($var);
if ($record && $record->canShowName()) {
$newvars[$name]['gedcom'] = $record->privatizeGedcom(WT_USER_ACCESS_LEVEL);
} else {
$action = 'setup';
}
break;
case 'FAM':
$record = WT_Family::getInstance($var);
if ($record && $record->canShowName()) {
$newvars[$name]['gedcom'] = $record->privatizeGedcom(WT_USER_ACCESS_LEVEL);
} else {
$action = 'setup';
}
break;
case 'SOUR':
echo '</tr>';
}
echo "</table>";
echo "</td></tr></table>";
echo '</td></tr>';
}
if (!isset($linktoid)) {
$linktoid = "";
}
echo '<tr><td class="descriptionbox wrap">';
echo WT_I18N::translate('Add links');
echo '<td class="optionbox wrap ">';
if ($linktoid == "") {
// ----
} else {
$record = WT_Individual::getInstance($linktoid);
echo '<b>', $record->getFullName(), '</b>';
}
echo '<table><tr><td>';
echo '<input type="text" data-autocomplete-type="IFS" name="gid" id="gid" size="6" value="">';
// echo ' Enter Name or ID <b>OR</b> Search for ID ';
echo '</td><td style="padding-bottom: 2px; vertical-align: middle;">';
echo ' ';
if (isset($WT_IMAGES["add"])) {
echo '<img style="border-style:none;" src="', $WT_IMAGES["add"], '" alt="', WT_I18N::translate('Add'), ' " title="', WT_I18N::translate('Add'), '" align="middle" name="addLink" value="" onclick="blankwin(); return false;">';
} else {
echo '<button name="addLink" value="" type="button" onclick="blankwin(); return false;">', WT_I18N::translate('Add'), '</button>';
}
echo ' ', print_findindi_link('gid');
echo ' ', print_findfamily_link('gid');
echo ' ', print_findsource_link('gid');
public function getCartList()
{
global $WT_SESSION;
// Keep track of the INDI from the parent page, otherwise it will
// get lost after ajax updates
$pid = WT_Filter::get('pid', WT_REGEX_XREF);
if (!$WT_SESSION->cart[WT_GED_ID]) {
$out = WT_I18N::translate('Your clippings cart is empty.');
} else {
$out = '<ul>';
foreach (array_keys($WT_SESSION->cart[WT_GED_ID]) as $xref) {
$record = WT_GedcomRecord::getInstance($xref);
if ($record && ($record::RECORD_TYPE == 'INDI' || $record::RECORD_TYPE == 'FAM')) {
// Just show INDI/FAM in the sidbar
switch ($record::RECORD_TYPE) {
case 'INDI':
$icon = 'icon-indis';
break;
case 'FAM':
$icon = 'icon-sfamily';
break;
}
$out .= '<li>';
if (!empty($icon)) {
$out .= '<i class="' . $icon . '"></i>';
}
$out .= '<a href="' . $record->getHtmlUrl() . '">';
if ($record::RECORD_TYPE == 'INDI') {
$out .= $record->getSexImage();
}
$out .= ' ' . $record->getFullName() . ' ';
if ($record::RECORD_TYPE == 'INDI' && $record->canShow()) {
$out .= ' (' . $record->getLifeSpan() . ')';
}
$out .= '</a>';
$out .= '<a class="icon-remove remove_cart" href="module.php?mod=' . $this->getName() . '&mod_action=ajax&sb_action=clippings&remove=' . $xref . '&pid=' . $pid . '" title="' . WT_I18N::translate('Remove') . '"></a>';
$out .= '</li>';
}
}
$out .= '</ul>';
}
if ($WT_SESSION->cart[WT_GED_ID]) {
$out .= '<br><a href="module.php?mod=' . $this->getName() . '&mod_action=ajax&sb_action=clippings&empty=true&pid=' . $pid . '" class="remove_cart">' . WT_I18N::translate('Empty the clippings cart') . '</a>' . help_link('empty_cart', $this->getName()) . '<br>' . '<a href="module.php?mod=' . $this->getName() . '&mod_action=ajax&sb_action=clippings&download=true&pid=' . $pid . '" class="add_cart">' . WT_I18N::translate('Download') . '</a>';
}
$record = WT_Individual::getInstance($pid);
if ($record && !array_key_exists($record->getXref(), $WT_SESSION->cart[WT_GED_ID])) {
$out .= '<br><a href="module.php?mod=' . $this->getName() . '&mod_action=ajax&sb_action=clippings&add=' . $pid . '&pid=' . $pid . '" class="add_cart"><i class="icon-clippings"></i> ' . WT_I18N::translate('Add %s to the clippings cart', $record->getFullName()) . '</a>';
}
return $out;
}
/**
* Fetch a list of individuals with specified names
*
* To search for unknown names, use $surn="@N.N.", $salpha="@" or $galpha="@"
* To search for names with no surnames, use $salpha=","
*
* @param string $surn if set, only fetch people with this surname
* @param string $salpha if set, only fetch surnames starting with this letter
* @param string $galpha if set, only fetch given names starting with this letter
* @param bool $marnm if set, include married names
* @param bool $fams if set, only fetch individuals with FAMS records
* @param int $ged_id if set, only fetch individuals from this gedcom
*
* @return WT_Individual[]
*/
public static function individuals($surn, $salpha, $galpha, $marnm, $fams, $ged_id)
{
$sql = "SELECT i_id AS xref, i_file AS gedcom_id, i_gedcom AS gedcom, n_full " . "FROM `##individuals` " . "JOIN `##name` ON (n_id=i_id AND n_file=i_file) " . ($fams ? "JOIN `##link` ON (n_id=l_from AND n_file=l_file AND l_type='FAMS') " : "") . "WHERE n_file={$ged_id} " . ($marnm ? "" : "AND n_type!='_MARNM'");
if ($surn) {
$sql .= " AND n_surn COLLATE '" . WT_I18N::$collation . "'=" . WT_DB::quote($surn);
} elseif ($salpha == ',') {
$sql .= " AND n_surn=''";
} elseif ($salpha == '@') {
$sql .= " AND n_surn='@N.N.'";
} elseif ($salpha) {
$sql .= " AND " . self::_getInitialSql('n_surn', $salpha);
} else {
// All surnames
$sql .= " AND n_surn NOT IN ('', '@N.N.')";
}
if ($galpha) {
$sql .= " AND " . self::_getInitialSql('n_givn', $galpha);
}
$sql .= " ORDER BY CASE n_surn WHEN '@N.N.' THEN 1 ELSE 0 END, n_surn COLLATE '" . WT_I18N::$collation . "', CASE n_givn WHEN '@P.N.' THEN 1 ELSE 0 END, n_givn COLLATE '" . WT_I18N::$collation . "'";
$list = array();
$rows = WT_DB::prepare($sql)->fetchAll();
foreach ($rows as $row) {
$person = WT_Individual::getInstance($row->xref, $row->gedcom_id, $row->gedcom);
// The name from the database may be private - check the filtered list...
foreach ($person->getAllNames() as $n => $name) {
if ($name['fullNN'] == $row->n_full) {
$person->setPrimaryName($n);
// We need to clone $person, as we may have multiple references to the
// same person in this list, and the "primary name" would otherwise
// be shared amongst all of them.
$list[] = clone $person;
break;
}
}
}
return $list;
}
/**
* Calculates number of generations a person has
*
* @param string $pid ID of person to see how far down the descendency goes
* @param int $depth Pass in 0 and it calculates how far down descendency goes
*
* @return int Number of generations the descendency actually goes
*/
function max_descendency_generations($pid, $depth)
{
if ($depth > $this->generations) {
return $depth;
}
$person = WT_Individual::getInstance($pid);
if (is_null($person)) {
return $depth;
}
$maxdc = $depth;
foreach ($person->getSpouseFamilies() as $family) {
foreach ($family->getChildren() as $child) {
$dc = $this->max_descendency_generations($child->getXref(), $depth + 1);
if ($dc >= $this->generations) {
return $dc;
}
if ($dc > $maxdc) {
$maxdc = $dc;
}
}
}
$maxdc++;
if ($maxdc == 1) {
$maxdc++;
}
return $maxdc;
}
public function getSignificantIndividual()
{
static $individual;
// Only query the DB once.
if (!$individual && WT_USER_ROOT_ID) {
$individual = WT_Individual::getInstance(WT_USER_ROOT_ID);
}
if (!$individual && WT_USER_GEDCOM_ID) {
$individual = WT_Individual::getInstance(WT_USER_GEDCOM_ID);
}
if (!$individual) {
$individual = WT_Individual::getInstance(get_gedcom_setting(WT_GED_ID, 'PEDIGREE_ROOT_ID'));
}
if (!$individual) {
$individual = WT_Individual::getInstance(WT_DB::prepare("SELECT MIN(i_id) FROM `##individuals` WHERE i_file=?")->execute(array(WT_GED_ID))->fetchOne());
}
if (!$individual) {
// always return a record
$individual = new WT_Individual('I', '0 @I@ INDI', null, WT_GED_ID);
}
return $individual;
}
function get_calendar_events($jd1, $jd2, $facts = '', $ged_id = WT_GED_ID)
{
// If no facts specified, get all except these
$skipfacts = "CHAN,BAPL,SLGC,SLGS,ENDL,CENS,RESI,NOTE,ADDR,OBJE,SOUR,PAGE,DATA,TEXT";
if ($facts != '_TODO') {
$skipfacts .= ',_TODO';
}
$found_facts = array();
// Events that start or end during the period
$where = "WHERE (d_julianday1>={$jd1} AND d_julianday1<={$jd2} OR d_julianday2>={$jd1} AND d_julianday2<={$jd2})";
// Restrict to certain types of fact
if (empty($facts)) {
$excl_facts = "'" . preg_replace('/\\W+/', "','", $skipfacts) . "'";
$where .= " AND d_fact NOT IN ({$excl_facts})";
} else {
$incl_facts = "'" . preg_replace('/\\W+/', "','", $facts) . "'";
$where .= " AND d_fact IN ({$incl_facts})";
}
// Only get events from the current gedcom
$where .= " AND d_file=" . $ged_id;
// Now fetch these events
$ind_sql = "SELECT d_gid AS xref, i_file AS gedcom_id, i_gedcom AS gedcom, 'INDI' AS type, d_type, d_day, d_month, d_year, d_fact, d_type FROM `##dates`, `##individuals` {$where} AND d_gid=i_id AND d_file=i_file GROUP BY d_julianday1, d_gid ORDER BY d_julianday1";
$fam_sql = "SELECT d_gid AS xref, f_file AS gedcom_id, f_gedcom AS gedcom, 'FAM' AS type, d_type, d_day, d_month, d_year, d_fact, d_type FROM `##dates`, `##families` {$where} AND d_gid=f_id AND d_file=f_file GROUP BY d_julianday1, d_gid ORDER BY d_julianday1";
foreach (array($ind_sql, $fam_sql) as $sql) {
$rows = WT_DB::prepare($sql)->fetchAll();
foreach ($rows as $row) {
if ($row->type == 'INDI') {
$record = WT_Individual::getInstance($row->xref, $row->gedcom_id, $row->gedcom);
} else {
$record = WT_Family::getInstance($row->xref, $row->gedcom_id, $row->gedcom);
}
$anniv_date = new WT_Date($row->d_type . ' ' . $row->d_day . ' ' . $row->d_month . ' ' . $row->d_year);
foreach ($record->getFacts(str_replace(' ', '|', $facts)) as $fact) {
if ($fact->getDate() == $anniv_date) {
$fact->anniv = 0;
$found_facts[] = $fact;
}
}
}
}
return $found_facts;
}
protected function _canShowByType($access_level)
{
// Hide a family if any member is private
preg_match_all('/\\n1 (?:CHIL|HUSB|WIFE) @(' . WT_REGEX_XREF . ')@/', $this->gedcom, $matches);
foreach ($matches[1] as $match) {
$person = WT_Individual::getInstance($match);
if ($person && !$person->canShow($access_level)) {
return false;
}
}
return true;
}
/**
* print the information for an individual chart box
*
* find and print a given individuals information for a pedigree chart
*
* @param string $pid The Gedcom Xref ID of the individual to print
* @param string $currpid
* @param string $censyear
*
*/
function print_pedigree_person_nav2($pid, $currpid, $censyear)
{
global $PEDIGREE_FULL_DETAILS;
global $TEXT_DIRECTION, $DEFAULT_PEDIGREE_GENERATIONS, $OLD_PGENS, $talloffset, $PEDIGREE_LAYOUT;
global $show_full;
global $SEARCH_SPIDER;
global $spouselinks, $parentlinks, $step_parentlinks, $persons, $person_step, $person_parent;
global $natdad, $natmom, $censyear;
if (empty($show_full)) {
$show_full = 0;
}
if (empty($PEDIGREE_FULL_DETAILS)) {
$PEDIGREE_FULL_DETAILS = 0;
}
if (!isset($OLD_PGENS)) {
$OLD_PGENS = $DEFAULT_PEDIGREE_GENERATIONS;
}
if (!isset($talloffset)) {
$talloffset = $PEDIGREE_LAYOUT;
}
$person = WT_Individual::getInstance($pid);
if ($pid == false || empty($person)) {
$spouselinks = false;
$parentlinks = false;
$step_parentlinks = false;
}
$tmp = array('M' => '', 'F' => 'F', 'U' => 'NN');
$isF = $tmp[$person->getSex()];
$spouselinks = "";
$parentlinks = "";
$step_parentlinks = "";
if ($person->canShowName() && !$SEARCH_SPIDER) {
//-- draw a box for the family popup
if ($TEXT_DIRECTION == "rtl") {
$spouselinks .= "<table class=\"rtlnav person_box{$isF}\"><tr><td align=\"right\" style=\"font-size:10px;font-weight:normal;\" class=\"name2 nowrap\">";
$spouselinks .= "<b>" . WT_I18N::translate('Family') . "</b> (" . $person->getFullName() . ")<br>";
$parentlinks .= "<table class=\"rtlnav person_box{$isF}\"><tr><td align=\"right\" style=\"font-size:10px;font-weight:normal;\" class=\"name2 nowrap\">";
$parentlinks .= "<b>" . WT_I18N::translate('Parents') . "</b> (" . $person->getFullName() . ")<br>";
$step_parentlinks .= "<table class=\"rtlnav person_box{$isF}\"><tr><td align=\"right\" style=\"font-size:10px;font-weight:normal;\" class=\"name2 nowrap\">";
$step_parentlinks .= "<b>" . WT_I18N::translate('Parents') . "</b> (" . $person->getFullName() . ")<br>";
} else {
$spouselinks .= "<table class=\"ltrnav person_box{$isF}\"><tr><td align=\"left\" style=\"font-size:10px;font-weight:normal;\" class=\"name2 nowrap\">";
$spouselinks .= "<b>" . WT_I18N::translate('Family') . "</b> (" . $person->getFullName() . ")<br>";
$parentlinks .= "<table class=\"ltrnav person_box{$isF}\"><tr><td align=\"left\" style=\"font-size:10px;font-weight:normal;\" class=\"name2 nowrap\">";
$parentlinks .= "<b>" . WT_I18N::translate('Parents') . "</b> (" . $person->getFullName() . ")<br>";
$step_parentlinks .= "<table class=\"ltrnav person_box{$isF}\"><tr><td align=\"left\" style=\"font-size:10px;font-weight:normal;\" class=\"name2 nowrap\">";
$step_parentlinks .= "<b>" . WT_I18N::translate('Parents') . "</b> (" . $person->getFullName() . ")<br>";
}
$persons = "";
$person_parent = "";
$person_step = "";
//-- Parent families --------------------------------------
foreach ($person->getChildFamilies() as $family) {
$husb = $family->getHusband();
$wife = $family->getWife();
$children = $family->getChildren();
$num = count($children);
$marrdate = $family->getMarriageDate();
//-- Get Parent Children’s Name, DOB, DOD --------------------------
if (isset($children)) {
$chBLDarray = array();
foreach ($children as $child) {
$chnam = $child->getAllNames();
$chfulln = rtrim($chnam[0]['givn'], '*') . " " . $chnam[0]['surname'];
$chfulln = str_replace('"', "", $chfulln);
// Must remove quotes completely here
$chfulln = str_replace("@N.N.", "(" . WT_I18N::translate('unknown') . ")", $chfulln);
$chfulln = str_replace("@P.N.", "(" . WT_I18N::translate('unknown') . ")", $chfulln);
// Child’s Full Name
$chdob = ($child->getBirthDate()->minJD() + $child->getBirthDate()->maxJD()) / 2;
// Child’s Date of Birth (Julian)
$chdod = ($child->getDeathDate()->minJD() + $child->getDeathDate()->maxJD()) / 2;
// Child’s Date of Death (Julian)
$chBLD = $chfulln . ", " . $chdob . ", " . $chdod;
array_push($chBLDarray, $chBLD);
}
}
//-- Parent Husband ------------------------------
if ($husb || $num > 0) {
if ($husb) {
//-- Parent Husbands Parents ----------------------
$gparent = WT_Individual::getInstance($husb->getXref());
$parfams = $gparent->getChildFamilies();
foreach ($parfams as $pfamily) {
$phusb = $pfamily->getHusband();
$pwife = $pfamily->getWife();
if ($phusb) {
$pHusbFBP = $phusb->getBirthPlace();
}
if ($pwife) {
$pHusbMBP = $pwife->getBirthPlace();
}
}
//-- Parent Husbands Details ----------------------
$person_parent = "Yes";
if ($husb->canShowName()) {
$nam = $husb->getAllNames();
$fulln = rtrim($nam[0]['givn'], '*') . " " . $nam[0]['surname'];
$fulln = str_replace("@N.N.", "(" . WT_I18N::translate('unknown') . ")", $fulln);
$fulln = str_replace("@P.N.", "(" . WT_I18N::translate('unknown') . ")", $fulln);
for ($i = 0; $i < count($nam); $i++) {
if ($nam[$i]['type'] == '_MARNM') {
$fulmn = rtrim($nam[$i]['givn'], '*') . " " . $nam[$i]['surname'];
}
}
$parentlinks .= "<a class=\"linka\" href=\"#\" onclick=\"insertRowToTable(";
$parentlinks .= "'" . $husb->getXref() . "',";
// pid = PID
$parentlinks .= "'" . WT_Filter::escapeHtml(strip_tags($fulln)) . "',";
// nam = Name
if (isset($fulmn)) {
$parentlinks .= "'" . WT_Filter::escapeHtml(strip_tags($fulln)) . "',";
// mnam = Full Married Name
} else {
$parentlinks .= "'" . WT_Filter::escapeHtml(strip_tags($fulln)) . "',";
// mnam = Full Name
}
if ($currpid == "Wife" || $currpid == "Husband") {
$parentlinks .= "'Father in Law',";
// label = 1st Gen Male Relationship
} else {
$parentlinks .= "'Grand-Father',";
// label = 2st Gen Male Relationship
}
$parentlinks .= "'" . $husb->getSex() . "',";
// sex = Gender
$parentlinks .= "''" . ",";
// cond = Condition (Married etc)
if ($marrdate) {
$parentlinks .= "'" . ($marrdate->minJD() + $marrdate->maxJD()) / 2 . "',";
// dom = Date of Marriage (Julian)
}
$parentlinks .= "'" . ($husb->getBirthDate()->minJD() + $husb->getBirthDate()->maxJD()) / 2 . "',";
// dob = Date of Birth
if ($husb->getbirthyear() >= 1) {
$parentlinks .= "'" . ($censyear - $husb->getbirthyear()) . "',";
// age = Census Year - Year of Birth
} else {
$parentlinks .= "''" . ",";
// age = Undefined
}
$parentlinks .= "'" . ($husb->getDeathDate()->minJD() + $husb->getDeathDate()->maxJD()) / 2 . "',";
// dod = Date of Death
$parentlinks .= "''" . ",";
// occu = Occupation
$parentlinks .= "'" . WT_Filter::escapeHtml($husb->getBirthPlace()) . "'" . ",";
// birthpl = Individuals Birthplace
if (isset($pHusbFBP)) {
$parentlinks .= "'" . WT_Filter::escapeHtml($pHusbFBP) . "'" . ",";
// fbirthpl = Fathers Birthplace
} else {
$parentlinks .= "'UNK, UNK, UNK, UNK'" . ",";
// fbirthpl = Fathers Birthplace
}
if (isset($pHusbMBP)) {
$parentlinks .= "'" . WT_Filter::escapeHtml($pHusbMBP) . "'" . ",";
// mbirthpl = Mothers Birthplace
} else {
$parentlinks .= "'UNK, UNK, UNK, UNK'" . ",";
// mbirthpl = Mothers Birthplace
}
if (isset($chBLDarray) && $husb->getSex() == "F") {
$chBLDarray = implode("::", $chBLDarray);
$parentlinks .= "'" . $chBLDarray . "'";
// Array of Children (name, birthdate, deathdate)
} else {
$parentlinks .= "''";
}
$parentlinks .= ");\">";
$parentlinks .= $husb->getFullName();
// Full Name (Link)
$parentlinks .= "</a>";
} else {
$parentlinks .= WT_I18N::translate('Private');
}
$natdad = "yes";
}
}
//-- Parent Wife ------------------------------
if ($wife || $num > 0) {
if ($wife) {
//-- Parent Wifes Parents ----------------------
$gparent = WT_Individual::getInstance($wife->getXref());
$parfams = $gparent->getChildFamilies();
foreach ($parfams as $pfamily) {
$pwhusb = $pfamily->getHusband();
$pwwife = $pfamily->getWife();
if ($pwhusb) {
$pWifeFBP = $pwhusb->getBirthPlace();
}
if ($pwwife) {
$pWifeMBP = $pwwife->getBirthPlace();
}
}
//-- Parent Wifes Details ----------------------
$person_parent = "Yes";
if ($wife->canShowName()) {
$nam = $wife->getAllNames();
$fulln = rtrim($nam[0]['givn'], '*') . " " . $nam[0]['surname'];
$fulln = str_replace("@N.N.", "(" . WT_I18N::translate('unknown') . ")", $fulln);
$fulln = str_replace("@P.N.", "(" . WT_I18N::translate('unknown') . ")", $fulln);
$husbnam = null;
for ($i = 0; $i < count($nam); $i++) {
if ($nam[$i]['type'] == '_MARNM') {
$fulmn = rtrim($nam[$i]['givn'], '*') . " " . $nam[$i]['surname'];
}
}
$parentlinks .= "<a class=\"linka\" href=\"#\" onclick=\"insertRowToTable(";
$parentlinks .= "'" . $wife->getXref() . "',";
// pid = PID
$parentlinks .= "'" . WT_Filter::escapeHtml(strip_tags($fulln)) . "',";
// nam = Name
if (isset($fulmn)) {
$parentlinks .= "'" . WT_Filter::escapeHtml(strip_tags($fulmn)) . "',";
// mnam = Full Married Name
} else {
$parentlinks .= "'" . WT_Filter::escapeHtml(strip_tags($fulln)) . "',";
// mnam = Full Name
}
if ($currpid == "Wife" || $currpid == "Husband") {
$parentlinks .= "'Mother in Law',";
// label = 1st Gen Female Relationship
} else {
$parentlinks .= "'Grand-Mother',";
// label = 2st Gen Female Relationship
}
$parentlinks .= "'" . $wife->getSex() . "',";
// sex = Gender
$parentlinks .= "''" . ",";
// cond = Condition (Married etc)
if ($marrdate) {
$parentlinks .= "'" . ($marrdate->minJD() + $marrdate->maxJD()) / 2 . "',";
// dom = Date of Marriage (Julian)
}
$parentlinks .= "'" . ($wife->getBirthDate()->minJD() + $wife->getBirthDate()->maxJD()) / 2 . "',";
// dob = Date of Birth
if ($wife->getbirthyear() >= 1) {
$parentlinks .= "'" . ($censyear - $wife->getbirthyear()) . "',";
// age = Census Year - Year of Birth
} else {
$parentlinks .= "''" . ",";
// age = Undefined
}
$parentlinks .= "'" . ($wife->getDeathDate()->minJD() + $wife->getDeathDate()->maxJD()) / 2 . "',";
// dod = Date of Death
$parentlinks .= "''" . ",";
// occu = Occupation
$parentlinks .= "'" . WT_Filter::escapeHtml($wife->getBirthPlace()) . "'" . ",";
// birthpl = Individuals Birthplace
if (isset($pWifeFBP)) {
$parentlinks .= "'" . WT_Filter::escapeHtml($pWifeFBP) . "'" . ",";
// fbirthpl = Fathers Birthplace
} else {
$parentlinks .= "'UNK, UNK, UNK, UNK'" . ",";
// fbirthpl = Fathers Birthplace Not Known
}
if (isset($pWifeMBP)) {
$parentlinks .= "'" . WT_Filter::escapeHtml($pWifeMBP) . "'" . ",";
// mbirthpl = Mothers Birthplace
} else {
$parentlinks .= "'UNK, UNK, UNK, UNK'" . ",";
// mbirthpl = Mothers Birthplace Not Known
}
if (isset($chBLDarray) && $wife->getSex() == "F") {
$chBLDarray = implode("::", $chBLDarray);
$parentlinks .= "'" . $chBLDarray . "'";
// Array of Children (name, birthdate, deathdate)
} else {
$parentlinks .= "''";
}
$parentlinks .= ");\">";
$parentlinks .= $wife->getFullName();
// Full Name (Link)
$parentlinks .= "</a>";
} else {
$parentlinks .= WT_I18N::translate('Private');
}
$natmom = "yes";
}
}
}
//-- Step families -----------------------------------------
foreach ($person->getChildStepFamilies() as $family) {
$husb = $family->getHusband();
$wife = $family->getWife();
$children = $family->getChildren();
$num = count($children);
$marrdate = $family->getMarriageDate();
//-- Get StepParent’s Children’s Name, DOB, DOD --------------------------
if (isset($children)) {
$chBLDarray = array();
foreach ($children as $child) {
$chnam = $child->getAllNames();
$chfulln = rtrim($chnam[0]['givn'], '*') . " " . $chnam[0]['surname'];
$chfulln = str_replace('"', "", $chfulln);
// Must remove quotes completely here
$chfulln = str_replace("@N.N.", "(" . WT_I18N::translate('unknown') . ")", $chfulln);
$chfulln = str_replace("@P.N.", "(" . WT_I18N::translate('unknown') . ")", $chfulln);
// Child’s Full Name
$chdob = ($child->getBirthDate()->minJD() + $child->getBirthDate()->maxJD()) / 2;
// Child’s Date of Birth (Julian)
$chdod = ($child->getDeathDate()->minJD() + $child->getDeathDate()->maxJD()) / 2;
// Child’s Date of Death (Julian)
$chBLD = $chfulln . ", " . $chdob . ", " . $chdod;
array_push($chBLDarray, $chBLD);
}
}
//-- Step Husband --------------------------------------
if ($natdad == "yes") {
} else {
if (($husb || $num > 0) && $husb !== $person) {
if ($husb) {
//-- Step Husbands Parents -----------------------------
$gparent = WT_Individual::getInstance($husb->getXref());
$parfams = $gparent->getChildFamilies();
foreach ($parfams as $pfamily) {
$phusb = $pfamily->getHusband();
$pwife = $pfamily->getWife();
if ($phusb) {
$pHusbFBP = $phusb->getBirthPlace();
}
if ($pwife) {
$pHusbMBP = $pwife->getBirthPlace();
}
}
//-- Step Husband Details ------------------------------
$person_step = "Yes";
if ($husb->canShowName()) {
$nam = $husb->getAllNames();
$fulln = rtrim($nam[0]['givn'], '*') . " " . $nam[0]['surname'];
$fulln = str_replace("@N.N.", "(" . WT_I18N::translate('unknown') . ")", $fulln);
$fulln = str_replace("@P.N.", "(" . WT_I18N::translate('unknown') . ")", $fulln);
for ($i = 0; $i < count($nam); $i++) {
if ($nam[$i]['type'] == '_MARNM') {
$fulmn = rtrim($nam[$i]['givn'], '*') . " " . $nam[$i]['surname'];
}
}
$parentlinks .= "<a class=\"linka\" href=\"#\" onclick=\"insertRowToTable(";
$parentlinks .= "'" . $husb->getXref() . "',";
// pid = PID
$parentlinks .= "'" . WT_Filter::escapeHtml(strip_tags($fulln)) . "',";
// nam = Name
if (isset($fulmn)) {
$parentlinks .= "'" . WT_Filter::escapeHtml(strip_tags($fulln)) . "',";
// mnam = Full Married Name
} else {
$parentlinks .= "'" . WT_Filter::escapeHtml(strip_tags($fulln)) . "',";
// mnam = Full Name
}
if ($currpid == "Wife" || $currpid == "Husband") {
$parentlinks .= "'Step Father-in-Law',";
// label = 1st Gen Male Relationship
} else {
$parentlinks .= "'Step Grand-Father',";
// label = 2st Gen Male Relationship
}
$parentlinks .= "'" . $husb->getSex() . "',";
// sex = Gender
$parentlinks .= "''" . ",";
// cond = Condition (Married etc)
if ($marrdate) {
$parentlinks .= "'" . ($marrdate->minJD() + $marrdate->maxJD()) / 2 . "',";
// dom = Date of Marriage (Julian)
}
$parentlinks .= "'" . ($husb->getBirthDate()->minJD() + $husb->getBirthDate()->maxJD()) / 2 . "',";
// dob = Date of Birth
if ($husb->getbirthyear() >= 1) {
$parentlinks .= "'" . ($censyear - $husb->getbirthyear()) . "',";
// age = Census Year - Year of Birth
} else {
$parentlinks .= "''" . ",";
// age = Undefined
}
$parentlinks .= "'" . ($husb->getDeathDate()->minJD() + $husb->getDeathDate()->maxJD()) / 2 . "',";
// dod = Date of Death
$parentlinks .= "''" . ",";
// occu = Occupation
$parentlinks .= "'" . WT_Filter::escapeHtml($husb->getBirthPlace()) . "'" . ",";
// birthpl = Individuals Birthplace
if (isset($pHusbFBP)) {
$parentlinks .= "'" . WT_Filter::escapeHtml($pHusbFBP) . "'" . ",";
// fbirthpl = Fathers Birthplace
} else {
$parentlinks .= "'UNK, UNK, UNK, UNK'" . ",";
// fbirthpl = Fathers Birthplace
}
if (isset($pHusbMBP)) {
$parentlinks .= "'" . WT_Filter::escapeHtml($pHusbMBP) . "'" . ",";
// mbirthpl = Mothers Birthplace
} else {
$parentlinks .= "'UNK, UNK, UNK, UNK'" . ",";
// mbirthpl = Mothers Birthplace
}
if (isset($chBLDarray) && $husb->getSex() == "F") {
$chBLDarray = implode("::", $chBLDarray);
$parentlinks .= "'" . $chBLDarray . "'";
// Array of Children (name, birthdate, deathdate)
} else {
$parentlinks .= "''";
}
$parentlinks .= ");\">";
$parentlinks .= $husb->getFullName();
// Full Name (Link)
$parentlinks .= "</a>";
} else {
$parentlinks .= WT_I18N::translate('Private');
}
}
}
}
//-- Step Wife ----------------------------------------
if ($natmom == "yes") {
} else {
if ($wife || $num > 0) {
if ($wife) {
//-- Step Wifes Parents ---------------------------
$gparent = WT_Individual::getInstance($wife->getXref());
$parfams = $gparent->getChildFamilies();
foreach ($parfams as $pfamily) {
$pwhusb = $pfamily->getHusband();
$pwwife = $pfamily->getWife();
if ($pwhusb) {
$pWifeFBP = $pwhusb->getBirthPlace();
}
if ($pwwife) {
$pWifeMBP = $pwwife->getBirthPlace();
}
}
//-- Step Wife Details ------------------------------
$person_step = "Yes";
if ($wife->canShowName()) {
$nam = $wife->getAllNames();
$fulln = rtrim($nam[0]['givn'], '*') . " " . $nam[0]['surname'];
$fulln = str_replace("@N.N.", "(" . WT_I18N::translate('unknown') . ")", $fulln);
$fulln = str_replace("@P.N.", "(" . WT_I18N::translate('unknown') . ")", $fulln);
$husbnam = null;
for ($i = 0; $i < count($nam); $i++) {
if ($nam[$i]['type'] == '_MARNM') {
$fulmn = rtrim($nam[$i]['givn'], '*') . " " . $nam[$i]['surname'];
}
}
$parentlinks .= "<a class=\"linka\" href=\"#\" onclick=\"insertRowToTable(";
$parentlinks .= "'" . $wife->getXref() . "',";
// pid = PID
$parentlinks .= "'" . WT_Filter::escapeHtml(strip_tags($fulln)) . "',";
// nam = Name
if (isset($fulmn)) {
$parentlinks .= "'" . WT_Filter::escapeHtml(strip_tags($fulmn)) . "',";
// mnam = Full Married Name
} else {
$parentlinks .= "'" . WT_Filter::escapeHtml(strip_tags($fulln)) . "',";
// mnam = Full Name
}
if ($currpid == "Wife" || $currpid == "Husband") {
$parentlinks .= "'Step Mother-in-Law',";
// label = 1st Gen Female Relationship
} else {
$parentlinks .= "'Step Grand-Mother',";
// label = 2st Gen Female Relationship
}
$parentlinks .= "'" . $wife->getSex() . "',";
// sex = Gender
$parentlinks .= "''" . ",";
// cond = Condition (Married etc)
if ($marrdate) {
$parentlinks .= "'" . ($marrdate->minJD() + $marrdate->maxJD()) / 2 . "',";
// dom = Date of Marriage (Julian)
}
$parentlinks .= "'" . ($wife->getBirthDate()->minJD() + $wife->getBirthDate()->maxJD()) / 2 . "',";
// dob = Date of Birth
if ($wife->getbirthyear() >= 1) {
$parentlinks .= "'" . ($censyear - $wife->getbirthyear()) . "',";
// age = Census Year - Year of Birth
} else {
$parentlinks .= "''" . ",";
// age = Undefined
}
$parentlinks .= "'" . ($wife->getDeathDate()->minJD() + $wife->getDeathDate()->maxJD()) / 2 . "',";
// dod = Date of Death
$parentlinks .= "''" . ",";
// occu = Occupation
$parentlinks .= "'" . WT_Filter::escapeHtml($wife->getBirthPlace()) . "'" . ",";
// birthpl = Individuals Birthplace
if (isset($pWifeFBP)) {
$parentlinks .= "'" . WT_Filter::escapeHtml($pWifeFBP) . "'" . ",";
// fbirthpl = Fathers Birthplace
} else {
$parentlinks .= "'UNK, UNK, UNK, UNK'" . ",";
// fbirthpl = Fathers Birthplace Not Known
}
if (isset($pWifeMBP)) {
$parentlinks .= "'" . WT_Filter::escapeHtml($pWifeMBP) . "'" . ",";
// mbirthpl = Mothers Birthplace
} else {
$parentlinks .= "'UNK, UNK, UNK, UNK'" . ",";
// mbirthpl = Mothers Birthplace Not Known
}
if (isset($chBLDarray) && $wife->getSex() == "F") {
$chBLDarray = implode("::", $chBLDarray);
$parentlinks .= "'" . $chBLDarray . "'";
// Array of Children (name, birthdate, deathdate)
} else {
$parentlinks .= "''";
}
$parentlinks .= ");\">";
$parentlinks .= $wife->getFullName();
// Full Name (Link)
$parentlinks .= "</a>";
} else {
$parentlinks .= WT_I18N::translate('Private');
}
}
}
}
}
// Spouse Families ------------------------------------------
foreach ($person->getSpouseFamilies() as $family) {
$spouse = $family->getSpouse($person);
$children = $family->getChildren();
$num = count($children);
$marrdate = $family->getMarriageDate();
$is_wife = $family->getWife();
//-- Get Spouse’s Children’s Name, DOB, DOD --------------------------
if (isset($children)) {
$chBLDarray = array();
foreach ($children as $child) {
$chnam = $child->getAllNames();
$chfulln = rtrim($chnam[0]['givn'], '*') . " " . $chnam[0]['surname'];
$chfulln = str_replace('"', "", $chfulln);
// Must remove quotes completely here
$chfulln = str_replace("@N.N.", "(" . WT_I18N::translate('unknown') . ")", $chfulln);
$chfulln = str_replace("@P.N.", "(" . WT_I18N::translate('unknown') . ")", $chfulln);
// Child’s Full Name
$chdob = ($child->getBirthDate()->minJD() + $child->getBirthDate()->maxJD()) / 2;
// Child’s Date of Birth (Julian)
$chdod = ($child->getDeathDate()->minJD() + $child->getDeathDate()->maxJD()) / 2;
// Child’s Date of Death (Julian)
$chBLD = $chfulln . ", " . $chdob . ", " . $chdod;
array_push($chBLDarray, $chBLD);
}
}
//-- Spouse -----------------------------------------
if ($spouse || $num > 0) {
if ($spouse) {
//-- Spouse Parents -----------------------------
$gparent = WT_Individual::getInstance($spouse->getXref());
$spousefams = $gparent->getChildFamilies();
foreach ($spousefams as $pfamily) {
$phusb = $pfamily->getHusband();
$pwife = $pfamily->getWife();
if ($phusb) {
$pSpouseFBP = $phusb->getBirthPlace();
}
if ($pwife) {
$pSpouseMBP = $pwife->getBirthPlace();
}
}
//-- Spouse Details -----------------------------
if ($spouse->canShowName()) {
$nam = $spouse->getAllNames();
$fulln = rtrim($nam[0]['givn'], '*') . " " . $nam[0]['surname'];
$fulln = str_replace("@N.N.", "(" . WT_I18N::translate('unknown') . ")", $fulln);
$fulln = str_replace("@P.N.", "(" . WT_I18N::translate('unknown') . ")", $fulln);
// If spouse is a wife, then get her married name or default to her birth name
for ($i = 0; $i < count($nam); $i++) {
if ($nam[$i]['type'] == '_MARNM' && $is_wife) {
$fulmn = rtrim($nam[$i]['givn'], '*') . " " . $nam[$i]['surname'];
} else {
$fulmn = $fulln;
}
}
$spouselinks .= "<a href=\"#\" onclick=\"insertRowToTable(";
$spouselinks .= "'" . $spouse->getXref() . "',";
// pid = PID
$spouselinks .= "'" . WT_Filter::escapeHtml(strip_tags($fulln)) . "',";
// nam = Name
if (isset($fulmn)) {
$spouselinks .= "'" . WT_Filter::escapeHtml(strip_tags($fulmn)) . "',";
// mnam = Full Married Name
} else {
$spouselinks .= "'" . WT_Filter::escapeHtml(strip_tags($fulln)) . "',";
// mnam = Full Name
}
if ($currpid == "Son" || $currpid == "Daughter") {
if ($spouse->getSex() == "M") {
$spouselinks .= "'Son in Law',";
// label = Male Relationship
} else {
$spouselinks .= "'Daughter in Law',";
// label = Female Relationship
}
} else {
if ($spouse->getSex() == "M") {
$spouselinks .= "'Brother in Law',";
// label = Male Relationship
} else {
$spouselinks .= "'Sister in Law',";
// label = Female Relationship
}
}
$spouselinks .= "'" . $spouse->getSex() . "',";
// sex = Gender
$spouselinks .= "''" . ",";
// cond = Condition (Married etc)
if ($marrdate) {
$spouselinks .= "'" . ($marrdate->minJD() + $marrdate->maxJD()) / 2 . "',";
// dom = Date of Marriage (Julian)
}
$spouselinks .= "'" . ($spouse->getBirthDate()->minJD() + $spouse->getBirthDate()->maxJD()) / 2 . "',";
// dob = Date of Birth
if ($spouse->getbirthyear() >= 1) {
$spouselinks .= "'" . ($censyear - $spouse->getbirthyear()) . "',";
// age = Census Year - Year of Birth
} else {
$spouselinks .= "''" . ",";
// age = Undefined
}
$spouselinks .= "'" . ($spouse->getDeathDate()->minJD() + $spouse->getDeathDate()->maxJD()) / 2 . "',";
// dod = Date of Death
$spouselinks .= "''" . ",";
// occu = Occupation
$spouselinks .= "'" . WT_Filter::escapeHtml($spouse->getBirthPlace()) . "'" . ",";
// birthpl = Individuals Birthplace
if (isset($pSpouseFBP)) {
$spouselinks .= "'" . WT_Filter::escapeHtml($pSpouseFBP) . "'" . ",";
// fbirthpl = Fathers Birthplace
} else {
$spouselinks .= "'UNK, UNK, UNK, UNK'" . ",";
// fbirthpl = Fathers Birthplace Not Known
}
if (isset($pSpouseMBP)) {
$spouselinks .= "'" . WT_Filter::escapeHtml($pSpouseMBP) . "'" . ",";
// mbirthpl = Mothers Birthplace
} else {
$spouselinks .= "'UNK, UNK, UNK, UNK'" . ",";
// mbirthpl = Mothers Birthplace Not Known
}
if (isset($chBLDarray) && $spouse->getSex() == "F") {
$chBLDarray = implode("::", $chBLDarray);
$spouselinks .= "'" . $chBLDarray . "'";
// Array of Children (name, birthdate, deathdate)
} else {
$spouselinks .= "''";
}
$spouselinks .= ");\">";
$spouselinks .= $spouse->getFullName();
// Full Name (Link)
$spouselinks .= "</a>";
} else {
$spouselinks .= WT_I18N::translate('Private');
}
$spouselinks .= "</a>";
if ($spouse->getFullName() != "") {
$persons = "Yes";
}
}
}
// Children -------------------------------------
$spouselinks .= "<ul class=\"clist\">";
foreach ($children as $child) {
if ($child) {
$persons = "Yes";
//-- Childs Parents ---------------------
$gparent = WT_Individual::getInstance($child->getXref());
foreach ($gparent->getChildFamilies() as $family) {
$husb = $family->getHusband();
$wife = $family->getWife();
if ($husb) {
$ChildFBP = $husb->getBirthPlace();
}
if ($wife) {
$ChildMBP = $wife->getBirthPlace();
}
}
// Get Child’s Children
$chBLDarray = array();
foreach ($child->getSpouseFamilies() as $childfamily) {
$chchildren = $childfamily->getChildren();
foreach ($chchildren as $chchild) {
$chnam = $chchild->getAllNames();
$chfulln = rtrim($chnam[0]['givn'], '*') . " " . $chnam[0]['surname'];
$chfulln = str_replace('"', "", $chfulln);
// Must remove quotes completely here
$chfulln = str_replace("@N.N.", "(" . WT_I18N::translate('unknown') . ")", $chfulln);
$chfulln = str_replace("@P.N.", "(" . WT_I18N::translate('unknown') . ")", $chfulln);
// Child’s Full Name
$chdob = ($chchild->getBirthDate()->minJD() + $chchild->getBirthDate()->maxJD()) / 2;
// Child’s Date of Birth (Julian)
$chdod = ($chchild->getDeathDate()->minJD() + $chchild->getDeathDate()->maxJD()) / 2;
// Child’s Date of Death (Julian)
$chBLD = $chfulln . ", " . $chdob . ", " . $chdod;
array_push($chBLDarray, $chBLD);
}
}
// Get Childs marriage status ------------
$marrdate = "";
$chhusbnam = null;
foreach ($child->getSpouseFamilies() as $childfamily) {
$marrdate = $childfamily->getMarriageDate();
if ($childfamily->getHusband()) {
$chhusbnam = $childfamily->getHusband()->getAllNames();
}
}
// Childs Details -------------------------
$spouselinks .= "<li>";
if ($child->canShowName()) {
$nam = $child->getAllNames();
$fulln = rtrim($nam[0]['givn'], '*') . " " . $nam[0]['surname'];
$fulln = str_replace("@N.N.", "(" . WT_I18N::translate('unknown') . ")", $fulln);
$fulln = str_replace("@P.N.", "(" . WT_I18N::translate('unknown') . ")", $fulln);
$husbnam = null;
// Get childs married name if available
$chfulmn = null;
$chnam = $child->getAllNames();
if ($chhusbnam[0]['surname'] == "@N.N." || $chhusbnam[0]['surname'] == "") {
// if Husband or his name is not known then use wifes birth name
$husbnam = $nam[0]['surname'];
} else {
$husbnam = $chhusbnam[0]['surname'];
}
for ($i = 0; $i < count($nam); $i++) {
if ($chnam[$i]['type'] == '_MARNM') {
$chfulmn = rtrim($chnam[$i]['givn'], '*') . " " . $husbnam;
}
}
$spouselinks .= "<a href=\"#\" onclick=\"insertRowToTable(";
$spouselinks .= "'" . $child->getXref() . "',";
// pid = PID
$spouselinks .= "'" . WT_Filter::escapeHtml(strip_tags($fulln)) . "',";
// nam = Name
if (isset($chfulmn)) {
$spouselinks .= "'" . WT_Filter::escapeHtml(strip_tags($chfulmn)) . "',";
// mnam = Full Married Name
} else {
$spouselinks .= "'" . WT_Filter::escapeHtml(strip_tags($fulln)) . "',";
// mnam = Full Name
}
if ($currpid == "Son" || $currpid == "Daughter") {
if ($child->getSex() == "M") {
$spouselinks .= "'Grand-Son',";
// label = Male Relationship
} else {
$spouselinks .= "'Grand-Daughter',";
// label = Female Relationship
}
} else {
if ($child->getSex() == "M") {
$spouselinks .= "'Nephew',";
// label = Male Relationship
} else {
$spouselinks .= "'Niece',";
// label = Female Relationship
}
}
$spouselinks .= "'" . $child->getSex() . "',";
// sex = Gender
$spouselinks .= "''" . ",";
// cond = Condition (Married etc)
if ($marrdate) {
$spouselinks .= "'" . ($marrdate->minJD() + $marrdate->maxJD()) / 2 . "',";
// dom = Date of Marriage (Julian)
} else {
$spouselinks .= "'nm'" . ",";
}
$spouselinks .= "'" . ($child->getBirthDate()->minJD() + $child->getBirthDate()->maxJD()) / 2 . "',";
// dob = Date of Birth
if ($child->getbirthyear() >= 1) {
$spouselinks .= "'" . ($censyear - $child->getbirthyear()) . "',";
// age = Census Year - Year of Birth
} else {
$spouselinks .= "''" . ",";
// age = Undefined
}
$spouselinks .= "'" . ($child->getDeathDate()->minJD() + $child->getDeathDate()->maxJD()) / 2 . "',";
// dod = Date of Death
$spouselinks .= "''" . ",";
// occu = Occupation
$spouselinks .= "'" . WT_Filter::escapeHtml($child->getBirthPlace()) . "'" . ",";
// birthpl = Individuals Birthplace
if (isset($ChildFBP)) {
$spouselinks .= "'" . WT_Filter::escapeHtml($ChildFBP) . "'" . ",";
// fbirthpl = Fathers Birthplace
} else {
$spouselinks .= "'UNK, UNK, UNK, UNK'" . ",";
// fbirthpl = Fathers Birthplace Not Known
}
if (isset($ChildMBP)) {
$spouselinks .= "'" . WT_Filter::escapeHtml($ChildMBP) . "'" . ",";
// mbirthpl = Mothers Birthplace
} else {
$spouselinks .= "'UNK, UNK, UNK, UNK'" . ",";
// mbirthpl = Mothers Birthplace Not Known
}
if (isset($chBLDarray) && $child->getSex() == "F") {
$chBLDarray = implode("::", $chBLDarray);
$spouselinks .= "'" . $chBLDarray . "'";
// Array of Children (name, birthdate, deathdate)
} else {
$spouselinks .= "''";
}
$spouselinks .= ");\">";
$spouselinks .= $child->getFullName();
// Full Name (Link)
$spouselinks .= "</a>";
$spouselinks .= "</li>";
} else {
$spouselinks .= WT_I18N::translate('Private');
}
}
}
$spouselinks .= "</ul>";
}
if ($persons != "Yes") {
$spouselinks .= "(" . WT_I18N::translate('none') . ")</td></tr></table>";
} else {
$spouselinks .= "</td></tr></table>";
}
if ($person_parent != "Yes") {
$parentlinks .= "(" . WT_I18N::translate_c('unknown family', 'unknown') . ")</td></tr></table>";
} else {
$parentlinks .= "</td></tr></table>";
}
if ($person_step != "Yes") {
$step_parentlinks .= "(" . WT_I18N::translate_c('unknown family', 'unknown') . ")</td></tr></table>";
} else {
$step_parentlinks .= "</td></tr></table>";
}
}
}
