mirror of
https://github.com/YunoHost-Apps/webtrees_ynh.git
synced 2024-09-03 18:26:37 +02:00
265 lines
9.8 KiB
PHP
265 lines
9.8 KiB
PHP
|
<?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;
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* Defined in session.php
|
|||
|
|
*
|
|||
|
|
* @global Tree $WT_TREE
|
|||
|
|
*/
|
|||
|
|
global $WT_TREE;
|
|||
|
|
|
|||
|
|
use Fisharebest\Webtrees\Controller\PageController;
|
|||
|
|
use Fisharebest\Webtrees\Functions\FunctionsPrintLists;
|
|||
|
|
use Fisharebest\Webtrees\Query\QueryName;
|
|||
|
|
|
|||
|
|
define('WT_SCRIPT_NAME', 'famlist.php');
|
|||
|
|
require './includes/session.php';
|
|||
|
|
|
|||
|
|
$controller = new PageController;
|
|||
|
|
|
|||
|
|
// We show three different lists: initials, surnames and individuals
|
|||
|
|
// Note that the data may contain special chars, such as surname="<unknown>",
|
|||
|
|
$alpha = Filter::get('alpha'); // All surnames beginning with this letter where "@"=unknown and ","=none
|
|||
|
|
$surname = Filter::get('surname'); // All indis with this surname
|
|||
|
|
$show_all = Filter::get('show_all', 'no|yes', 'no'); // All indis
|
|||
|
|
// Long lists can be broken down by given name
|
|||
|
|
$show_all_firstnames = Filter::get('show_all_firstnames', 'no|yes', 'no');
|
|||
|
|
if ($show_all_firstnames === 'yes') {
|
|||
|
|
$falpha = '';
|
|||
|
|
} else {
|
|||
|
|
$falpha = Filter::get('falpha'); // All first names beginning with this letter
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$show_marnm = Filter::get('show_marnm', 'no|yes');
|
|||
|
|
switch ($show_marnm) {
|
|||
|
|
case 'no':
|
|||
|
|
case 'yes':
|
|||
|
|
Auth::user()->setPreference(WT_SCRIPT_NAME . '_show_marnm', $show_marnm);
|
|||
|
|
break;
|
|||
|
|
default:
|
|||
|
|
$show_marnm = Auth::user()->getPreference(WT_SCRIPT_NAME . '_show_marnm');
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
// Make sure selections are consistent.
|
|||
|
|
// i.e. can’t specify show_all and surname at the same time.
|
|||
|
|
if ($show_all === 'yes') {
|
|||
|
|
if ($show_all_firstnames === 'yes') {
|
|||
|
|
$alpha = '';
|
|||
|
|
$surname = '';
|
|||
|
|
$legend = I18N::translate('All');
|
|||
|
|
$url = WT_SCRIPT_NAME . '?show_all=yes&ged=' . $WT_TREE->getNameUrl();
|
|||
|
|
$show = 'indi';
|
|||
|
|
} elseif ($falpha) {
|
|||
|
|
$alpha = '';
|
|||
|
|
$surname = '';
|
|||
|
|
$legend = I18N::translate('All') . ', ' . Filter::escapeHtml($falpha) . '…';
|
|||
|
|
$url = WT_SCRIPT_NAME . '?show_all=yes&ged=' . $WT_TREE->getNameUrl();
|
|||
|
|
$show = 'indi';
|
|||
|
|
} else {
|
|||
|
|
$alpha = '';
|
|||
|
|
$surname = '';
|
|||
|
|
$legend = I18N::translate('All');
|
|||
|
|
$url = WT_SCRIPT_NAME . '?show_all=yes' . '&ged=' . $WT_TREE->getNameUrl();
|
|||
|
|
$show = Filter::get('show', 'surn|indi', 'surn');
|
|||
|
|
}
|
|||
|
|
} elseif ($surname) {
|
|||
|
|
$alpha = QueryName::initialLetter($surname); // so we can highlight the initial letter
|
|||
|
|
$show_all = 'no';
|
|||
|
|
if ($surname === '@N.N.') {
|
|||
|
|
$legend = I18N::translateContext('Unknown surname', '…');
|
|||
|
|
} else {
|
|||
|
|
$legend = Filter::escapeHtml($surname);
|
|||
|
|
// The surname parameter is a root/canonical form.
|
|||
|
|
// Display it as the actual surname
|
|||
|
|
foreach (QueryName::surnames($WT_TREE, $surname, $alpha, $show_marnm === 'yes', true) as $details) {
|
|||
|
|
$legend = implode('/', array_keys($details));
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
$url = WT_SCRIPT_NAME . '?surname=' . rawurlencode($surname) . '&ged=' . $WT_TREE->getNameUrl();
|
|||
|
|
switch ($falpha) {
|
|||
|
|
case '':
|
|||
|
|
break;
|
|||
|
|
case '@':
|
|||
|
|
$legend .= ', ' . I18N::translateContext('Unknown given name', '…');
|
|||
|
|
$url .= '&falpha=' . rawurlencode($falpha) . '&ged=' . $WT_TREE->getNameUrl();
|
|||
|
|
break;
|
|||
|
|
default:
|
|||
|
|
$legend .= ', ' . Filter::escapeHtml($falpha) . '…';
|
|||
|
|
$url .= '&falpha=' . rawurlencode($falpha) . '&ged=' . $WT_TREE->getNameUrl();
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
$show = 'indi'; // SURN list makes no sense here
|
|||
|
|
} elseif ($alpha === '@') {
|
|||
|
|
$show_all = 'no';
|
|||
|
|
$legend = I18N::translateContext('Unknown surname', '…');
|
|||
|
|
$url = WT_SCRIPT_NAME . '?alpha=' . rawurlencode($alpha) . '&ged=' . $WT_TREE->getNameUrl();
|
|||
|
|
$show = 'indi'; // SURN list makes no sense here
|
|||
|
|
} elseif ($alpha === ',') {
|
|||
|
|
$show_all = 'no';
|
|||
|
|
$legend = I18N::translate('None');
|
|||
|
|
$url = WT_SCRIPT_NAME . '?alpha=' . rawurlencode($alpha) . '&ged=' . $WT_TREE->getNameUrl();
|
|||
|
|
$show = 'indi'; // SURN list makes no sense here
|
|||
|
|
} elseif ($alpha) {
|
|||
|
|
$show_all = 'no';
|
|||
|
|
$legend = Filter::escapeHtml($alpha) . '…';
|
|||
|
|
$url = WT_SCRIPT_NAME . '?alpha=' . rawurlencode($alpha) . '&ged=' . $WT_TREE->getNameUrl();
|
|||
|
|
$show = Filter::get('show', 'surn|indi', 'surn');
|
|||
|
|
} else {
|
|||
|
|
$show_all = 'no';
|
|||
|
|
$legend = '…';
|
|||
|
|
$url = WT_SCRIPT_NAME . '?ged=' . $WT_TREE->getNameUrl();
|
|||
|
|
$show = 'none'; // Don't show lists until something is chosen
|
|||
|
|
}
|
|||
|
|
$legend = '<span dir="auto">' . $legend . '</span>';
|
|||
|
|
|
|||
|
|
$controller
|
|||
|
|
->setPageTitle(I18N::translate('Families') . ' : ' . $legend)
|
|||
|
|
->pageHeader();
|
|||
|
|
|
|||
|
|
echo '<h2 class="center">', I18N::translate('Families'), '</h2>';
|
|||
|
|
|
|||
|
|
// Print a selection list of initial letters
|
|||
|
|
$list = array();
|
|||
|
|
foreach (QueryName::surnameAlpha($WT_TREE, $show_marnm === 'yes', true) as $letter => $count) {
|
|||
|
|
switch ($letter) {
|
|||
|
|
case '@':
|
|||
|
|
$html = I18N::translateContext('Unknown surname', '…');
|
|||
|
|
break;
|
|||
|
|
case ',':
|
|||
|
|
$html = I18N::translate('None');
|
|||
|
|
break;
|
|||
|
|
default:
|
|||
|
|
$html = Filter::escapeHtml($letter);
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
if ($count) {
|
|||
|
|
if ($letter == $alpha) {
|
|||
|
|
$list[] = '<a href="' . WT_SCRIPT_NAME . '?alpha=' . rawurlencode($letter) . '&ged=' . $WT_TREE->getNameUrl() . '" class="warning" title="' . I18N::number($count) . '">' . $html . '</a>';
|
|||
|
|
} else {
|
|||
|
|
$list[] = '<a href="' . WT_SCRIPT_NAME . '?alpha=' . rawurlencode($letter) . '&ged=' . $WT_TREE->getNameUrl() . '" title="' . I18N::number($count) . '">' . $html . '</a>';
|
|||
|
|
}
|
|||
|
|
} else {
|
|||
|
|
$list[] = $html;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
// Search spiders don't get the "show all" option as the other links give them everything.
|
|||
|
|
if (!Auth::isSearchEngine()) {
|
|||
|
|
if ($show_all === 'yes') {
|
|||
|
|
$list[] = '<span class="warning">' . I18N::translate('All') . '</span>';
|
|||
|
|
} else {
|
|||
|
|
$list[] = '<a href="' . WT_SCRIPT_NAME . '?show_all=yes' . '&ged=' . $WT_TREE->getNameUrl() . '">' . I18N::translate('All') . '</a>';
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
echo '<p class="center alpha_index">', implode(' | ', $list), '</p>';
|
|||
|
|
|
|||
|
|
// Search spiders don't get an option to show/hide the surname sublists,
|
|||
|
|
// nor does it make sense on the all/unknown/surname views
|
|||
|
|
if (!Auth::isSearchEngine()) {
|
|||
|
|
echo '<p class="center">';
|
|||
|
|
if ($show !== 'none') {
|
|||
|
|
if ($show_marnm === 'yes') {
|
|||
|
|
echo '<a href="', $url, '&show=' . $show . '&show_marnm=no">', I18N::translate('Exclude individuals with “%s” as a married name', $legend), '</a>';
|
|||
|
|
} else {
|
|||
|
|
echo '<a href="', $url, '&show=' . $show . '&show_marnm=yes">', I18N::translate('Include individuals with “%s” as a married name', $legend), '</a>';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ($alpha !== '@' && $alpha !== ',' && !$surname) {
|
|||
|
|
if ($show === 'surn') {
|
|||
|
|
echo '<br><a href="', $url, '&show=indi">', I18N::translate('Show the list of individuals'), '</a>';
|
|||
|
|
} else {
|
|||
|
|
echo '<br><a href="', $url, '&show=surn">', I18N::translate('Show the list of surnames'), '</a>';
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
echo '</p>';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if ($show === 'indi' || $show === 'surn') {
|
|||
|
|
$surns = QueryName::surnames($WT_TREE, $surname, $alpha, $show_marnm === 'yes', true);
|
|||
|
|
if ($show === 'surn') {
|
|||
|
|
// Show the surname list
|
|||
|
|
switch ($WT_TREE->getPreference('SURNAME_LIST_STYLE')) {
|
|||
|
|
case 'style1':
|
|||
|
|
echo FunctionsPrintLists::surnameList($surns, 3, true, WT_SCRIPT_NAME, $WT_TREE);
|
|||
|
|
break;
|
|||
|
|
case 'style3':
|
|||
|
|
echo FunctionsPrintLists::surnameTagCloud($surns, WT_SCRIPT_NAME, true, $WT_TREE);
|
|||
|
|
break;
|
|||
|
|
case 'style2':
|
|||
|
|
default:
|
|||
|
|
echo FunctionsPrintLists::surnameTable($surns, WT_SCRIPT_NAME, $WT_TREE);
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
} else {
|
|||
|
|
// Show the list
|
|||
|
|
$count = 0;
|
|||
|
|
foreach ($surns as $surnames) {
|
|||
|
|
foreach ($surnames as $list) {
|
|||
|
|
$count += count($list);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
// Don't sublists short lists.
|
|||
|
|
if ($count < $WT_TREE->getPreference('SUBLIST_TRIGGER_I')) {
|
|||
|
|
$falpha = '';
|
|||
|
|
$show_all_firstnames = 'no';
|
|||
|
|
} else {
|
|||
|
|
$givn_initials = QueryName::givenAlpha($WT_TREE, $surname, $alpha, $show_marnm === 'yes', true);
|
|||
|
|
// Break long lists by initial letter of given name
|
|||
|
|
if ($surname || $show_all === 'yes') {
|
|||
|
|
// Don't show the list until we have some filter criteria
|
|||
|
|
$show = ($falpha || $show_all_firstnames === 'yes') ? 'indi' : 'none';
|
|||
|
|
$list = array();
|
|||
|
|
foreach ($givn_initials as $givn_initial => $count) {
|
|||
|
|
switch ($givn_initial) {
|
|||
|
|
case '@':
|
|||
|
|
$html = I18N::translateContext('Unknown given name', '…');
|
|||
|
|
break;
|
|||
|
|
default:
|
|||
|
|
$html = Filter::escapeHtml($givn_initial);
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
if ($count) {
|
|||
|
|
if ($show === 'indi' && $givn_initial === $falpha && $show_all_firstnames === 'no') {
|
|||
|
|
$list[] = '<a class="warning" href="' . $url . '&falpha=' . rawurlencode($givn_initial) . '" title="' . I18N::number($count) . '">' . $html . '</a>';
|
|||
|
|
} else {
|
|||
|
|
$list[] = '<a href="' . $url . '&falpha=' . rawurlencode($givn_initial) . '" title="' . I18N::number($count) . '">' . $html . '</a>';
|
|||
|
|
}
|
|||
|
|
} else {
|
|||
|
|
$list[] = $html;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
// Search spiders don't get the "show all" option as the other links give them everything.
|
|||
|
|
if (!Auth::isSearchEngine()) {
|
|||
|
|
if ($show_all_firstnames === 'yes') {
|
|||
|
|
$list[] = '<span class="warning">' . I18N::translate('All') . '</span>';
|
|||
|
|
} else {
|
|||
|
|
$list[] = '<a href="' . $url . '&show_all_firstnames=yes">' . I18N::translate('All') . '</a>';
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
if ($show_all === 'no') {
|
|||
|
|
echo '<h2 class="center">', I18N::translate('Individuals with surname %s', $legend), '</h2>';
|
|||
|
|
}
|
|||
|
|
echo '<p class="center alpha_index">', implode(' | ', $list), '</p>';
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
if ($show === 'indi') {
|
|||
|
|
echo FunctionsPrintLists::familyTable(QueryName::families($WT_TREE, $surname, $alpha, $falpha, $show_marnm === 'yes'));
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|