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 1148cbbfdceSGreg Roach if ($ctype === 'gedcom' && Auth::isManager($WT_TREE) || $ctype === 'user' && Auth::check()) { 1158cbbfdceSGreg Roach $config_url = Html::url('block_edit.php', ['block_id' => $block_id, 'ged' => $WT_TREE->getName()]); 1168cbbfdceSGreg Roach } else { 1178cbbfdceSGreg Roach $config_url = ''; 1188cbbfdceSGreg Roach } 1198cbbfdceSGreg Roach 120*225e381fSGreg Roach return view('blocks/template', [ 1219c6524dcSGreg Roach 'block' => str_replace('_', '-', $this->getName()), 1229c6524dcSGreg Roach 'id' => $block_id, 1238cbbfdceSGreg Roach 'config_url' => $config_url, 1248cbbfdceSGreg Roach 'title' => $title, 1259c6524dcSGreg Roach 'content' => $content, 1269c6524dcSGreg Roach ]); 1278c2e8227SGreg Roach } else { 1288c2e8227SGreg Roach return $content; 1298c2e8227SGreg Roach } 1308c2e8227SGreg Roach } 1318c2e8227SGreg Roach 1328c2e8227SGreg Roach /** {@inheritdoc} */ 133a9430be8SGreg Roach public function loadAjax(): bool { 1344ecf4f82SGreg Roach return false; 1358c2e8227SGreg Roach } 1368c2e8227SGreg Roach 1378c2e8227SGreg Roach /** {@inheritdoc} */ 138a9430be8SGreg Roach public function isUserBlock(): bool { 1398c2e8227SGreg Roach return true; 1408c2e8227SGreg Roach } 1418c2e8227SGreg Roach 1428c2e8227SGreg Roach /** {@inheritdoc} */ 143a9430be8SGreg Roach public function isGedcomBlock(): bool { 1448c2e8227SGreg Roach return true; 1458c2e8227SGreg Roach } 1468c2e8227SGreg Roach 14776692c8bSGreg Roach /** 14876692c8bSGreg Roach * An HTML form to edit block settings 14976692c8bSGreg Roach * 15076692c8bSGreg Roach * @param int $block_id 151a9430be8SGreg Roach * 152a9430be8SGreg Roach * @return void 15376692c8bSGreg Roach */ 154be9a728cSGreg Roach public function configureBlock($block_id) { 1558c2e8227SGreg Roach if (Filter::postBool('save') && Filter::checkCsrf()) { 156e2a378d3SGreg Roach $this->setBlockSetting($block_id, 'num', Filter::postInteger('num', 1, 10000, 10)); 157e2a378d3SGreg Roach $this->setBlockSetting($block_id, 'infoStyle', Filter::post('infoStyle', 'list|array|table|tagcloud', 'table')); 1588c2e8227SGreg Roach } 1598c2e8227SGreg Roach 160e2a378d3SGreg Roach $num = $this->getBlockSetting($block_id, 'num', '10'); 161e2a378d3SGreg Roach $infoStyle = $this->getBlockSetting($block_id, 'infoStyle', 'table'); 1628c2e8227SGreg Roach 16315d603e7SGreg Roach ?> 16415d603e7SGreg Roach <div class="form-group row"> 16515d603e7SGreg Roach <label class="col-sm-3 col-form-label" for="num"> 16615d603e7SGreg Roach <?= /* I18N: ... to show in a list */ I18N::translate('Number of surnames') ?> 16715d603e7SGreg Roach </label> 16815d603e7SGreg Roach <div class="col-sm-9"> 16915d603e7SGreg Roach <input type="text" name="num" size="2" value="<?= $num ?>"> 17015d603e7SGreg Roach </div> 17115d603e7SGreg Roach </div> 1728c2e8227SGreg Roach 17315d603e7SGreg Roach <div class="form-group row"> 17415d603e7SGreg Roach <label class="col-sm-3 col-form-label" for="infoStyle"> 17515d603e7SGreg Roach <?= I18N::translate('Presentation style') ?> 17615d603e7SGreg Roach </label> 17715d603e7SGreg Roach <div class="col-sm-9"> 17815d603e7SGreg 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']) ?> 17915d603e7SGreg Roach </div> 18015d603e7SGreg Roach </div> 18115d603e7SGreg Roach <?php 1828c2e8227SGreg Roach } 1838c2e8227SGreg Roach 1848c2e8227SGreg Roach /** 1858c2e8227SGreg Roach * Sort (lists of counts of similar) surname by total count. 1868c2e8227SGreg Roach * 187cc5ab399SGreg Roach * @param string[][] $a 188cc5ab399SGreg Roach * @param string[][] $b 1898c2e8227SGreg Roach * 190cbc1590aSGreg Roach * @return int 1918c2e8227SGreg Roach */ 1928c2e8227SGreg Roach private static function surnameCountSort($a, $b) { 1938c2e8227SGreg Roach $counta = 0; 1948c2e8227SGreg Roach foreach ($a as $x) { 1958c2e8227SGreg Roach $counta += count($x); 1968c2e8227SGreg Roach } 1978c2e8227SGreg Roach $countb = 0; 1988c2e8227SGreg Roach foreach ($b as $x) { 1998c2e8227SGreg Roach $countb += count($x); 2008c2e8227SGreg Roach } 2018c2e8227SGreg Roach 2028c2e8227SGreg Roach return $countb - $counta; 2038c2e8227SGreg Roach } 2048c2e8227SGreg Roach} 205