18c2e8227SGreg Roach<?php 28c2e8227SGreg Roach/** 38c2e8227SGreg Roach * webtrees: online genealogy 41062a142SGreg Roach * Copyright (C) 2018 webtrees development team 58c2e8227SGreg Roach * This program is free software: you can redistribute it and/or modify 68c2e8227SGreg Roach * it under the terms of the GNU General Public License as published by 78c2e8227SGreg Roach * the Free Software Foundation, either version 3 of the License, or 88c2e8227SGreg Roach * (at your option) any later version. 98c2e8227SGreg Roach * This program is distributed in the hope that it will be useful, 108c2e8227SGreg Roach * but WITHOUT ANY WARRANTY; without even the implied warranty of 118c2e8227SGreg Roach * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 128c2e8227SGreg Roach * GNU General Public License for more details. 138c2e8227SGreg Roach * You should have received a copy of the GNU General Public License 148c2e8227SGreg Roach * along with this program. If not, see <http://www.gnu.org/licenses/>. 158c2e8227SGreg Roach */ 1676692c8bSGreg Roachnamespace Fisharebest\Webtrees\Module; 1776692c8bSGreg Roach 180e62c4b8SGreg Roachuse Fisharebest\Webtrees\Auth; 1915d603e7SGreg Roachuse Fisharebest\Webtrees\Bootstrap4; 200e62c4b8SGreg Roachuse Fisharebest\Webtrees\Filter; 213d7a8a4cSGreg Roachuse Fisharebest\Webtrees\Functions\FunctionsDb; 223d7a8a4cSGreg Roachuse Fisharebest\Webtrees\Functions\FunctionsPrintLists; 238cbbfdceSGreg Roachuse Fisharebest\Webtrees\Html; 240e62c4b8SGreg Roachuse Fisharebest\Webtrees\I18N; 250e62c4b8SGreg Roachuse Fisharebest\Webtrees\Query\QueryName; 268c2e8227SGreg Roach 278c2e8227SGreg Roach/** 288c2e8227SGreg Roach * Class TopSurnamesModule 298c2e8227SGreg Roach */ 30e2a378d3SGreg Roachclass TopSurnamesModule extends AbstractModule implements ModuleBlockInterface { 3176692c8bSGreg Roach /** 3276692c8bSGreg Roach * How should this module be labelled on tabs, menus, etc.? 3376692c8bSGreg Roach * 3476692c8bSGreg Roach * @return string 3576692c8bSGreg Roach */ 368c2e8227SGreg Roach public function getTitle() { 378c2e8227SGreg Roach return /* I18N: Name of a module. Top=Most common */ I18N::translate('Top surnames'); 388c2e8227SGreg Roach } 398c2e8227SGreg Roach 4076692c8bSGreg Roach /** 4176692c8bSGreg Roach * A sentence describing what this module does. 4276692c8bSGreg Roach * 4376692c8bSGreg Roach * @return string 4476692c8bSGreg Roach */ 458c2e8227SGreg Roach public function getDescription() { 468c2e8227SGreg Roach return /* I18N: Description of the “Top surnames” module */ I18N::translate('A list of the most popular surnames.'); 478c2e8227SGreg Roach } 488c2e8227SGreg Roach 4976692c8bSGreg Roach /** 5076692c8bSGreg Roach * Generate the HTML content of this block. 5176692c8bSGreg Roach * 5276692c8bSGreg Roach * @param int $block_id 5376692c8bSGreg Roach * @param bool $template 54727f238cSGreg Roach * @param string[] $cfg 5576692c8bSGreg Roach * 5676692c8bSGreg Roach * @return string 5776692c8bSGreg Roach */ 58a9430be8SGreg Roach public function getBlock($block_id, $template = true, $cfg = []): string { 598c2e8227SGreg Roach global $WT_TREE, $ctype; 608c2e8227SGreg Roach 61e2a378d3SGreg Roach $num = $this->getBlockSetting($block_id, 'num', '10'); 62e2a378d3SGreg Roach $infoStyle = $this->getBlockSetting($block_id, 'infoStyle', 'table'); 638c2e8227SGreg Roach 6413abd6f3SGreg Roach foreach (['num', 'infoStyle'] as $name) { 658c2e8227SGreg Roach if (array_key_exists($name, $cfg)) { 668c2e8227SGreg Roach $$name = $cfg[$name]; 678c2e8227SGreg Roach } 688c2e8227SGreg Roach } 698c2e8227SGreg Roach 708c2e8227SGreg Roach // This next function is a bit out of date, and doesn't cope well with surname variants 71784e1b4bSGreg Roach $top_surnames = FunctionsDb::getTopSurnames($WT_TREE->getTreeId(), 0, $num); 728c2e8227SGreg Roach 7313abd6f3SGreg Roach $all_surnames = []; 748c2e8227SGreg Roach $i = 0; 758c2e8227SGreg Roach foreach (array_keys($top_surnames) as $top_surname) { 76e06aff55SGreg Roach $all_surnames = array_merge($all_surnames, QueryName::surnames($WT_TREE, $top_surname, '', false, false)); 778c2e8227SGreg Roach if (++$i == $num) { 788c2e8227SGreg Roach break; 798c2e8227SGreg Roach } 808c2e8227SGreg Roach } 818c2e8227SGreg Roach if ($i < $num) { 828c2e8227SGreg Roach $num = $i; 838c2e8227SGreg Roach } 848c2e8227SGreg Roach 858c2e8227SGreg Roach switch ($infoStyle) { 868c2e8227SGreg Roach case 'tagcloud': 870e62c4b8SGreg Roach uksort($all_surnames, '\Fisharebest\Webtrees\I18N::strcasecmp'); 883d7a8a4cSGreg Roach $content = FunctionsPrintLists::surnameTagCloud($all_surnames, 'indilist.php', true, $WT_TREE); 898c2e8227SGreg Roach break; 908c2e8227SGreg Roach case 'list': 910e62c4b8SGreg Roach uasort($all_surnames, '\Fisharebest\Webtrees\Module\TopSurnamesModule::surnameCountSort'); 92f36626dbSGreg Roach $content = FunctionsPrintLists::surnameList($all_surnames, 1, true, 'indilist.php', $WT_TREE); 938c2e8227SGreg Roach break; 948c2e8227SGreg Roach case 'array': 950e62c4b8SGreg Roach uasort($all_surnames, '\Fisharebest\Webtrees\Module\TopSurnamesModule::surnameCountSort'); 96f36626dbSGreg Roach $content = FunctionsPrintLists::surnameList($all_surnames, 2, true, 'indilist.php', $WT_TREE); 978c2e8227SGreg Roach break; 988c2e8227SGreg Roach case 'table': 998c2e8227SGreg Roach default: 1000e62c4b8SGreg Roach uasort($all_surnames, '\Fisharebest\Webtrees\Module\TopSurnamesModule::surnameCountSort'); 1013d7a8a4cSGreg Roach $content = FunctionsPrintLists::surnameTable($all_surnames, 'indilist.php', $WT_TREE); 1028c2e8227SGreg Roach break; 1038c2e8227SGreg Roach } 1048c2e8227SGreg Roach 1058c2e8227SGreg Roach if ($template) { 1068cbbfdceSGreg Roach if ($num == 1) { 1078cbbfdceSGreg Roach // I18N: i.e. most popular surname. 1088cbbfdceSGreg Roach $title = I18N::translate('Top surname'); 1098cbbfdceSGreg Roach } else { 1108cbbfdceSGreg Roach // I18N: Title for a list of the most common surnames, %s is a number. Note that a separate translation exists when %s is 1 1118cbbfdceSGreg Roach $title = I18N::plural('Top %s surname', 'Top %s surnames', $num, I18N::number($num)); 1128cbbfdceSGreg Roach } 1138cbbfdceSGreg Roach 114*397e599aSGreg Roach if ($ctype === 'gedcom' && Auth::isManager($WT_TREE)) { 115*397e599aSGreg Roach $config_url = route('tree-page-block-edit', ['block_id' => $block_id, 'ged' => $WT_TREE->getName()]); 116*397e599aSGreg Roach } elseif ($ctype === 'user' && Auth::check()) { 117*397e599aSGreg Roach $config_url = route('user-page-block-edit', ['block_id' => $block_id, 'ged' => $WT_TREE->getName()]); 1188cbbfdceSGreg Roach } else { 1198cbbfdceSGreg Roach $config_url = ''; 1208cbbfdceSGreg Roach } 1218cbbfdceSGreg Roach 122225e381fSGreg Roach return view('blocks/template', [ 1239c6524dcSGreg Roach 'block' => str_replace('_', '-', $this->getName()), 1249c6524dcSGreg Roach 'id' => $block_id, 1258cbbfdceSGreg Roach 'config_url' => $config_url, 1268cbbfdceSGreg Roach 'title' => $title, 1279c6524dcSGreg Roach 'content' => $content, 1289c6524dcSGreg Roach ]); 1298c2e8227SGreg Roach } else { 1308c2e8227SGreg Roach return $content; 1318c2e8227SGreg Roach } 1328c2e8227SGreg Roach } 1338c2e8227SGreg Roach 1348c2e8227SGreg Roach /** {@inheritdoc} */ 135a9430be8SGreg Roach public function loadAjax(): bool { 1364ecf4f82SGreg Roach return false; 1378c2e8227SGreg Roach } 1388c2e8227SGreg Roach 1398c2e8227SGreg Roach /** {@inheritdoc} */ 140a9430be8SGreg Roach public function isUserBlock(): bool { 1418c2e8227SGreg Roach return true; 1428c2e8227SGreg Roach } 1438c2e8227SGreg Roach 1448c2e8227SGreg Roach /** {@inheritdoc} */ 145a9430be8SGreg Roach public function isGedcomBlock(): bool { 1468c2e8227SGreg Roach return true; 1478c2e8227SGreg Roach } 1488c2e8227SGreg Roach 14976692c8bSGreg Roach /** 15076692c8bSGreg Roach * An HTML form to edit block settings 15176692c8bSGreg Roach * 15276692c8bSGreg Roach * @param int $block_id 153a9430be8SGreg Roach * 154a9430be8SGreg Roach * @return void 15576692c8bSGreg Roach */ 156be9a728cSGreg Roach public function configureBlock($block_id) { 1578c2e8227SGreg Roach if (Filter::postBool('save') && Filter::checkCsrf()) { 158e2a378d3SGreg Roach $this->setBlockSetting($block_id, 'num', Filter::postInteger('num', 1, 10000, 10)); 159e2a378d3SGreg Roach $this->setBlockSetting($block_id, 'infoStyle', Filter::post('infoStyle', 'list|array|table|tagcloud', 'table')); 1608c2e8227SGreg Roach } 1618c2e8227SGreg Roach 162e2a378d3SGreg Roach $num = $this->getBlockSetting($block_id, 'num', '10'); 163e2a378d3SGreg Roach $infoStyle = $this->getBlockSetting($block_id, 'infoStyle', 'table'); 1648c2e8227SGreg Roach 16515d603e7SGreg Roach ?> 16615d603e7SGreg Roach <div class="form-group row"> 16715d603e7SGreg Roach <label class="col-sm-3 col-form-label" for="num"> 16815d603e7SGreg Roach <?= /* I18N: ... to show in a list */ I18N::translate('Number of surnames') ?> 16915d603e7SGreg Roach </label> 17015d603e7SGreg Roach <div class="col-sm-9"> 17115d603e7SGreg Roach <input type="text" name="num" size="2" value="<?= $num ?>"> 17215d603e7SGreg Roach </div> 17315d603e7SGreg Roach </div> 1748c2e8227SGreg Roach 17515d603e7SGreg Roach <div class="form-group row"> 17615d603e7SGreg Roach <label class="col-sm-3 col-form-label" for="infoStyle"> 17715d603e7SGreg Roach <?= I18N::translate('Presentation style') ?> 17815d603e7SGreg Roach </label> 17915d603e7SGreg Roach <div class="col-sm-9"> 18015d603e7SGreg Roach <?= Bootstrap4::select(['list' => I18N::translate('bullet list'), 'array' => I18N::translate('compact list'), 'table' => I18N::translate('table'), 'tagcloud' => I18N::translate('tag cloud')], $infoStyle, ['id' => 'infoStyle', 'name' => 'infoStyle']) ?> 18115d603e7SGreg Roach </div> 18215d603e7SGreg Roach </div> 18315d603e7SGreg Roach <?php 1848c2e8227SGreg Roach } 1858c2e8227SGreg Roach 1868c2e8227SGreg Roach /** 1878c2e8227SGreg Roach * Sort (lists of counts of similar) surname by total count. 1888c2e8227SGreg Roach * 189cc5ab399SGreg Roach * @param string[][] $a 190cc5ab399SGreg Roach * @param string[][] $b 1918c2e8227SGreg Roach * 192cbc1590aSGreg Roach * @return int 1938c2e8227SGreg Roach */ 1948c2e8227SGreg Roach private static function surnameCountSort($a, $b) { 1958c2e8227SGreg Roach $counta = 0; 1968c2e8227SGreg Roach foreach ($a as $x) { 1978c2e8227SGreg Roach $counta += count($x); 1988c2e8227SGreg Roach } 1998c2e8227SGreg Roach $countb = 0; 2008c2e8227SGreg Roach foreach ($b as $x) { 2018c2e8227SGreg Roach $countb += count($x); 2028c2e8227SGreg Roach } 2038c2e8227SGreg Roach 2048c2e8227SGreg Roach return $countb - $counta; 2058c2e8227SGreg Roach } 2068c2e8227SGreg Roach} 207