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