YunoHost-Apps/webtrees_ynh
1
0
Fork 0
mirror of https://github.com/YunoHost-Apps/webtrees_ynh.git synced 2024-09-03 18:26:37 +02:00
Code Issues Activity Actions
webtrees_ynh/sources/app/Functions/FunctionsPrintLists.php

1985 lines
71 KiB
PHP
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

<?php
/**
* webtrees: online genealogy
* Copyright (C) 2016 webtrees development team
* 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 3 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, see <http://www.gnu.org/licenses/>.
*/
namespace Fisharebest\Webtrees\Functions;
use Fisharebest\Webtrees\Auth;
use Fisharebest\Webtrees\Database;
use Fisharebest\Webtrees\Date;
use Fisharebest\Webtrees\Fact;
use Fisharebest\Webtrees\Family;
use Fisharebest\Webtrees\Filter;
use Fisharebest\Webtrees\GedcomRecord;
use Fisharebest\Webtrees\GedcomTag;
use Fisharebest\Webtrees\I18N;
use Fisharebest\Webtrees\Individual;
use Fisharebest\Webtrees\Media;
use Fisharebest\Webtrees\Note;
use Fisharebest\Webtrees\Place;
use Fisharebest\Webtrees\Repository;
use Fisharebest\Webtrees\Source;
use Fisharebest\Webtrees\Stats;
use Fisharebest\Webtrees\Tree;
use Rhumsaa\Uuid\Uuid;
/**
* Class FunctionsPrintLists - create sortable lists using datatables.net
*/
class FunctionsPrintLists {
/**
* Generate a SURN,GIVN and GIVN,SURN sortable name for an individual.
* This allows table data to sort by surname or given names.
*
* Use AAAA as a separator (instead of ","), as Javascript localeCompare()
* ignores punctuation and "ANN,ROACH" would sort after "ANNE,ROACH",
* instead of before it.
*
* @param Individual $individual
*
* @return string[]
*/
private static function sortableNames(Individual $individual) {
$names = $individual->getAllNames();
$primary = $individual->getPrimaryName();
list($surn, $givn) = explode(',', $names[$primary]['sort']);
$givn = str_replace('@P.N.', 'AAAA', $givn);
$surn = str_replace('@N.N.', 'AAAA', $surn);
return array(
$surn . 'AAAA' . $givn,
$givn . 'AAAA' . $surn,
);
}
/**
* Print a table of individuals
*
* @param Individual[] $indiviudals
* @param string $option
*
* @return string
*/
public static function individualTable($indiviudals, $option = '') {
global $controller, $WT_TREE;
$table_id = 'table-indi-' . Uuid::uuid4(); // lists requires a unique ID in case there are multiple lists per page
$controller
->addExternalJavascript(WT_JQUERY_DATATABLES_JS_URL)
->addInlineJavascript('
jQuery.fn.dataTableExt.oSort["text-asc"] = textCompareAsc;
jQuery.fn.dataTableExt.oSort["text-desc"] = textCompareDesc;
jQuery("#' . $table_id . '").dataTable( {
dom: \'<"H"<"filtersH_' . $table_id . '">T<"dt-clear">pf<"dt-clear">irl>t<"F"pl<"dt-clear"><"filtersF_' . $table_id . '">>\',
' . I18N::datatablesI18N() . ',
jQueryUI: true,
autoWidth: false,
processing: true,
retrieve: true,
columns: [
/* Given names */ { type: "text" },
/* Surnames */ { type: "text" },
/* SOSA numnber */ { type: "num", visible: ' . ($option === 'sosa' ? 'true' : 'false') . ' },
/* Birth date */ { type: "num" },
/* Anniversary */ { type: "num" },
/* Birthplace */ { type: "text" },
/* Children */ { type: "num" },
/* Deate date */ { type: "num" },
/* Anniversary */ { type: "num" },
/* Age */ { type: "num" },
/* Death place */ { type: "text" },
/* Last change */ { visible: ' . ($WT_TREE->getPreference('SHOW_LAST_CHANGE') ? 'true' : 'false') . ' },
/* Filter sex */ { sortable: false },
/* Filter birth */ { sortable: false },
/* Filter death */ { sortable: false },
/* Filter tree */ { sortable: 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 Stats($WT_TREE);
// Bad data can cause "longest life" to be huge, blowing memory limits
$max_age = min($WT_TREE->getPreference('MAX_ALIVE_AGE'), $stats->longestLifeAge()) + 1;
// Inititialise chart data
$deat_by_age = array();
for ($age = 0; $age <= $max_age; $age++) {
$deat_by_age[$age] = '';
}
$birt_by_decade = array();
$deat_by_decade = array();
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="16">
<div class="btn-toolbar">
<div class="btn-group">
<button
class="ui-state-default"
data-filter-column="12"
data-filter-value="M"
title="' . I18N::translate('Show only males.') . '"
type="button"
>
' . Individual::sexImage('M', 'large') . '
</button>
<button
class="ui-state-default"
data-filter-column="12"
data-filter-value="F"
title="' . I18N::translate('Show only females.') . '"
type="button"
>
' . Individual::sexImage('F', 'large') . '
</button>
<button
class="ui-state-default"
data-filter-column="12"
data-filter-value="U"
title="' . I18N::translate('Show only individuals for whom the gender is not known.') . '"
type="button"
>
' . Individual::sexImage('U', 'large') . '
</button>
</div>
<div class="btn-group">
<button
class="ui-state-default"
data-filter-column="14"
data-filter-value="N"
title="' . I18N::translate('Show individuals who are alive or couples where both partners are alive.') . '"
type="button"
>
' . I18N::translate('Alive') . '
</button>
<button
class="ui-state-default"
data-filter-column="14"
data-filter-value="Y"
title="' . I18N::translate('Show individuals who are dead or couples where both partners are dead.') . '"
type="button"
>
' . I18N::translate('Dead') . '
</button>
<button
class="ui-state-default"
data-filter-column="14"
data-filter-value="YES"
title="' . I18N::translate('Show individuals who died more than 100 years ago.') . '"
type="button"
>
' . GedcomTag::getLabel('DEAT') . '&gt;100
</button>
<button
class="ui-state-default"
data-filter-column="14"
data-filter-value="Y100"
title="' . I18N::translate('Show individuals who died within the last 100 years.') . '"
type="button"
>
' . GedcomTag::getLabel('DEAT') . '&lt;=100
</button>
</div>
<div class="btn-group">
<button
class="ui-state-default"
data-filter-column="13"
data-filter-value="YES"
title="' . I18N::translate('Show individuals born more than 100 years ago.') . '"
type="button"
>
' . GedcomTag::getLabel('BIRT') . '&gt;100
</button>
<button
class="ui-state-default"
data-filter-column="13"
data-filter-value="Y100"
title="' . I18N::translate('Show individuals born within the last 100 years.') . '"
type="button"
>
' . GedcomTag::getLabel('BIRT') . '&lt;=100
</button>
</div>
<div class="btn-group">
<button
class="ui-state-default"
data-filter-column="15"
data-filter-value="R"
title="' . 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"
>
' . I18N::translate('Roots') . '
</button>
<button
class="ui-state-default"
data-filter-column="15"
data-filter-value="L"
title="' . I18N::translate('Show “leaves” couples or individuals. These are individuals who are alive but have no children recorded in the database.') . '"
type="button"
>
' . I18N::translate('Leaves') . '
</button>
</div>
</div>
</th>
</tr>
<tr>
<th>' . GedcomTag::getLabel('GIVN') . '</th>
<th>' . GedcomTag::getLabel('SURN') . '</th>
<th>' . /* I18N: Abbreviation for “Sosa-Stradonitz number”. This is an individual’s surname, so may need transliterating into non-latin alphabets. */ I18N::translate('Sosa') . '</th>
<th>' . GedcomTag::getLabel('BIRT') . '</th>
<th><i class="icon-reminder" title="' . I18N::translate('Anniversary') . '"></i></th>
<th>' . GedcomTag::getLabel('PLAC') . '</th>
<th><i class="icon-children" title="' . I18N::translate('Children') . '"></i></th>
<th>' . GedcomTag::getLabel('DEAT') . '</th>
<th><i class="icon-reminder" title="' . I18N::translate('Anniversary') . '"></i></th>
<th>' . GedcomTag::getLabel('AGE') . '</th>
<th>' . GedcomTag::getLabel('PLAC') . '</th>
<th>' . GedcomTag::getLabel('CHAN') . '</th>
<th hidden></th>
<th hidden></th>
<th hidden></th>
<th hidden></th>
</tr>
</thead>
<tfoot>
<tr>
<th colspan="16">
<div class="btn-toolbar">
<div class="btn-group">
<button type="button" class="ui-state-default btn-toggle-parents">
' . I18N::translate('Show parents') . '
</button>
<button type="button" class="ui-state-default btn-toggle-statistics">
' . I18N::translate('Show statistics charts') . '
</button>
</div>
</div>
</th>
</tr>
</tfoot>
<tbody>';
$hundred_years_ago = new Date(date('Y') - 100);
$unique_indis = array(); // Don't double-count indis with multiple names.
foreach ($indiviudals as $key => $individual) {
if (!$individual->canShowName()) {
continue;
}
if ($individual->isPendingAddtion()) {
$class = ' class="new"';
} elseif ($individual->isPendingDeletion()) {
$class = ' class="old"';
} else {
$class = '';
}
$html .= '<tr' . $class . '>';
// Extract Given names and Surnames for sorting
list($surn_givn, $givn_surn) = self::sortableNames($individual);
$html .= '<td colspan="2" data-sort="' . Filter::escapeHtml($givn_surn) . '">';
foreach ($individual->getAllNames() as $num => $name) {
if ($name['type'] == 'NAME') {
$title = '';
} else {
$title = 'title="' . strip_tags(GedcomTag::getLabel($name['type'], $individual)) . '"';
}
if ($num == $individual->getPrimaryName()) {
$class = ' class="name2"';
$sex_image = $individual->getSexImage();
} else {
$class = '';
$sex_image = '';
}
$html .= '<a ' . $title . ' href="' . $individual->getHtmlUrl() . '"' . $class . '>' . FunctionsPrint::highlightSearchHits($name['full']) . '</a>' . $sex_image . '<br>';
}
$html .= $individual->getPrimaryParentsNames('parents details1', 'none');
$html .= '</td>';
// Hidden column for sortable name
$html .= '<td hidden data-sort="' . Filter::escapeHtml($surn_givn) . '"></td>';
// SOSA
$html .= '<td class="center" data-sort="' . $key . '">';
if ($option === 'sosa') {
$html .= '<a href="relationship.php?pid1=' . $indiviudals[1] . '&amp;pid2=' . $individual->getXref() . '" title="' . I18N::translate('Relationships') . '">' . I18N::number($key) . '</a>';
}
$html .= '</td>';
// Birth date
$birth_dates = $individual->getAllBirthDates();
$html .= '<td data-sort="' . $individual->getEstimatedBirthDate()->julianDay() . '">';
foreach ($birth_dates as $n => $birth_date) {
if ($n > 0) {
$html .= '<br>';
}
$html .= $birth_date->display(true);
}
$html .= '</td>';
// Birth anniversary
if (isset($birth_dates[0]) && $birth_dates[0]->gregorianYear() >= 1550 && $birth_dates[0]->gregorianYear() < 2030 && !isset($unique_indis[$individual->getXref()])) {
$birt_by_decade[(int) ($birth_dates[0]->gregorianYear() / 10) * 10] .= $individual->getSex();
$anniversary = Date::getAge($birth_dates[0], null, 2);
} else {
$anniversary = '';
}
$html .= '<td class="center" data-sort="' . -$individual->getEstimatedBirthDate()->julianDay() . '">' . $anniversary . '</td>';
// Birth place
$html .= '<td>';
foreach ($individual->getAllBirthPlaces() as $n => $birth_place) {
$tmp = new Place($birth_place, $individual->getTree());
if ($n > 0) {
$html .= '<br>';
}
$html .= '<a href="' . $tmp->getURL() . '" title="' . strip_tags($tmp->getFullName()) . '">';
$html .= FunctionsPrint::highlightSearchHits($tmp->getShortName()) . '</a>';
}
$html .= '</td>';
// Number of children
$number_of_children = $individual->getNumberOfChildren();
$html .= '<td class="center" data-sort="' . $number_of_children . '">' . I18N::number($number_of_children) . '</td>';
// Death date
$death_dates = $individual->getAllDeathDates();
$html .= '<td data-sort="' . $individual->getEstimatedDeathDate()->julianDay() . '">';
foreach ($death_dates as $num => $death_date) {
if ($num) {
$html .= '<br>';
}
$html .= $death_date->display(true);
}
$html .= '</td>';
// Death anniversary
if (isset($death_dates[0]) && $death_dates[0]->gregorianYear() >= 1550 && $death_dates[0]->gregorianYear() < 2030 && !isset($unique_indis[$individual->getXref()])) {
$birt_by_decade[(int) ($death_dates[0]->gregorianYear() / 10) * 10] .= $individual->getSex();
$anniversary = Date::getAge($death_dates[0], null, 2);
} else {
$anniversary = '';
}
$html .= '<td class="center" data-sort="' . -$individual->getEstimatedDeathDate()->julianDay() . '">' . $anniversary . '</td>';
// Age at death
if (isset($birth_dates[0]) && isset($death_dates[0])) {
$age_at_death = Date::getAge($birth_dates[0], $death_dates[0], 0);
$age_at_death_sort = Date::getAge($birth_dates[0], $death_dates[0], 2);
if (!isset($unique_indis[$individual->getXref()]) && $age >= 0 && $age <= $max_age) {
$deat_by_age[$age_at_death] .= $individual->getSex();
}
} else {
$age_at_death = '';
$age_at_death_sort = PHP_INT_MAX;
}
$html .= '<td class="center" data-sort="' . $age_at_death_sort . '">' . $age_at_death . '</td>';
// Death place
$html .= '<td>';
foreach ($individual->getAllDeathPlaces() as $n => $death_place) {
$tmp = new Place($death_place, $individual->getTree());
if ($n > 0) {
$html .= '<br>';
}
$html .= '<a href="' . $tmp->getURL() . '" title="' . strip_tags($tmp->getFullName()) . '">';
$html .= FunctionsPrint::highlightSearchHits($tmp->getShortName()) . '</a>';
}
$html .= '</td>';
// Last change
$html .= '<td data-sort="' . $individual->lastChangeTimestamp(true) . '">' . $individual->lastChangeTimestamp() . '</td>';
// Filter by sex
$html .= '<td hidden>' . $individual->getSex() . '</td>';
// Filter by birth date
$html .= '<td hidden>';
if (!$individual->canShow() || Date::compare($individual->getEstimatedBirthDate(), $hundred_years_ago) > 0) {
$html .= 'Y100';
} else {
$html .= 'YES';
}
$html .= '</td>';
// Filter by death date
$html .= '<td hidden>';
// Died in last 100 years? Died? Not dead?
if (isset($death_dates[0]) && Date::compare($death_dates[0], $hundred_years_ago) > 0) {
$html .= 'Y100';
} elseif ($individual->isDead()) {
$html .= 'YES';
} else {
$html .= 'N';
}
$html .= '</td>';
// Filter by roots/leaves
$html .= '<td hidden>';
if (!$individual->getChildFamilies()) {
$html .= 'R';
} elseif (!$individual->isDead() && $individual->getNumberOfChildren() < 1) {
$html .= 'L';
$html .= '&nbsp;';
}
$html .= '</td>';
$html .= '</tr>';
$unique_indis[$individual->getXref()] = true;
}
$html .= '
</tbody>
</table>
<div id="indi_list_table-charts_' . $table_id . '" style="display:none">
<table class="list-charts">
<tr>
<td>
' . self::chartByDecade($birt_by_decade, I18N::translate('Decade of birth')) . '
</td>
<td>
' . self::chartByDecade($deat_by_decade, I18N::translate('Decade of death')) . '
</td>
</tr>
<tr>
<td colspan="2">
' . self::chartByAge($deat_by_age, I18N::translate('Age related to death year')) . '
</td>
</tr>
</table>
</div>
</div>';
return $html;
}
/**
* Print a table of families
*
* @param Family[] $families
*
* @return string
*/
public static function familyTable($families) {
global $WT_TREE, $controller;
$table_id = 'table-fam-' . Uuid::uuid4(); // lists requires a unique ID in case there are multiple lists per page
$controller
->addExternalJavascript(WT_JQUERY_DATATABLES_JS_URL)
->addInlineJavascript('
jQuery.fn.dataTableExt.oSort["text-asc"] = textCompareAsc;
jQuery.fn.dataTableExt.oSort["text-desc"] = textCompareDesc;
jQuery("#' . $table_id . '").dataTable( {
dom: \'<"H"<"filtersH_' . $table_id . '"><"dt-clear">pf<"dt-clear">irl>t<"F"pl<"dt-clear"><"filtersF_' . $table_id . '">>\',
' . I18N::datatablesI18N() . ',
jQueryUI: true,
autoWidth: false,
processing: true,
retrieve: true,
columns: [
/* Given names */ { type: "text" },
/* Surnames */ { type: "text" },
/* Age */ { type: "num" },
/* Given names */ { type: "text" },
/* Surnames */ { type: "text" },
/* Age */ { type: "num" },
/* Marriage date */ { type: "num" },
/* Anniversary */ { type: "num" },
/* Marriage place */ { type: "text" },
/* Children */ { type: "num" },
/* Last change */ { visible: ' . ($WT_TREE->getPreference('SHOW_LAST_CHANGE') ? 'true' : 'false') . ' },
/* Filter marriage */ { sortable: false },
/* Filter alive/dead */ { sortable: false },
/* Filter tree */ { sortable: false }
],
sorting: [[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("#fam_list_table-charts_' . $table_id . '").slideToggle();
})
/* Filter buttons in table header */
.on("click", "button[data-filter-column]", function() {
var btn = $(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(".fam-list").css("visibility", "visible");
jQuery(".loading-image").css("display", "none");
');
$stats = new Stats($WT_TREE);
$max_age = max($stats->oldestMarriageMaleAge(), $stats->oldestMarriageFemaleAge()) + 1;
// init chart data
$marr_by_age = array();
for ($age = 0; $age <= $max_age; $age++) {
$marr_by_age[$age] = '';
}
$birt_by_decade = array();
$marr_by_decade = array();
for ($year = 1550; $year < 2030; $year += 10) {
$birt_by_decade[$year] = '';
$marr_by_decade[$year] = '';
}
$html = '
<div class="loading-image"></div>
<div class="fam-list">
<table id="' . $table_id . '">
<thead>
<tr>
<th colspan="14">
<div class="btn-toolbar">
<div class="btn-group">
<button
type="button"
data-filter-column="12"
data-filter-value="N"
class="ui-state-default"
title="' . I18N::translate('Show individuals who are alive or couples where both partners are alive.') . '"
>
' . I18N::translate('Both alive') . '
</button>
<button
type="button"
data-filter-column="12"
data-filter-value="W"
class="ui-state-default"
title="' . I18N::translate('Show couples where only the female partner is dead.') . '"
>
' . I18N::translate('Widower') . '
</button>
<button
type="button"
data-filter-column="12"
data-filter-value="H"
class="ui-state-default"
title="' . I18N::translate('Show couples where only the male partner is dead.') . '"
>
' . I18N::translate('Widow') . '
</button>
<button
type="button"
data-filter-column="12"
data-filter-value="Y"
class="ui-state-default"
title="' . I18N::translate('Show individuals who are dead or couples where both partners are dead.') . '"
>
' . I18N::translate('Both dead') . '
</button>
</div>
<div class="btn-group">
<button
type="button"
data-filter-column="13"
data-filter-value="R"
class="ui-state-default"
title="' . 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.') . '"
>
' . I18N::translate('Roots') . '
</button>
<button
type="button"
data-filter-column="13"
data-filter-value="L"
class="ui-state-default"
title="' . I18N::translate('Show “leaves” couples or individuals. These are individuals who are alive but have no children recorded in the database.') . '"
>
' . I18N::translate('Leaves') . '
</button>
</div>
<div class="btn-group">
<button
type="button"
data-filter-column="11"
data-filter-value="U"
class="ui-state-default"
title="' . I18N::translate('Show couples with an unknown marriage date.') . '"
>
' . GedcomTag::getLabel('MARR') . '
</button>
<button
type="button"
data-filter-column="11"
data-filter-value="YES"
class="ui-state-default"
title="' . I18N::translate('Show couples who married more than 100 years ago.') . '"
>
' . GedcomTag::getLabel('MARR') . '&gt;100
</button>
<button
type="button"
data-filter-column="11"
data-filter-value="Y100"
class="ui-state-default"
title="' . I18N::translate('Show couples who married within the last 100 years.') . '"
>
' . GedcomTag::getLabel('MARR') . '&lt;=100
</button>
<button
type="button"
data-filter-column="11"
data-filter-value="D"
class="ui-state-default"
title="' . I18N::translate('Show divorced couples.') . '"
>
' . GedcomTag::getLabel('DIV') . '
</button>
<button
type="button"
data-filter-column="11"
data-filter-value="M"
class="ui-state-default"
title="' . I18N::translate('Show couples where either partner married more than once.') . '"
>
' . I18N::translate('Multiple marriages') . '
</button>
</div>
</div>
</th>
</tr>
<tr>
<th>' . GedcomTag::getLabel('GIVN') . '</th>
<th>' . GedcomTag::getLabel('SURN') . '</th>
<th>' . GedcomTag::getLabel('AGE') . '</th>
<th>' . GedcomTag::getLabel('GIVN') . '</th>
<th>' . GedcomTag::getLabel('SURN') . '</th>
<th>' . GedcomTag::getLabel('AGE') . '</th>
<th>' . GedcomTag::getLabel('MARR') . '</th>
<th><i class="icon-reminder" title="' . I18N::translate('Anniversary') . '"></i></th>
<th>' . GedcomTag::getLabel('PLAC') . '</th>
<th><i class="icon-children" title="' . I18N::translate('Children') . '"></i></th>
<th>' . GedcomTag::getLabel('CHAN') . '</th>
<th hidden></th>
<th hidden></th>
<th hidden></th>
</tr>
</thead>
<tfoot>
<tr>
<th colspan="14">
<div class="btn-toolbar">
<div class="btn-group">
<button type="button" class="ui-state-default btn-toggle-parents">
' . I18N::translate('Show parents') . '
</button>
<button type="button" class="ui-state-default btn-toggle-statistics">
' . I18N::translate('Show statistics charts') . '
</button>
</div>
</div>
</th>
</tr>
</tfoot>
<tbody>';
$hundred_years_ago = new Date(date('Y') - 100);
foreach ($families as $family) {
// Retrieve husband and wife
$husb = $family->getHusband();
if (is_null($husb)) {
$husb = new Individual('H', '0 @H@ INDI', null, $family->getTree());
}
$wife = $family->getWife();
if (is_null($wife)) {
$wife = new Individual('W', '0 @W@ INDI', null, $family->getTree());
}
if (!$family->canShow()) {
continue;
}
if ($family->isPendingAddtion()) {
$class = ' class="new"';
} elseif ($family->isPendingDeletion()) {
$class = ' class="old"';
} else {
$class = '';
}
$html .= '<tr' . $class . '>';
// Husband name(s)
// Extract Given names and Surnames for sorting
list($surn_givn, $givn_surn) = self::sortableNames($husb);
$html .= '<td colspan="2" data-sort="' . Filter::escapeHtml($givn_surn) . '">';
foreach ($husb->getAllNames() as $num => $name) {
if ($name['type'] == 'NAME') {
$title = '';
} else {
$title = 'title="' . strip_tags(GedcomTag::getLabel($name['type'], $husb)) . '"';
}
if ($num == $husb->getPrimaryName()) {
$class = ' class="name2"';
$sex_image = $husb->getSexImage();
} else {
$class = '';
$sex_image = '';
}
// Only show married names if they are the name we are filtering by.
if ($name['type'] != '_MARNM' || $num == $husb->getPrimaryName()) {
$html .= '<a ' . $title . ' href="' . $family->getHtmlUrl() . '"' . $class . '>' . FunctionsPrint::highlightSearchHits($name['full']) . '</a>' . $sex_image . '<br>';
}
}
// Husband parents
$html .= $husb->getPrimaryParentsNames('parents details1', 'none');
$html .= '</td>';
// Hidden column for sortable name
$html .= '<td hidden data-sort="' . Filter::escapeHtml($surn_givn) . '"></td>';
// Husband age
$mdate = $family->getMarriageDate();
$hdate = $husb->getBirthDate();
if ($hdate->isOK() && $mdate->isOK()) {
if ($hdate->gregorianYear() >= 1550 && $hdate->gregorianYear() < 2030) {
$birt_by_decade[(int) ($hdate->gregorianYear() / 10) * 10] .= $husb->getSex();
}
$hage = Date::getAge($hdate, $mdate, 0);
if ($hage >= 0 && $hage <= $max_age) {
$marr_by_age[$hage] .= $husb->getSex();
}
}
$html .= '<td class="center" data=-sort="' . Date::getAge($hdate, $mdate, 1) . '">' . Date::getAge($hdate, $mdate, 2) . '</td>';
// Wife name(s)
// Extract Given names and Surnames for sorting
list($surn_givn, $givn_surn) = self::sortableNames($wife);
$html .= '<td colspan="2" data-sort="' . Filter::escapeHtml($givn_surn) . '">';
foreach ($wife->getAllNames() as $num => $name) {
if ($name['type'] == 'NAME') {
$title = '';
} else {
$title = 'title="' . strip_tags(GedcomTag::getLabel($name['type'], $wife)) . '"';
}
if ($num == $wife->getPrimaryName()) {
$class = ' class="name2"';
$sex_image = $wife->getSexImage();
} else {
$class = '';
$sex_image = '';
}
// Only show married names if they are the name we are filtering by.
if ($name['type'] != '_MARNM' || $num == $wife->getPrimaryName()) {
$html .= '<a ' . $title . ' href="' . $family->getHtmlUrl() . '"' . $class . '>' . FunctionsPrint::highlightSearchHits($name['full']) . '</a>' . $sex_image . '<br>';
}
}
// Wife parents
$html .= $wife->getPrimaryParentsNames('parents details1', 'none');
$html .= '</td>';
// Hidden column for sortable name
$html .= '<td hidden data-sort="' . Filter::escapeHtml($surn_givn) . '"></td>';
// Wife age
$mdate = $family->getMarriageDate();
$wdate = $wife->getBirthDate();
if ($wdate->isOK() && $mdate->isOK()) {
if ($wdate->gregorianYear() >= 1550 && $wdate->gregorianYear() < 2030) {
$birt_by_decade[(int) ($wdate->gregorianYear() / 10) * 10] .= $wife->getSex();
}
$wage = Date::getAge($wdate, $mdate, 0);
if ($wage >= 0 && $wage <= $max_age) {
$marr_by_age[$wage] .= $wife->getSex();
}
}
$html .= '<td class="center" data-sort="' . Date::getAge($wdate, $mdate, 1) . '">' . Date::getAge($wdate, $mdate, 2) . '</td>';
// Marriage date
$html .= '<td data-sort="' . $family->getMarriageDate()->julianDay() . '">';
if ($marriage_dates = $family->getAllMarriageDates()) {
foreach ($marriage_dates as $n => $marriage_date) {
if ($n) {
$html .= '<br>';
}
$html .= '<div>' . $marriage_date->display(true) . '</div>';
}
if ($marriage_dates[0]->gregorianYear() >= 1550 && $marriage_dates[0]->gregorianYear() < 2030) {
$marr_by_decade[(int) ($marriage_dates[0]->gregorianYear() / 10) * 10] .= $husb->getSex() . $wife->getSex();
}
} elseif ($family->getFacts('_NMR')) {
$html .= I18N::translate('no');
} elseif ($family->getFacts('MARR')) {
$html .= I18N::translate('yes');
} else {
$html .= '&nbsp;';
}
$html .= '</td>';
// Marriage anniversary
$html .= '<td class="center" data-sort="' . -$family->getMarriageDate()->julianDay() . '">' . Date::getAge($family->getMarriageDate(), null, 2) . '</td>';
// Marriage place
$html .= '<td>';
foreach ($family->getAllMarriagePlaces() as $n => $marriage_place) {
$tmp = new Place($marriage_place, $family->getTree());
if ($n) {
$html .= '<br>';
}
$html .= '<a href="' . $tmp->getURL() . '" title="' . strip_tags($tmp->getFullName()) . '">';
$html .= FunctionsPrint::highlightSearchHits($tmp->getShortName()) . '</a>';
}
$html .= '</td>';
// Number of children
$html .= '<td class="center" data-sort="' . $family->getNumberOfChildren() . '">' . I18N::number($family->getNumberOfChildren()) . '</td>';
// Last change
$html .= '<td data-sort="' . $family->lastChangeTimestamp(true) . '">' . $family->lastChangeTimestamp() . '</td>';
// Filter by marriage date
$html .= '<td hidden>';
if (!$family->canShow() || !$mdate->isOK()) {
$html .= 'U';
} else {
if (Date::compare($mdate, $hundred_years_ago) > 0) {
$html .= 'Y100';
} else {
$html .= 'YES';
}
}
if ($family->getFacts(WT_EVENTS_DIV)) {
$html .= 'D';
}
if (count($husb->getSpouseFamilies()) > 1 || count($wife->getSpouseFamilies()) > 1) {
$html .= 'M';
}
$html .= '</td>';
// Filter by alive/dead
$html .= '<td hidden>';
if ($husb->isDead() && $wife->isDead()) {
$html .= 'Y';
}
if ($husb->isDead() && !$wife->isDead()) {
if ($wife->getSex() == 'F') {
$html .= 'H';
}
if ($wife->getSex() == 'M') {
$html .= 'W';
} // male partners
}
if (!$husb->isDead() && $wife->isDead()) {
if ($husb->getSex() == 'M') {
$html .= 'W';
}
if ($husb->getSex() == 'F') {
$html .= 'H';
} // female partners
}
if (!$husb->isDead() && !$wife->isDead()) {
$html .= 'N';
}
$html .= '</td>';
// Filter by roots/leaves
$html .= '<td hidden>';
if (!$husb->getChildFamilies() && !$wife->getChildFamilies()) {
$html .= 'R';
} elseif (!$husb->isDead() && !$wife->isDead() && $family->getNumberOfChildren() === 0) {
$html .= 'L';
}
$html .= '</td>
</tr>';
}
$html .= '
</tbody>
</table>
<div id="fam_list_table-charts_' . $table_id . '" style="display:none">
<table class="list-charts">
<tr>
<td>' . self::chartByDecade($birt_by_decade, I18N::translate('Decade of birth')) . '</td>
<td>' . self::chartByDecade($marr_by_decade, I18N::translate('Decade of marriage')) . '</td>
</tr>
<tr>
<td colspan="2">' . self::chartByAge($marr_by_age, I18N::translate('Age in year of marriage')) . '</td>
</tr>
</table>
</div>
</div>';
return $html;
}
/**
* Print a table of sources
*
* @param Source[] $sources
*
* @return string
*/
public static function sourceTable($sources) {
global $WT_TREE, $controller;
// Count the number of linked records. These numbers include private records.
// It is not good to bypass privacy, but many servers do not have the resources
// to process privacy for every record in the tree
$count_individuals = Database::prepare(
"SELECT CONCAT(l_to, '@', l_file), COUNT(*) FROM `##individuals` JOIN `##link` ON l_from = i_id AND l_file = i_file AND l_type = 'SOUR' GROUP BY l_to, l_file"
)->fetchAssoc();
$count_families = Database::prepare(
"SELECT CONCAT(l_to, '@', l_file), COUNT(*) FROM `##families` JOIN `##link` ON l_from = f_id AND l_file = f_file AND l_type = 'SOUR' GROUP BY l_to, l_file"
)->fetchAssoc();
$count_media = Database::prepare(
"SELECT CONCAT(l_to, '@', l_file), COUNT(*) FROM `##media` JOIN `##link` ON l_from = m_id AND l_file = m_file AND l_type = 'SOUR' GROUP BY l_to, l_file"
)->fetchAssoc();
$count_notes = Database::prepare(
"SELECT CONCAT(l_to, '@', l_file), COUNT(*) FROM `##other` JOIN `##link` ON l_from = o_id AND l_file = o_file AND o_type = 'NOTE' AND l_type = 'SOUR' GROUP BY l_to, l_file"
)->fetchAssoc();
$html = '';
$table_id = 'table-sour-' . Uuid::uuid4(); // lists requires a unique ID in case there are multiple lists per page
$controller
->addExternalJavascript(WT_JQUERY_DATATABLES_JS_URL)
->addInlineJavascript('
jQuery.fn.dataTableExt.oSort["text-asc"] = textCompareAsc;
jQuery.fn.dataTableExt.oSort["text-desc"] = textCompareDesc;
jQuery("#' . $table_id . '").dataTable( {
dom: \'<"H"pf<"dt-clear">irl>t<"F"pl>\',
' . I18N::datatablesI18N() . ',
jQueryUI: true,
autoWidth: false,
processing: true,
columns: [
/* Title */ { type: "text" },
/* Author */ { type: "text" },
/* Individuals */ { type: "num" },
/* Families */ { type: "num" },
/* Media objects */ { type: "num" },
/* Notes */ { type: "num" },
/* Last change */ { visible: ' . ($WT_TREE->getPreference('SHOW_LAST_CHANGE') ? 'true' : 'false') . ' },
/* Delete */ { visible: ' . (Auth::isManager($WT_TREE) ? 'true' : 'false') . ', sortable: false }
],
displayLength: 20,
pagingType: "full_numbers"
});
jQuery(".source-list").css("visibility", "visible");
jQuery(".loading-image").css("display", "none");
');
$html .= '<div class="loading-image"></div>';
$html .= '<div class="source-list">';
$html .= '<table id="' . $table_id . '"><thead><tr>';
$html .= '<th>' . GedcomTag::getLabel('TITL') . '</th>';
$html .= '<th>' . GedcomTag::getLabel('AUTH') . '</th>';
$html .= '<th>' . I18N::translate('Individuals') . '</th>';
$html .= '<th>' . I18N::translate('Families') . '</th>';
$html .= '<th>' . I18N::translate('Media objects') . '</th>';
$html .= '<th>' . I18N::translate('Shared notes') . '</th>';
$html .= '<th>' . GedcomTag::getLabel('CHAN') . '</th>';
$html .= '<th>' . I18N::translate('Delete') . '</th>';
$html .= '</tr></thead>';
$html .= '<tbody>';
foreach ($sources as $source) {
if (!$source->canShow()) {
continue;
}
if ($source->isPendingAddtion()) {
$class = ' class="new"';
} elseif ($source->isPendingDeletion()) {
$class = ' class="old"';
} else {
$class = '';
}
$html .= '<tr' . $class . '>';
// Source name(s)
$html .= '<td data-sort="' . Filter::escapeHtml($source->getSortName()) . '">';
foreach ($source->getAllNames() as $n => $name) {
if ($n) {
$html .= '<br>';
}
if ($n == $source->getPrimaryName()) {
$html .= '<a class="name2" href="' . $source->getHtmlUrl() . '">' . FunctionsPrint::highlightSearchHits($name['full']) . '</a>';
} else {
$html .= '<a href="' . $source->getHtmlUrl() . '">' . FunctionsPrint::highlightSearchHits($name['full']) . '</a>';
}
}
$html .= '</td>';
// Author
$auth = $source->getFirstFact('AUTH');
if ($auth) {
$author = $auth->getValue();
} else {
$author = '';
}
$html .= '<td data-sort="' . Filter::escapeHtml($author) . '">' . FunctionsPrint::highlightSearchHits($author) . '</td>';
$key = $source->getXref() . '@' . $source->getTree()->getTreeId();
// Count of linked individuals
$num = array_key_exists($key, $count_individuals) ? $count_individuals[$key] : 0;
$html .= '<td class="center" data-sort="' . $num . '">' . I18N::number($num) . '</td>';
// Count of linked families
$num = array_key_exists($key, $count_families) ? $count_families[$key] : 0;
$html .= '<td class="center" data-sort="' . $num . '">' . I18N::number($num) . '</td>';
// Count of linked media objects
$num = array_key_exists($key, $count_media) ? $count_media[$key] : 0;
$html .= '<td class="center" data-sort="' . $num . '">' . I18N::number($num) . '</td>';
// Count of linked notes
$num = array_key_exists($key, $count_notes) ? $count_notes[$key] : 0;
$html .= '<td class="center" data-sort="' . $num . '">' . I18N::number($num) . '</td>';
// Last change
$html .= '<td data-sort="' . $source->lastChangeTimestamp(true) . '">' . $source->lastChangeTimestamp() . '</td>';
// Delete
$html .= '<td><a href="#" title="' . I18N::translate('Delete') . '" class="deleteicon" onclick="return delete_record(\'' . I18N::translate('Are you sure you want to delete “%s”?', Filter::escapeJs(Filter::unescapeHtml($source->getFullName()))) . "', '" . $source->getXref() . '\');"><span class="link_text">' . I18N::translate('Delete') . '</span></a></td>';
$html .= '</tr>';
}
$html .= '</tbody></table></div>';
return $html;
}
/**
* Print a table of shared notes
*
* @param Note[] $notes
*
* @return string
*/
public static function noteTable($notes) {
global $WT_TREE, $controller;
// Count the number of linked records. These numbers include private records.
// It is not good to bypass privacy, but many servers do not have the resources
// to process privacy for every record in the tree
$count_individuals = Database::prepare(
"SELECT CONCAT(l_to, '@', l_file), COUNT(*) FROM `##individuals` JOIN `##link` ON l_from = i_id AND l_file = i_file AND l_type = 'NOTE' GROUP BY l_to, l_file"
)->fetchAssoc();
$count_families = Database::prepare(
"SELECT CONCAT(l_to, '@', l_file), COUNT(*) FROM `##families` JOIN `##link` ON l_from = f_id AND l_file = f_file AND l_type = 'NOTE' GROUP BY l_to, l_file"
)->fetchAssoc();
$count_media = Database::prepare(
"SELECT CONCAT(l_to, '@', l_file), COUNT(*) FROM `##media` JOIN `##link` ON l_from = m_id AND l_file = m_file AND l_type = 'NOTE' GROUP BY l_to, l_file"
)->fetchAssoc();
$count_sources = Database::prepare(
"SELECT CONCAT(l_to, '@', l_file), COUNT(*) FROM `##sources` JOIN `##link` ON l_from = s_id AND l_file = s_file AND l_type = 'NOTE' GROUP BY l_to, l_file"
)->fetchAssoc();
$html = '';
$table_id = 'table-note-' . Uuid::uuid4(); // lists requires a unique ID in case there are multiple lists per page
$controller
->addExternalJavascript(WT_JQUERY_DATATABLES_JS_URL)
->addInlineJavascript('
jQuery.fn.dataTableExt.oSort["text-asc"] = textCompareAsc;
jQuery.fn.dataTableExt.oSort["text-desc"] = textCompareDesc;
jQuery("#' . $table_id . '").dataTable({
dom: \'<"H"pf<"dt-clear">irl>t<"F"pl>\',
' . I18N::datatablesI18N() . ',
jQueryUI: true,
autoWidth: false,
processing: true,
columns: [
/* Title */ { type: "text" },
/* Individuals */ { type: "num" },
/* Families */ { type: "num" },
/* Media objects */ { type: "num" },
/* Sources */ { type: "num" },
/* Last change */ { type: "num", visible: ' . ($WT_TREE->getPreference('SHOW_LAST_CHANGE') ? 'true' : 'false') . ' },
/* Delete */ { visible: ' . (Auth::isManager($WT_TREE) ? 'true' : 'false') . ', sortable: false }
],
displayLength: 20,
pagingType: "full_numbers"
});
jQuery(".note-list").css("visibility", "visible");
jQuery(".loading-image").css("display", "none");
');
$html .= '<div class="loading-image"></div>';
$html .= '<div class="note-list">';
$html .= '<table id="' . $table_id . '"><thead><tr>';
$html .= '<th>' . GedcomTag::getLabel('TITL') . '</th>';
$html .= '<th>' . I18N::translate('Individuals') . '</th>';
$html .= '<th>' . I18N::translate('Families') . '</th>';
$html .= '<th>' . I18N::translate('Media objects') . '</th>';
$html .= '<th>' . I18N::translate('Sources') . '</th>';
$html .= '<th>' . GedcomTag::getLabel('CHAN') . '</th>';
$html .= '<th>' . I18N::translate('Delete') . '</th>';
$html .= '</tr></thead>';
$html .= '<tbody>';
foreach ($notes as $note) {
if (!$note->canShow()) {
continue;
}
if ($note->isPendingAddtion()) {
$class = ' class="new"';
} elseif ($note->isPendingDeletion()) {
$class = ' class="old"';
} else {
$class = '';
}
$html .= '<tr' . $class . '>';
// Count of linked notes
$html .= '<td data-sort="' . Filter::escapeHtml($note->getSortName()) . '"><a class="name2" href="' . $note->getHtmlUrl() . '">' . FunctionsPrint::highlightSearchHits($note->getFullName()) . '</a></td>';
$key = $note->getXref() . '@' . $note->getTree()->getTreeId();
// Count of linked individuals
$num = array_key_exists($key, $count_individuals) ? $count_individuals[$key] : 0;
$html .= '<td class="center" data-sort="' . $num . '">' . I18N::number($num) . '</td>';
// Count of linked families
$num = array_key_exists($key, $count_families) ? $count_families[$key] : 0;
$html .= '<td class="center" data-sort="' . $num . '">' . I18N::number($num) . '</td>';
// Count of linked media objects
$num = array_key_exists($key, $count_media) ? $count_media[$key] : 0;
$html .= '<td class="center" data-sort="' . $num . '">' . I18N::number($num) . '</td>';
// Count of linked sources
$num = array_key_exists($key, $count_sources) ? $count_sources[$key] : 0;
$html .= '<td class="center" data-sort="' . $num . '">' . I18N::number($num) . '</td>';
// Last change
$html .= '<td data-sort="' . $note->lastChangeTimestamp(true) . '">' . $note->lastChangeTimestamp() . '</td>';
// Delete
$html .= '<td><a href="#" title="' . I18N::translate('Delete') . '" class="deleteicon" onclick="return delete_record(\'' . I18N::translate('Are you sure you want to delete “%s”?', Filter::escapeJs(Filter::unescapeHtml($note->getFullName()))) . "', '" . $note->getXref() . '\');"><span class="link_text">' . I18N::translate('Delete') . '</span></a></td>';
$html .= '</tr>';
}
$html .= '</tbody></table></div>';
return $html;
}
/**
* Print a table of repositories
*
* @param Repository[] $repositories
*
* @return string
*/
public static function repositoryTable($repositories) {
global $WT_TREE, $controller;
// Count the number of linked records. These numbers include private records.
// It is not good to bypass privacy, but many servers do not have the resources
// to process privacy for every record in the tree
$count_sources = Database::prepare(
"SELECT CONCAT(l_to, '@', l_file), COUNT(*) FROM `##sources` JOIN `##link` ON l_from = s_id AND l_file = s_file AND l_type = 'REPO' GROUP BY l_to, l_file"
)->fetchAssoc();
$html = '';
$table_id = 'table-repo-' . Uuid::uuid4(); // lists requires a unique ID in case there are multiple lists per page
$controller
->addExternalJavascript(WT_JQUERY_DATATABLES_JS_URL)
->addInlineJavascript('
jQuery.fn.dataTableExt.oSort["text-asc"] = textCompareAsc;
jQuery.fn.dataTableExt.oSort["text-desc"] = textCompareDesc;
jQuery("#' . $table_id . '").dataTable({
dom: \'<"H"pf<"dt-clear">irl>t<"F"pl>\',
' . I18N::datatablesI18N() . ',
jQueryUI: true,
autoWidth: false,
processing: true,
columns: [
/* Name */ { type: "text" },
/* Sources */ { type: "num" },
/* Last change */ { visible: ' . ($WT_TREE->getPreference('SHOW_LAST_CHANGE') ? 'true' : 'false') . ' },
/* Delete */ { visible: ' . (Auth::isManager($WT_TREE) ? 'true' : 'false') . ', sortable: false }
],
displayLength: 20,
pagingType: "full_numbers"
});
jQuery(".repo-list").css("visibility", "visible");
jQuery(".loading-image").css("display", "none");
');
$html .= '<div class="loading-image"></div>';
$html .= '<div class="repo-list">';
$html .= '<table id="' . $table_id . '"><thead><tr>';
$html .= '<th>' . I18N::translate('Repository name') . '</th>';
$html .= '<th>' . I18N::translate('Sources') . '</th>';
$html .= '<th>' . GedcomTag::getLabel('CHAN') . '</th>';
$html .= '<th>' . I18N::translate('Delete') . '</th>';
$html .= '</tr></thead>';
$html .= '<tbody>';
foreach ($repositories as $repository) {
if (!$repository->canShow()) {
continue;
}
if ($repository->isPendingAddtion()) {
$class = ' class="new"';
} elseif ($repository->isPendingDeletion()) {
$class = ' class="old"';
} else {
$class = '';
}
$html .= '<tr' . $class . '>';
// Repository name(s)
$html .= '<td data-sort="' . Filter::escapeHtml($repository->getSortName()) . '">';
foreach ($repository->getAllNames() as $n => $name) {
if ($n) {
$html .= '<br>';
}
if ($n == $repository->getPrimaryName()) {
$html .= '<a class="name2" href="' . $repository->getHtmlUrl() . '">' . FunctionsPrint::highlightSearchHits($name['full']) . '</a>';
} else {
$html .= '<a href="' . $repository->getHtmlUrl() . '">' . FunctionsPrint::highlightSearchHits($name['full']) . '</a>';
}
}
$html .= '</td>';
$key = $repository->getXref() . '@' . $repository->getTree()->getTreeId();
// Count of linked sources
$num = array_key_exists($key, $count_sources) ? $count_sources[$key] : 0;
$html .= '<td class="center" data-sort="' . $num . '">' . I18N::number($num) . '</td>';
// Last change
$html .= '<td data-sort="' . $repository->lastChangeTimestamp(true) . '">' . $repository->lastChangeTimestamp() . '</td>';
// Delete
$html .= '<td><a href="#" title="' . I18N::translate('Delete') . '" class="deleteicon" onclick="return delete_record(\'' . I18N::translate('Are you sure you want to delete “%s”?', Filter::escapeJs(Filter::unescapeHtml($repository->getFullName()))) . "', '" . $repository->getXref() . '\');"><span class="link_text">' . I18N::translate('Delete') . '</span></a></td>';
$html .= '</tr>';
}
$html .= '</tbody></table></div>';
return $html;
}
/**
* Print a table of media objects
*
* @param Media[] $media_objects
*
* @return string
*/
public static function mediaTable($media_objects) {
global $WT_TREE, $controller;
$html = '';
$table_id = 'table-obje-' . Uuid::uuid4(); // lists requires a unique ID in case there are multiple lists per page
$controller
->addExternalJavascript(WT_JQUERY_DATATABLES_JS_URL)
->addInlineJavascript('
jQuery.fn.dataTableExt.oSort["text-asc"] = textCompareAsc;
jQuery.fn.dataTableExt.oSort["text-desc"] = textCompareDesc;
jQuery("#' . $table_id . '").dataTable({
dom: \'<"H"pf<"dt-clear">irl>t<"F"pl>\',
' . I18N::datatablesI18N() . ',
jQueryUI: true,
autoWidth:false,
processing: true,
columns: [
/* Thumbnail */ { sortable: false },
/* Title */ { type: "text" },
/* Individuals */ { type: "num" },
/* Families */ { type: "num" },
/* Sources */ { type: "num" },
/* Last change */ { visible: ' . ($WT_TREE->getPreference('SHOW_LAST_CHANGE') ? 'true' : 'false') . ' },
],
displayLength: 20,
pagingType: "full_numbers"
});
jQuery(".media-list").css("visibility", "visible");
jQuery(".loading-image").css("display", "none");
');
$html .= '<div class="loading-image"></div>';
$html .= '<div class="media-list">';
$html .= '<table id="' . $table_id . '"><thead><tr>';
$html .= '<th>' . I18N::translate('Media') . '</th>';
$html .= '<th>' . GedcomTag::getLabel('TITL') . '</th>';
$html .= '<th>' . I18N::translate('Individuals') . '</th>';
$html .= '<th>' . I18N::translate('Families') . '</th>';
$html .= '<th>' . I18N::translate('Sources') . '</th>';
$html .= '<th>' . GedcomTag::getLabel('CHAN') . '</th>';
$html .= '</tr></thead>';
$html .= '<tbody>';
foreach ($media_objects as $media_object) {
if ($media_object->canShow()) {
$name = $media_object->getFullName();
if ($media_object->isPendingAddtion()) {
$class = ' class="new"';
} elseif ($media_object->isPendingDeletion()) {
$class = ' class="old"';
} else {
$class = '';
}
$html .= '<tr' . $class . '>';
// Media object thumbnail
$html .= '<td>' . $media_object->displayImage() . '</td>';
// Media object name(s)
$html .= '<td data-sort="' . Filter::escapeHtml($media_object->getSortName()) . '">';
$html .= '<a href="' . $media_object->getHtmlUrl() . '" class="list_item name2">';
$html .= FunctionsPrint::highlightSearchHits($name) . '</a>';
if (Auth::isEditor($media_object->getTree())) {
$html .= '<br><a href="' . $media_object->getHtmlUrl() . '">' . basename($media_object->getFilename()) . '</a>';
}
$html .= '</td>';
// Count of linked individuals
$num = count($media_object->linkedIndividuals('OBJE'));
$html .= '<td class="center" data-sort="' . $num . '">' . I18N::number($num) . '</td>';
// Count of linked families
$num = count($media_object->linkedFamilies('OBJE'));
$html .= '<td class="center" data-sort="' . $num . '">' . I18N::number($num) . '</td>';
// Count of linked sources
$num = count($media_object->linkedSources('OBJE'));
$html .= '<td class="center" data-sort="' . $num . '">' . I18N::number($num) . '</td>';
// Last change
$html .= '<td data-sort="' . $media_object->lastChangeTimestamp(true) . '">' . $media_object->lastChangeTimestamp() . '</td>';
$html .= '</tr>';
}
}
$html .= '</tbody></table></div>';
return $html;
}
/**
* Print a table of surnames, for the top surnames block, the indi/fam lists, etc.
*
* @param string[][] $surnames array (of SURN, of array of SPFX_SURN, of array of PID)
* @param string $script "indilist.php" (counts of individuals) or "famlist.php" (counts of spouses)
* @param Tree $tree generate links for this tree
*
* @return string
*/
public static function surnameTable($surnames, $script, Tree $tree) {
global $controller;
$html = '';
$controller
->addExternalJavascript(WT_JQUERY_DATATABLES_JS_URL)
->addInlineJavascript('
jQuery.fn.dataTableExt.oSort["text-asc"] = textCompareAsc;
jQuery.fn.dataTableExt.oSort["text-desc"] = textCompareDesc;
jQuery(".surname-list").dataTable({
dom: "t",
jQueryUI: true,
autoWidth: false,
' . I18N::datatablesI18N() . ',
paging: false,
sorting: [[0, "asc"]],
columns: [
/* Surname */ { type: "text" },
/* Count */ { type: "num" }
]
});
');
if ($script == 'famlist.php') {
$col_heading = I18N::translate('Spouses');
} else {
$col_heading = I18N::translate('Individuals');
}
$html .=
'<table class="surname-list">' .
'<thead>' .
'<tr>' .
'<th>' . GedcomTag::getLabel('SURN') . '</th>' .
'<th>' . $col_heading . '</th>' .
'</tr>' .
'</thead>';
$html .= '<tbody>';
foreach ($surnames as $surn => $surns) {
// Each surname links back to the indi/fam surname list
if ($surn) {
$url = $script . '?surname=' . rawurlencode($surn) . '&amp;ged=' . $tree->getNameUrl();
} else {
$url = $script . '?alpha=,&amp;ged=' . $tree->getNameUrl();
}
$html .= '<tr>';
// Surname
$html .= '<td data-sort="' . Filter::escapeHtml($surn) . '">';
// Multiple surname variants, e.g. von Groot, van Groot, van der Groot, etc.
foreach ($surns as $spfxsurn => $indis) {
if ($spfxsurn) {
$html .= '<a href="' . $url . '" dir="auto">' . Filter::escapeHtml($spfxsurn) . '</a><br>';
} else {
// No surname, but a value from "2 SURN"? A common workaround for toponyms, etc.
$html .= '<a href="' . $url . '" dir="auto">' . Filter::escapeHtml($surn) . '</a><br>';
}
}
$html .= '</td>';
// Surname count
$subtotal = 0;
foreach ($surns as $indis) {
$subtotal += count($indis);
}
$html .= '<td class="center" data-sort="' . $subtotal . '">';
foreach ($surns as $indis) {
$html .= I18N::number(count($indis)) . '<br>';
}
if (count($surns) > 1) {
// More than one surname variant? Show a subtotal
$html .= I18N::number($subtotal);
}
$html .= '</td>';
$html .= '</tr>';
}
$html .= '</tbody></table>';
return $html;
}
/**
* Print a tagcloud of surnames.
*
* @param string[][] $surnames array (of SURN, of array of SPFX_SURN, of array of PID)
* @param string $script indilist or famlist
* @param bool $totals show totals after each name
* @param Tree $tree generate links to this tree
*
* @return string
*/
public static function surnameTagCloud($surnames, $script, $totals, Tree $tree) {
$minimum = PHP_INT_MAX;
$maximum = 1;
foreach ($surnames as $surn => $surns) {
foreach ($surns as $spfxsurn => $indis) {
$maximum = max($maximum, count($indis));
$minimum = min($minimum, count($indis));
}
}
$html = '';
foreach ($surnames as $surn => $surns) {
foreach ($surns as $spfxsurn => $indis) {
if ($maximum === $minimum) {
// All surnames occur the same number of times
$size = 150.0;
} else {
$size = 75.0 + 125.0 * (count($indis) - $minimum) / ($maximum - $minimum);
}
$html .= '<a style="font-size:' . $size . '%" href="' . $script . '?surname=' . Filter::escapeUrl($surn) . '&amp;ged=' . $tree->getNameUrl() . '">';
if ($totals) {
$html .= I18N::translate('%1$s (%2$s)', '<span dir="auto">' . $spfxsurn . '</span>', I18N::number(count($indis)));
} else {
$html .= $spfxsurn;
}
$html .= '</a> ';
}
}
return '<div class="tag_cloud">' . $html . '</div>';
}
/**
* Print a list of surnames.
*
* @param string[][] $surnames array (of SURN, of array of SPFX_SURN, of array of PID)
* @param int $style 1=bullet list, 2=semicolon-separated list, 3=tabulated list with up to 4 columns
* @param bool $totals show totals after each name
* @param string $script indilist or famlist
* @param Tree $tree Link back to the individual list in this tree
*
* @return string
*/
public static function surnameList($surnames, $style, $totals, $script, Tree $tree) {
$html = array();
foreach ($surnames as $surn => $surns) {
// Each surname links back to the indilist
if ($surn) {
$url = $script . '?surname=' . urlencode($surn) . '&amp;ged=' . $tree->getNameUrl();
} else {
$url = $script . '?alpha=,&amp;ged=' . $tree->getNameUrl();
}
// If all the surnames are just case variants, then merge them into one
// Comment out this block if you want SMITH listed separately from Smith
$first_spfxsurn = null;
foreach ($surns as $spfxsurn => $indis) {
if ($first_spfxsurn) {
if (I18N::strtoupper($spfxsurn) == I18N::strtoupper($first_spfxsurn)) {
$surns[$first_spfxsurn] = array_merge($surns[$first_spfxsurn], $surns[$spfxsurn]);
unset($surns[$spfxsurn]);
}
} else {
$first_spfxsurn = $spfxsurn;
}
}
$subhtml = '<a href="' . $url . '" dir="auto">' . Filter::escapeHtml(implode(I18N::$list_separator, array_keys($surns))) . '</a>';
if ($totals) {
$subtotal = 0;
foreach ($surns as $indis) {
$subtotal += count($indis);
}
$subhtml .= '&nbsp;(' . I18N::number($subtotal) . ')';
}
$html[] = $subhtml;
}
switch ($style) {
case 1:
return '<ul><li>' . implode('</li><li>', $html) . '</li></ul>';
case 2:
return implode(I18N::$list_separator, $html);
case 3:
$i = 0;
$count = count($html);
if ($count > 36) {
$col = 4;
} elseif ($count > 18) {
$col = 3;
} elseif ($count > 6) {
$col = 2;
} else {
$col = 1;
}
$newcol = ceil($count / $col);
$html2 = '<table class="list_table"><tr>';
$html2 .= '<td class="list_value" style="padding: 14px;">';
foreach ($html as $surns) {
$html2 .= $surns . '<br>';
$i++;
if ($i == $newcol && $i < $count) {
$html2 .= '</td><td class="list_value" style="padding: 14px;">';
$newcol = $i + ceil($count / $col);
}
}
$html2 .= '</td></tr></table>';
return $html2;
}
}
/**
* Print a table of events
*
* @param int $startjd
* @param int $endjd
* @param string $events
* @param bool $only_living
* @param string $sort_by
*
* @return string
*/
public static function eventsTable($startjd, $endjd, $events = 'BIRT MARR DEAT', $only_living = false, $sort_by = 'anniv') {
global $controller, $WT_TREE;
$html = '';
$table_id = 'table-even-' . Uuid::uuid4(); // lists requires a unique ID in case there are multiple lists per page
$controller
->addExternalJavascript(WT_JQUERY_DATATABLES_JS_URL)
->addInlineJavascript('
jQuery.fn.dataTableExt.oSort["text-asc"] = textCompareAsc;
jQuery.fn.dataTableExt.oSort["text-desc"] = textCompareDesc;
jQuery("#' . $table_id . '").dataTable({
dom: "t",
' . I18N::datatablesI18N() . ',
autoWidth: false,
paging: false,
lengthChange: false,
filter: false,
info: true,
jQueryUI: true,
sorting: [[ ' . ($sort_by == 'alpha' ? 0 : 1) . ', "asc"]],
columns: [
/* Name */ { type: "text" },
/* Date */ { type: "num" },
/* Anniversary */ { type: "num" },
/* Event */ { type: "text" }
]
});
');
// Did we have any output? Did we skip anything?
$filter = 0;
$filtered_events = array();
foreach (FunctionsDb::getEventsList($startjd, $endjd, $events, $WT_TREE) as $fact) {
$record = $fact->getParent();
// Only living people ?
if ($only_living) {
if ($record instanceof Individual && $record->isDead()) {
$filter++;
continue;
}
if ($record instanceof Family) {
$husb = $record->getHusband();
if (is_null($husb) || $husb->isDead()) {
$filter++;
continue;
}
$wife = $record->getWife();
if (is_null($wife) || $wife->isDead()) {
$filter++;
continue;
}
}
}
$filtered_events[] = $fact;
}
if (!empty($filtered_events)) {
$html .= '<table id="' . $table_id . '" class="width100">';
$html .= '<thead><tr>';
$html .= '<th>' . I18N::translate('Record') . '</th>';
$html .= '<th>' . GedcomTag::getLabel('DATE') . '</th>';
$html .= '<th><i class="icon-reminder" title="' . I18N::translate('Anniversary') . '"></i></th>';
$html .= '<th>' . GedcomTag::getLabel('EVEN') . '</th>';
$html .= '</tr></thead><tbody>';
foreach ($filtered_events as $n => $fact) {
$record = $fact->getParent();
$html .= '<tr>';
$html .= '<td data-sort="' . Filter::escapeHtml($record->getSortName()) . '">';
$html .= '<a href="' . $record->getHtmlUrl() . '">' . $record->getFullName() . '</a>';
if ($record instanceof Individual) {
$html .= $record->getSexImage();
}
$html .= '</td>';
$html .= '<td data-sort="' . $fact->getDate()->minimumJulianDay() . '">';
$html .= $fact->getDate()->display();
$html .= '</td>';
$html .= '<td class="center" data-sort="' . $fact->anniv . '">';
$html .= ($fact->anniv ? I18N::number($fact->anniv) : '');
$html .= '</td>';
$html .= '<td class="center">' . $fact->getLabel() . '</td>';
$html .= '</tr>';
}
$html .= '</tbody></table>';
} else {
if ($endjd === WT_CLIENT_JD) {
// We're dealing with the Today’s Events block
if ($filter === 0) {
$html .= I18N::translate('No events exist for today.');
} else {
$html .= I18N::translate('No events for living individuals exist for today.');
}
} else {
// We're dealing with the Upcoming Events block
if ($filter === 0) {
if ($endjd === $startjd) {
$html .= I18N::translate('No events exist for tomorrow.');
} else {
$html .= /* I18N: translation for %s==1 is unused; it is translated separately as “tomorrow” */ I18N::plural('No events exist for the next %s day.', 'No events exist for the next %s days.', $endjd - $startjd + 1, I18N::number($endjd - $startjd + 1));
}
} else {
if ($endjd === $startjd) {
$html .= I18N::translate('No events for living individuals exist for tomorrow.');
} else {
// I18N: translation for %s==1 is unused; it is translated separately as “tomorrow”
$html .= I18N::plural('No events for living people exist for the next %s day.', 'No events for living people exist for the next %s days.', $endjd - $startjd + 1, I18N::number($endjd - $startjd + 1));
}
}
}
}
return $html;
}
/**
* Print a list of events
*
* This performs the same function as print_events_table(), but formats the output differently.
*
* @param int $startjd
* @param int $endjd
* @param string $events
* @param bool $only_living
* @param string $sort_by
*
* @return string
*/
public static function eventsList($startjd, $endjd, $events = 'BIRT MARR DEAT', $only_living = false, $sort_by = 'anniv') {
global $WT_TREE;
// Did we have any output? Did we skip anything?
$output = 0;
$filter = 0;
$filtered_events = array();
$html = '';
foreach (FunctionsDb::getEventsList($startjd, $endjd, $events, $WT_TREE) as $fact) {
$record = $fact->getParent();
// only living people ?
if ($only_living) {
if ($record instanceof Individual && $record->isDead()) {
$filter++;
continue;
}
if ($record instanceof Family) {
$husb = $record->getHusband();
if (is_null($husb) || $husb->isDead()) {
$filter++;
continue;
}
$wife = $record->getWife();
if (is_null($wife) || $wife->isDead()) {
$filter++;
continue;
}
}
}
$output++;
$filtered_events[] = $fact;
}
// Now we've filtered the list, we can sort by event, if required
switch ($sort_by) {
case 'anniv':
// Data is already sorted by anniversary date
break;
case 'alpha':
uasort($filtered_events, function (Fact $x, Fact $y) {
return GedcomRecord::compare($x->getParent(), $y->getParent());
});
break;
}
foreach ($filtered_events as $fact) {
$record = $fact->getParent();
$html .= '<a href="' . $record->getHtmlUrl() . '" class="list_item name2">' . $record->getFullName() . '</a>';
if ($record instanceof Individual) {
$html .= $record->getSexImage();
}
$html .= '<br><div class="indent">';
$html .= $fact->getLabel() . ' — ' . $fact->getDate()->display(true);
if ($fact->anniv) {
$html .= ' (' . I18N::translate('%s year anniversary', I18N::number($fact->anniv)) . ')';
}
if (!$fact->getPlace()->isEmpty()) {
$html .= ' — <a href="' . $fact->getPlace()->getURL() . '">' . $fact->getPlace()->getFullName() . '</a>';
}
$html .= '</div>';
}
// Print a final summary message about restricted/filtered facts
$summary = '';
if ($endjd == WT_CLIENT_JD) {
// We're dealing with the Today’s Events block
if ($output == 0) {
if ($filter == 0) {
$summary = I18N::translate('No events exist for today.');
} else {
$summary = I18N::translate('No events for living individuals exist for today.');
}
}
} else {
// We're dealing with the Upcoming Events block
if ($output == 0) {
if ($filter == 0) {
if ($endjd == $startjd) {
$summary = I18N::translate('No events exist for tomorrow.');
} else {
// I18N: translation for %s==1 is unused; it is translated separately as “tomorrow”
$summary = I18N::plural('No events exist for the next %s day.', 'No events exist for the next %s days.', $endjd - $startjd + 1, I18N::number($endjd - $startjd + 1));
}
} else {
if ($endjd == $startjd) {
$summary = I18N::translate('No events for living individuals exist for tomorrow.');
} else {
// I18N: translation for %s==1 is unused; it is translated separately as “tomorrow”
$summary = I18N::plural('No events for living people exist for the next %s day.', 'No events for living people exist for the next %s days.', $endjd - $startjd + 1, I18N::number($endjd - $startjd + 1));
}
}
}
}
if ($summary) {
$html .= '<b>' . $summary . '</b>';
}
return $html;
}
/**
* Print a chart by age using Google chart API
*
* @param int[] $data
* @param string $title
*
* @return string
*/
public static function chartByAge($data, $title) {
$count = 0;
$agemax = 0;
$vmax = 0;
$avg = 0;
foreach ($data as $age => $v) {
$n = strlen($v);
$vmax = max($vmax, $n);
$agemax = max($agemax, $age);
$count += $n;
$avg += $age * $n;
}
if ($count < 1) {
return '';
}
$avg = round($avg / $count);
$chart_url = "https://chart.googleapis.com/chart?cht=bvs"; // chart type
$chart_url .= "&amp;chs=725x150"; // size
$chart_url .= "&amp;chbh=3,2,2"; // bvg : 4,1,2
$chart_url .= "&amp;chf=bg,s,FFFFFF99"; //background color
$chart_url .= "&amp;chco=0000FF,FFA0CB,FF0000"; // bar color
$chart_url .= "&amp;chdl=" . rawurlencode(I18N::translate('Males')) . "|" . rawurlencode(I18N::translate('Females')) . "|" . rawurlencode(I18N::translate('Average age') . ": " . $avg); // legend & average age
$chart_url .= "&amp;chtt=" . rawurlencode($title); // title
$chart_url .= "&amp;chxt=x,y,r"; // axis labels specification
$chart_url .= "&amp;chm=V,FF0000,0," . ($avg - 0.3) . ",1"; // average age line marker
$chart_url .= "&amp;chxl=0:|"; // label
for ($age = 0; $age <= $agemax; $age += 5) {
$chart_url .= $age . "|||||"; // x axis
}
$chart_url .= "|1:||" . rawurlencode(I18N::percentage($vmax / $count)); // y axis
$chart_url .= "|2:||";
$step = $vmax;
for ($d = $vmax; $d > 0; $d--) {
if ($vmax < ($d * 10 + 1) && ($vmax % $d) == 0) {
$step = $d;
}
}
if ($step == $vmax) {
for ($d = $vmax - 1; $d > 0; $d--) {
if (($vmax - 1) < ($d * 10 + 1) && (($vmax - 1) % $d) == 0) {
$step = $d;
}
}
}
for ($n = $step; $n < $vmax; $n += $step) {
$chart_url .= $n . "|";
}
$chart_url .= rawurlencode($vmax . " / " . $count); // r axis
$chart_url .= "&amp;chg=100," . round(100 * $step / $vmax, 1) . ",1,5"; // grid
$chart_url .= "&amp;chd=s:"; // data : simple encoding from A=0 to 9=61
$CHART_ENCODING61 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789";
for ($age = 0; $age <= $agemax; $age++) {
$chart_url .= $CHART_ENCODING61[(int) (substr_count($data[$age], "M") * 61 / $vmax)];
}
$chart_url .= ",";
for ($age = 0; $age <= $agemax; $age++) {
$chart_url .= $CHART_ENCODING61[(int) (substr_count($data[$age], "F") * 61 / $vmax)];
}
$html = '<img src="' . $chart_url . '" alt="' . $title . '" title="' . $title . '" class="gchart">';
return $html;
}
/**
* Print a chart by decade using Google chart API
*
* @param int[] $data
* @param string $title
*
* @return string
*/
public static function chartByDecade($data, $title) {
$count = 0;
$vmax = 0;
foreach ($data as $v) {
$n = strlen($v);
$vmax = max($vmax, $n);
$count += $n;
}
if ($count < 1) {
return '';
}
$chart_url = "https://chart.googleapis.com/chart?cht=bvs"; // chart type
$chart_url .= "&amp;chs=360x150"; // size
$chart_url .= "&amp;chbh=3,3"; // bvg : 4,1,2
$chart_url .= "&amp;chf=bg,s,FFFFFF99"; //background color
$chart_url .= "&amp;chco=0000FF,FFA0CB"; // bar color
$chart_url .= "&amp;chtt=" . rawurlencode($title); // title
$chart_url .= "&amp;chxt=x,y,r"; // axis labels specification
$chart_url .= "&amp;chxl=0:|&lt;|||"; // <1570
for ($y = 1600; $y < 2030; $y += 50) {
$chart_url .= $y . "|||||"; // x axis
}
$chart_url .= "|1:||" . rawurlencode(I18N::percentage($vmax / $count)); // y axis
$chart_url .= "|2:||";
$step = $vmax;
for ($d = $vmax; $d > 0; $d--) {
if ($vmax < ($d * 10 + 1) && ($vmax % $d) == 0) {
$step = $d;
}
}
if ($step == $vmax) {
for ($d = $vmax - 1; $d > 0; $d--) {
if (($vmax - 1) < ($d * 10 + 1) && (($vmax - 1) % $d) == 0) {
$step = $d;
}
}
}
for ($n = $step; $n < $vmax; $n += $step) {
$chart_url .= $n . "|";
}
$chart_url .= rawurlencode($vmax . " / " . $count); // r axis
$chart_url .= "&amp;chg=100," . round(100 * $step / $vmax, 1) . ",1,5"; // grid
$chart_url .= "&amp;chd=s:"; // data : simple encoding from A=0 to 9=61
$CHART_ENCODING61 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789";
for ($y = 1570; $y < 2030; $y += 10) {
$chart_url .= $CHART_ENCODING61[(int) (substr_count($data[$y], "M") * 61 / $vmax)];
}
$chart_url .= ",";
for ($y = 1570; $y < 2030; $y += 10) {
$chart_url .= $CHART_ENCODING61[(int) (substr_count($data[$y], "F") * 61 / $vmax)];
}
$html = '<img src="' . $chart_url . '" alt="' . $title . '" title="' . $title . '" class="gchart">';
return $html;
}
}
Reference in a new issue View git blame Copy permalink