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

1986 lines
71 KiB
PHP
Raw Normal View History

webtrees install and remove script for yunohot
2017-06-29 23:27:03 +02:00
<?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 Copy permalink