xref: /webtrees/app/Module/RelationshipsChartModule.php (revision 7413816e6dd2d50e569034fb804f3dce7471bb94)
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