1168ff6f3Sric2016<?php 23976b470SGreg Roach 3168ff6f3Sric2016/** 4168ff6f3Sric2016 * webtrees: online genealogy 5d11be702SGreg Roach * Copyright (C) 2023 webtrees development team 6168ff6f3Sric2016 * This program is free software: you can redistribute it and/or modify 7168ff6f3Sric2016 * it under the terms of the GNU General Public License as published by 8168ff6f3Sric2016 * the Free Software Foundation, either version 3 of the License, or 9168ff6f3Sric2016 * (at your option) any later version. 10168ff6f3Sric2016 * This program is distributed in the hope that it will be useful, 11168ff6f3Sric2016 * but WITHOUT ANY WARRANTY; without even the implied warranty of 12168ff6f3Sric2016 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13168ff6f3Sric2016 * GNU General Public License for more details. 14168ff6f3Sric2016 * You should have received a copy of the GNU General Public License 1589f7189bSGreg Roach * along with this program. If not, see <https://www.gnu.org/licenses/>. 16168ff6f3Sric2016 */ 17fcfa147eSGreg Roach 18e7f56f2aSGreg Roachdeclare(strict_types=1); 19e7f56f2aSGreg Roach 20168ff6f3Sric2016namespace Fisharebest\Webtrees\Module; 21168ff6f3Sric2016 22185cbb4dSGreg Roachuse Closure; 233cfcc809SGreg Roachuse Fig\Http\Message\RequestMethodInterface; 249b5537c3SGreg Roachuse Fisharebest\Algorithm\Dijkstra; 25168ff6f3Sric2016use Fisharebest\Webtrees\Auth; 261fe542e9SGreg Roachuse Fisharebest\Webtrees\Contracts\UserInterface; 276f4ec3caSGreg Roachuse Fisharebest\Webtrees\DB; 2845ac604bSGreg Roachuse Fisharebest\Webtrees\FlashMessages; 296fcafd02SGreg Roachuse Fisharebest\Webtrees\GedcomRecord; 30168ff6f3Sric2016use Fisharebest\Webtrees\I18N; 31168ff6f3Sric2016use Fisharebest\Webtrees\Individual; 321e3273c9SGreg Roachuse Fisharebest\Webtrees\Menu; 336fcafd02SGreg Roachuse Fisharebest\Webtrees\Registry; 346fcafd02SGreg Roachuse Fisharebest\Webtrees\Services\RelationshipService; 353df1e584SGreg Roachuse Fisharebest\Webtrees\Services\TreeService; 3645ac604bSGreg Roachuse Fisharebest\Webtrees\Tree; 37b55cbc6bSGreg Roachuse Fisharebest\Webtrees\Validator; 389b5537c3SGreg Roachuse Illuminate\Database\Query\JoinClause; 396fcafd02SGreg Roachuse Illuminate\Support\Collection; 406ccdf4f0SGreg Roachuse Psr\Http\Message\ResponseInterface; 416ccdf4f0SGreg Roachuse Psr\Http\Message\ServerRequestInterface; 423cfcc809SGreg Roachuse Psr\Http\Server\RequestHandlerInterface; 433976b470SGreg Roach 44c5c278deSGreg Roachuse function array_map; 45c5c278deSGreg Roachuse function asset; 4610e06497SGreg Roachuse function count; 47c5c278deSGreg Roachuse function current; 48c5c278deSGreg Roachuse function e; 49c5c278deSGreg Roachuse function implode; 5010e06497SGreg Roachuse function in_array; 51c5c278deSGreg Roachuse function max; 52c5c278deSGreg Roachuse function min; 53c5c278deSGreg Roachuse function next; 54c5c278deSGreg Roachuse function ob_get_clean; 55c5c278deSGreg Roachuse function ob_start; 56c5c278deSGreg Roachuse function preg_match; 573cfcc809SGreg Roachuse function redirect; 58c5c278deSGreg Roachuse function response; 593cfcc809SGreg Roachuse function route; 60c5c278deSGreg Roachuse function sort; 61f4ba05e3SGreg Roachuse function view; 62168ff6f3Sric2016 63168ff6f3Sric2016/** 64168ff6f3Sric2016 * Class RelationshipsChartModule 65168ff6f3Sric2016 */ 667a1b7425SGreg Roachclass RelationshipsChartModule extends AbstractModule implements ModuleChartInterface, ModuleConfigInterface, RequestHandlerInterface 67c1010edaSGreg Roach{ 6849a243cbSGreg Roach use ModuleChartTrait; 6949a243cbSGreg Roach use ModuleConfigTrait; 7049a243cbSGreg Roach 7172f04adfSGreg Roach protected const ROUTE_URL = '/tree/{tree}/relationships-{ancestors}-{recursion}/{xref}{/xref2}'; 723cfcc809SGreg Roach 731e3273c9SGreg Roach /** It would be more correct to use PHP_INT_MAX, but this isn't friendly in URLs */ 7416d6367aSGreg Roach public const UNLIMITED_RECURSION = 99; 751e3273c9SGreg Roach 761e3273c9SGreg Roach /** By default new trees allow unlimited recursion */ 7716d6367aSGreg Roach public const DEFAULT_RECURSION = '99'; 7845ac604bSGreg Roach 79e0bd7dc9SGreg Roach /** By default new trees search for all relationships (not via ancestors) */ 8016d6367aSGreg Roach public const DEFAULT_ANCESTORS = '0'; 813cfcc809SGreg Roach public const DEFAULT_PARAMETERS = [ 823cfcc809SGreg Roach 'ancestors' => self::DEFAULT_ANCESTORS, 833cfcc809SGreg Roach 'recursion' => self::DEFAULT_RECURSION, 843cfcc809SGreg Roach ]; 853cfcc809SGreg Roach 866fcafd02SGreg Roach private TreeService $tree_service; 876fcafd02SGreg Roach 886fcafd02SGreg Roach private RelationshipService $relationship_service; 893df1e584SGreg Roach 903df1e584SGreg Roach /** 916fcafd02SGreg Roach * @param RelationshipService $relationship_service 923df1e584SGreg Roach * @param TreeService $tree_service 933df1e584SGreg Roach */ 94c5c278deSGreg Roach public function __construct(RelationshipService $relationship_service, TreeService $tree_service) 953df1e584SGreg Roach { 966fcafd02SGreg Roach $this->relationship_service = $relationship_service; 973df1e584SGreg Roach $this->tree_service = $tree_service; 983df1e584SGreg Roach } 993df1e584SGreg Roach 1003cfcc809SGreg Roach /** 1013cfcc809SGreg Roach * Initialization. 1023cfcc809SGreg Roach * 1039e18e23bSGreg Roach * @return void 1043cfcc809SGreg Roach */ 1059e18e23bSGreg Roach public function boot(): void 1063cfcc809SGreg Roach { 107158900c2SGreg Roach Registry::routeFactory()->routeMap() 10872f04adfSGreg Roach ->get(static::class, static::ROUTE_URL, $this) 1093cfcc809SGreg Roach ->allows(RequestMethodInterface::METHOD_POST) 1103cfcc809SGreg Roach ->tokens([ 1113cfcc809SGreg Roach 'ancestors' => '\d+', 1123cfcc809SGreg Roach 'recursion' => '\d+', 1133cfcc809SGreg Roach ]); 1143cfcc809SGreg Roach } 115e0bd7dc9SGreg Roach 11649a243cbSGreg Roach public function description(): string 117c1010edaSGreg Roach { 118bbb76c12SGreg Roach /* I18N: Description of the “RelationshipsChart” module */ 119bbb76c12SGreg Roach return I18N::translate('A chart displaying relationships between two individuals.'); 120168ff6f3Sric2016 } 121168ff6f3Sric2016 122168ff6f3Sric2016 /** 1236ccdf4f0SGreg Roach * Return a menu item for this chart - for use in individual boxes. 1246ccdf4f0SGreg Roach * 1256ccdf4f0SGreg Roach * @param Individual $individual 1266ccdf4f0SGreg Roach * 1276ccdf4f0SGreg Roach * @return Menu|null 1286ccdf4f0SGreg Roach */ 129*1ff45046SGreg Roach public function chartBoxMenu(Individual $individual): Menu|null 1306ccdf4f0SGreg Roach { 1316ccdf4f0SGreg Roach return $this->chartMenu($individual); 1326ccdf4f0SGreg Roach } 1336ccdf4f0SGreg Roach 1346ccdf4f0SGreg Roach /** 135e6562982SGreg Roach * A main menu item for this chart. 136168ff6f3Sric2016 * 1378e69695bSGreg Roach * @param Individual $individual 1388e69695bSGreg Roach * 139e6562982SGreg Roach * @return Menu 140168ff6f3Sric2016 */ 141e6562982SGreg Roach public function chartMenu(Individual $individual): Menu 142c1010edaSGreg Roach { 143a0c3c04bSGreg Roach $my_xref = $individual->tree()->getUserPreference(Auth::user(), UserInterface::PREF_TREE_ACCOUNT_XREF); 144168ff6f3Sric2016 145a0c3c04bSGreg Roach if ($my_xref !== '' && $my_xref !== $individual->xref()) { 146a0c3c04bSGreg Roach $my_record = Registry::individualFactory()->make($my_xref, $individual->tree()); 147a0c3c04bSGreg Roach 1482491533aSGreg Roach if ($my_record instanceof Individual) { 149168ff6f3Sric2016 return new Menu( 150168ff6f3Sric2016 I18N::translate('Relationship to me'), 151a0c3c04bSGreg Roach $this->chartUrl($my_record, ['xref2' => $individual->xref()]), 152377a2979SGreg Roach $this->chartMenuClass(), 153e6562982SGreg Roach $this->chartUrlAttributes() 154168ff6f3Sric2016 ); 155b2ce94c6SRico Sonntag } 1562491533aSGreg Roach } 157b2ce94c6SRico Sonntag 158168ff6f3Sric2016 return new Menu( 159e6562982SGreg Roach $this->title(), 160e6562982SGreg Roach $this->chartUrl($individual), 161377a2979SGreg Roach $this->chartMenuClass(), 162e6562982SGreg Roach $this->chartUrlAttributes() 163168ff6f3Sric2016 ); 164168ff6f3Sric2016 } 165168ff6f3Sric2016 1664eb71cfaSGreg Roach /** 167377a2979SGreg Roach * CSS class for the URL. 168377a2979SGreg Roach * 169377a2979SGreg Roach * @return string 170377a2979SGreg Roach */ 171377a2979SGreg Roach public function chartMenuClass(): string 172377a2979SGreg Roach { 173377a2979SGreg Roach return 'menu-chart-relationship'; 174377a2979SGreg Roach } 175377a2979SGreg Roach 176377a2979SGreg Roach /** 1776ccdf4f0SGreg Roach * How should this module be identified in the control panel, etc.? 1784eb71cfaSGreg Roach * 1796ccdf4f0SGreg Roach * @return string 1804eb71cfaSGreg Roach */ 1816ccdf4f0SGreg Roach public function title(): string 182c1010edaSGreg Roach { 1836ccdf4f0SGreg Roach /* I18N: Name of a module/chart */ 1846ccdf4f0SGreg Roach return I18N::translate('Relationships'); 185e6562982SGreg Roach } 186e6562982SGreg Roach 187e6562982SGreg Roach /** 1883cfcc809SGreg Roach * The URL for a page showing chart options. 18957ab2231SGreg Roach * 1903cfcc809SGreg Roach * @param Individual $individual 19176d39c55SGreg Roach * @param array<bool|int|string|array<string>|null> $parameters 19218d7a90dSGreg Roach * 1933cfcc809SGreg Roach * @return string 194e0bd7dc9SGreg Roach */ 1953cfcc809SGreg Roach public function chartUrl(Individual $individual, array $parameters = []): string 196c1010edaSGreg Roach { 19772f04adfSGreg Roach return route(static::class, [ 1983cfcc809SGreg Roach 'xref' => $individual->xref(), 1993cfcc809SGreg Roach 'tree' => $individual->tree()->name(), 2003cfcc809SGreg Roach ] + $parameters + self::DEFAULT_PARAMETERS); 2011e3273c9SGreg Roach } 2029b5537c3SGreg Roach 2039b5537c3SGreg Roach /** 2046ccdf4f0SGreg Roach * @param ServerRequestInterface $request 2056ccdf4f0SGreg Roach * 2066ccdf4f0SGreg Roach * @return ResponseInterface 2076ccdf4f0SGreg Roach */ 2083cfcc809SGreg Roach public function handle(ServerRequestInterface $request): ResponseInterface 2096ccdf4f0SGreg Roach { 210b55cbc6bSGreg Roach $tree = Validator::attributes($request)->tree(); 211b55cbc6bSGreg Roach $xref = Validator::attributes($request)->isXref()->string('xref'); 212b55cbc6bSGreg Roach $xref2 = Validator::attributes($request)->isXref()->string('xref2', ''); 213b55cbc6bSGreg Roach $ajax = Validator::queryParams($request)->boolean('ajax', false); 2143cfcc809SGreg Roach $ancestors = (int) $request->getAttribute('ancestors'); 2153cfcc809SGreg Roach $recursion = (int) $request->getAttribute('recursion'); 216b55cbc6bSGreg Roach $user = Validator::attributes($request)->user(); 2179b5537c3SGreg Roach 2183cfcc809SGreg Roach // Convert POST requests into GET requests for pretty URLs. 2193cfcc809SGreg Roach if ($request->getMethod() === RequestMethodInterface::METHOD_POST) { 22072f04adfSGreg Roach return redirect(route(static::class, [ 2214ea62551SGreg Roach 'tree' => $tree->name(), 222b55cbc6bSGreg Roach 'ancestors' => Validator::parsedBody($request)->string('ancestors', ''), 223b55cbc6bSGreg Roach 'recursion' => Validator::parsedBody($request)->string('recursion', ''), 224b55cbc6bSGreg Roach 'xref' => Validator::parsedBody($request)->string('xref', ''), 225b55cbc6bSGreg Roach 'xref2' => Validator::parsedBody($request)->string('xref2', ''), 2263cfcc809SGreg Roach ])); 2273cfcc809SGreg Roach } 2289b5537c3SGreg Roach 2296b9cb339SGreg Roach $individual1 = Registry::individualFactory()->make($xref, $tree); 2306b9cb339SGreg Roach $individual2 = Registry::individualFactory()->make($xref2, $tree); 2319b5537c3SGreg Roach 2323dcc812bSGreg Roach $ancestors_only = (int) $tree->getPreference('RELATIONSHIP_ANCESTORS', static::DEFAULT_ANCESTORS); 2333dcc812bSGreg Roach $max_recursion = (int) $tree->getPreference('RELATIONSHIP_RECURSION', static::DEFAULT_RECURSION); 2349b5537c3SGreg Roach 2359b5537c3SGreg Roach $recursion = min($recursion, $max_recursion); 2369b5537c3SGreg Roach 237b55cbc6bSGreg Roach Auth::checkComponentAccess($this, ModuleChartInterface::class, $tree, $user); 238b55cbc6bSGreg Roach 2393dcc812bSGreg Roach if ($individual1 instanceof Individual) { 2403c3fd0a5SGreg Roach $individual1 = Auth::checkIndividualAccess($individual1, false, true); 2413dcc812bSGreg Roach } 2423dcc812bSGreg Roach 2433dcc812bSGreg Roach if ($individual2 instanceof Individual) { 2443c3fd0a5SGreg Roach $individual2 = Auth::checkIndividualAccess($individual2, false, true); 2458365f910SGreg Roach } 2463dcc812bSGreg Roach 2479b5537c3SGreg Roach if ($individual1 instanceof Individual && $individual2 instanceof Individual) { 248b55cbc6bSGreg Roach if ($ajax) { 249f866a2aeSGreg Roach return $this->chart($individual1, $individual2, $recursion, $ancestors); 250f866a2aeSGreg Roach } 251f866a2aeSGreg Roach 2529b5537c3SGreg Roach /* I18N: %s are individual’s names */ 25339ca88baSGreg Roach $title = I18N::translate('Relationships between %1$s and %2$s', $individual1->fullName(), $individual2->fullName()); 2549b5537c3SGreg Roach $ajax_url = $this->chartUrl($individual1, [ 2559b5537c3SGreg Roach 'ajax' => true, 2569b5537c3SGreg Roach 'ancestors' => $ancestors, 2573cfcc809SGreg Roach 'recursion' => $recursion, 2583cfcc809SGreg Roach 'xref2' => $individual2->xref(), 2599b5537c3SGreg Roach ]); 2603dcc812bSGreg Roach } else { 2613dcc812bSGreg Roach $title = I18N::translate('Relationships'); 262f866a2aeSGreg Roach $ajax_url = ''; 2633dcc812bSGreg Roach } 2649b5537c3SGreg Roach 2659b5537c3SGreg Roach return $this->viewResponse('modules/relationships-chart/page', [ 2669b5537c3SGreg Roach 'ajax_url' => $ajax_url, 2679b5537c3SGreg Roach 'ancestors' => $ancestors, 2689b5537c3SGreg Roach 'ancestors_only' => $ancestors_only, 2699b5537c3SGreg Roach 'ancestors_options' => $this->ancestorsOptions(), 2709b5537c3SGreg Roach 'individual1' => $individual1, 2719b5537c3SGreg Roach 'individual2' => $individual2, 2729b5537c3SGreg Roach 'max_recursion' => $max_recursion, 27371378461SGreg Roach 'module' => $this->name(), 2749b5537c3SGreg Roach 'recursion' => $recursion, 2759b5537c3SGreg Roach 'recursion_options' => $this->recursionOptions($max_recursion), 2769b5537c3SGreg Roach 'title' => $title, 2773cfcc809SGreg Roach 'tree' => $tree, 2789b5537c3SGreg Roach ]); 2799b5537c3SGreg Roach } 2809b5537c3SGreg Roach 2819b5537c3SGreg Roach /** 2823dcc812bSGreg Roach * @param Individual $individual1 2833dcc812bSGreg Roach * @param Individual $individual2 2843dcc812bSGreg Roach * @param int $recursion 2853dcc812bSGreg Roach * @param int $ancestors 2869b5537c3SGreg Roach * 2876ccdf4f0SGreg Roach * @return ResponseInterface 2889b5537c3SGreg Roach */ 2896ccdf4f0SGreg Roach public function chart(Individual $individual1, Individual $individual2, int $recursion, int $ancestors): ResponseInterface 2909b5537c3SGreg Roach { 2913dcc812bSGreg Roach $tree = $individual1->tree(); 2929b5537c3SGreg Roach 2933dcc812bSGreg Roach $max_recursion = (int) $tree->getPreference('RELATIONSHIP_RECURSION', static::DEFAULT_RECURSION); 2949b5537c3SGreg Roach 2959b5537c3SGreg Roach $recursion = min($recursion, $max_recursion); 2969b5537c3SGreg Roach 2979b5537c3SGreg Roach $paths = $this->calculateRelationships($individual1, $individual2, $recursion, (bool) $ancestors); 2989b5537c3SGreg Roach 2999b5537c3SGreg Roach ob_start(); 3009b5537c3SGreg Roach if (I18N::direction() === 'ltr') { 301e837ff07SGreg Roach $diagonal1 = asset('css/images/dline.png'); 302e837ff07SGreg Roach $diagonal2 = asset('css/images/dline2.png'); 3039b5537c3SGreg Roach } else { 304e837ff07SGreg Roach $diagonal1 = asset('css/images/dline2.png'); 305e837ff07SGreg Roach $diagonal2 = asset('css/images/dline.png'); 3069b5537c3SGreg Roach } 3079b5537c3SGreg Roach 3089b5537c3SGreg Roach $num_paths = 0; 3099b5537c3SGreg Roach foreach ($paths as $path) { 3109b5537c3SGreg Roach // Extract the relationship names between pairs of individuals 3119b5537c3SGreg Roach $relationships = $this->oldStyleRelationshipPath($tree, $path); 312075d1a05SGreg Roach if ($relationships === []) { 3139b5537c3SGreg Roach // Cannot see one of the families/individuals, due to privacy; 3149b5537c3SGreg Roach continue; 3159b5537c3SGreg Roach } 3166fcafd02SGreg Roach 3176fcafd02SGreg Roach $nodes = Collection::make($path) 3186fcafd02SGreg Roach ->map(static function (string $xref, int $key) use ($tree): GedcomRecord { 3196fcafd02SGreg Roach if ($key % 2 === 0) { 3206fcafd02SGreg Roach return Registry::individualFactory()->make($xref, $tree); 3216fcafd02SGreg Roach } 3226fcafd02SGreg Roach 3236fcafd02SGreg Roach return Registry::familyFactory()->make($xref, $tree); 3246fcafd02SGreg Roach }); 3256fcafd02SGreg Roach 326c5c278deSGreg Roach $relationship = $this->relationship_service->nameFromPath($nodes->all(), I18N::language()); 3276fcafd02SGreg Roach 328c5c278deSGreg Roach echo '<h3>', I18N::translate('Relationship: %s', $relationship), '</h3>'; 329c5c278deSGreg Roach 3309b5537c3SGreg Roach $num_paths++; 3319b5537c3SGreg Roach 3329b5537c3SGreg Roach // Use a table/grid for layout. 3339b5537c3SGreg Roach $table = []; 3349b5537c3SGreg Roach // Current position in the grid. 3359b5537c3SGreg Roach $x = 0; 3369b5537c3SGreg Roach $y = 0; 3379b5537c3SGreg Roach // Extent of the grid. 3389b5537c3SGreg Roach $min_y = 0; 3399b5537c3SGreg Roach $max_y = 0; 3409b5537c3SGreg Roach $max_x = 0; 3419b5537c3SGreg Roach // For each node in the path. 3429b5537c3SGreg Roach foreach ($path as $n => $xref) { 3439b5537c3SGreg Roach if ($n % 2 === 1) { 3449b5537c3SGreg Roach switch ($relationships[$n]) { 3459b5537c3SGreg Roach case 'hus': 3469b5537c3SGreg Roach case 'wif': 3479b5537c3SGreg Roach case 'spo': 3489b5537c3SGreg Roach case 'bro': 3499b5537c3SGreg Roach case 'sis': 3509b5537c3SGreg Roach case 'sib': 3519c259058SGreg Roach $table[$x + 1][$y] = '<div style="background:url(' . e(asset('css/images/hline.png')) . ') repeat-x center; width: 94px; text-align: center"><div style="height: 32px;">' . $this->relationship_service->legacyNameAlgorithm($relationships[$n], Registry::individualFactory()->make($path[$n - 1], $tree), Registry::individualFactory()->make($path[$n + 1], $tree)) . '</div><div style="height: 32px;">' . view('icons/arrow-right') . '</div></div>'; 3529b5537c3SGreg Roach $x += 2; 3539b5537c3SGreg Roach break; 3549b5537c3SGreg Roach case 'son': 3559b5537c3SGreg Roach case 'dau': 3569b5537c3SGreg Roach case 'chi': 3579b5537c3SGreg Roach if ($n > 2 && preg_match('/fat|mot|par/', $relationships[$n - 2])) { 358b55cbc6bSGreg Roach $table[$x + 1][$y - 1] = '<div style="background:url(' . $diagonal2 . '); width: 64px; height: 64px; text-align: center;"><div style="height: 32px; text-align: end;">' . $this->relationship_service->legacyNameAlgorithm($relationships[$n], Registry::individualFactory()->make($path[$n - 1], $tree), Registry::individualFactory()->make($path[$n + 1], $tree)) . '</div><div style="height: 32px; text-align: start;">' . view('icons/arrow-down') . '</div></div>'; 3599b5537c3SGreg Roach $x += 2; 3609b5537c3SGreg Roach } else { 3619c259058SGreg Roach $table[$x][$y - 1] = '<div style="background:url(' . e('"' . asset('css/images/vline.png') . '"') . ') repeat-y center; height: 64px; text-align: center;"><div style="display: inline-block; width:50%; line-height: 64px;">' . $this->relationship_service->legacyNameAlgorithm($relationships[$n], Registry::individualFactory()->make($path[$n - 1], $tree), Registry::individualFactory()->make($path[$n + 1], $tree)) . '</div><div style="display: inline-block; width:50%; line-height: 64px;">' . view('icons/arrow-down') . '</div></div>'; 3629b5537c3SGreg Roach } 3639b5537c3SGreg Roach $y -= 2; 3649b5537c3SGreg Roach break; 3659b5537c3SGreg Roach case 'fat': 3669b5537c3SGreg Roach case 'mot': 3679b5537c3SGreg Roach case 'par': 3689b5537c3SGreg Roach if ($n > 2 && preg_match('/son|dau|chi/', $relationships[$n - 2])) { 369b55cbc6bSGreg Roach $table[$x + 1][$y + 1] = '<div style="background:url(' . $diagonal1 . '); background-position: top right; width: 64px; height: 64px; text-align: center;"><div style="height: 32px; text-align: start;">' . $this->relationship_service->legacyNameAlgorithm($relationships[$n], Registry::individualFactory()->make($path[$n - 1], $tree), Registry::individualFactory()->make($path[$n + 1], $tree)) . '</div><div style="height: 32px; text-align: end;">' . view('icons/arrow-down') . '</div></div>'; 3709b5537c3SGreg Roach $x += 2; 3719b5537c3SGreg Roach } else { 3729c259058SGreg Roach $table[$x][$y + 1] = '<div style="background:url(' . e('"' . asset('css/images/vline.png') . '"') . ') repeat-y center; height: 64px; text-align:center; "><div style="display: inline-block; width: 50%; line-height: 64px;">' . $this->relationship_service->legacyNameAlgorithm($relationships[$n], Registry::individualFactory()->make($path[$n - 1], $tree), Registry::individualFactory()->make($path[$n + 1], $tree)) . '</div><div style="display: inline-block; width: 50%; line-height: 32px">' . view('icons/arrow-up') . '</div></div>'; 3739b5537c3SGreg Roach } 3749b5537c3SGreg Roach $y += 2; 3759b5537c3SGreg Roach break; 3769b5537c3SGreg Roach } 3779b5537c3SGreg Roach $max_x = max($max_x, $x); 3789b5537c3SGreg Roach $min_y = min($min_y, $y); 3799b5537c3SGreg Roach $max_y = max($max_y, $y); 3809b5537c3SGreg Roach } else { 3816b9cb339SGreg Roach $individual = Registry::individualFactory()->make($xref, $tree); 382f4ba05e3SGreg Roach $table[$x][$y] = view('chart-box', ['individual' => $individual]); 3839b5537c3SGreg Roach } 3849b5537c3SGreg Roach } 3854a2590a5SGreg Roach echo '<div class="wt-chart wt-chart-relationships">'; 3869b5537c3SGreg Roach echo '<table style="border-collapse: collapse; margin: 20px 50px;">'; 3879b5537c3SGreg Roach for ($y = $max_y; $y >= $min_y; --$y) { 3889b5537c3SGreg Roach echo '<tr>'; 3899b5537c3SGreg Roach for ($x = 0; $x <= $max_x; ++$x) { 3909b5537c3SGreg Roach echo '<td style="padding: 0;">'; 3919b5537c3SGreg Roach if (isset($table[$x][$y])) { 3929b5537c3SGreg Roach echo $table[$x][$y]; 3939b5537c3SGreg Roach } 3949b5537c3SGreg Roach echo '</td>'; 3959b5537c3SGreg Roach } 3969b5537c3SGreg Roach echo '</tr>'; 3979b5537c3SGreg Roach } 3989b5537c3SGreg Roach echo '</table>'; 3999b5537c3SGreg Roach echo '</div>'; 4009b5537c3SGreg Roach } 4019b5537c3SGreg Roach 4029b5537c3SGreg Roach if (!$num_paths) { 4039b5537c3SGreg Roach echo '<p>', I18N::translate('No link between the two individuals could be found.'), '</p>'; 4049b5537c3SGreg Roach } 4059b5537c3SGreg Roach 4069b5537c3SGreg Roach $html = ob_get_clean(); 4079b5537c3SGreg Roach 4086ccdf4f0SGreg Roach return response($html); 4099b5537c3SGreg Roach } 4109b5537c3SGreg Roach 4119b5537c3SGreg Roach /** 4123cfcc809SGreg Roach * @param ServerRequestInterface $request 4133cfcc809SGreg Roach * 4143cfcc809SGreg Roach * @return ResponseInterface 4153cfcc809SGreg Roach */ 4163cfcc809SGreg Roach public function getAdminAction(ServerRequestInterface $request): ResponseInterface 4173cfcc809SGreg Roach { 4183cfcc809SGreg Roach $this->layout = 'layouts/administration'; 4193cfcc809SGreg Roach 4203cfcc809SGreg Roach return $this->viewResponse('modules/relationships-chart/config', [ 4213df1e584SGreg Roach 'all_trees' => $this->tree_service->all(), 4223cfcc809SGreg Roach 'ancestors_options' => $this->ancestorsOptions(), 4233cfcc809SGreg Roach 'default_ancestors' => self::DEFAULT_ANCESTORS, 4243cfcc809SGreg Roach 'default_recursion' => self::DEFAULT_RECURSION, 4253cfcc809SGreg Roach 'recursion_options' => $this->recursionConfigOptions(), 4263cfcc809SGreg Roach 'title' => I18N::translate('Chart preferences') . ' — ' . $this->title(), 4273cfcc809SGreg Roach ]); 4283cfcc809SGreg Roach } 4293cfcc809SGreg Roach 4303cfcc809SGreg Roach /** 4313cfcc809SGreg Roach * @param ServerRequestInterface $request 4323cfcc809SGreg Roach * 4333cfcc809SGreg Roach * @return ResponseInterface 4343cfcc809SGreg Roach */ 4353cfcc809SGreg Roach public function postAdminAction(ServerRequestInterface $request): ResponseInterface 4363cfcc809SGreg Roach { 4373df1e584SGreg Roach foreach ($this->tree_service->all() as $tree) { 438748dbe15SGreg Roach $recursion = Validator::parsedBody($request)->integer('relationship-recursion-' . $tree->id()); 439748dbe15SGreg Roach $ancestors = Validator::parsedBody($request)->string('relationship-ancestors-' . $tree->id()); 4403cfcc809SGreg Roach 441748dbe15SGreg Roach $tree->setPreference('RELATIONSHIP_RECURSION', (string) $recursion); 4423cfcc809SGreg Roach $tree->setPreference('RELATIONSHIP_ANCESTORS', $ancestors); 4433cfcc809SGreg Roach } 4443cfcc809SGreg Roach 4453cfcc809SGreg Roach FlashMessages::addMessage(I18N::translate('The preferences for the module “%s” have been updated.', $this->title()), 'success'); 4463cfcc809SGreg Roach 4473cfcc809SGreg Roach return redirect($this->getConfigLink()); 4483cfcc809SGreg Roach } 4493cfcc809SGreg Roach 4503cfcc809SGreg Roach /** 4513cfcc809SGreg Roach * Possible options for the ancestors option 4523cfcc809SGreg Roach * 4537c2c99faSGreg Roach * @return array<int,string> 4543cfcc809SGreg Roach */ 4553cfcc809SGreg Roach private function ancestorsOptions(): array 4563cfcc809SGreg Roach { 4573cfcc809SGreg Roach return [ 4583cfcc809SGreg Roach 0 => I18N::translate('Find any relationship'), 4593cfcc809SGreg Roach 1 => I18N::translate('Find relationships via ancestors'), 4603cfcc809SGreg Roach ]; 4613cfcc809SGreg Roach } 4623cfcc809SGreg Roach 4633cfcc809SGreg Roach /** 4643cfcc809SGreg Roach * Possible options for the recursion option 4653cfcc809SGreg Roach * 4667c2c99faSGreg Roach * @return array<int,string> 4673cfcc809SGreg Roach */ 4683cfcc809SGreg Roach private function recursionConfigOptions(): array 4693cfcc809SGreg Roach { 4703cfcc809SGreg Roach return [ 4713cfcc809SGreg Roach 0 => I18N::translate('none'), 4723cfcc809SGreg Roach 1 => I18N::number(1), 4733cfcc809SGreg Roach 2 => I18N::number(2), 4743cfcc809SGreg Roach 3 => I18N::number(3), 4753cfcc809SGreg Roach self::UNLIMITED_RECURSION => I18N::translate('unlimited'), 4763cfcc809SGreg Roach ]; 4773cfcc809SGreg Roach } 4783cfcc809SGreg Roach 4793cfcc809SGreg Roach /** 4809b5537c3SGreg Roach * Calculate the shortest paths - or all paths - between two individuals. 4819b5537c3SGreg Roach * 4829b5537c3SGreg Roach * @param Individual $individual1 4839b5537c3SGreg Roach * @param Individual $individual2 4849b5537c3SGreg Roach * @param int $recursion How many levels of recursion to use 4859b5537c3SGreg Roach * @param bool $ancestor Restrict to relationships via a common ancestor 4869b5537c3SGreg Roach * 48724f2a3afSGreg Roach * @return array<array<string>> 4889b5537c3SGreg Roach */ 48924f2a3afSGreg Roach private function calculateRelationships( 49024f2a3afSGreg Roach Individual $individual1, 49124f2a3afSGreg Roach Individual $individual2, 49224f2a3afSGreg Roach int $recursion, 49324f2a3afSGreg Roach bool $ancestor = false 49424f2a3afSGreg Roach ): array { 4953dcc812bSGreg Roach $tree = $individual1->tree(); 4963dcc812bSGreg Roach 4979b5537c3SGreg Roach $rows = DB::table('link') 4983dcc812bSGreg Roach ->where('l_file', '=', $tree->id()) 4999b5537c3SGreg Roach ->whereIn('l_type', ['FAMS', 'FAMC']) 5009b5537c3SGreg Roach ->select(['l_from', 'l_to']) 5019b5537c3SGreg Roach ->get(); 5029b5537c3SGreg Roach 5039b5537c3SGreg Roach // Optionally restrict the graph to the ancestors of the individuals. 5049b5537c3SGreg Roach if ($ancestor) { 5053dcc812bSGreg Roach $ancestors = $this->allAncestors($individual1->xref(), $individual2->xref(), $tree->id()); 5063dcc812bSGreg Roach $exclude = $this->excludeFamilies($individual1->xref(), $individual2->xref(), $tree->id()); 5079b5537c3SGreg Roach } else { 5089b5537c3SGreg Roach $ancestors = []; 5099b5537c3SGreg Roach $exclude = []; 5109b5537c3SGreg Roach } 5119b5537c3SGreg Roach 5129b5537c3SGreg Roach $graph = []; 5139b5537c3SGreg Roach 5149b5537c3SGreg Roach foreach ($rows as $row) { 515075d1a05SGreg Roach if ($ancestors === [] || in_array($row->l_from, $ancestors, true) && !in_array($row->l_to, $exclude, true)) { 5169b5537c3SGreg Roach $graph[$row->l_from][$row->l_to] = 1; 5179b5537c3SGreg Roach $graph[$row->l_to][$row->l_from] = 1; 5189b5537c3SGreg Roach } 5199b5537c3SGreg Roach } 5209b5537c3SGreg Roach 5219b5537c3SGreg Roach $xref1 = $individual1->xref(); 5229b5537c3SGreg Roach $xref2 = $individual2->xref(); 5239b5537c3SGreg Roach $dijkstra = new Dijkstra($graph); 5249b5537c3SGreg Roach $paths = $dijkstra->shortestPaths($xref1, $xref2); 5259b5537c3SGreg Roach 5269b5537c3SGreg Roach // Only process each exclusion list once; 5279b5537c3SGreg Roach $excluded = []; 5289b5537c3SGreg Roach 5299b5537c3SGreg Roach $queue = []; 5309b5537c3SGreg Roach foreach ($paths as $path) { 5319b5537c3SGreg Roach // Insert the paths into the queue, with an exclusion list. 5329b5537c3SGreg Roach $queue[] = [ 5339b5537c3SGreg Roach 'path' => $path, 5349b5537c3SGreg Roach 'exclude' => [], 5359b5537c3SGreg Roach ]; 5369b5537c3SGreg Roach // While there are un-extended paths 5379b5537c3SGreg Roach for ($next = current($queue); $next !== false; $next = next($queue)) { 5389b5537c3SGreg Roach // For each family on the path 5399b5537c3SGreg Roach for ($n = count($next['path']) - 2; $n >= 1; $n -= 2) { 5409b5537c3SGreg Roach $exclude = $next['exclude']; 5419b5537c3SGreg Roach if (count($exclude) >= $recursion) { 5429b5537c3SGreg Roach continue; 5439b5537c3SGreg Roach } 5449b5537c3SGreg Roach $exclude[] = $next['path'][$n]; 5459b5537c3SGreg Roach sort($exclude); 5469b5537c3SGreg Roach $tmp = implode('-', $exclude); 54722d65e5aSGreg Roach if (in_array($tmp, $excluded, true)) { 5489b5537c3SGreg Roach continue; 5499b5537c3SGreg Roach } 5509b5537c3SGreg Roach 5519b5537c3SGreg Roach $excluded[] = $tmp; 5529b5537c3SGreg Roach // Add any new path to the queue 5539b5537c3SGreg Roach foreach ($dijkstra->shortestPaths($xref1, $xref2, $exclude) as $new_path) { 5549b5537c3SGreg Roach $queue[] = [ 5559b5537c3SGreg Roach 'path' => $new_path, 5569b5537c3SGreg Roach 'exclude' => $exclude, 5579b5537c3SGreg Roach ]; 5589b5537c3SGreg Roach } 5599b5537c3SGreg Roach } 5609b5537c3SGreg Roach } 5619b5537c3SGreg Roach } 562185cbb4dSGreg Roach // Extract the paths from the queue. 5639b5537c3SGreg Roach $paths = []; 5649b5537c3SGreg Roach foreach ($queue as $next) { 565185cbb4dSGreg Roach // The Dijkstra library does not use strict types, and converts 566185cbb4dSGreg Roach // numeric array keys (XREFs) from strings to integers; 567185cbb4dSGreg Roach $path = array_map($this->stringMapper(), $next['path']); 568185cbb4dSGreg Roach 569185cbb4dSGreg Roach // Remove duplicates 570185cbb4dSGreg Roach $paths[implode('-', $next['path'])] = $path; 5719b5537c3SGreg Roach } 5729b5537c3SGreg Roach 5739b5537c3SGreg Roach return $paths; 5749b5537c3SGreg Roach } 5759b5537c3SGreg Roach 5769b5537c3SGreg Roach /** 577185cbb4dSGreg Roach * Convert numeric values to strings 578185cbb4dSGreg Roach * 579c6921a17SGreg Roach * @return Closure(int|string):string 580185cbb4dSGreg Roach */ 581c3f3b628SGreg Roach private function stringMapper(): Closure 582c3f3b628SGreg Roach { 583f25fc0f9SGreg Roach return static fn ($xref) => (string) $xref; 584185cbb4dSGreg Roach } 585185cbb4dSGreg Roach 586185cbb4dSGreg Roach /** 5879b5537c3SGreg Roach * Find all ancestors of a list of individuals 5889b5537c3SGreg Roach * 5899b5537c3SGreg Roach * @param string $xref1 5909b5537c3SGreg Roach * @param string $xref2 5919b5537c3SGreg Roach * @param int $tree_id 5929b5537c3SGreg Roach * 59324f2a3afSGreg Roach * @return array<string> 5949b5537c3SGreg Roach */ 59524f2a3afSGreg Roach private function allAncestors(string $xref1, string $xref2, int $tree_id): array 5969b5537c3SGreg Roach { 5979b5537c3SGreg Roach $ancestors = [ 5989b5537c3SGreg Roach $xref1, 5999b5537c3SGreg Roach $xref2, 6009b5537c3SGreg Roach ]; 6019b5537c3SGreg Roach 6029b5537c3SGreg Roach $queue = [ 6039b5537c3SGreg Roach $xref1, 6049b5537c3SGreg Roach $xref2, 6059b5537c3SGreg Roach ]; 606075d1a05SGreg Roach while ($queue !== []) { 6079b5537c3SGreg Roach $parents = DB::table('link AS l1') 6080b5fd0a6SGreg Roach ->join('link AS l2', static function (JoinClause $join): void { 6099b5537c3SGreg Roach $join 6109b5537c3SGreg Roach ->on('l1.l_to', '=', 'l2.l_to') 6119b5537c3SGreg Roach ->on('l1.l_file', '=', 'l2.l_file'); 6129b5537c3SGreg Roach }) 6139b5537c3SGreg Roach ->where('l1.l_file', '=', $tree_id) 6149b5537c3SGreg Roach ->where('l1.l_type', '=', 'FAMC') 6159b5537c3SGreg Roach ->where('l2.l_type', '=', 'FAMS') 6169b5537c3SGreg Roach ->whereIn('l1.l_from', $queue) 6179b5537c3SGreg Roach ->pluck('l2.l_from'); 6189b5537c3SGreg Roach 6199b5537c3SGreg Roach $queue = []; 6209b5537c3SGreg Roach foreach ($parents as $parent) { 62122d65e5aSGreg Roach if (!in_array($parent, $ancestors, true)) { 6229b5537c3SGreg Roach $ancestors[] = $parent; 6239b5537c3SGreg Roach $queue[] = $parent; 6249b5537c3SGreg Roach } 6259b5537c3SGreg Roach } 6269b5537c3SGreg Roach } 6279b5537c3SGreg Roach 6289b5537c3SGreg Roach return $ancestors; 6299b5537c3SGreg Roach } 6309b5537c3SGreg Roach 6319b5537c3SGreg Roach /** 6329b5537c3SGreg Roach * Find all families of two individuals 6339b5537c3SGreg Roach * 6349b5537c3SGreg Roach * @param string $xref1 6359b5537c3SGreg Roach * @param string $xref2 6369b5537c3SGreg Roach * @param int $tree_id 6379b5537c3SGreg Roach * 63824f2a3afSGreg Roach * @return array<string> 6399b5537c3SGreg Roach */ 64024f2a3afSGreg Roach private function excludeFamilies(string $xref1, string $xref2, int $tree_id): array 6419b5537c3SGreg Roach { 6429b5537c3SGreg Roach return DB::table('link AS l1') 6430b5fd0a6SGreg Roach ->join('link AS l2', static function (JoinClause $join): void { 6449b5537c3SGreg Roach $join 6459b5537c3SGreg Roach ->on('l1.l_to', '=', 'l2.l_to') 6469b5537c3SGreg Roach ->on('l1.l_type', '=', 'l2.l_type') 6479b5537c3SGreg Roach ->on('l1.l_file', '=', 'l2.l_file'); 6489b5537c3SGreg Roach }) 6499b5537c3SGreg Roach ->where('l1.l_file', '=', $tree_id) 6509b5537c3SGreg Roach ->where('l1.l_type', '=', 'FAMS') 6519b5537c3SGreg Roach ->where('l1.l_from', '=', $xref1) 6529b5537c3SGreg Roach ->where('l2.l_from', '=', $xref2) 6539b5537c3SGreg Roach ->pluck('l1.l_to') 6549b5537c3SGreg Roach ->all(); 6559b5537c3SGreg Roach } 6569b5537c3SGreg Roach 6579b5537c3SGreg Roach /** 6586ccdf4f0SGreg Roach * Convert a path (list of XREFs) to an "old-style" string of relationships. 6596ccdf4f0SGreg Roach * Return an empty array, if privacy rules prevent us viewing any node. 6606ccdf4f0SGreg Roach * 6616ccdf4f0SGreg Roach * @param Tree $tree 66209482a55SGreg Roach * @param array<string> $path Alternately Individual / Family 6636ccdf4f0SGreg Roach * 66424f2a3afSGreg Roach * @return array<string> 6656ccdf4f0SGreg Roach */ 6666ccdf4f0SGreg Roach private function oldStyleRelationshipPath(Tree $tree, array $path): array 6676ccdf4f0SGreg Roach { 6686ccdf4f0SGreg Roach $spouse_codes = [ 6696ccdf4f0SGreg Roach 'M' => 'hus', 6706ccdf4f0SGreg Roach 'F' => 'wif', 6716ccdf4f0SGreg Roach 'U' => 'spo', 6726ccdf4f0SGreg Roach ]; 6736ccdf4f0SGreg Roach $parent_codes = [ 6746ccdf4f0SGreg Roach 'M' => 'fat', 6756ccdf4f0SGreg Roach 'F' => 'mot', 6766ccdf4f0SGreg Roach 'U' => 'par', 6776ccdf4f0SGreg Roach ]; 6786ccdf4f0SGreg Roach $child_codes = [ 6796ccdf4f0SGreg Roach 'M' => 'son', 6806ccdf4f0SGreg Roach 'F' => 'dau', 6816ccdf4f0SGreg Roach 'U' => 'chi', 6826ccdf4f0SGreg Roach ]; 6836ccdf4f0SGreg Roach $sibling_codes = [ 6846ccdf4f0SGreg Roach 'M' => 'bro', 6856ccdf4f0SGreg Roach 'F' => 'sis', 6866ccdf4f0SGreg Roach 'U' => 'sib', 6876ccdf4f0SGreg Roach ]; 6886ccdf4f0SGreg Roach $relationships = []; 6896ccdf4f0SGreg Roach 6906ccdf4f0SGreg Roach for ($i = 1, $count = count($path); $i < $count; $i += 2) { 6916b9cb339SGreg Roach $family = Registry::familyFactory()->make($path[$i], $tree); 6926b9cb339SGreg Roach $prev = Registry::individualFactory()->make($path[$i - 1], $tree); 6936b9cb339SGreg Roach $next = Registry::individualFactory()->make($path[$i + 1], $tree); 6946ccdf4f0SGreg Roach if (preg_match('/\n\d (HUSB|WIFE|CHIL) @' . $prev->xref() . '@/', $family->gedcom(), $match)) { 6956ccdf4f0SGreg Roach $rel1 = $match[1]; 6966ccdf4f0SGreg Roach } else { 6976ccdf4f0SGreg Roach return []; 6986ccdf4f0SGreg Roach } 6996ccdf4f0SGreg Roach if (preg_match('/\n\d (HUSB|WIFE|CHIL) @' . $next->xref() . '@/', $family->gedcom(), $match)) { 7006ccdf4f0SGreg Roach $rel2 = $match[1]; 7016ccdf4f0SGreg Roach } else { 7026ccdf4f0SGreg Roach return []; 7036ccdf4f0SGreg Roach } 7046ccdf4f0SGreg Roach if (($rel1 === 'HUSB' || $rel1 === 'WIFE') && ($rel2 === 'HUSB' || $rel2 === 'WIFE')) { 70523a98013SGreg Roach $relationships[$i] = $spouse_codes[$next->sex()] ?? $spouse_codes['U']; 7066ccdf4f0SGreg Roach } elseif (($rel1 === 'HUSB' || $rel1 === 'WIFE') && $rel2 === 'CHIL') { 70723a98013SGreg Roach $relationships[$i] = $child_codes[$next->sex()] ?? $child_codes['U']; 7086ccdf4f0SGreg Roach } elseif ($rel1 === 'CHIL' && ($rel2 === 'HUSB' || $rel2 === 'WIFE')) { 70923a98013SGreg Roach $relationships[$i] = $parent_codes[$next->sex()] ?? $parent_codes['U']; 7106ccdf4f0SGreg Roach } elseif ($rel1 === 'CHIL' && $rel2 === 'CHIL') { 71123a98013SGreg Roach $relationships[$i] = $sibling_codes[$next->sex()] ?? $sibling_codes['U']; 7126ccdf4f0SGreg Roach } 7136ccdf4f0SGreg Roach } 7146ccdf4f0SGreg Roach 7156ccdf4f0SGreg Roach return $relationships; 7166ccdf4f0SGreg Roach } 7176ccdf4f0SGreg Roach 7186ccdf4f0SGreg Roach /** 7199b5537c3SGreg Roach * Possible options for the recursion option 7209b5537c3SGreg Roach * 7219b5537c3SGreg Roach * @param int $max_recursion 7229b5537c3SGreg Roach * 72324f2a3afSGreg Roach * @return array<string> 7249b5537c3SGreg Roach */ 7259b5537c3SGreg Roach private function recursionOptions(int $max_recursion): array 7269b5537c3SGreg Roach { 7273dcc812bSGreg Roach if ($max_recursion === static::UNLIMITED_RECURSION) { 7289b5537c3SGreg Roach $text = I18N::translate('Find all possible relationships'); 7299b5537c3SGreg Roach } else { 7309b5537c3SGreg Roach $text = I18N::translate('Find other relationships'); 7319b5537c3SGreg Roach } 7329b5537c3SGreg Roach 7339b5537c3SGreg Roach return [ 7349b5537c3SGreg Roach '0' => I18N::translate('Find the closest relationships'), 7359b5537c3SGreg Roach $max_recursion => $text, 7369b5537c3SGreg Roach ]; 7379b5537c3SGreg Roach } 738168ff6f3Sric2016} 739