xref: /webtrees/app/Module/TopSurnamesModule.php (revision 397e599a3131684b8a335ebfddcfe63828b9f51b)
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