@@ -21,19 +21,19 @@ |
||
21 | 21 | */ |
22 | 22 | interface ModuleMyArtJaubInterface extends ModuleCustomInterface |
23 | 23 | { |
24 | - /** |
|
25 | - * Add module routes to webtrees route loader |
|
26 | - * |
|
27 | - * @param Map<\Aura\Router\Route> $router |
|
28 | - */ |
|
29 | - public function loadRoutes(Map $router): void; |
|
24 | + /** |
|
25 | + * Add module routes to webtrees route loader |
|
26 | + * |
|
27 | + * @param Map<\Aura\Router\Route> $router |
|
28 | + */ |
|
29 | + public function loadRoutes(Map $router): void; |
|
30 | 30 | |
31 | - /** |
|
32 | - * Returns the URL of the module specific stylesheets. |
|
33 | - * It will look for a CSS file matching the theme name (e.g. xenea.min.css), |
|
34 | - * and fallback to default.min.css if none are found |
|
35 | - * |
|
36 | - * @return string |
|
37 | - */ |
|
38 | - public function moduleCssUrl(): string; |
|
31 | + /** |
|
32 | + * Returns the URL of the module specific stylesheets. |
|
33 | + * It will look for a CSS file matching the theme name (e.g. xenea.min.css), |
|
34 | + * and fallback to default.min.css if none are found |
|
35 | + * |
|
36 | + * @return string |
|
37 | + */ |
|
38 | + public function moduleCssUrl(): string; |
|
39 | 39 | } |
@@ -25,41 +25,41 @@ |
||
25 | 25 | */ |
26 | 26 | class GeoAnalysisService |
27 | 27 | { |
28 | - private ModuleService $module_service; |
|
28 | + private ModuleService $module_service; |
|
29 | 29 | |
30 | - /** |
|
31 | - * Constructor for MapDefinitionsService |
|
32 | - * |
|
33 | - * @param ModuleService $module_service |
|
34 | - */ |
|
35 | - public function __construct(ModuleService $module_service) |
|
36 | - { |
|
37 | - $this->module_service = $module_service; |
|
38 | - } |
|
30 | + /** |
|
31 | + * Constructor for MapDefinitionsService |
|
32 | + * |
|
33 | + * @param ModuleService $module_service |
|
34 | + */ |
|
35 | + public function __construct(ModuleService $module_service) |
|
36 | + { |
|
37 | + $this->module_service = $module_service; |
|
38 | + } |
|
39 | 39 | |
40 | - /** |
|
41 | - * Get all available geographical dispersion analyses. |
|
42 | - * |
|
43 | - * {@internal The list is generated based on the modules exposing ModuleGeoAnalysisProviderInterface |
|
44 | - * |
|
45 | - * @param bool $include_disabled |
|
46 | - * @return Collection<GeoAnalysisInterface> |
|
47 | - */ |
|
48 | - public function all(bool $include_disabled = false): Collection |
|
49 | - { |
|
50 | - /** @var Collection<GeoAnalysisInterface> $geoanalyses */ |
|
51 | - $geoanalyses = $this->module_service |
|
52 | - ->findByInterface(ModuleGeoAnalysisProviderInterface::class, $include_disabled) |
|
53 | - ->flatMap(fn(ModuleGeoAnalysisProviderInterface $module) => $module->listGeoAnalyses()) |
|
54 | - ->map(static function (string $analysis_class): ?GeoAnalysisInterface { |
|
55 | - try { |
|
56 | - $analysis = app($analysis_class); |
|
57 | - return $analysis instanceof GeoAnalysisInterface ? $analysis : null; |
|
58 | - } catch (BindingResolutionException $ex) { |
|
59 | - return null; |
|
60 | - } |
|
61 | - })->filter(); |
|
40 | + /** |
|
41 | + * Get all available geographical dispersion analyses. |
|
42 | + * |
|
43 | + * {@internal The list is generated based on the modules exposing ModuleGeoAnalysisProviderInterface |
|
44 | + * |
|
45 | + * @param bool $include_disabled |
|
46 | + * @return Collection<GeoAnalysisInterface> |
|
47 | + */ |
|
48 | + public function all(bool $include_disabled = false): Collection |
|
49 | + { |
|
50 | + /** @var Collection<GeoAnalysisInterface> $geoanalyses */ |
|
51 | + $geoanalyses = $this->module_service |
|
52 | + ->findByInterface(ModuleGeoAnalysisProviderInterface::class, $include_disabled) |
|
53 | + ->flatMap(fn(ModuleGeoAnalysisProviderInterface $module) => $module->listGeoAnalyses()) |
|
54 | + ->map(static function (string $analysis_class): ?GeoAnalysisInterface { |
|
55 | + try { |
|
56 | + $analysis = app($analysis_class); |
|
57 | + return $analysis instanceof GeoAnalysisInterface ? $analysis : null; |
|
58 | + } catch (BindingResolutionException $ex) { |
|
59 | + return null; |
|
60 | + } |
|
61 | + })->filter(); |
|
62 | 62 | |
63 | - return $geoanalyses; |
|
64 | - } |
|
63 | + return $geoanalyses; |
|
64 | + } |
|
65 | 65 | } |
@@ -51,7 +51,7 @@ |
||
51 | 51 | $geoanalyses = $this->module_service |
52 | 52 | ->findByInterface(ModuleGeoAnalysisProviderInterface::class, $include_disabled) |
53 | 53 | ->flatMap(fn(ModuleGeoAnalysisProviderInterface $module) => $module->listGeoAnalyses()) |
54 | - ->map(static function (string $analysis_class): ?GeoAnalysisInterface { |
|
54 | + ->map(static function(string $analysis_class): ?GeoAnalysisInterface { |
|
55 | 55 | try { |
56 | 56 | $analysis = app($analysis_class); |
57 | 57 | return $analysis instanceof GeoAnalysisInterface ? $analysis : null; |
@@ -25,41 +25,41 @@ |
||
25 | 25 | */ |
26 | 26 | class PlaceMapperService |
27 | 27 | { |
28 | - private ModuleService $module_service; |
|
28 | + private ModuleService $module_service; |
|
29 | 29 | |
30 | - /** |
|
31 | - * Constructor for PlaceMapperService |
|
32 | - * |
|
33 | - * @param ModuleService $module_service |
|
34 | - */ |
|
35 | - public function __construct(ModuleService $module_service) |
|
36 | - { |
|
37 | - $this->module_service = $module_service; |
|
38 | - } |
|
30 | + /** |
|
31 | + * Constructor for PlaceMapperService |
|
32 | + * |
|
33 | + * @param ModuleService $module_service |
|
34 | + */ |
|
35 | + public function __construct(ModuleService $module_service) |
|
36 | + { |
|
37 | + $this->module_service = $module_service; |
|
38 | + } |
|
39 | 39 | |
40 | - /** |
|
41 | - * Get all place mappers available. |
|
42 | - * |
|
43 | - * {@internal The list is generated based on the modules exposing ModulePlaceMapperProviderInterface} |
|
44 | - * |
|
45 | - * @param bool $include_disabled |
|
46 | - * @return Collection<PlaceMapperInterface> |
|
47 | - */ |
|
48 | - public function all(bool $include_disabled = false): Collection |
|
49 | - { |
|
50 | - /** @var Collection<PlaceMapperInterface> $place_mappers */ |
|
51 | - $place_mappers = $this->module_service |
|
52 | - ->findByInterface(ModulePlaceMapperProviderInterface::class, $include_disabled) |
|
53 | - ->flatMap(fn(ModulePlaceMapperProviderInterface $module) => $module->listPlaceMappers()) |
|
54 | - ->map(static function (string $mapper_class): ?PlaceMapperInterface { |
|
55 | - try { |
|
56 | - $mapper = app($mapper_class); |
|
57 | - return $mapper instanceof PlaceMapperInterface ? $mapper : null; |
|
58 | - } catch (BindingResolutionException $ex) { |
|
59 | - return null; |
|
60 | - } |
|
61 | - })->filter(); |
|
40 | + /** |
|
41 | + * Get all place mappers available. |
|
42 | + * |
|
43 | + * {@internal The list is generated based on the modules exposing ModulePlaceMapperProviderInterface} |
|
44 | + * |
|
45 | + * @param bool $include_disabled |
|
46 | + * @return Collection<PlaceMapperInterface> |
|
47 | + */ |
|
48 | + public function all(bool $include_disabled = false): Collection |
|
49 | + { |
|
50 | + /** @var Collection<PlaceMapperInterface> $place_mappers */ |
|
51 | + $place_mappers = $this->module_service |
|
52 | + ->findByInterface(ModulePlaceMapperProviderInterface::class, $include_disabled) |
|
53 | + ->flatMap(fn(ModulePlaceMapperProviderInterface $module) => $module->listPlaceMappers()) |
|
54 | + ->map(static function (string $mapper_class): ?PlaceMapperInterface { |
|
55 | + try { |
|
56 | + $mapper = app($mapper_class); |
|
57 | + return $mapper instanceof PlaceMapperInterface ? $mapper : null; |
|
58 | + } catch (BindingResolutionException $ex) { |
|
59 | + return null; |
|
60 | + } |
|
61 | + })->filter(); |
|
62 | 62 | |
63 | - return $place_mappers; |
|
64 | - } |
|
63 | + return $place_mappers; |
|
64 | + } |
|
65 | 65 | } |
@@ -48,10 +48,10 @@ |
||
48 | 48 | public function all(bool $include_disabled = false): Collection |
49 | 49 | { |
50 | 50 | /** @var Collection<PlaceMapperInterface> $place_mappers */ |
51 | - $place_mappers = $this->module_service |
|
51 | + $place_mappers = $this->module_service |
|
52 | 52 | ->findByInterface(ModulePlaceMapperProviderInterface::class, $include_disabled) |
53 | 53 | ->flatMap(fn(ModulePlaceMapperProviderInterface $module) => $module->listPlaceMappers()) |
54 | - ->map(static function (string $mapper_class): ?PlaceMapperInterface { |
|
54 | + ->map(static function(string $mapper_class): ?PlaceMapperInterface { |
|
55 | 55 | try { |
56 | 56 | $mapper = app($mapper_class); |
57 | 57 | return $mapper instanceof PlaceMapperInterface ? $mapper : null; |
@@ -24,67 +24,67 @@ |
||
24 | 24 | */ |
25 | 25 | trait PlaceMapperTrait |
26 | 26 | { |
27 | - private ?PlaceMapperConfigInterface $config = null; |
|
27 | + private ?PlaceMapperConfigInterface $config = null; |
|
28 | 28 | |
29 | - /** @var array<string, mixed> $data */ |
|
30 | - private array $data = []; |
|
29 | + /** @var array<string, mixed> $data */ |
|
30 | + private array $data = []; |
|
31 | 31 | |
32 | - /** |
|
33 | - * Implementation of PlaceMapperInterface::boot |
|
34 | - * |
|
35 | - * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\PlaceMapperInterface::boot() |
|
36 | - */ |
|
37 | - public function boot(): void |
|
38 | - { |
|
39 | - } |
|
32 | + /** |
|
33 | + * Implementation of PlaceMapperInterface::boot |
|
34 | + * |
|
35 | + * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\PlaceMapperInterface::boot() |
|
36 | + */ |
|
37 | + public function boot(): void |
|
38 | + { |
|
39 | + } |
|
40 | 40 | |
41 | - /** |
|
42 | - * Implementation of PlaceMapperInterface::config |
|
43 | - * |
|
44 | - * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\PlaceMapperInterface::config() |
|
45 | - * |
|
46 | - * @return PlaceMapperConfigInterface |
|
47 | - */ |
|
48 | - public function config(): PlaceMapperConfigInterface |
|
49 | - { |
|
50 | - return $this->config ?? new NullPlaceMapperConfig(); |
|
51 | - } |
|
41 | + /** |
|
42 | + * Implementation of PlaceMapperInterface::config |
|
43 | + * |
|
44 | + * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\PlaceMapperInterface::config() |
|
45 | + * |
|
46 | + * @return PlaceMapperConfigInterface |
|
47 | + */ |
|
48 | + public function config(): PlaceMapperConfigInterface |
|
49 | + { |
|
50 | + return $this->config ?? new NullPlaceMapperConfig(); |
|
51 | + } |
|
52 | 52 | |
53 | - /** |
|
54 | - * Implementation of PlaceMapperInterface::setConfig |
|
55 | - * |
|
56 | - * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\PlaceMapperInterface::setConfig() |
|
57 | - * |
|
58 | - * @param PlaceMapperConfigInterface $config |
|
59 | - */ |
|
60 | - public function setConfig(PlaceMapperConfigInterface $config): void |
|
61 | - { |
|
62 | - $this->config = $config; |
|
63 | - } |
|
53 | + /** |
|
54 | + * Implementation of PlaceMapperInterface::setConfig |
|
55 | + * |
|
56 | + * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\PlaceMapperInterface::setConfig() |
|
57 | + * |
|
58 | + * @param PlaceMapperConfigInterface $config |
|
59 | + */ |
|
60 | + public function setConfig(PlaceMapperConfigInterface $config): void |
|
61 | + { |
|
62 | + $this->config = $config; |
|
63 | + } |
|
64 | 64 | |
65 | - /** |
|
66 | - * Implementation of PlaceMapperInterface::data |
|
67 | - * |
|
68 | - * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\PlaceMapperInterface::data() |
|
69 | - * |
|
70 | - * @param string $key |
|
71 | - * @return NULL|mixed |
|
72 | - */ |
|
73 | - public function data(string $key) |
|
74 | - { |
|
75 | - return $this->data[$key] ?? null; |
|
76 | - } |
|
65 | + /** |
|
66 | + * Implementation of PlaceMapperInterface::data |
|
67 | + * |
|
68 | + * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\PlaceMapperInterface::data() |
|
69 | + * |
|
70 | + * @param string $key |
|
71 | + * @return NULL|mixed |
|
72 | + */ |
|
73 | + public function data(string $key) |
|
74 | + { |
|
75 | + return $this->data[$key] ?? null; |
|
76 | + } |
|
77 | 77 | |
78 | - /** |
|
79 | - * Implementation of PlaceMapperInterface::setData |
|
80 | - * |
|
81 | - * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\PlaceMapperInterface::setData() |
|
82 | - * |
|
83 | - * @param string $key |
|
84 | - * @param mixed|null $data |
|
85 | - */ |
|
86 | - public function setData(string $key, $data): void |
|
87 | - { |
|
88 | - $this->data[$key] = $data; |
|
89 | - } |
|
78 | + /** |
|
79 | + * Implementation of PlaceMapperInterface::setData |
|
80 | + * |
|
81 | + * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\PlaceMapperInterface::setData() |
|
82 | + * |
|
83 | + * @param string $key |
|
84 | + * @param mixed|null $data |
|
85 | + */ |
|
86 | + public function setData(string $key, $data): void |
|
87 | + { |
|
88 | + $this->data[$key] = $data; |
|
89 | + } |
|
90 | 90 | } |
@@ -23,104 +23,104 @@ |
||
23 | 23 | */ |
24 | 24 | class GeoAnalysisResults |
25 | 25 | { |
26 | - private GeoAnalysisResult $global; |
|
26 | + private GeoAnalysisResult $global; |
|
27 | 27 | |
28 | - /** |
|
29 | - * @var Collection<string, GeoAnalysisResult> $detailed |
|
30 | - */ |
|
31 | - private Collection $detailed; |
|
28 | + /** |
|
29 | + * @var Collection<string, GeoAnalysisResult> $detailed |
|
30 | + */ |
|
31 | + private Collection $detailed; |
|
32 | 32 | |
33 | - /** |
|
34 | - * Constructor for GeoAnalysisResults |
|
35 | - */ |
|
36 | - public function __construct() |
|
37 | - { |
|
38 | - $this->global = new GeoAnalysisResult('Global', 0); |
|
39 | - $this->detailed = new Collection(); |
|
40 | - } |
|
33 | + /** |
|
34 | + * Constructor for GeoAnalysisResults |
|
35 | + */ |
|
36 | + public function __construct() |
|
37 | + { |
|
38 | + $this->global = new GeoAnalysisResult('Global', 0); |
|
39 | + $this->detailed = new Collection(); |
|
40 | + } |
|
41 | 41 | |
42 | - /** |
|
43 | - * Global result of the geographical analysis |
|
44 | - * |
|
45 | - * @return GeoAnalysisResult |
|
46 | - */ |
|
47 | - public function global(): GeoAnalysisResult |
|
48 | - { |
|
49 | - return $this->global; |
|
50 | - } |
|
42 | + /** |
|
43 | + * Global result of the geographical analysis |
|
44 | + * |
|
45 | + * @return GeoAnalysisResult |
|
46 | + */ |
|
47 | + public function global(): GeoAnalysisResult |
|
48 | + { |
|
49 | + return $this->global; |
|
50 | + } |
|
51 | 51 | |
52 | - /** |
|
53 | - * List of results by category of the geographical analysis |
|
54 | - * |
|
55 | - * @return Collection<string, GeoAnalysisResult> |
|
56 | - */ |
|
57 | - public function detailed(): Collection |
|
58 | - { |
|
59 | - return $this->detailed; |
|
60 | - } |
|
52 | + /** |
|
53 | + * List of results by category of the geographical analysis |
|
54 | + * |
|
55 | + * @return Collection<string, GeoAnalysisResult> |
|
56 | + */ |
|
57 | + public function detailed(): Collection |
|
58 | + { |
|
59 | + return $this->detailed; |
|
60 | + } |
|
61 | 61 | |
62 | - /** |
|
63 | - * List of results by category of the geographical analysis. |
|
64 | - * The list is sorted first by the category order, then by the category description |
|
65 | - * |
|
66 | - * @return Collection<string, GeoAnalysisResult> |
|
67 | - */ |
|
68 | - public function sortedDetailed(): Collection |
|
69 | - { |
|
70 | - return $this->detailed->sortBy([ |
|
71 | - fn(GeoAnalysisResult $a, GeoAnalysisResult $b): int => $a->order() <=> $b->order(), |
|
72 | - fn(GeoAnalysisResult $a, GeoAnalysisResult $b): int => |
|
73 | - I18N::comparator()($a->description(), $b->description()) |
|
74 | - ]); |
|
75 | - } |
|
62 | + /** |
|
63 | + * List of results by category of the geographical analysis. |
|
64 | + * The list is sorted first by the category order, then by the category description |
|
65 | + * |
|
66 | + * @return Collection<string, GeoAnalysisResult> |
|
67 | + */ |
|
68 | + public function sortedDetailed(): Collection |
|
69 | + { |
|
70 | + return $this->detailed->sortBy([ |
|
71 | + fn(GeoAnalysisResult $a, GeoAnalysisResult $b): int => $a->order() <=> $b->order(), |
|
72 | + fn(GeoAnalysisResult $a, GeoAnalysisResult $b): int => |
|
73 | + I18N::comparator()($a->description(), $b->description()) |
|
74 | + ]); |
|
75 | + } |
|
76 | 76 | |
77 | - /** |
|
78 | - * Add a GeoAnalysis Place to the global result |
|
79 | - * |
|
80 | - * @param GeoAnalysisPlace $place |
|
81 | - */ |
|
82 | - public function addPlace(GeoAnalysisPlace $place): void |
|
83 | - { |
|
84 | - $this->global()->addPlace($place); |
|
85 | - } |
|
77 | + /** |
|
78 | + * Add a GeoAnalysis Place to the global result |
|
79 | + * |
|
80 | + * @param GeoAnalysisPlace $place |
|
81 | + */ |
|
82 | + public function addPlace(GeoAnalysisPlace $place): void |
|
83 | + { |
|
84 | + $this->global()->addPlace($place); |
|
85 | + } |
|
86 | 86 | |
87 | - /** |
|
88 | - * Add a new category to the list of results, if it does not exist yet |
|
89 | - * |
|
90 | - * @param string $description |
|
91 | - * @param int $order |
|
92 | - */ |
|
93 | - public function addCategory(string $description, int $order): void |
|
94 | - { |
|
95 | - if (!$this->detailed->has($description)) { |
|
96 | - $this->detailed->put($description, new GeoAnalysisResult($description, $order)); |
|
97 | - } |
|
98 | - } |
|
87 | + /** |
|
88 | + * Add a new category to the list of results, if it does not exist yet |
|
89 | + * |
|
90 | + * @param string $description |
|
91 | + * @param int $order |
|
92 | + */ |
|
93 | + public function addCategory(string $description, int $order): void |
|
94 | + { |
|
95 | + if (!$this->detailed->has($description)) { |
|
96 | + $this->detailed->put($description, new GeoAnalysisResult($description, $order)); |
|
97 | + } |
|
98 | + } |
|
99 | 99 | |
100 | - /** |
|
101 | - * Add a GeoAnalysis Place to a category result, if the category exist. |
|
102 | - * |
|
103 | - * @param string $category_name |
|
104 | - * @param GeoAnalysisPlace $place |
|
105 | - */ |
|
106 | - public function addPlaceInCreatedCategory(string $category_name, GeoAnalysisPlace $place): void |
|
107 | - { |
|
108 | - if ($this->detailed->has($category_name)) { |
|
109 | - $this->detailed->get($category_name)->addPlace($place); |
|
110 | - } |
|
111 | - } |
|
100 | + /** |
|
101 | + * Add a GeoAnalysis Place to a category result, if the category exist. |
|
102 | + * |
|
103 | + * @param string $category_name |
|
104 | + * @param GeoAnalysisPlace $place |
|
105 | + */ |
|
106 | + public function addPlaceInCreatedCategory(string $category_name, GeoAnalysisPlace $place): void |
|
107 | + { |
|
108 | + if ($this->detailed->has($category_name)) { |
|
109 | + $this->detailed->get($category_name)->addPlace($place); |
|
110 | + } |
|
111 | + } |
|
112 | 112 | |
113 | - /** |
|
114 | - * Add a GeoAnalysis Place to a category result, after creating the category if it does not exist. |
|
115 | - * |
|
116 | - * @param string $category_name |
|
117 | - * @param GeoAnalysisPlace $place |
|
118 | - */ |
|
119 | - public function addPlaceInCategory(string $category_name, int $category_order, GeoAnalysisPlace $place): void |
|
120 | - { |
|
121 | - if (!$this->detailed->has($category_name)) { |
|
122 | - $this->addCategory($category_name, $category_order); |
|
123 | - } |
|
124 | - $this->addPlaceInCreatedCategory($category_name, $place); |
|
125 | - } |
|
113 | + /** |
|
114 | + * Add a GeoAnalysis Place to a category result, after creating the category if it does not exist. |
|
115 | + * |
|
116 | + * @param string $category_name |
|
117 | + * @param GeoAnalysisPlace $place |
|
118 | + */ |
|
119 | + public function addPlaceInCategory(string $category_name, int $category_order, GeoAnalysisPlace $place): void |
|
120 | + { |
|
121 | + if (!$this->detailed->has($category_name)) { |
|
122 | + $this->addCategory($category_name, $category_order); |
|
123 | + } |
|
124 | + $this->addPlaceInCreatedCategory($category_name, $place); |
|
125 | + } |
|
126 | 126 | } |
@@ -25,105 +25,105 @@ |
||
25 | 25 | */ |
26 | 26 | class GenericPlaceMapperConfig implements PlaceMapperConfigInterface |
27 | 27 | { |
28 | - /** @var array<string, mixed> $config */ |
|
29 | - private array $config = []; |
|
28 | + /** @var array<string, mixed> $config */ |
|
29 | + private array $config = []; |
|
30 | 30 | |
31 | - /** |
|
32 | - * Get the generic mapper's config |
|
33 | - * |
|
34 | - * @return array<string, mixed> |
|
35 | - */ |
|
36 | - public function config(): array |
|
37 | - { |
|
38 | - return $this->config; |
|
39 | - } |
|
31 | + /** |
|
32 | + * Get the generic mapper's config |
|
33 | + * |
|
34 | + * @return array<string, mixed> |
|
35 | + */ |
|
36 | + public function config(): array |
|
37 | + { |
|
38 | + return $this->config; |
|
39 | + } |
|
40 | 40 | |
41 | - /** |
|
42 | - * Set the generic mapper's config |
|
43 | - * |
|
44 | - * @param array<string, mixed> $config |
|
45 | - * @return $this |
|
46 | - */ |
|
47 | - public function setConfig(array $config): self |
|
48 | - { |
|
49 | - $this->config = $config; |
|
50 | - return $this; |
|
51 | - } |
|
41 | + /** |
|
42 | + * Set the generic mapper's config |
|
43 | + * |
|
44 | + * @param array<string, mixed> $config |
|
45 | + * @return $this |
|
46 | + */ |
|
47 | + public function setConfig(array $config): self |
|
48 | + { |
|
49 | + $this->config = $config; |
|
50 | + return $this; |
|
51 | + } |
|
52 | 52 | |
53 | - /** |
|
54 | - * {@inheritDoc} |
|
55 | - * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\PlaceMapperConfigInterface::get() |
|
56 | - */ |
|
57 | - public function get(string $key, $default = null) |
|
58 | - { |
|
59 | - return $this->config[$key] ?? $default; |
|
60 | - } |
|
53 | + /** |
|
54 | + * {@inheritDoc} |
|
55 | + * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\PlaceMapperConfigInterface::get() |
|
56 | + */ |
|
57 | + public function get(string $key, $default = null) |
|
58 | + { |
|
59 | + return $this->config[$key] ?? $default; |
|
60 | + } |
|
61 | 61 | |
62 | - /** |
|
63 | - * {@inheritDoc} |
|
64 | - * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\PlaceMapperConfigInterface::has() |
|
65 | - */ |
|
66 | - public function has(string $key): bool |
|
67 | - { |
|
68 | - return key_exists($key, $this->config); |
|
69 | - } |
|
62 | + /** |
|
63 | + * {@inheritDoc} |
|
64 | + * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\PlaceMapperConfigInterface::has() |
|
65 | + */ |
|
66 | + public function has(string $key): bool |
|
67 | + { |
|
68 | + return key_exists($key, $this->config); |
|
69 | + } |
|
70 | 70 | |
71 | - /** |
|
72 | - * {@inheritDoc} |
|
73 | - * @see \JsonSerializable::jsonSerialize() |
|
74 | - */ |
|
75 | - public function jsonSerialize() |
|
76 | - { |
|
77 | - return [ |
|
78 | - 'class' => get_class($this), |
|
79 | - 'config' => $this->jsonSerializeConfig() |
|
80 | - ]; |
|
81 | - } |
|
71 | + /** |
|
72 | + * {@inheritDoc} |
|
73 | + * @see \JsonSerializable::jsonSerialize() |
|
74 | + */ |
|
75 | + public function jsonSerialize() |
|
76 | + { |
|
77 | + return [ |
|
78 | + 'class' => get_class($this), |
|
79 | + 'config' => $this->jsonSerializeConfig() |
|
80 | + ]; |
|
81 | + } |
|
82 | 82 | |
83 | - /** |
|
84 | - * Returns a representation of the mapper config compatible with Json serialisation |
|
85 | - * |
|
86 | - * @return mixed |
|
87 | - */ |
|
88 | - public function jsonSerializeConfig() |
|
89 | - { |
|
90 | - return $this->config; |
|
91 | - } |
|
83 | + /** |
|
84 | + * Returns a representation of the mapper config compatible with Json serialisation |
|
85 | + * |
|
86 | + * @return mixed |
|
87 | + */ |
|
88 | + public function jsonSerializeConfig() |
|
89 | + { |
|
90 | + return $this->config; |
|
91 | + } |
|
92 | 92 | |
93 | - /** |
|
94 | - * {@inheritDoc} |
|
95 | - * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\PlaceMapperConfigInterface::jsonDeserialize() |
|
96 | - * |
|
97 | - * @param mixed $config |
|
98 | - * @return $this |
|
99 | - */ |
|
100 | - public function jsonDeserialize($config): self |
|
101 | - { |
|
102 | - if (is_string($config)) { |
|
103 | - return $this->jsonDeserialize(json_decode($config)); |
|
104 | - } |
|
105 | - if (is_array($config)) { |
|
106 | - return $this->setConfig($config); |
|
107 | - } |
|
108 | - return $this; |
|
109 | - } |
|
93 | + /** |
|
94 | + * {@inheritDoc} |
|
95 | + * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\PlaceMapperConfigInterface::jsonDeserialize() |
|
96 | + * |
|
97 | + * @param mixed $config |
|
98 | + * @return $this |
|
99 | + */ |
|
100 | + public function jsonDeserialize($config): self |
|
101 | + { |
|
102 | + if (is_string($config)) { |
|
103 | + return $this->jsonDeserialize(json_decode($config)); |
|
104 | + } |
|
105 | + if (is_array($config)) { |
|
106 | + return $this->setConfig($config); |
|
107 | + } |
|
108 | + return $this; |
|
109 | + } |
|
110 | 110 | |
111 | - /** |
|
112 | - * {@inheritDoc} |
|
113 | - * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\PlaceMapperConfigInterface::configContent() |
|
114 | - */ |
|
115 | - public function configContent(ModuleInterface $module, Tree $tree): string |
|
116 | - { |
|
117 | - return ''; |
|
118 | - } |
|
111 | + /** |
|
112 | + * {@inheritDoc} |
|
113 | + * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\PlaceMapperConfigInterface::configContent() |
|
114 | + */ |
|
115 | + public function configContent(ModuleInterface $module, Tree $tree): string |
|
116 | + { |
|
117 | + return ''; |
|
118 | + } |
|
119 | 119 | |
120 | - /** |
|
121 | - * {@inheritDoc} |
|
122 | - * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\PlaceMapperConfigInterface::withConfigUpdate() |
|
123 | - * @return $this |
|
124 | - */ |
|
125 | - public function withConfigUpdate(ServerRequestInterface $request): self |
|
126 | - { |
|
127 | - return $this; |
|
128 | - } |
|
120 | + /** |
|
121 | + * {@inheritDoc} |
|
122 | + * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\PlaceMapperConfigInterface::withConfigUpdate() |
|
123 | + * @return $this |
|
124 | + */ |
|
125 | + public function withConfigUpdate(ServerRequestInterface $request): self |
|
126 | + { |
|
127 | + return $this; |
|
128 | + } |
|
129 | 129 | } |
@@ -22,51 +22,51 @@ |
||
22 | 22 | |
23 | 23 | class GeoAnalysisTable extends AbstractGeoAnalysisView |
24 | 24 | { |
25 | - /** |
|
26 | - * {@inheritDoc} |
|
27 | - * @see \MyArtJaub\Webtrees\Module\GeoDispersion\Views\AbstractGeoAnalysisView::type() |
|
28 | - */ |
|
29 | - public function type(): string |
|
30 | - { |
|
31 | - return I18N::translateContext('GEODISPERSION', 'Table'); |
|
32 | - } |
|
25 | + /** |
|
26 | + * {@inheritDoc} |
|
27 | + * @see \MyArtJaub\Webtrees\Module\GeoDispersion\Views\AbstractGeoAnalysisView::type() |
|
28 | + */ |
|
29 | + public function type(): string |
|
30 | + { |
|
31 | + return I18N::translateContext('GEODISPERSION', 'Table'); |
|
32 | + } |
|
33 | 33 | |
34 | - /** |
|
35 | - * {@inheritDoc} |
|
36 | - * @see \MyArtJaub\Webtrees\Module\GeoDispersion\Views\AbstractGeoAnalysisView::icon() |
|
37 | - */ |
|
38 | - public function icon(ModuleInterface $module): string |
|
39 | - { |
|
40 | - return view($module->name() . '::icons/view-table', ['type' => $this->type()]); |
|
41 | - } |
|
34 | + /** |
|
35 | + * {@inheritDoc} |
|
36 | + * @see \MyArtJaub\Webtrees\Module\GeoDispersion\Views\AbstractGeoAnalysisView::icon() |
|
37 | + */ |
|
38 | + public function icon(ModuleInterface $module): string |
|
39 | + { |
|
40 | + return view($module->name() . '::icons/view-table', ['type' => $this->type()]); |
|
41 | + } |
|
42 | 42 | |
43 | - /** |
|
44 | - * {@inheritDoc} |
|
45 | - * @see \MyArtJaub\Webtrees\Module\GeoDispersion\Views\AbstractGeoAnalysisView::globalSettingsContent() |
|
46 | - */ |
|
47 | - public function globalSettingsContent(ModuleInterface $module): string |
|
48 | - { |
|
49 | - return ''; |
|
50 | - } |
|
43 | + /** |
|
44 | + * {@inheritDoc} |
|
45 | + * @see \MyArtJaub\Webtrees\Module\GeoDispersion\Views\AbstractGeoAnalysisView::globalSettingsContent() |
|
46 | + */ |
|
47 | + public function globalSettingsContent(ModuleInterface $module): string |
|
48 | + { |
|
49 | + return ''; |
|
50 | + } |
|
51 | 51 | |
52 | - /** |
|
53 | - * {@inheritDoc} |
|
54 | - * @see \MyArtJaub\Webtrees\Module\GeoDispersion\Views\AbstractGeoAnalysisView::withGlobalSettingsUpdate() |
|
55 | - * @return $this |
|
56 | - */ |
|
57 | - public function withGlobalSettingsUpdate(ServerRequestInterface $request): self |
|
58 | - { |
|
59 | - return $this; |
|
60 | - } |
|
52 | + /** |
|
53 | + * {@inheritDoc} |
|
54 | + * @see \MyArtJaub\Webtrees\Module\GeoDispersion\Views\AbstractGeoAnalysisView::withGlobalSettingsUpdate() |
|
55 | + * @return $this |
|
56 | + */ |
|
57 | + public function withGlobalSettingsUpdate(ServerRequestInterface $request): self |
|
58 | + { |
|
59 | + return $this; |
|
60 | + } |
|
61 | 61 | |
62 | - /** |
|
63 | - * {@inheritDoc} |
|
64 | - * @see \MyArtJaub\Webtrees\Module\GeoDispersion\Views\AbstractGeoAnalysisView::globalTabContent() |
|
65 | - */ |
|
66 | - public function globalTabContent(GeoDispersionModule $module, GeoAnalysisResult $result, array $params): string |
|
67 | - { |
|
68 | - return view($module->name() . '::geoanalysisview-tab-glb-table', $params + [ |
|
69 | - 'result' => $result |
|
70 | - ]); |
|
71 | - } |
|
62 | + /** |
|
63 | + * {@inheritDoc} |
|
64 | + * @see \MyArtJaub\Webtrees\Module\GeoDispersion\Views\AbstractGeoAnalysisView::globalTabContent() |
|
65 | + */ |
|
66 | + public function globalTabContent(GeoDispersionModule $module, GeoAnalysisResult $result, array $params): string |
|
67 | + { |
|
68 | + return view($module->name() . '::geoanalysisview-tab-glb-table', $params + [ |
|
69 | + 'result' => $result |
|
70 | + ]); |
|
71 | + } |
|
72 | 72 | } |
@@ -37,7 +37,7 @@ discard block |
||
37 | 37 | */ |
38 | 38 | public function icon(ModuleInterface $module): string |
39 | 39 | { |
40 | - return view($module->name() . '::icons/view-table', ['type' => $this->type()]); |
|
40 | + return view($module->name().'::icons/view-table', ['type' => $this->type()]); |
|
41 | 41 | } |
42 | 42 | |
43 | 43 | /** |
@@ -65,7 +65,7 @@ discard block |
||
65 | 65 | */ |
66 | 66 | public function globalTabContent(GeoDispersionModule $module, GeoAnalysisResult $result, array $params): string |
67 | 67 | { |
68 | - return view($module->name() . '::geoanalysisview-tab-glb-table', $params + [ |
|
68 | + return view($module->name().'::geoanalysisview-tab-glb-table', $params + [ |
|
69 | 69 | 'result' => $result |
70 | 70 | ]); |
71 | 71 | } |
@@ -73,7 +73,7 @@ discard block |
||
73 | 73 | // How to update the database schema for this module |
74 | 74 | private const SCHEMA_TARGET_VERSION = 3; |
75 | 75 | private const SCHEMA_SETTING_NAME = 'MAJ_SOSA_SCHEMA_VERSION'; |
76 | - private const SCHEMA_MIGRATION_PREFIX = __NAMESPACE__ . '\Schema'; |
|
76 | + private const SCHEMA_MIGRATION_PREFIX = __NAMESPACE__.'\Schema'; |
|
77 | 77 | /** |
78 | 78 | * {@inheritDoc} |
79 | 79 | * @see \Fisharebest\Webtrees\Module\AbstractModule::title() |
@@ -113,25 +113,25 @@ discard block |
||
113 | 113 | */ |
114 | 114 | public function loadRoutes(Map $router): void |
115 | 115 | { |
116 | - $router->attach('', '', static function (Map $router): void { |
|
116 | + $router->attach('', '', static function(Map $router): void { |
|
117 | 117 | |
118 | - $router->attach('', '/module-maj/sosa', static function (Map $router): void { |
|
118 | + $router->attach('', '/module-maj/sosa', static function(Map $router): void { |
|
119 | 119 | |
120 | - $router->attach('', '/list', static function (Map $router): void { |
|
120 | + $router->attach('', '/list', static function(Map $router): void { |
|
121 | 121 | $router->tokens(['gen' => '\d+']); |
122 | 122 | $router->get(AncestorsList::class, '/ancestors/{tree}{/gen}', AncestorsList::class); |
123 | - $router->get(AncestorsListIndividual::class, '/ancestors/{tree}/{gen}/tab/individuals', AncestorsListIndividual::class); //phpcs:ignore Generic.Files.LineLength.TooLong |
|
124 | - $router->get(AncestorsListFamily::class, '/ancestors/{tree}/{gen}/tab/families', AncestorsListFamily::class); //phpcs:ignore Generic.Files.LineLength.TooLong |
|
123 | + $router->get(AncestorsListIndividual::class, '/ancestors/{tree}/{gen}/tab/individuals', AncestorsListIndividual::class); //phpcs:ignore Generic.Files.LineLength.TooLong |
|
124 | + $router->get(AncestorsListFamily::class, '/ancestors/{tree}/{gen}/tab/families', AncestorsListFamily::class); //phpcs:ignore Generic.Files.LineLength.TooLong |
|
125 | 125 | $router->get(MissingAncestorsList::class, '/missing/{tree}{/gen}', MissingAncestorsList::class); |
126 | 126 | }); |
127 | 127 | |
128 | - $router->attach('', '/statistics/{tree}', static function (Map $router): void { |
|
128 | + $router->attach('', '/statistics/{tree}', static function(Map $router): void { |
|
129 | 129 | |
130 | 130 | $router->get(SosaStatistics::class, '', SosaStatistics::class); |
131 | 131 | $router->get(PedigreeCollapseData::class, '/pedigreecollapse', PedigreeCollapseData::class); |
132 | 132 | }); |
133 | 133 | |
134 | - $router->attach('', '/config/{tree}', static function (Map $router): void { |
|
134 | + $router->attach('', '/config/{tree}', static function(Map $router): void { |
|
135 | 135 | |
136 | 136 | $router->get(SosaConfig::class, '', SosaConfig::class); |
137 | 137 | $router->post(SosaConfigAction::class, '', SosaConfigAction::class); |
@@ -230,7 +230,7 @@ discard block |
||
230 | 230 | */ |
231 | 231 | public function headContent(): string |
232 | 232 | { |
233 | - return '<link rel="stylesheet" href="' . e($this->moduleCssUrl()) . '">'; |
|
233 | + return '<link rel="stylesheet" href="'.e($this->moduleCssUrl()).'">'; |
|
234 | 234 | } |
235 | 235 | |
236 | 236 | /** |
@@ -239,7 +239,7 @@ discard block |
||
239 | 239 | */ |
240 | 240 | public function bodyContent(): string |
241 | 241 | { |
242 | - return '<script src="' . $this->assetUrl('js/sosa.min.js') . '"></script>'; |
|
242 | + return '<script src="'.$this->assetUrl('js/sosa.min.js').'"></script>'; |
|
243 | 243 | } |
244 | 244 | |
245 | 245 | /** |
@@ -250,7 +250,7 @@ discard block |
||
250 | 250 | { |
251 | 251 | $user = Auth::check() ? Auth::user() : new DefaultUser(); |
252 | 252 | |
253 | - return view($this->name() . '::sidebar/title', [ |
|
253 | + return view($this->name().'::sidebar/title', [ |
|
254 | 254 | 'module_name' => $this->name(), |
255 | 255 | 'sosa_numbers' => app(SosaRecordsService::class)->sosaNumbers($individual->tree(), $user, $individual) |
256 | 256 | ]); |
@@ -266,7 +266,7 @@ discard block |
||
266 | 266 | $sosa_root = Registry::individualFactory()->make($sosa_root_xref, $individual->tree()); |
267 | 267 | $user = Auth::check() ? Auth::user() : new DefaultUser(); |
268 | 268 | |
269 | - return view($this->name() . '::sidebar/content', [ |
|
269 | + return view($this->name().'::sidebar/content', [ |
|
270 | 270 | 'sosa_ancestor' => $individual, |
271 | 271 | 'sosa_root' => $sosa_root, |
272 | 272 | 'sosa_numbers' => app(SosaRecordsService::class)->sosaNumbers($individual->tree(), $user, $individual) |
@@ -312,7 +312,7 @@ discard block |
||
312 | 312 | public function listSubscribedHooks(): array |
313 | 313 | { |
314 | 314 | return [ |
315 | - app()->makeWith(SosaIconHook::class, [ 'module' => $this ]) |
|
315 | + app()->makeWith(SosaIconHook::class, ['module' => $this]) |
|
316 | 316 | ]; |
317 | 317 | } |
318 | 318 | } |
@@ -57,261 +57,261 @@ |
||
57 | 57 | * Identify and produce statistics about Sosa ancestors |
58 | 58 | */ |
59 | 59 | class SosaModule extends AbstractModule implements |
60 | - ModuleMyArtJaubInterface, |
|
61 | - ModuleGlobalInterface, |
|
62 | - ModuleMenuInterface, |
|
63 | - ModuleSidebarInterface, |
|
64 | - ModuleGeoAnalysisProviderInterface, |
|
65 | - ModuleHookSubscriberInterface |
|
60 | + ModuleMyArtJaubInterface, |
|
61 | + ModuleGlobalInterface, |
|
62 | + ModuleMenuInterface, |
|
63 | + ModuleSidebarInterface, |
|
64 | + ModuleGeoAnalysisProviderInterface, |
|
65 | + ModuleHookSubscriberInterface |
|
66 | 66 | { |
67 | - use ModuleMyArtJaubTrait { |
|
68 | - boot as traitBoot; |
|
69 | - } |
|
70 | - use ModuleGlobalTrait; |
|
71 | - use ModuleMenuTrait; |
|
72 | - use ModuleSidebarTrait; |
|
73 | - |
|
74 | - // How to update the database schema for this module |
|
75 | - private const SCHEMA_TARGET_VERSION = 3; |
|
76 | - private const SCHEMA_SETTING_NAME = 'MAJ_SOSA_SCHEMA_VERSION'; |
|
77 | - private const SCHEMA_MIGRATION_PREFIX = __NAMESPACE__ . '\Schema'; |
|
67 | + use ModuleMyArtJaubTrait { |
|
68 | + boot as traitBoot; |
|
69 | + } |
|
70 | + use ModuleGlobalTrait; |
|
71 | + use ModuleMenuTrait; |
|
72 | + use ModuleSidebarTrait; |
|
73 | + |
|
74 | + // How to update the database schema for this module |
|
75 | + private const SCHEMA_TARGET_VERSION = 3; |
|
76 | + private const SCHEMA_SETTING_NAME = 'MAJ_SOSA_SCHEMA_VERSION'; |
|
77 | + private const SCHEMA_MIGRATION_PREFIX = __NAMESPACE__ . '\Schema'; |
|
78 | 78 | /** |
79 | - * {@inheritDoc} |
|
80 | - * @see \Fisharebest\Webtrees\Module\AbstractModule::title() |
|
81 | - */ |
|
82 | - public function title(): string |
|
83 | - { |
|
84 | - return /* I18N: Name of the “Sosa” module */ I18N::translate('Sosa'); |
|
85 | - } |
|
86 | - |
|
87 | - /** |
|
88 | - * {@inheritDoc} |
|
89 | - * @see \Fisharebest\Webtrees\Module\AbstractModule::description() |
|
90 | - */ |
|
91 | - public function description(): string |
|
92 | - { |
|
93 | - //phpcs:ignore Generic.Files.LineLength.TooLong |
|
94 | - return /* I18N: Description of the “Sosa” module */ I18N::translate('Calculate and display Sosa ancestors of the root person.'); |
|
95 | - } |
|
96 | - |
|
97 | - /** |
|
98 | - * {@inheritDoc} |
|
99 | - * @see \Fisharebest\Webtrees\Module\AbstractModule::boot() |
|
100 | - */ |
|
101 | - public function boot(): void |
|
102 | - { |
|
103 | - $this->traitBoot(); |
|
104 | - app(MigrationService::class)->updateSchema( |
|
105 | - self::SCHEMA_MIGRATION_PREFIX, |
|
106 | - self::SCHEMA_SETTING_NAME, |
|
107 | - self::SCHEMA_TARGET_VERSION |
|
108 | - ); |
|
109 | - } |
|
110 | - |
|
111 | - /** |
|
112 | - * {@inheritDoc} |
|
113 | - * @see \MyArtJaub\Webtrees\Module\ModuleMyArtJaubInterface::loadRoutes() |
|
114 | - */ |
|
115 | - public function loadRoutes(Map $router): void |
|
116 | - { |
|
117 | - $router->attach('', '', static function (Map $router): void { |
|
118 | - |
|
119 | - $router->attach('', '/module-maj/sosa', static function (Map $router): void { |
|
120 | - |
|
121 | - $router->attach('', '/list', static function (Map $router): void { |
|
122 | - $router->tokens(['gen' => '\d+']); |
|
123 | - $router->get(AncestorsList::class, '/ancestors/{tree}{/gen}', AncestorsList::class); |
|
124 | - $router->get(AncestorsListIndividual::class, '/ancestors/{tree}/{gen}/tab/individuals', AncestorsListIndividual::class); //phpcs:ignore Generic.Files.LineLength.TooLong |
|
125 | - $router->get(AncestorsListFamily::class, '/ancestors/{tree}/{gen}/tab/families', AncestorsListFamily::class); //phpcs:ignore Generic.Files.LineLength.TooLong |
|
126 | - $router->get(MissingAncestorsList::class, '/missing/{tree}{/gen}', MissingAncestorsList::class); |
|
127 | - }); |
|
128 | - |
|
129 | - $router->attach('', '/statistics/{tree}', static function (Map $router): void { |
|
130 | - |
|
131 | - $router->get(SosaStatistics::class, '', SosaStatistics::class); |
|
132 | - $router->get(PedigreeCollapseData::class, '/pedigreecollapse', PedigreeCollapseData::class); |
|
133 | - }); |
|
134 | - |
|
135 | - $router->attach('', '/config/{tree}', static function (Map $router): void { |
|
136 | - |
|
137 | - $router->get(SosaConfig::class, '', SosaConfig::class); |
|
138 | - $router->post(SosaConfigAction::class, '', SosaConfigAction::class); |
|
139 | - $router->get(SosaComputeModal::class, '/compute/{xref}', SosaComputeModal::class); |
|
140 | - $router->post(SosaComputeAction::class, '/compute', SosaComputeAction::class); |
|
141 | - }); |
|
142 | - }); |
|
143 | - }); |
|
144 | - } |
|
145 | - |
|
146 | - /** |
|
147 | - * {@inheritDoc} |
|
148 | - * @see \Fisharebest\Webtrees\Module\ModuleCustomInterface::customModuleVersion() |
|
149 | - */ |
|
150 | - public function customModuleVersion(): string |
|
151 | - { |
|
152 | - return '2.1.1-v.1'; |
|
153 | - } |
|
154 | - |
|
155 | - /** |
|
156 | - * {@inheritDoc} |
|
157 | - * @see \Fisharebest\Webtrees\Module\ModuleMenuInterface::defaultMenuOrder() |
|
158 | - */ |
|
159 | - public function defaultMenuOrder(): int |
|
160 | - { |
|
161 | - return 7; |
|
162 | - } |
|
163 | - |
|
164 | - /** |
|
165 | - * {@inhericDoc} |
|
166 | - * @see \Fisharebest\Webtrees\Module\ModuleMenuInterface::getMenu() |
|
167 | - */ |
|
168 | - public function getMenu(Tree $tree): ?Menu |
|
169 | - { |
|
170 | - $menu = new Menu(I18N::translate('Sosa Statistics')); |
|
171 | - $menu->setClass('menu-maj-sosa'); |
|
172 | - $menu->setSubmenus([ |
|
173 | - new Menu( |
|
174 | - I18N::translate('Sosa Ancestors'), |
|
175 | - route(AncestorsList::class, ['tree' => $tree->name()]), |
|
176 | - 'menu-maj-sosa-list', |
|
177 | - ['rel' => 'nofollow'] |
|
178 | - ), |
|
179 | - new Menu( |
|
180 | - I18N::translate('Missing Ancestors'), |
|
181 | - route(MissingAncestorsList::class, ['tree' => $tree->name()]), |
|
182 | - 'menu-maj-sosa-missing', |
|
183 | - ['rel' => 'nofollow'] |
|
184 | - ), |
|
185 | - new Menu( |
|
186 | - I18N::translate('Sosa Statistics'), |
|
187 | - route(SosaStatistics::class, ['tree' => $tree->name()]), |
|
188 | - 'menu-maj-sosa-stats' |
|
189 | - ) |
|
190 | - ]); |
|
191 | - |
|
192 | - if (Auth::check()) { |
|
193 | - $menu->addSubmenu(new Menu( |
|
194 | - I18N::translate('Sosa Configuration'), |
|
195 | - route(SosaConfig::class, ['tree' => $tree->name()]), |
|
196 | - 'menu-maj-sosa-config' |
|
197 | - )); |
|
198 | - |
|
199 | - /** @var ServerRequestInterface $request */ |
|
200 | - $request = app(ServerRequestInterface::class); |
|
201 | - $route = Validator::attributes($request)->route(); |
|
202 | - |
|
203 | - $root_indi_id = $tree->getUserPreference(Auth::user(), 'MAJ_SOSA_ROOT_ID'); |
|
204 | - |
|
205 | - if ($route->name === IndividualPage::class && mb_strlen($root_indi_id) > 0) { |
|
206 | - $xref = Validator::attributes($request)->isXref()->string('xref', ''); |
|
207 | - |
|
208 | - $menu->addSubmenu(new Menu( |
|
209 | - I18N::translate('Complete Sosas'), |
|
210 | - '#', |
|
211 | - 'menu-maj-sosa-compute', |
|
212 | - [ |
|
213 | - 'rel' => 'nofollow', |
|
214 | - 'data-wt-href' => route(SosaComputeModal::class, ['tree' => $tree->name(), 'xref' => $xref]), |
|
215 | - 'data-bs-target' => '#wt-ajax-modal', |
|
216 | - 'data-bs-toggle' => 'modal', |
|
217 | - 'data-bs-backdrop' => 'static' |
|
218 | - ] |
|
219 | - )); |
|
220 | - } |
|
221 | - } |
|
222 | - |
|
223 | - return $menu; |
|
224 | - } |
|
225 | - |
|
226 | - /** |
|
227 | - * {@inheritDoc} |
|
228 | - * @see \Fisharebest\Webtrees\Module\ModuleGlobalInterface::headContent() |
|
229 | - */ |
|
230 | - public function headContent(): string |
|
231 | - { |
|
232 | - return '<link rel="stylesheet" href="' . e($this->moduleCssUrl()) . '">'; |
|
233 | - } |
|
234 | - |
|
235 | - /** |
|
236 | - * {@inheritDoc} |
|
237 | - * @see \Fisharebest\Webtrees\Module\ModuleGlobalInterface::bodyContent() |
|
238 | - */ |
|
239 | - public function bodyContent(): string |
|
240 | - { |
|
241 | - return '<script src="' . $this->assetUrl('js/sosa.min.js') . '"></script>'; |
|
242 | - } |
|
243 | - |
|
244 | - /** |
|
245 | - * {@inheritDoc} |
|
246 | - * @see \Fisharebest\Webtrees\Module\ModuleSidebarInterface::sidebarTitle() |
|
247 | - */ |
|
248 | - public function sidebarTitle(Individual $individual): string |
|
249 | - { |
|
250 | - $user = Auth::check() ? Auth::user() : new DefaultUser(); |
|
251 | - |
|
252 | - return view($this->name() . '::sidebar/title', [ |
|
253 | - 'module_name' => $this->name(), |
|
254 | - 'sosa_numbers' => app(SosaRecordsService::class)->sosaNumbers($individual->tree(), $user, $individual) |
|
255 | - ]); |
|
256 | - } |
|
257 | - |
|
258 | - /** |
|
259 | - * {@inheritDoc} |
|
260 | - * @see \Fisharebest\Webtrees\Module\ModuleSidebarInterface::getSidebarContent() |
|
261 | - */ |
|
262 | - public function getSidebarContent(Individual $individual): string |
|
263 | - { |
|
264 | - $sosa_root_xref = $individual->tree()->getUserPreference(Auth::user(), 'MAJ_SOSA_ROOT_ID'); |
|
265 | - $sosa_root = Registry::individualFactory()->make($sosa_root_xref, $individual->tree()); |
|
266 | - $user = Auth::check() ? Auth::user() : new DefaultUser(); |
|
267 | - |
|
268 | - return view($this->name() . '::sidebar/content', [ |
|
269 | - 'sosa_ancestor' => $individual, |
|
270 | - 'sosa_root' => $sosa_root, |
|
271 | - 'sosa_numbers' => app(SosaRecordsService::class)->sosaNumbers($individual->tree(), $user, $individual) |
|
272 | - ]); |
|
273 | - } |
|
274 | - |
|
275 | - /** |
|
276 | - * {@inheritDoc} |
|
277 | - * @see \Fisharebest\Webtrees\Module\ModuleSidebarInterface::hasSidebarContent() |
|
278 | - */ |
|
279 | - public function hasSidebarContent(Individual $individual): bool |
|
280 | - { |
|
281 | - $user = Auth::check() ? Auth::user() : new DefaultUser(); |
|
282 | - |
|
283 | - return app(SosaRecordsService::class) |
|
284 | - ->sosaNumbers($individual->tree(), $user, $individual)->count() > 0; |
|
285 | - } |
|
286 | - |
|
287 | - /** |
|
288 | - * {@inheritDoc} |
|
289 | - * @see \Fisharebest\Webtrees\Module\ModuleSidebarInterface::defaultSidebarOrder() |
|
290 | - */ |
|
291 | - public function defaultSidebarOrder(): int |
|
292 | - { |
|
293 | - return 1; |
|
294 | - } |
|
295 | - |
|
296 | - /** |
|
297 | - * {@inheritDoc} |
|
298 | - * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\ModuleGeoAnalysisProviderInterface::listGeoAnalyses() |
|
299 | - */ |
|
300 | - public function listGeoAnalyses(): array |
|
301 | - { |
|
302 | - return [ |
|
303 | - SosaByGenerationGeoAnalysis::class |
|
304 | - ]; |
|
305 | - } |
|
306 | - |
|
307 | - /** |
|
308 | - * {@inheritDoc} |
|
309 | - * @see \MyArtJaub\Webtrees\Contracts\Hooks\ModuleHookSubscriberInterface::listSubscribedHooks() |
|
310 | - */ |
|
311 | - public function listSubscribedHooks(): array |
|
312 | - { |
|
313 | - return [ |
|
314 | - app()->makeWith(SosaIconHook::class, [ 'module' => $this ]) |
|
315 | - ]; |
|
316 | - } |
|
79 | + * {@inheritDoc} |
|
80 | + * @see \Fisharebest\Webtrees\Module\AbstractModule::title() |
|
81 | + */ |
|
82 | + public function title(): string |
|
83 | + { |
|
84 | + return /* I18N: Name of the “Sosa” module */ I18N::translate('Sosa'); |
|
85 | + } |
|
86 | + |
|
87 | + /** |
|
88 | + * {@inheritDoc} |
|
89 | + * @see \Fisharebest\Webtrees\Module\AbstractModule::description() |
|
90 | + */ |
|
91 | + public function description(): string |
|
92 | + { |
|
93 | + //phpcs:ignore Generic.Files.LineLength.TooLong |
|
94 | + return /* I18N: Description of the “Sosa” module */ I18N::translate('Calculate and display Sosa ancestors of the root person.'); |
|
95 | + } |
|
96 | + |
|
97 | + /** |
|
98 | + * {@inheritDoc} |
|
99 | + * @see \Fisharebest\Webtrees\Module\AbstractModule::boot() |
|
100 | + */ |
|
101 | + public function boot(): void |
|
102 | + { |
|
103 | + $this->traitBoot(); |
|
104 | + app(MigrationService::class)->updateSchema( |
|
105 | + self::SCHEMA_MIGRATION_PREFIX, |
|
106 | + self::SCHEMA_SETTING_NAME, |
|
107 | + self::SCHEMA_TARGET_VERSION |
|
108 | + ); |
|
109 | + } |
|
110 | + |
|
111 | + /** |
|
112 | + * {@inheritDoc} |
|
113 | + * @see \MyArtJaub\Webtrees\Module\ModuleMyArtJaubInterface::loadRoutes() |
|
114 | + */ |
|
115 | + public function loadRoutes(Map $router): void |
|
116 | + { |
|
117 | + $router->attach('', '', static function (Map $router): void { |
|
118 | + |
|
119 | + $router->attach('', '/module-maj/sosa', static function (Map $router): void { |
|
120 | + |
|
121 | + $router->attach('', '/list', static function (Map $router): void { |
|
122 | + $router->tokens(['gen' => '\d+']); |
|
123 | + $router->get(AncestorsList::class, '/ancestors/{tree}{/gen}', AncestorsList::class); |
|
124 | + $router->get(AncestorsListIndividual::class, '/ancestors/{tree}/{gen}/tab/individuals', AncestorsListIndividual::class); //phpcs:ignore Generic.Files.LineLength.TooLong |
|
125 | + $router->get(AncestorsListFamily::class, '/ancestors/{tree}/{gen}/tab/families', AncestorsListFamily::class); //phpcs:ignore Generic.Files.LineLength.TooLong |
|
126 | + $router->get(MissingAncestorsList::class, '/missing/{tree}{/gen}', MissingAncestorsList::class); |
|
127 | + }); |
|
128 | + |
|
129 | + $router->attach('', '/statistics/{tree}', static function (Map $router): void { |
|
130 | + |
|
131 | + $router->get(SosaStatistics::class, '', SosaStatistics::class); |
|
132 | + $router->get(PedigreeCollapseData::class, '/pedigreecollapse', PedigreeCollapseData::class); |
|
133 | + }); |
|
134 | + |
|
135 | + $router->attach('', '/config/{tree}', static function (Map $router): void { |
|
136 | + |
|
137 | + $router->get(SosaConfig::class, '', SosaConfig::class); |
|
138 | + $router->post(SosaConfigAction::class, '', SosaConfigAction::class); |
|
139 | + $router->get(SosaComputeModal::class, '/compute/{xref}', SosaComputeModal::class); |
|
140 | + $router->post(SosaComputeAction::class, '/compute', SosaComputeAction::class); |
|
141 | + }); |
|
142 | + }); |
|
143 | + }); |
|
144 | + } |
|
145 | + |
|
146 | + /** |
|
147 | + * {@inheritDoc} |
|
148 | + * @see \Fisharebest\Webtrees\Module\ModuleCustomInterface::customModuleVersion() |
|
149 | + */ |
|
150 | + public function customModuleVersion(): string |
|
151 | + { |
|
152 | + return '2.1.1-v.1'; |
|
153 | + } |
|
154 | + |
|
155 | + /** |
|
156 | + * {@inheritDoc} |
|
157 | + * @see \Fisharebest\Webtrees\Module\ModuleMenuInterface::defaultMenuOrder() |
|
158 | + */ |
|
159 | + public function defaultMenuOrder(): int |
|
160 | + { |
|
161 | + return 7; |
|
162 | + } |
|
163 | + |
|
164 | + /** |
|
165 | + * {@inhericDoc} |
|
166 | + * @see \Fisharebest\Webtrees\Module\ModuleMenuInterface::getMenu() |
|
167 | + */ |
|
168 | + public function getMenu(Tree $tree): ?Menu |
|
169 | + { |
|
170 | + $menu = new Menu(I18N::translate('Sosa Statistics')); |
|
171 | + $menu->setClass('menu-maj-sosa'); |
|
172 | + $menu->setSubmenus([ |
|
173 | + new Menu( |
|
174 | + I18N::translate('Sosa Ancestors'), |
|
175 | + route(AncestorsList::class, ['tree' => $tree->name()]), |
|
176 | + 'menu-maj-sosa-list', |
|
177 | + ['rel' => 'nofollow'] |
|
178 | + ), |
|
179 | + new Menu( |
|
180 | + I18N::translate('Missing Ancestors'), |
|
181 | + route(MissingAncestorsList::class, ['tree' => $tree->name()]), |
|
182 | + 'menu-maj-sosa-missing', |
|
183 | + ['rel' => 'nofollow'] |
|
184 | + ), |
|
185 | + new Menu( |
|
186 | + I18N::translate('Sosa Statistics'), |
|
187 | + route(SosaStatistics::class, ['tree' => $tree->name()]), |
|
188 | + 'menu-maj-sosa-stats' |
|
189 | + ) |
|
190 | + ]); |
|
191 | + |
|
192 | + if (Auth::check()) { |
|
193 | + $menu->addSubmenu(new Menu( |
|
194 | + I18N::translate('Sosa Configuration'), |
|
195 | + route(SosaConfig::class, ['tree' => $tree->name()]), |
|
196 | + 'menu-maj-sosa-config' |
|
197 | + )); |
|
198 | + |
|
199 | + /** @var ServerRequestInterface $request */ |
|
200 | + $request = app(ServerRequestInterface::class); |
|
201 | + $route = Validator::attributes($request)->route(); |
|
202 | + |
|
203 | + $root_indi_id = $tree->getUserPreference(Auth::user(), 'MAJ_SOSA_ROOT_ID'); |
|
204 | + |
|
205 | + if ($route->name === IndividualPage::class && mb_strlen($root_indi_id) > 0) { |
|
206 | + $xref = Validator::attributes($request)->isXref()->string('xref', ''); |
|
207 | + |
|
208 | + $menu->addSubmenu(new Menu( |
|
209 | + I18N::translate('Complete Sosas'), |
|
210 | + '#', |
|
211 | + 'menu-maj-sosa-compute', |
|
212 | + [ |
|
213 | + 'rel' => 'nofollow', |
|
214 | + 'data-wt-href' => route(SosaComputeModal::class, ['tree' => $tree->name(), 'xref' => $xref]), |
|
215 | + 'data-bs-target' => '#wt-ajax-modal', |
|
216 | + 'data-bs-toggle' => 'modal', |
|
217 | + 'data-bs-backdrop' => 'static' |
|
218 | + ] |
|
219 | + )); |
|
220 | + } |
|
221 | + } |
|
222 | + |
|
223 | + return $menu; |
|
224 | + } |
|
225 | + |
|
226 | + /** |
|
227 | + * {@inheritDoc} |
|
228 | + * @see \Fisharebest\Webtrees\Module\ModuleGlobalInterface::headContent() |
|
229 | + */ |
|
230 | + public function headContent(): string |
|
231 | + { |
|
232 | + return '<link rel="stylesheet" href="' . e($this->moduleCssUrl()) . '">'; |
|
233 | + } |
|
234 | + |
|
235 | + /** |
|
236 | + * {@inheritDoc} |
|
237 | + * @see \Fisharebest\Webtrees\Module\ModuleGlobalInterface::bodyContent() |
|
238 | + */ |
|
239 | + public function bodyContent(): string |
|
240 | + { |
|
241 | + return '<script src="' . $this->assetUrl('js/sosa.min.js') . '"></script>'; |
|
242 | + } |
|
243 | + |
|
244 | + /** |
|
245 | + * {@inheritDoc} |
|
246 | + * @see \Fisharebest\Webtrees\Module\ModuleSidebarInterface::sidebarTitle() |
|
247 | + */ |
|
248 | + public function sidebarTitle(Individual $individual): string |
|
249 | + { |
|
250 | + $user = Auth::check() ? Auth::user() : new DefaultUser(); |
|
251 | + |
|
252 | + return view($this->name() . '::sidebar/title', [ |
|
253 | + 'module_name' => $this->name(), |
|
254 | + 'sosa_numbers' => app(SosaRecordsService::class)->sosaNumbers($individual->tree(), $user, $individual) |
|
255 | + ]); |
|
256 | + } |
|
257 | + |
|
258 | + /** |
|
259 | + * {@inheritDoc} |
|
260 | + * @see \Fisharebest\Webtrees\Module\ModuleSidebarInterface::getSidebarContent() |
|
261 | + */ |
|
262 | + public function getSidebarContent(Individual $individual): string |
|
263 | + { |
|
264 | + $sosa_root_xref = $individual->tree()->getUserPreference(Auth::user(), 'MAJ_SOSA_ROOT_ID'); |
|
265 | + $sosa_root = Registry::individualFactory()->make($sosa_root_xref, $individual->tree()); |
|
266 | + $user = Auth::check() ? Auth::user() : new DefaultUser(); |
|
267 | + |
|
268 | + return view($this->name() . '::sidebar/content', [ |
|
269 | + 'sosa_ancestor' => $individual, |
|
270 | + 'sosa_root' => $sosa_root, |
|
271 | + 'sosa_numbers' => app(SosaRecordsService::class)->sosaNumbers($individual->tree(), $user, $individual) |
|
272 | + ]); |
|
273 | + } |
|
274 | + |
|
275 | + /** |
|
276 | + * {@inheritDoc} |
|
277 | + * @see \Fisharebest\Webtrees\Module\ModuleSidebarInterface::hasSidebarContent() |
|
278 | + */ |
|
279 | + public function hasSidebarContent(Individual $individual): bool |
|
280 | + { |
|
281 | + $user = Auth::check() ? Auth::user() : new DefaultUser(); |
|
282 | + |
|
283 | + return app(SosaRecordsService::class) |
|
284 | + ->sosaNumbers($individual->tree(), $user, $individual)->count() > 0; |
|
285 | + } |
|
286 | + |
|
287 | + /** |
|
288 | + * {@inheritDoc} |
|
289 | + * @see \Fisharebest\Webtrees\Module\ModuleSidebarInterface::defaultSidebarOrder() |
|
290 | + */ |
|
291 | + public function defaultSidebarOrder(): int |
|
292 | + { |
|
293 | + return 1; |
|
294 | + } |
|
295 | + |
|
296 | + /** |
|
297 | + * {@inheritDoc} |
|
298 | + * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\ModuleGeoAnalysisProviderInterface::listGeoAnalyses() |
|
299 | + */ |
|
300 | + public function listGeoAnalyses(): array |
|
301 | + { |
|
302 | + return [ |
|
303 | + SosaByGenerationGeoAnalysis::class |
|
304 | + ]; |
|
305 | + } |
|
306 | + |
|
307 | + /** |
|
308 | + * {@inheritDoc} |
|
309 | + * @see \MyArtJaub\Webtrees\Contracts\Hooks\ModuleHookSubscriberInterface::listSubscribedHooks() |
|
310 | + */ |
|
311 | + public function listSubscribedHooks(): array |
|
312 | + { |
|
313 | + return [ |
|
314 | + app()->makeWith(SosaIconHook::class, [ 'module' => $this ]) |
|
315 | + ]; |
|
316 | + } |
|
317 | 317 | } |
@@ -29,514 +29,514 @@ |
||
29 | 29 | */ |
30 | 30 | class SosaStatisticsService |
31 | 31 | { |
32 | - private UserInterface $user; |
|
33 | - private Tree $tree; |
|
34 | - |
|
35 | - /** |
|
36 | - * Constructor for Sosa Statistics Service |
|
37 | - * |
|
38 | - * @param Tree $tree |
|
39 | - * @param UserInterface $user |
|
40 | - */ |
|
41 | - public function __construct(Tree $tree, UserInterface $user) |
|
42 | - { |
|
43 | - $this->tree = $tree; |
|
44 | - $this->user = $user; |
|
45 | - } |
|
46 | - |
|
47 | - /** |
|
48 | - * Return the root individual for the reference tree and user. |
|
49 | - * |
|
50 | - * @return Individual|NULL |
|
51 | - */ |
|
52 | - public function rootIndividual(): ?Individual |
|
53 | - { |
|
54 | - $root_indi_id = $this->tree->getUserPreference($this->user, 'MAJ_SOSA_ROOT_ID'); |
|
55 | - return Registry::individualFactory()->make($root_indi_id, $this->tree); |
|
56 | - } |
|
57 | - |
|
58 | - /** |
|
59 | - * Get the highest generation for the reference tree and user. |
|
60 | - * |
|
61 | - * @return int |
|
62 | - */ |
|
63 | - public function maxGeneration(): int |
|
64 | - { |
|
65 | - return (int) DB::table('maj_sosa') |
|
66 | - ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
67 | - ->where('majs_user_id', '=', $this->user->id()) |
|
68 | - ->max('majs_gen'); |
|
69 | - } |
|
70 | - |
|
71 | - /** |
|
72 | - * Get the total count of individuals in the tree. |
|
73 | - * |
|
74 | - * @return int |
|
75 | - */ |
|
76 | - public function totalIndividuals(): int |
|
77 | - { |
|
78 | - return DB::table('individuals') |
|
79 | - ->where('i_file', '=', $this->tree->id()) |
|
80 | - ->count(); |
|
81 | - } |
|
82 | - |
|
83 | - /** |
|
84 | - * Get the total count of Sosa ancestors for all generations |
|
85 | - * |
|
86 | - * @return int |
|
87 | - */ |
|
88 | - public function totalAncestors(): int |
|
89 | - { |
|
90 | - return DB::table('maj_sosa') |
|
91 | - ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
92 | - ->where('majs_user_id', '=', $this->user->id()) |
|
93 | - ->count(); |
|
94 | - } |
|
95 | - |
|
96 | - /** |
|
97 | - * Get the total count of Sosa ancestors for a generation |
|
98 | - * |
|
99 | - * @return int |
|
100 | - */ |
|
101 | - public function totalAncestorsAtGeneration(int $gen): int |
|
102 | - { |
|
103 | - return DB::table('maj_sosa') |
|
104 | - ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
105 | - ->where('majs_user_id', '=', $this->user->id()) |
|
106 | - ->where('majs_gen', '=', $gen) |
|
107 | - ->count(); |
|
108 | - } |
|
109 | - |
|
110 | - /** |
|
111 | - * Get the total count of distinct Sosa ancestors for all generations |
|
112 | - * |
|
113 | - * @return int |
|
114 | - */ |
|
115 | - public function totalDistinctAncestors(): int |
|
116 | - { |
|
117 | - return DB::table('maj_sosa') |
|
118 | - ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
119 | - ->where('majs_user_id', '=', $this->user->id()) |
|
120 | - ->distinct() |
|
121 | - ->count('majs_i_id'); |
|
122 | - } |
|
123 | - |
|
124 | - /** |
|
125 | - * Get the mean generation time, as the slope of the linear regression of birth years vs generations |
|
126 | - * |
|
127 | - * @return float |
|
128 | - */ |
|
129 | - public function meanGenerationTime(): float |
|
130 | - { |
|
131 | - $row = DB::table('maj_sosa') |
|
132 | - ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
133 | - ->where('majs_user_id', '=', $this->user->id()) |
|
134 | - ->whereNotNull('majs_birth_year') |
|
135 | - ->selectRaw('COUNT(majs_sosa) AS n') |
|
136 | - ->selectRaw('SUM(majs_gen * majs_birth_year) AS sum_xy') |
|
137 | - ->selectRaw('SUM(majs_gen) AS sum_x') |
|
138 | - ->selectRaw('SUM(majs_birth_year) AS sum_y') |
|
139 | - ->selectRaw('SUM(majs_gen * majs_gen) AS sum_x2') |
|
140 | - ->get()->first(); |
|
141 | - |
|
142 | - return $row->n == 0 ? 0 : |
|
143 | - -($row->n * $row->sum_xy - $row->sum_x * $row->sum_y) / ($row->n * $row->sum_x2 - pow($row->sum_x, 2)); |
|
144 | - } |
|
145 | - |
|
146 | - /** |
|
147 | - * Get the statistic array detailed by generation. |
|
148 | - * Statistics for each generation are: |
|
149 | - * - The number of Sosa in generation |
|
150 | - * - The number of Sosa up to generation |
|
151 | - * - The number of distinct Sosa up to generation |
|
152 | - * - The year of the first birth in generation |
|
153 | - * - The year of the first estimated birth in generation |
|
154 | - * - The year of the last birth in generation |
|
155 | - * - The year of the last estimated birth in generation |
|
156 | - * - The average year of birth in generation |
|
157 | - * |
|
158 | - * @return array<int, array<string, int|null>> Statistics array |
|
159 | - */ |
|
160 | - public function statisticsByGenerations(): array |
|
161 | - { |
|
162 | - $stats_by_gen = $this->statisticsByGenerationBasicData(); |
|
163 | - $cumul_stats_by_gen = $this->statisticsByGenerationCumulativeData(); |
|
164 | - |
|
165 | - $statistics_by_gen = []; |
|
166 | - foreach ($stats_by_gen as $gen => $stats_gen) { |
|
167 | - $statistics_by_gen[(int) $stats_gen->gen] = array( |
|
168 | - 'sosaCount' => (int) $stats_gen->total_sosa, |
|
169 | - 'sosaTotalCount' => (int) $cumul_stats_by_gen[$gen]->total_cumul, |
|
170 | - 'diffSosaTotalCount' => (int) $cumul_stats_by_gen[$gen]->total_distinct_cumul, |
|
171 | - 'firstBirth' => $stats_gen->first_year, |
|
172 | - 'firstEstimatedBirth' => $stats_gen->first_est_year, |
|
173 | - 'lastBirth' => $stats_gen->last_year, |
|
174 | - 'lastEstimatedBirth' => $stats_gen->last_est_year |
|
175 | - ); |
|
176 | - } |
|
177 | - |
|
178 | - return $statistics_by_gen; |
|
179 | - } |
|
180 | - |
|
181 | - /** |
|
182 | - * Returns the basic statistics data by generation. |
|
183 | - * |
|
184 | - * @return Collection<int, \stdClass> |
|
185 | - */ |
|
186 | - private function statisticsByGenerationBasicData(): Collection |
|
187 | - { |
|
188 | - return DB::table('maj_sosa') |
|
189 | - ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
190 | - ->where('majs_user_id', '=', $this->user->id()) |
|
191 | - ->groupBy('majs_gen') |
|
192 | - ->orderBy('majs_gen', 'asc') |
|
193 | - ->select('majs_gen AS gen') |
|
194 | - ->selectRaw('COUNT(majs_sosa) AS total_sosa') |
|
195 | - ->selectRaw('MIN(majs_birth_year) AS first_year') |
|
196 | - ->selectRaw('MIN(majs_birth_year_est) AS first_est_year') |
|
197 | - ->selectRaw('MAX(majs_birth_year) AS last_year') |
|
198 | - ->selectRaw('MAX(majs_birth_year_est) AS last_est_year') |
|
199 | - ->get()->keyBy('gen'); |
|
200 | - } |
|
201 | - |
|
202 | - /** |
|
203 | - * Returns the cumulative statistics data by generation |
|
204 | - * |
|
205 | - * @return Collection<int, \stdClass> |
|
206 | - */ |
|
207 | - private function statisticsByGenerationCumulativeData(): Collection |
|
208 | - { |
|
209 | - $list_gen = DB::table('maj_sosa')->select('majs_gen')->distinct() |
|
210 | - ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
211 | - ->where('majs_user_id', '=', $this->user->id()); |
|
212 | - |
|
213 | - return DB::table('maj_sosa') |
|
214 | - ->joinSub($list_gen, 'list_gen', function (JoinClause $join): void { |
|
215 | - $join->on('maj_sosa.majs_gen', '<=', 'list_gen.majs_gen') |
|
216 | - ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
217 | - ->where('majs_user_id', '=', $this->user->id()); |
|
218 | - }) |
|
219 | - ->groupBy('list_gen.majs_gen') |
|
220 | - ->select('list_gen.majs_gen AS gen') |
|
221 | - ->selectRaw('COUNT(majs_i_id) AS total_cumul') |
|
222 | - ->selectRaw('COUNT(DISTINCT majs_i_id) AS total_distinct_cumul') |
|
223 | - ->selectRaw('1 - COUNT(DISTINCT majs_i_id) / COUNT(majs_i_id) AS pedi_collapse_simple') |
|
224 | - ->get()->keyBy('gen'); |
|
225 | - } |
|
226 | - |
|
227 | - /** |
|
228 | - * Returns the pedigree collapse improved calculation by generation. |
|
229 | - * |
|
230 | - * Format: |
|
231 | - * - key : generation |
|
232 | - * - values: |
|
233 | - * - pedi_collapse_roots : pedigree collapse of ancestor roots for the generation |
|
234 | - * - pedi_collapse_xgen : pedigree cross-generation shrinkage for the generation |
|
235 | - * |
|
236 | - * @return array<int, array<string, float>> |
|
237 | - */ |
|
238 | - public function pedigreeCollapseByGenerationData(): array |
|
239 | - { |
|
240 | - $table_prefix = DB::connection()->getTablePrefix(); |
|
241 | - |
|
242 | - $list_gen = DB::table('maj_sosa')->select('majs_gen')->distinct() |
|
243 | - ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
244 | - ->where('majs_user_id', '=', $this->user->id()); |
|
245 | - |
|
246 | - /* Compute the contributions of nodes of previous generations to the current generation */ |
|
247 | - $root_ancestors_contributions = DB::table('maj_sosa AS sosa') |
|
248 | - ->select(['list_gen.majs_gen AS gen', 'sosa.majs_gedcom_id', 'sosa.majs_user_id']) |
|
249 | - ->addSelect(['sosa.majs_i_id', 'sosa.majs_gen']) |
|
250 | - ->selectRaw( |
|
251 | - '(CASE ' . |
|
252 | - ' WHEN ' . $table_prefix . 'sosa_fat.majs_i_id IS NULL' . |
|
253 | - ' THEN POWER(2, ' . $table_prefix . 'list_gen.majs_gen - ' . $table_prefix . 'sosa.majs_gen - 1)' . |
|
254 | - ' ELSE 0 ' . |
|
255 | - ' END)' . |
|
256 | - ' + (CASE ' . |
|
257 | - ' WHEN ' . $table_prefix . 'sosa_mot.majs_i_id IS NULL' . |
|
258 | - ' THEN POWER(2, ' . $table_prefix . 'list_gen.majs_gen - ' . $table_prefix . 'sosa.majs_gen - 1)' . |
|
259 | - ' ELSE 0 ' . |
|
260 | - ' END) contrib' |
|
261 | - ) |
|
262 | - ->joinSub($list_gen, 'list_gen', function (JoinClause $join): void { |
|
263 | - $join->on('sosa.majs_gen', '<', 'list_gen.majs_gen') |
|
264 | - ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
265 | - ->where('majs_user_id', '=', $this->user->id()); |
|
266 | - }) |
|
267 | - ->leftJoin('maj_sosa AS sosa_fat', function (JoinClause $join) use ($table_prefix): void { |
|
268 | - // Link to sosa's father |
|
269 | - $join->whereRaw($table_prefix . 'sosa_fat.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa') |
|
270 | - ->where('sosa_fat.majs_gedcom_id', '=', $this->tree->id()) |
|
271 | - ->where('sosa_fat.majs_user_id', '=', $this->user->id()); |
|
272 | - }) |
|
273 | - ->leftJoin('maj_sosa AS sosa_mot', function (JoinClause $join) use ($table_prefix): void { |
|
274 | - // Link to sosa's mother |
|
275 | - $join->whereRaw($table_prefix . 'sosa_mot.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa + 1') |
|
276 | - ->where('sosa_mot.majs_gedcom_id', '=', $this->tree->id()) |
|
277 | - ->where('sosa_mot.majs_user_id', '=', $this->user->id()); |
|
278 | - }) |
|
279 | - ->where('sosa.majs_gedcom_id', '=', $this->tree->id()) |
|
280 | - ->where('sosa.majs_user_id', '=', $this->user->id()) |
|
281 | - ->where(function (Builder $query): void { |
|
282 | - $query->whereNull('sosa_fat.majs_i_id') |
|
283 | - ->orWhereNull('sosa_mot.majs_i_id'); |
|
284 | - }); |
|
285 | - |
|
286 | - /* Identify nodes in the generations with ancestors who are also in the same generation. |
|
32 | + private UserInterface $user; |
|
33 | + private Tree $tree; |
|
34 | + |
|
35 | + /** |
|
36 | + * Constructor for Sosa Statistics Service |
|
37 | + * |
|
38 | + * @param Tree $tree |
|
39 | + * @param UserInterface $user |
|
40 | + */ |
|
41 | + public function __construct(Tree $tree, UserInterface $user) |
|
42 | + { |
|
43 | + $this->tree = $tree; |
|
44 | + $this->user = $user; |
|
45 | + } |
|
46 | + |
|
47 | + /** |
|
48 | + * Return the root individual for the reference tree and user. |
|
49 | + * |
|
50 | + * @return Individual|NULL |
|
51 | + */ |
|
52 | + public function rootIndividual(): ?Individual |
|
53 | + { |
|
54 | + $root_indi_id = $this->tree->getUserPreference($this->user, 'MAJ_SOSA_ROOT_ID'); |
|
55 | + return Registry::individualFactory()->make($root_indi_id, $this->tree); |
|
56 | + } |
|
57 | + |
|
58 | + /** |
|
59 | + * Get the highest generation for the reference tree and user. |
|
60 | + * |
|
61 | + * @return int |
|
62 | + */ |
|
63 | + public function maxGeneration(): int |
|
64 | + { |
|
65 | + return (int) DB::table('maj_sosa') |
|
66 | + ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
67 | + ->where('majs_user_id', '=', $this->user->id()) |
|
68 | + ->max('majs_gen'); |
|
69 | + } |
|
70 | + |
|
71 | + /** |
|
72 | + * Get the total count of individuals in the tree. |
|
73 | + * |
|
74 | + * @return int |
|
75 | + */ |
|
76 | + public function totalIndividuals(): int |
|
77 | + { |
|
78 | + return DB::table('individuals') |
|
79 | + ->where('i_file', '=', $this->tree->id()) |
|
80 | + ->count(); |
|
81 | + } |
|
82 | + |
|
83 | + /** |
|
84 | + * Get the total count of Sosa ancestors for all generations |
|
85 | + * |
|
86 | + * @return int |
|
87 | + */ |
|
88 | + public function totalAncestors(): int |
|
89 | + { |
|
90 | + return DB::table('maj_sosa') |
|
91 | + ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
92 | + ->where('majs_user_id', '=', $this->user->id()) |
|
93 | + ->count(); |
|
94 | + } |
|
95 | + |
|
96 | + /** |
|
97 | + * Get the total count of Sosa ancestors for a generation |
|
98 | + * |
|
99 | + * @return int |
|
100 | + */ |
|
101 | + public function totalAncestorsAtGeneration(int $gen): int |
|
102 | + { |
|
103 | + return DB::table('maj_sosa') |
|
104 | + ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
105 | + ->where('majs_user_id', '=', $this->user->id()) |
|
106 | + ->where('majs_gen', '=', $gen) |
|
107 | + ->count(); |
|
108 | + } |
|
109 | + |
|
110 | + /** |
|
111 | + * Get the total count of distinct Sosa ancestors for all generations |
|
112 | + * |
|
113 | + * @return int |
|
114 | + */ |
|
115 | + public function totalDistinctAncestors(): int |
|
116 | + { |
|
117 | + return DB::table('maj_sosa') |
|
118 | + ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
119 | + ->where('majs_user_id', '=', $this->user->id()) |
|
120 | + ->distinct() |
|
121 | + ->count('majs_i_id'); |
|
122 | + } |
|
123 | + |
|
124 | + /** |
|
125 | + * Get the mean generation time, as the slope of the linear regression of birth years vs generations |
|
126 | + * |
|
127 | + * @return float |
|
128 | + */ |
|
129 | + public function meanGenerationTime(): float |
|
130 | + { |
|
131 | + $row = DB::table('maj_sosa') |
|
132 | + ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
133 | + ->where('majs_user_id', '=', $this->user->id()) |
|
134 | + ->whereNotNull('majs_birth_year') |
|
135 | + ->selectRaw('COUNT(majs_sosa) AS n') |
|
136 | + ->selectRaw('SUM(majs_gen * majs_birth_year) AS sum_xy') |
|
137 | + ->selectRaw('SUM(majs_gen) AS sum_x') |
|
138 | + ->selectRaw('SUM(majs_birth_year) AS sum_y') |
|
139 | + ->selectRaw('SUM(majs_gen * majs_gen) AS sum_x2') |
|
140 | + ->get()->first(); |
|
141 | + |
|
142 | + return $row->n == 0 ? 0 : |
|
143 | + -($row->n * $row->sum_xy - $row->sum_x * $row->sum_y) / ($row->n * $row->sum_x2 - pow($row->sum_x, 2)); |
|
144 | + } |
|
145 | + |
|
146 | + /** |
|
147 | + * Get the statistic array detailed by generation. |
|
148 | + * Statistics for each generation are: |
|
149 | + * - The number of Sosa in generation |
|
150 | + * - The number of Sosa up to generation |
|
151 | + * - The number of distinct Sosa up to generation |
|
152 | + * - The year of the first birth in generation |
|
153 | + * - The year of the first estimated birth in generation |
|
154 | + * - The year of the last birth in generation |
|
155 | + * - The year of the last estimated birth in generation |
|
156 | + * - The average year of birth in generation |
|
157 | + * |
|
158 | + * @return array<int, array<string, int|null>> Statistics array |
|
159 | + */ |
|
160 | + public function statisticsByGenerations(): array |
|
161 | + { |
|
162 | + $stats_by_gen = $this->statisticsByGenerationBasicData(); |
|
163 | + $cumul_stats_by_gen = $this->statisticsByGenerationCumulativeData(); |
|
164 | + |
|
165 | + $statistics_by_gen = []; |
|
166 | + foreach ($stats_by_gen as $gen => $stats_gen) { |
|
167 | + $statistics_by_gen[(int) $stats_gen->gen] = array( |
|
168 | + 'sosaCount' => (int) $stats_gen->total_sosa, |
|
169 | + 'sosaTotalCount' => (int) $cumul_stats_by_gen[$gen]->total_cumul, |
|
170 | + 'diffSosaTotalCount' => (int) $cumul_stats_by_gen[$gen]->total_distinct_cumul, |
|
171 | + 'firstBirth' => $stats_gen->first_year, |
|
172 | + 'firstEstimatedBirth' => $stats_gen->first_est_year, |
|
173 | + 'lastBirth' => $stats_gen->last_year, |
|
174 | + 'lastEstimatedBirth' => $stats_gen->last_est_year |
|
175 | + ); |
|
176 | + } |
|
177 | + |
|
178 | + return $statistics_by_gen; |
|
179 | + } |
|
180 | + |
|
181 | + /** |
|
182 | + * Returns the basic statistics data by generation. |
|
183 | + * |
|
184 | + * @return Collection<int, \stdClass> |
|
185 | + */ |
|
186 | + private function statisticsByGenerationBasicData(): Collection |
|
187 | + { |
|
188 | + return DB::table('maj_sosa') |
|
189 | + ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
190 | + ->where('majs_user_id', '=', $this->user->id()) |
|
191 | + ->groupBy('majs_gen') |
|
192 | + ->orderBy('majs_gen', 'asc') |
|
193 | + ->select('majs_gen AS gen') |
|
194 | + ->selectRaw('COUNT(majs_sosa) AS total_sosa') |
|
195 | + ->selectRaw('MIN(majs_birth_year) AS first_year') |
|
196 | + ->selectRaw('MIN(majs_birth_year_est) AS first_est_year') |
|
197 | + ->selectRaw('MAX(majs_birth_year) AS last_year') |
|
198 | + ->selectRaw('MAX(majs_birth_year_est) AS last_est_year') |
|
199 | + ->get()->keyBy('gen'); |
|
200 | + } |
|
201 | + |
|
202 | + /** |
|
203 | + * Returns the cumulative statistics data by generation |
|
204 | + * |
|
205 | + * @return Collection<int, \stdClass> |
|
206 | + */ |
|
207 | + private function statisticsByGenerationCumulativeData(): Collection |
|
208 | + { |
|
209 | + $list_gen = DB::table('maj_sosa')->select('majs_gen')->distinct() |
|
210 | + ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
211 | + ->where('majs_user_id', '=', $this->user->id()); |
|
212 | + |
|
213 | + return DB::table('maj_sosa') |
|
214 | + ->joinSub($list_gen, 'list_gen', function (JoinClause $join): void { |
|
215 | + $join->on('maj_sosa.majs_gen', '<=', 'list_gen.majs_gen') |
|
216 | + ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
217 | + ->where('majs_user_id', '=', $this->user->id()); |
|
218 | + }) |
|
219 | + ->groupBy('list_gen.majs_gen') |
|
220 | + ->select('list_gen.majs_gen AS gen') |
|
221 | + ->selectRaw('COUNT(majs_i_id) AS total_cumul') |
|
222 | + ->selectRaw('COUNT(DISTINCT majs_i_id) AS total_distinct_cumul') |
|
223 | + ->selectRaw('1 - COUNT(DISTINCT majs_i_id) / COUNT(majs_i_id) AS pedi_collapse_simple') |
|
224 | + ->get()->keyBy('gen'); |
|
225 | + } |
|
226 | + |
|
227 | + /** |
|
228 | + * Returns the pedigree collapse improved calculation by generation. |
|
229 | + * |
|
230 | + * Format: |
|
231 | + * - key : generation |
|
232 | + * - values: |
|
233 | + * - pedi_collapse_roots : pedigree collapse of ancestor roots for the generation |
|
234 | + * - pedi_collapse_xgen : pedigree cross-generation shrinkage for the generation |
|
235 | + * |
|
236 | + * @return array<int, array<string, float>> |
|
237 | + */ |
|
238 | + public function pedigreeCollapseByGenerationData(): array |
|
239 | + { |
|
240 | + $table_prefix = DB::connection()->getTablePrefix(); |
|
241 | + |
|
242 | + $list_gen = DB::table('maj_sosa')->select('majs_gen')->distinct() |
|
243 | + ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
244 | + ->where('majs_user_id', '=', $this->user->id()); |
|
245 | + |
|
246 | + /* Compute the contributions of nodes of previous generations to the current generation */ |
|
247 | + $root_ancestors_contributions = DB::table('maj_sosa AS sosa') |
|
248 | + ->select(['list_gen.majs_gen AS gen', 'sosa.majs_gedcom_id', 'sosa.majs_user_id']) |
|
249 | + ->addSelect(['sosa.majs_i_id', 'sosa.majs_gen']) |
|
250 | + ->selectRaw( |
|
251 | + '(CASE ' . |
|
252 | + ' WHEN ' . $table_prefix . 'sosa_fat.majs_i_id IS NULL' . |
|
253 | + ' THEN POWER(2, ' . $table_prefix . 'list_gen.majs_gen - ' . $table_prefix . 'sosa.majs_gen - 1)' . |
|
254 | + ' ELSE 0 ' . |
|
255 | + ' END)' . |
|
256 | + ' + (CASE ' . |
|
257 | + ' WHEN ' . $table_prefix . 'sosa_mot.majs_i_id IS NULL' . |
|
258 | + ' THEN POWER(2, ' . $table_prefix . 'list_gen.majs_gen - ' . $table_prefix . 'sosa.majs_gen - 1)' . |
|
259 | + ' ELSE 0 ' . |
|
260 | + ' END) contrib' |
|
261 | + ) |
|
262 | + ->joinSub($list_gen, 'list_gen', function (JoinClause $join): void { |
|
263 | + $join->on('sosa.majs_gen', '<', 'list_gen.majs_gen') |
|
264 | + ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
265 | + ->where('majs_user_id', '=', $this->user->id()); |
|
266 | + }) |
|
267 | + ->leftJoin('maj_sosa AS sosa_fat', function (JoinClause $join) use ($table_prefix): void { |
|
268 | + // Link to sosa's father |
|
269 | + $join->whereRaw($table_prefix . 'sosa_fat.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa') |
|
270 | + ->where('sosa_fat.majs_gedcom_id', '=', $this->tree->id()) |
|
271 | + ->where('sosa_fat.majs_user_id', '=', $this->user->id()); |
|
272 | + }) |
|
273 | + ->leftJoin('maj_sosa AS sosa_mot', function (JoinClause $join) use ($table_prefix): void { |
|
274 | + // Link to sosa's mother |
|
275 | + $join->whereRaw($table_prefix . 'sosa_mot.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa + 1') |
|
276 | + ->where('sosa_mot.majs_gedcom_id', '=', $this->tree->id()) |
|
277 | + ->where('sosa_mot.majs_user_id', '=', $this->user->id()); |
|
278 | + }) |
|
279 | + ->where('sosa.majs_gedcom_id', '=', $this->tree->id()) |
|
280 | + ->where('sosa.majs_user_id', '=', $this->user->id()) |
|
281 | + ->where(function (Builder $query): void { |
|
282 | + $query->whereNull('sosa_fat.majs_i_id') |
|
283 | + ->orWhereNull('sosa_mot.majs_i_id'); |
|
284 | + }); |
|
285 | + |
|
286 | + /* Identify nodes in the generations with ancestors who are also in the same generation. |
|
287 | 287 | * This is the vertical/generational collapse that will reduce the number or roots. |
288 | 288 | */ |
289 | - $non_roots_ancestors = DB::table('maj_sosa AS sosa') |
|
290 | - ->select(['sosa.majs_gen', 'sosa.majs_gedcom_id', 'sosa.majs_user_id', 'sosa.majs_sosa']) |
|
291 | - ->selectRaw('MAX(' . $table_prefix . 'sosa_anc.majs_sosa) - MIN(' . $table_prefix . 'sosa_anc.majs_sosa)' . |
|
292 | - ' AS full_ancestors') |
|
293 | - ->join('maj_sosa AS sosa_anc', function (JoinClause $join) use ($table_prefix): void { |
|
294 | - $join->on('sosa.majs_gen', '<', 'sosa_anc.majs_gen') |
|
295 | - ->whereRaw('FLOOR(' . $table_prefix . 'sosa_anc.majs_sosa / POWER(2, ' . |
|
296 | - $table_prefix . 'sosa_anc.majs_gen - ' . $table_prefix . 'sosa.majs_gen)) = ' . |
|
297 | - $table_prefix . 'sosa.majs_sosa') |
|
298 | - ->where('sosa_anc.majs_gedcom_id', '=', $this->tree->id()) |
|
299 | - ->where('sosa_anc.majs_user_id', '=', $this->user->id()); |
|
300 | - }) |
|
301 | - ->where('sosa.majs_gedcom_id', '=', $this->tree->id()) |
|
302 | - ->where('sosa.majs_user_id', '=', $this->user->id()) |
|
303 | - ->whereIn('sosa_anc.majs_i_id', function (Builder $query) use ($table_prefix): void { |
|
304 | - $query->from('maj_sosa AS sosa_gen') |
|
305 | - ->select('sosa_gen.majs_i_id')->distinct() |
|
306 | - ->where('sosa_gen.majs_gedcom_id', '=', $this->tree->id()) |
|
307 | - ->where('sosa_gen.majs_user_id', '=', $this->user->id()) |
|
308 | - ->whereRaw($table_prefix . 'sosa_gen.majs_gen = ' . $table_prefix . 'sosa.majs_gen'); |
|
309 | - }) |
|
310 | - ->groupBy(['sosa.majs_gen', 'sosa.majs_gedcom_id', 'sosa.majs_user_id', |
|
311 | - 'sosa.majs_sosa', 'sosa.majs_i_id']); |
|
312 | - |
|
313 | - /* Compute the contribution of the nodes in the generation, |
|
289 | + $non_roots_ancestors = DB::table('maj_sosa AS sosa') |
|
290 | + ->select(['sosa.majs_gen', 'sosa.majs_gedcom_id', 'sosa.majs_user_id', 'sosa.majs_sosa']) |
|
291 | + ->selectRaw('MAX(' . $table_prefix . 'sosa_anc.majs_sosa) - MIN(' . $table_prefix . 'sosa_anc.majs_sosa)' . |
|
292 | + ' AS full_ancestors') |
|
293 | + ->join('maj_sosa AS sosa_anc', function (JoinClause $join) use ($table_prefix): void { |
|
294 | + $join->on('sosa.majs_gen', '<', 'sosa_anc.majs_gen') |
|
295 | + ->whereRaw('FLOOR(' . $table_prefix . 'sosa_anc.majs_sosa / POWER(2, ' . |
|
296 | + $table_prefix . 'sosa_anc.majs_gen - ' . $table_prefix . 'sosa.majs_gen)) = ' . |
|
297 | + $table_prefix . 'sosa.majs_sosa') |
|
298 | + ->where('sosa_anc.majs_gedcom_id', '=', $this->tree->id()) |
|
299 | + ->where('sosa_anc.majs_user_id', '=', $this->user->id()); |
|
300 | + }) |
|
301 | + ->where('sosa.majs_gedcom_id', '=', $this->tree->id()) |
|
302 | + ->where('sosa.majs_user_id', '=', $this->user->id()) |
|
303 | + ->whereIn('sosa_anc.majs_i_id', function (Builder $query) use ($table_prefix): void { |
|
304 | + $query->from('maj_sosa AS sosa_gen') |
|
305 | + ->select('sosa_gen.majs_i_id')->distinct() |
|
306 | + ->where('sosa_gen.majs_gedcom_id', '=', $this->tree->id()) |
|
307 | + ->where('sosa_gen.majs_user_id', '=', $this->user->id()) |
|
308 | + ->whereRaw($table_prefix . 'sosa_gen.majs_gen = ' . $table_prefix . 'sosa.majs_gen'); |
|
309 | + }) |
|
310 | + ->groupBy(['sosa.majs_gen', 'sosa.majs_gedcom_id', 'sosa.majs_user_id', |
|
311 | + 'sosa.majs_sosa', 'sosa.majs_i_id']); |
|
312 | + |
|
313 | + /* Compute the contribution of the nodes in the generation, |
|
314 | 314 | * excluding the nodes with ancestors in the same generation. |
315 | 315 | * Nodes with a parent missing are not excluded to cater for the missing one. |
316 | 316 | */ |
317 | - $known_ancestors_contributions = DB::table('maj_sosa AS sosa') |
|
318 | - ->select(['sosa.majs_gen AS gen', 'sosa.majs_gedcom_id', 'sosa.majs_user_id']) |
|
319 | - ->addSelect(['sosa.majs_i_id', 'sosa.majs_gen']) |
|
320 | - ->selectRaw('1 AS contrib') |
|
321 | - ->leftJoinSub($non_roots_ancestors, 'nonroot', function (JoinClause $join): void { |
|
322 | - $join->on('sosa.majs_gen', '=', 'nonroot.majs_gen') |
|
323 | - ->on('sosa.majs_sosa', '=', 'nonroot.majs_sosa') |
|
324 | - ->where('nonroot.full_ancestors', '>', 0) |
|
325 | - ->where('nonroot.majs_gedcom_id', '=', $this->tree->id()) |
|
326 | - ->where('nonroot.majs_user_id', '=', $this->user->id()); |
|
327 | - }) |
|
328 | - ->where('sosa.majs_gedcom_id', '=', $this->tree->id()) |
|
329 | - ->where('sosa.majs_user_id', '=', $this->user->id()) |
|
330 | - ->whereNull('nonroot.majs_sosa'); |
|
331 | - |
|
332 | - /* Aggregate both queries, and calculate the sum of contributions by generation roots. |
|
317 | + $known_ancestors_contributions = DB::table('maj_sosa AS sosa') |
|
318 | + ->select(['sosa.majs_gen AS gen', 'sosa.majs_gedcom_id', 'sosa.majs_user_id']) |
|
319 | + ->addSelect(['sosa.majs_i_id', 'sosa.majs_gen']) |
|
320 | + ->selectRaw('1 AS contrib') |
|
321 | + ->leftJoinSub($non_roots_ancestors, 'nonroot', function (JoinClause $join): void { |
|
322 | + $join->on('sosa.majs_gen', '=', 'nonroot.majs_gen') |
|
323 | + ->on('sosa.majs_sosa', '=', 'nonroot.majs_sosa') |
|
324 | + ->where('nonroot.full_ancestors', '>', 0) |
|
325 | + ->where('nonroot.majs_gedcom_id', '=', $this->tree->id()) |
|
326 | + ->where('nonroot.majs_user_id', '=', $this->user->id()); |
|
327 | + }) |
|
328 | + ->where('sosa.majs_gedcom_id', '=', $this->tree->id()) |
|
329 | + ->where('sosa.majs_user_id', '=', $this->user->id()) |
|
330 | + ->whereNull('nonroot.majs_sosa'); |
|
331 | + |
|
332 | + /* Aggregate both queries, and calculate the sum of contributions by generation roots. |
|
333 | 333 | * Exclude as well nodes that already appear in lower generations, as their branche has already been reduced. |
334 | 334 | */ |
335 | - $ancestors_contributions_sum = DB::connection()->query() |
|
336 | - ->fromSub($root_ancestors_contributions->unionAll($known_ancestors_contributions), 'sosa_contribs') |
|
337 | - ->select(['sosa_contribs.gen', 'sosa_contribs.majs_gedcom_id', 'sosa_contribs.majs_user_id']) |
|
338 | - ->addSelect(['sosa_contribs.majs_i_id', 'sosa_contribs.contrib']) |
|
339 | - ->selectRaw('COUNT(' . $table_prefix . 'sosa_contribs.majs_i_id) * ' . |
|
340 | - $table_prefix . 'sosa_contribs.contrib AS totalContrib') |
|
341 | - ->leftJoin('maj_sosa AS sosa_low', function (JoinClause $join): void { |
|
342 | - $join->on('sosa_low.majs_gen', '<', 'sosa_contribs.majs_gen') |
|
343 | - ->on('sosa_low.majs_i_id', '=', 'sosa_contribs.majs_i_id') |
|
344 | - ->where('sosa_low.majs_gedcom_id', '=', $this->tree->id()) |
|
345 | - ->where('sosa_low.majs_user_id', '=', $this->user->id()); |
|
346 | - }) |
|
347 | - ->whereNull('sosa_low.majs_sosa') |
|
348 | - ->groupBy(['sosa_contribs.gen', 'sosa_contribs.majs_gedcom_id', 'sosa_contribs.majs_user_id', |
|
349 | - 'sosa_contribs.majs_i_id', 'sosa_contribs.contrib']); |
|
350 | - |
|
351 | - // Aggregate all generation roots to compute root and generation pedigree collapse |
|
352 | - $pedi_collapse_coll = DB::connection()->query()->fromSub($ancestors_contributions_sum, 'sosa_contribs_sum') |
|
353 | - ->select(['gen'])->selectRaw('SUM(contrib), SUM(totalContrib)') |
|
354 | - ->selectRaw('1 - SUM(contrib) / SUM(totalContrib) AS pedi_collapse_roots') // Roots/horizontal collapse |
|
355 | - ->selectRaw('1 - SUM(totalContrib) / POWER ( 2, gen - 1) AS pedi_collapse_xgen') // Crossgeneration collapse |
|
356 | - ->groupBy(['gen', 'majs_gedcom_id', 'majs_user_id']) |
|
357 | - ->orderBy('gen') |
|
358 | - ->get(); |
|
359 | - |
|
360 | - $pedi_collapse_by_gen = []; |
|
361 | - foreach ($pedi_collapse_coll as $collapse_gen) { |
|
362 | - $pedi_collapse_by_gen[(int) $collapse_gen->gen] = array( |
|
363 | - 'pedi_collapse_roots' => (float) $collapse_gen->pedi_collapse_roots, |
|
364 | - 'pedi_collapse_xgen' => (float) $collapse_gen->pedi_collapse_xgen |
|
365 | - ); |
|
366 | - } |
|
367 | - return $pedi_collapse_by_gen; |
|
368 | - } |
|
369 | - |
|
370 | - /** |
|
371 | - * Return a Collection of the mean generation depth and deviation for all Sosa ancestors at a given generation. |
|
372 | - * Sosa 1 is of generation 1. |
|
373 | - * |
|
374 | - * Mean generation depth and deviation are calculated based on the works of Marie-Héléne Cazes and Pierre Cazes, |
|
375 | - * published in Population (French Edition), Vol. 51, No. 1 (Jan. - Feb., 1996), pp. 117-140 |
|
376 | - * http://kintip.net/index.php?option=com_jdownloads&task=download.send&id=9&catid=4&m=0 |
|
377 | - * |
|
378 | - * Format: |
|
379 | - * - key : sosa number of the ancestor |
|
380 | - * - values: |
|
381 | - * - root_ancestor_id : ID of the ancestor |
|
382 | - * - mean_gen_depth : Mean generation depth |
|
383 | - * - stddev_gen_depth : Standard deviation of generation depth |
|
384 | - * |
|
385 | - * @param int $gen Sosa generation |
|
386 | - * @return Collection<int, \stdClass> |
|
387 | - */ |
|
388 | - public function generationDepthStatsAtGeneration(int $gen): Collection |
|
389 | - { |
|
390 | - $table_prefix = DB::connection()->getTablePrefix(); |
|
391 | - $missing_ancestors_by_gen = DB::table('maj_sosa AS sosa') |
|
392 | - ->selectRaw($table_prefix . 'sosa.majs_gen - ? AS majs_gen_norm', [$gen]) |
|
393 | - ->selectRaw('FLOOR(((' . $table_prefix . 'sosa.majs_sosa / POW(2, ' . $table_prefix . 'sosa.majs_gen -1 )) - 1) * POWER(2, ? - 1)) + POWER(2, ? - 1) AS root_ancestor', [$gen, $gen]) //@phpcs:ignore Generic.Files.LineLength.TooLong |
|
394 | - ->selectRaw('SUM(CASE WHEN ' . $table_prefix . 'sosa_fat.majs_i_id IS NULL AND ' . $table_prefix . 'sosa_mot.majs_i_id IS NULL THEN 1 ELSE 0 END) AS full_root_count') //@phpcs:ignore Generic.Files.LineLength.TooLong |
|
395 | - ->selectRaw('SUM(CASE WHEN ' . $table_prefix . 'sosa_fat.majs_i_id IS NULL AND ' . $table_prefix . 'sosa_mot.majs_i_id IS NULL THEN 0 ELSE 1 END) As semi_root_count') //@phpcs:ignore Generic.Files.LineLength.TooLong |
|
396 | - ->leftJoin('maj_sosa AS sosa_fat', function (JoinClause $join) use ($table_prefix): void { |
|
397 | - // Link to sosa's father |
|
398 | - $join->whereRaw($table_prefix . 'sosa_fat.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa') |
|
399 | - ->where('sosa_fat.majs_gedcom_id', '=', $this->tree->id()) |
|
400 | - ->where('sosa_fat.majs_user_id', '=', $this->user->id()); |
|
401 | - }) |
|
402 | - ->leftJoin('maj_sosa AS sosa_mot', function (JoinClause $join) use ($table_prefix): void { |
|
403 | - // Link to sosa's mother |
|
404 | - $join->whereRaw($table_prefix . 'sosa_mot.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa + 1') |
|
405 | - ->where('sosa_mot.majs_gedcom_id', '=', $this->tree->id()) |
|
406 | - ->where('sosa_mot.majs_user_id', '=', $this->user->id()); |
|
407 | - }) |
|
408 | - ->where('sosa.majs_gedcom_id', '=', $this->tree->id()) |
|
409 | - ->where('sosa.majs_user_id', '=', $this->user->id()) |
|
410 | - ->where('sosa.majs_gen', '>=', $gen) |
|
411 | - ->where(function (Builder $query): void { |
|
412 | - $query->whereNull('sosa_fat.majs_i_id') |
|
413 | - ->orWhereNull('sosa_mot.majs_i_id'); |
|
414 | - }) |
|
415 | - ->groupBy(['sosa.majs_gen', 'root_ancestor']); |
|
416 | - |
|
417 | - return DB::table('maj_sosa AS sosa_list') |
|
418 | - ->select(['stats_by_gen.root_ancestor AS root_ancestor_sosa', 'sosa_list.majs_i_id as root_ancestor_id']) |
|
419 | - ->selectRaw('1 + SUM( (majs_gen_norm) * ( 2 * full_root_count + semi_root_count) / (2 * POWER(2, majs_gen_norm))) AS mean_gen_depth') //@phpcs:ignore Generic.Files.LineLength.TooLong |
|
420 | - ->selectRaw(' SQRT(' . |
|
421 | - ' SUM(POWER(majs_gen_norm, 2) * ( 2 * full_root_count + semi_root_count) / (2 * POWER(2, majs_gen_norm)))' . //@phpcs:ignore Generic.Files.LineLength.TooLong |
|
422 | - ' - POWER( SUM( (majs_gen_norm) * ( 2 * full_root_count + semi_root_count) / (2 * POWER(2, majs_gen_norm))), 2)' . //@phpcs:ignore Generic.Files.LineLength.TooLong |
|
423 | - ' ) AS stddev_gen_depth') |
|
424 | - ->joinSub($missing_ancestors_by_gen, 'stats_by_gen', function (JoinClause $join): void { |
|
425 | - $join->on('sosa_list.majs_sosa', '=', 'stats_by_gen.root_ancestor') |
|
426 | - ->where('sosa_list.majs_gedcom_id', '=', $this->tree->id()) |
|
427 | - ->where('sosa_list.majs_user_id', '=', $this->user->id()); |
|
428 | - }) |
|
429 | - ->groupBy(['stats_by_gen.root_ancestor', 'sosa_list.majs_i_id']) |
|
430 | - ->orderBy('stats_by_gen.root_ancestor') |
|
431 | - ->get()->keyBy('root_ancestor_sosa'); |
|
432 | - } |
|
433 | - |
|
434 | - /** |
|
435 | - * Return a collection of the most duplicated root Sosa ancestors. |
|
436 | - * The number of ancestors to return is limited by the parameter $limit. |
|
437 | - * If several individuals are tied when reaching the limit, none of them are returned, |
|
438 | - * which means that there can be less individuals returned than requested. |
|
439 | - * |
|
440 | - * Format: |
|
441 | - * - value: |
|
442 | - * - sosa_i_id : sosa individual |
|
443 | - * - sosa_count: number of duplications of the ancestor (e.g. 3 if it appears 3 times) |
|
444 | - * |
|
445 | - * @param int $limit |
|
446 | - * @return Collection<\stdClass> |
|
447 | - */ |
|
448 | - public function topMultipleAncestorsWithNoTies(int $limit): Collection |
|
449 | - { |
|
450 | - $table_prefix = DB::connection()->getTablePrefix(); |
|
451 | - $multiple_ancestors = DB::table('maj_sosa AS sosa') |
|
452 | - ->select('sosa.majs_i_id AS sosa_i_id') |
|
453 | - ->selectRaw('COUNT(' . $table_prefix . 'sosa.majs_sosa) AS sosa_count') |
|
454 | - ->leftJoin('maj_sosa AS sosa_fat', function (JoinClause $join) use ($table_prefix): void { |
|
455 | - // Link to sosa's father |
|
456 | - $join->whereRaw($table_prefix . 'sosa_fat.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa') |
|
457 | - ->where('sosa_fat.majs_gedcom_id', '=', $this->tree->id()) |
|
458 | - ->where('sosa_fat.majs_user_id', '=', $this->user->id()); |
|
459 | - }) |
|
460 | - ->leftJoin('maj_sosa AS sosa_mot', function (JoinClause $join) use ($table_prefix): void { |
|
461 | - // Link to sosa's mother |
|
462 | - $join->whereRaw($table_prefix . 'sosa_mot.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa + 1') |
|
463 | - ->where('sosa_mot.majs_gedcom_id', '=', $this->tree->id()) |
|
464 | - ->where('sosa_mot.majs_user_id', '=', $this->user->id()); |
|
465 | - }) |
|
466 | - ->where('sosa.majs_gedcom_id', '=', $this->tree->id()) |
|
467 | - ->where('sosa.majs_user_id', '=', $this->user->id()) |
|
468 | - ->whereNull('sosa_fat.majs_sosa') // We keep only root individuals, i.e. those with no father or mother |
|
469 | - ->whereNull('sosa_mot.majs_sosa') |
|
470 | - ->groupBy('sosa.majs_i_id') |
|
471 | - ->havingRaw('COUNT(' . $table_prefix . 'sosa.majs_sosa) > 1') // Limit to the duplicate sosas. |
|
472 | - ->orderByRaw('COUNT(' . $table_prefix . 'sosa.majs_sosa) DESC, MIN(' . $table_prefix . 'sosa.majs_sosa) ASC') //@phpcs:ignore Generic.Files.LineLength.TooLong |
|
473 | - ->limit($limit + 1) // We want to select one more than required, for ties |
|
474 | - ->get(); |
|
475 | - |
|
476 | - if ($multiple_ancestors->count() > $limit) { |
|
477 | - $last_count = $multiple_ancestors->last()->sosa_count; |
|
478 | - $multiple_ancestors = $multiple_ancestors->reject( |
|
479 | - fn (stdClass $element): bool => $element->sosa_count === $last_count |
|
480 | - ); |
|
481 | - } |
|
482 | - return $multiple_ancestors; |
|
483 | - } |
|
484 | - |
|
485 | - /** |
|
486 | - * Return a computed array of statistics about the dispersion of ancestors across the ancestors |
|
487 | - * at a specified generation. |
|
488 | - * |
|
489 | - * Format: |
|
490 | - * - key : rank of the ancestor in generation G for which exclusive ancestors have been found |
|
491 | - * For instance 3 represent the maternal grand father |
|
492 | - * 0 is used for shared ancestors |
|
493 | - * - values: |
|
494 | - * - branches: same as key |
|
495 | - * - majs_i_id: xref of the ancestor at rank key in generation G, or null for shared ancestors |
|
496 | - * - count_indi: number of ancestors exclusively in the ancestors of the ancestor at rank key |
|
497 | - * |
|
498 | - * For instance a result at generation 3 could be : |
|
499 | - * [ |
|
500 | - * 0 => { branches: 0, majs_i_id: X1, count_indi: 12 } -> 12 ancestors are shared by the grand-parents |
|
501 | - * 1 => { branches: 1, majs_i_id: X2, count_indi: 32 } -> 32 ancestors are exclusive to the paternal grand-father |
|
502 | - * 2 => { branches: 2, majs_i_id: X3, count_indi: 25 } -> 25 ancestors are exclusive to the paternal grand-mother |
|
503 | - * 3 => { branches: 3, majs_i_id: X4, count_indi: 12 } -> 12 ancestors are exclusive to the maternal grand-father |
|
504 | - * 4 => { branches: 4, majs_i_id: X5, count_indi: 30 } -> 30 ancestors are exclusive to the maternal grand-mother |
|
505 | - * ] |
|
506 | - * |
|
507 | - * @param int $gen |
|
508 | - * @return Collection<int, \stdClass> |
|
509 | - */ |
|
510 | - public function ancestorsDispersionForGeneration(int $gen): Collection |
|
511 | - { |
|
512 | - $ancestors_branches = DB::table('maj_sosa') |
|
513 | - ->select('majs_i_id AS i_id') |
|
514 | - ->selectRaw('FLOOR(majs_sosa / POW(2, (majs_gen - ?))) - POW(2, ? -1) + 1 AS branch', [$gen, $gen]) |
|
515 | - ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
516 | - ->where('majs_user_id', '=', $this->user->id()) |
|
517 | - ->where('majs_gen', '>=', $gen) |
|
518 | - ->groupBy('majs_i_id', 'branch'); |
|
519 | - |
|
520 | - $consolidated_ancestors_branches = DB::table('maj_sosa') |
|
521 | - ->fromSub($ancestors_branches, 'indi_branch') |
|
522 | - ->select('i_id') |
|
523 | - ->selectRaw('CASE WHEN COUNT(branch) > 1 THEN 0 ELSE MIN(branch) END AS branches') |
|
524 | - ->groupBy('i_id'); |
|
525 | - |
|
526 | - return DB::table('maj_sosa') |
|
527 | - ->rightJoinSub( |
|
528 | - $consolidated_ancestors_branches, |
|
529 | - 'indi_branch_consolidated', |
|
530 | - function (JoinClause $join) use ($gen): void { |
|
531 | - $join->where('maj_sosa.majs_gedcom_id', '=', $this->tree->id()) |
|
532 | - ->where('maj_sosa.majs_user_id', '=', $this->user->id()) |
|
533 | - ->where('branches', '>', 0) |
|
534 | - ->whereRaw('majs_sosa = POW(2, ? - 1) + branches - 1', [$gen]); |
|
535 | - } |
|
536 | - ) |
|
537 | - ->select(['branches', 'majs_i_id']) |
|
538 | - ->selectRaw('COUNT(i_id) AS count_indi') |
|
539 | - ->groupBy(['branches', 'majs_i_id']) |
|
540 | - ->get()->keyBy('branches'); |
|
541 | - } |
|
335 | + $ancestors_contributions_sum = DB::connection()->query() |
|
336 | + ->fromSub($root_ancestors_contributions->unionAll($known_ancestors_contributions), 'sosa_contribs') |
|
337 | + ->select(['sosa_contribs.gen', 'sosa_contribs.majs_gedcom_id', 'sosa_contribs.majs_user_id']) |
|
338 | + ->addSelect(['sosa_contribs.majs_i_id', 'sosa_contribs.contrib']) |
|
339 | + ->selectRaw('COUNT(' . $table_prefix . 'sosa_contribs.majs_i_id) * ' . |
|
340 | + $table_prefix . 'sosa_contribs.contrib AS totalContrib') |
|
341 | + ->leftJoin('maj_sosa AS sosa_low', function (JoinClause $join): void { |
|
342 | + $join->on('sosa_low.majs_gen', '<', 'sosa_contribs.majs_gen') |
|
343 | + ->on('sosa_low.majs_i_id', '=', 'sosa_contribs.majs_i_id') |
|
344 | + ->where('sosa_low.majs_gedcom_id', '=', $this->tree->id()) |
|
345 | + ->where('sosa_low.majs_user_id', '=', $this->user->id()); |
|
346 | + }) |
|
347 | + ->whereNull('sosa_low.majs_sosa') |
|
348 | + ->groupBy(['sosa_contribs.gen', 'sosa_contribs.majs_gedcom_id', 'sosa_contribs.majs_user_id', |
|
349 | + 'sosa_contribs.majs_i_id', 'sosa_contribs.contrib']); |
|
350 | + |
|
351 | + // Aggregate all generation roots to compute root and generation pedigree collapse |
|
352 | + $pedi_collapse_coll = DB::connection()->query()->fromSub($ancestors_contributions_sum, 'sosa_contribs_sum') |
|
353 | + ->select(['gen'])->selectRaw('SUM(contrib), SUM(totalContrib)') |
|
354 | + ->selectRaw('1 - SUM(contrib) / SUM(totalContrib) AS pedi_collapse_roots') // Roots/horizontal collapse |
|
355 | + ->selectRaw('1 - SUM(totalContrib) / POWER ( 2, gen - 1) AS pedi_collapse_xgen') // Crossgeneration collapse |
|
356 | + ->groupBy(['gen', 'majs_gedcom_id', 'majs_user_id']) |
|
357 | + ->orderBy('gen') |
|
358 | + ->get(); |
|
359 | + |
|
360 | + $pedi_collapse_by_gen = []; |
|
361 | + foreach ($pedi_collapse_coll as $collapse_gen) { |
|
362 | + $pedi_collapse_by_gen[(int) $collapse_gen->gen] = array( |
|
363 | + 'pedi_collapse_roots' => (float) $collapse_gen->pedi_collapse_roots, |
|
364 | + 'pedi_collapse_xgen' => (float) $collapse_gen->pedi_collapse_xgen |
|
365 | + ); |
|
366 | + } |
|
367 | + return $pedi_collapse_by_gen; |
|
368 | + } |
|
369 | + |
|
370 | + /** |
|
371 | + * Return a Collection of the mean generation depth and deviation for all Sosa ancestors at a given generation. |
|
372 | + * Sosa 1 is of generation 1. |
|
373 | + * |
|
374 | + * Mean generation depth and deviation are calculated based on the works of Marie-Héléne Cazes and Pierre Cazes, |
|
375 | + * published in Population (French Edition), Vol. 51, No. 1 (Jan. - Feb., 1996), pp. 117-140 |
|
376 | + * http://kintip.net/index.php?option=com_jdownloads&task=download.send&id=9&catid=4&m=0 |
|
377 | + * |
|
378 | + * Format: |
|
379 | + * - key : sosa number of the ancestor |
|
380 | + * - values: |
|
381 | + * - root_ancestor_id : ID of the ancestor |
|
382 | + * - mean_gen_depth : Mean generation depth |
|
383 | + * - stddev_gen_depth : Standard deviation of generation depth |
|
384 | + * |
|
385 | + * @param int $gen Sosa generation |
|
386 | + * @return Collection<int, \stdClass> |
|
387 | + */ |
|
388 | + public function generationDepthStatsAtGeneration(int $gen): Collection |
|
389 | + { |
|
390 | + $table_prefix = DB::connection()->getTablePrefix(); |
|
391 | + $missing_ancestors_by_gen = DB::table('maj_sosa AS sosa') |
|
392 | + ->selectRaw($table_prefix . 'sosa.majs_gen - ? AS majs_gen_norm', [$gen]) |
|
393 | + ->selectRaw('FLOOR(((' . $table_prefix . 'sosa.majs_sosa / POW(2, ' . $table_prefix . 'sosa.majs_gen -1 )) - 1) * POWER(2, ? - 1)) + POWER(2, ? - 1) AS root_ancestor', [$gen, $gen]) //@phpcs:ignore Generic.Files.LineLength.TooLong |
|
394 | + ->selectRaw('SUM(CASE WHEN ' . $table_prefix . 'sosa_fat.majs_i_id IS NULL AND ' . $table_prefix . 'sosa_mot.majs_i_id IS NULL THEN 1 ELSE 0 END) AS full_root_count') //@phpcs:ignore Generic.Files.LineLength.TooLong |
|
395 | + ->selectRaw('SUM(CASE WHEN ' . $table_prefix . 'sosa_fat.majs_i_id IS NULL AND ' . $table_prefix . 'sosa_mot.majs_i_id IS NULL THEN 0 ELSE 1 END) As semi_root_count') //@phpcs:ignore Generic.Files.LineLength.TooLong |
|
396 | + ->leftJoin('maj_sosa AS sosa_fat', function (JoinClause $join) use ($table_prefix): void { |
|
397 | + // Link to sosa's father |
|
398 | + $join->whereRaw($table_prefix . 'sosa_fat.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa') |
|
399 | + ->where('sosa_fat.majs_gedcom_id', '=', $this->tree->id()) |
|
400 | + ->where('sosa_fat.majs_user_id', '=', $this->user->id()); |
|
401 | + }) |
|
402 | + ->leftJoin('maj_sosa AS sosa_mot', function (JoinClause $join) use ($table_prefix): void { |
|
403 | + // Link to sosa's mother |
|
404 | + $join->whereRaw($table_prefix . 'sosa_mot.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa + 1') |
|
405 | + ->where('sosa_mot.majs_gedcom_id', '=', $this->tree->id()) |
|
406 | + ->where('sosa_mot.majs_user_id', '=', $this->user->id()); |
|
407 | + }) |
|
408 | + ->where('sosa.majs_gedcom_id', '=', $this->tree->id()) |
|
409 | + ->where('sosa.majs_user_id', '=', $this->user->id()) |
|
410 | + ->where('sosa.majs_gen', '>=', $gen) |
|
411 | + ->where(function (Builder $query): void { |
|
412 | + $query->whereNull('sosa_fat.majs_i_id') |
|
413 | + ->orWhereNull('sosa_mot.majs_i_id'); |
|
414 | + }) |
|
415 | + ->groupBy(['sosa.majs_gen', 'root_ancestor']); |
|
416 | + |
|
417 | + return DB::table('maj_sosa AS sosa_list') |
|
418 | + ->select(['stats_by_gen.root_ancestor AS root_ancestor_sosa', 'sosa_list.majs_i_id as root_ancestor_id']) |
|
419 | + ->selectRaw('1 + SUM( (majs_gen_norm) * ( 2 * full_root_count + semi_root_count) / (2 * POWER(2, majs_gen_norm))) AS mean_gen_depth') //@phpcs:ignore Generic.Files.LineLength.TooLong |
|
420 | + ->selectRaw(' SQRT(' . |
|
421 | + ' SUM(POWER(majs_gen_norm, 2) * ( 2 * full_root_count + semi_root_count) / (2 * POWER(2, majs_gen_norm)))' . //@phpcs:ignore Generic.Files.LineLength.TooLong |
|
422 | + ' - POWER( SUM( (majs_gen_norm) * ( 2 * full_root_count + semi_root_count) / (2 * POWER(2, majs_gen_norm))), 2)' . //@phpcs:ignore Generic.Files.LineLength.TooLong |
|
423 | + ' ) AS stddev_gen_depth') |
|
424 | + ->joinSub($missing_ancestors_by_gen, 'stats_by_gen', function (JoinClause $join): void { |
|
425 | + $join->on('sosa_list.majs_sosa', '=', 'stats_by_gen.root_ancestor') |
|
426 | + ->where('sosa_list.majs_gedcom_id', '=', $this->tree->id()) |
|
427 | + ->where('sosa_list.majs_user_id', '=', $this->user->id()); |
|
428 | + }) |
|
429 | + ->groupBy(['stats_by_gen.root_ancestor', 'sosa_list.majs_i_id']) |
|
430 | + ->orderBy('stats_by_gen.root_ancestor') |
|
431 | + ->get()->keyBy('root_ancestor_sosa'); |
|
432 | + } |
|
433 | + |
|
434 | + /** |
|
435 | + * Return a collection of the most duplicated root Sosa ancestors. |
|
436 | + * The number of ancestors to return is limited by the parameter $limit. |
|
437 | + * If several individuals are tied when reaching the limit, none of them are returned, |
|
438 | + * which means that there can be less individuals returned than requested. |
|
439 | + * |
|
440 | + * Format: |
|
441 | + * - value: |
|
442 | + * - sosa_i_id : sosa individual |
|
443 | + * - sosa_count: number of duplications of the ancestor (e.g. 3 if it appears 3 times) |
|
444 | + * |
|
445 | + * @param int $limit |
|
446 | + * @return Collection<\stdClass> |
|
447 | + */ |
|
448 | + public function topMultipleAncestorsWithNoTies(int $limit): Collection |
|
449 | + { |
|
450 | + $table_prefix = DB::connection()->getTablePrefix(); |
|
451 | + $multiple_ancestors = DB::table('maj_sosa AS sosa') |
|
452 | + ->select('sosa.majs_i_id AS sosa_i_id') |
|
453 | + ->selectRaw('COUNT(' . $table_prefix . 'sosa.majs_sosa) AS sosa_count') |
|
454 | + ->leftJoin('maj_sosa AS sosa_fat', function (JoinClause $join) use ($table_prefix): void { |
|
455 | + // Link to sosa's father |
|
456 | + $join->whereRaw($table_prefix . 'sosa_fat.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa') |
|
457 | + ->where('sosa_fat.majs_gedcom_id', '=', $this->tree->id()) |
|
458 | + ->where('sosa_fat.majs_user_id', '=', $this->user->id()); |
|
459 | + }) |
|
460 | + ->leftJoin('maj_sosa AS sosa_mot', function (JoinClause $join) use ($table_prefix): void { |
|
461 | + // Link to sosa's mother |
|
462 | + $join->whereRaw($table_prefix . 'sosa_mot.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa + 1') |
|
463 | + ->where('sosa_mot.majs_gedcom_id', '=', $this->tree->id()) |
|
464 | + ->where('sosa_mot.majs_user_id', '=', $this->user->id()); |
|
465 | + }) |
|
466 | + ->where('sosa.majs_gedcom_id', '=', $this->tree->id()) |
|
467 | + ->where('sosa.majs_user_id', '=', $this->user->id()) |
|
468 | + ->whereNull('sosa_fat.majs_sosa') // We keep only root individuals, i.e. those with no father or mother |
|
469 | + ->whereNull('sosa_mot.majs_sosa') |
|
470 | + ->groupBy('sosa.majs_i_id') |
|
471 | + ->havingRaw('COUNT(' . $table_prefix . 'sosa.majs_sosa) > 1') // Limit to the duplicate sosas. |
|
472 | + ->orderByRaw('COUNT(' . $table_prefix . 'sosa.majs_sosa) DESC, MIN(' . $table_prefix . 'sosa.majs_sosa) ASC') //@phpcs:ignore Generic.Files.LineLength.TooLong |
|
473 | + ->limit($limit + 1) // We want to select one more than required, for ties |
|
474 | + ->get(); |
|
475 | + |
|
476 | + if ($multiple_ancestors->count() > $limit) { |
|
477 | + $last_count = $multiple_ancestors->last()->sosa_count; |
|
478 | + $multiple_ancestors = $multiple_ancestors->reject( |
|
479 | + fn (stdClass $element): bool => $element->sosa_count === $last_count |
|
480 | + ); |
|
481 | + } |
|
482 | + return $multiple_ancestors; |
|
483 | + } |
|
484 | + |
|
485 | + /** |
|
486 | + * Return a computed array of statistics about the dispersion of ancestors across the ancestors |
|
487 | + * at a specified generation. |
|
488 | + * |
|
489 | + * Format: |
|
490 | + * - key : rank of the ancestor in generation G for which exclusive ancestors have been found |
|
491 | + * For instance 3 represent the maternal grand father |
|
492 | + * 0 is used for shared ancestors |
|
493 | + * - values: |
|
494 | + * - branches: same as key |
|
495 | + * - majs_i_id: xref of the ancestor at rank key in generation G, or null for shared ancestors |
|
496 | + * - count_indi: number of ancestors exclusively in the ancestors of the ancestor at rank key |
|
497 | + * |
|
498 | + * For instance a result at generation 3 could be : |
|
499 | + * [ |
|
500 | + * 0 => { branches: 0, majs_i_id: X1, count_indi: 12 } -> 12 ancestors are shared by the grand-parents |
|
501 | + * 1 => { branches: 1, majs_i_id: X2, count_indi: 32 } -> 32 ancestors are exclusive to the paternal grand-father |
|
502 | + * 2 => { branches: 2, majs_i_id: X3, count_indi: 25 } -> 25 ancestors are exclusive to the paternal grand-mother |
|
503 | + * 3 => { branches: 3, majs_i_id: X4, count_indi: 12 } -> 12 ancestors are exclusive to the maternal grand-father |
|
504 | + * 4 => { branches: 4, majs_i_id: X5, count_indi: 30 } -> 30 ancestors are exclusive to the maternal grand-mother |
|
505 | + * ] |
|
506 | + * |
|
507 | + * @param int $gen |
|
508 | + * @return Collection<int, \stdClass> |
|
509 | + */ |
|
510 | + public function ancestorsDispersionForGeneration(int $gen): Collection |
|
511 | + { |
|
512 | + $ancestors_branches = DB::table('maj_sosa') |
|
513 | + ->select('majs_i_id AS i_id') |
|
514 | + ->selectRaw('FLOOR(majs_sosa / POW(2, (majs_gen - ?))) - POW(2, ? -1) + 1 AS branch', [$gen, $gen]) |
|
515 | + ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
516 | + ->where('majs_user_id', '=', $this->user->id()) |
|
517 | + ->where('majs_gen', '>=', $gen) |
|
518 | + ->groupBy('majs_i_id', 'branch'); |
|
519 | + |
|
520 | + $consolidated_ancestors_branches = DB::table('maj_sosa') |
|
521 | + ->fromSub($ancestors_branches, 'indi_branch') |
|
522 | + ->select('i_id') |
|
523 | + ->selectRaw('CASE WHEN COUNT(branch) > 1 THEN 0 ELSE MIN(branch) END AS branches') |
|
524 | + ->groupBy('i_id'); |
|
525 | + |
|
526 | + return DB::table('maj_sosa') |
|
527 | + ->rightJoinSub( |
|
528 | + $consolidated_ancestors_branches, |
|
529 | + 'indi_branch_consolidated', |
|
530 | + function (JoinClause $join) use ($gen): void { |
|
531 | + $join->where('maj_sosa.majs_gedcom_id', '=', $this->tree->id()) |
|
532 | + ->where('maj_sosa.majs_user_id', '=', $this->user->id()) |
|
533 | + ->where('branches', '>', 0) |
|
534 | + ->whereRaw('majs_sosa = POW(2, ? - 1) + branches - 1', [$gen]); |
|
535 | + } |
|
536 | + ) |
|
537 | + ->select(['branches', 'majs_i_id']) |
|
538 | + ->selectRaw('COUNT(i_id) AS count_indi') |
|
539 | + ->groupBy(['branches', 'majs_i_id']) |
|
540 | + ->get()->keyBy('branches'); |
|
541 | + } |
|
542 | 542 | } |
@@ -62,7 +62,7 @@ discard block |
||
62 | 62 | */ |
63 | 63 | public function maxGeneration(): int |
64 | 64 | { |
65 | - return (int) DB::table('maj_sosa') |
|
65 | + return (int)DB::table('maj_sosa') |
|
66 | 66 | ->where('majs_gedcom_id', '=', $this->tree->id()) |
67 | 67 | ->where('majs_user_id', '=', $this->user->id()) |
68 | 68 | ->max('majs_gen'); |
@@ -139,8 +139,7 @@ discard block |
||
139 | 139 | ->selectRaw('SUM(majs_gen * majs_gen) AS sum_x2') |
140 | 140 | ->get()->first(); |
141 | 141 | |
142 | - return $row->n == 0 ? 0 : |
|
143 | - -($row->n * $row->sum_xy - $row->sum_x * $row->sum_y) / ($row->n * $row->sum_x2 - pow($row->sum_x, 2)); |
|
142 | + return $row->n == 0 ? 0 : -($row->n * $row->sum_xy - $row->sum_x * $row->sum_y) / ($row->n * $row->sum_x2 - pow($row->sum_x, 2)); |
|
144 | 143 | } |
145 | 144 | |
146 | 145 | /** |
@@ -164,10 +163,10 @@ discard block |
||
164 | 163 | |
165 | 164 | $statistics_by_gen = []; |
166 | 165 | foreach ($stats_by_gen as $gen => $stats_gen) { |
167 | - $statistics_by_gen[(int) $stats_gen->gen] = array( |
|
168 | - 'sosaCount' => (int) $stats_gen->total_sosa, |
|
169 | - 'sosaTotalCount' => (int) $cumul_stats_by_gen[$gen]->total_cumul, |
|
170 | - 'diffSosaTotalCount' => (int) $cumul_stats_by_gen[$gen]->total_distinct_cumul, |
|
166 | + $statistics_by_gen[(int)$stats_gen->gen] = array( |
|
167 | + 'sosaCount' => (int)$stats_gen->total_sosa, |
|
168 | + 'sosaTotalCount' => (int)$cumul_stats_by_gen[$gen]->total_cumul, |
|
169 | + 'diffSosaTotalCount' => (int)$cumul_stats_by_gen[$gen]->total_distinct_cumul, |
|
171 | 170 | 'firstBirth' => $stats_gen->first_year, |
172 | 171 | 'firstEstimatedBirth' => $stats_gen->first_est_year, |
173 | 172 | 'lastBirth' => $stats_gen->last_year, |
@@ -211,7 +210,7 @@ discard block |
||
211 | 210 | ->where('majs_user_id', '=', $this->user->id()); |
212 | 211 | |
213 | 212 | return DB::table('maj_sosa') |
214 | - ->joinSub($list_gen, 'list_gen', function (JoinClause $join): void { |
|
213 | + ->joinSub($list_gen, 'list_gen', function(JoinClause $join): void { |
|
215 | 214 | $join->on('maj_sosa.majs_gen', '<=', 'list_gen.majs_gen') |
216 | 215 | ->where('majs_gedcom_id', '=', $this->tree->id()) |
217 | 216 | ->where('majs_user_id', '=', $this->user->id()); |
@@ -248,37 +247,37 @@ discard block |
||
248 | 247 | ->select(['list_gen.majs_gen AS gen', 'sosa.majs_gedcom_id', 'sosa.majs_user_id']) |
249 | 248 | ->addSelect(['sosa.majs_i_id', 'sosa.majs_gen']) |
250 | 249 | ->selectRaw( |
251 | - '(CASE ' . |
|
252 | - ' WHEN ' . $table_prefix . 'sosa_fat.majs_i_id IS NULL' . |
|
253 | - ' THEN POWER(2, ' . $table_prefix . 'list_gen.majs_gen - ' . $table_prefix . 'sosa.majs_gen - 1)' . |
|
254 | - ' ELSE 0 ' . |
|
255 | - ' END)' . |
|
256 | - ' + (CASE ' . |
|
257 | - ' WHEN ' . $table_prefix . 'sosa_mot.majs_i_id IS NULL' . |
|
258 | - ' THEN POWER(2, ' . $table_prefix . 'list_gen.majs_gen - ' . $table_prefix . 'sosa.majs_gen - 1)' . |
|
259 | - ' ELSE 0 ' . |
|
250 | + '(CASE '. |
|
251 | + ' WHEN '.$table_prefix.'sosa_fat.majs_i_id IS NULL'. |
|
252 | + ' THEN POWER(2, '.$table_prefix.'list_gen.majs_gen - '.$table_prefix.'sosa.majs_gen - 1)'. |
|
253 | + ' ELSE 0 '. |
|
254 | + ' END)'. |
|
255 | + ' + (CASE '. |
|
256 | + ' WHEN '.$table_prefix.'sosa_mot.majs_i_id IS NULL'. |
|
257 | + ' THEN POWER(2, '.$table_prefix.'list_gen.majs_gen - '.$table_prefix.'sosa.majs_gen - 1)'. |
|
258 | + ' ELSE 0 '. |
|
260 | 259 | ' END) contrib' |
261 | 260 | ) |
262 | - ->joinSub($list_gen, 'list_gen', function (JoinClause $join): void { |
|
261 | + ->joinSub($list_gen, 'list_gen', function(JoinClause $join): void { |
|
263 | 262 | $join->on('sosa.majs_gen', '<', 'list_gen.majs_gen') |
264 | 263 | ->where('majs_gedcom_id', '=', $this->tree->id()) |
265 | 264 | ->where('majs_user_id', '=', $this->user->id()); |
266 | 265 | }) |
267 | - ->leftJoin('maj_sosa AS sosa_fat', function (JoinClause $join) use ($table_prefix): void { |
|
266 | + ->leftJoin('maj_sosa AS sosa_fat', function(JoinClause $join) use ($table_prefix): void { |
|
268 | 267 | // Link to sosa's father |
269 | - $join->whereRaw($table_prefix . 'sosa_fat.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa') |
|
268 | + $join->whereRaw($table_prefix.'sosa_fat.majs_sosa = 2 * '.$table_prefix.'sosa.majs_sosa') |
|
270 | 269 | ->where('sosa_fat.majs_gedcom_id', '=', $this->tree->id()) |
271 | 270 | ->where('sosa_fat.majs_user_id', '=', $this->user->id()); |
272 | 271 | }) |
273 | - ->leftJoin('maj_sosa AS sosa_mot', function (JoinClause $join) use ($table_prefix): void { |
|
272 | + ->leftJoin('maj_sosa AS sosa_mot', function(JoinClause $join) use ($table_prefix): void { |
|
274 | 273 | // Link to sosa's mother |
275 | - $join->whereRaw($table_prefix . 'sosa_mot.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa + 1') |
|
274 | + $join->whereRaw($table_prefix.'sosa_mot.majs_sosa = 2 * '.$table_prefix.'sosa.majs_sosa + 1') |
|
276 | 275 | ->where('sosa_mot.majs_gedcom_id', '=', $this->tree->id()) |
277 | 276 | ->where('sosa_mot.majs_user_id', '=', $this->user->id()); |
278 | 277 | }) |
279 | 278 | ->where('sosa.majs_gedcom_id', '=', $this->tree->id()) |
280 | 279 | ->where('sosa.majs_user_id', '=', $this->user->id()) |
281 | - ->where(function (Builder $query): void { |
|
280 | + ->where(function(Builder $query): void { |
|
282 | 281 | $query->whereNull('sosa_fat.majs_i_id') |
283 | 282 | ->orWhereNull('sosa_mot.majs_i_id'); |
284 | 283 | }); |
@@ -288,24 +287,24 @@ discard block |
||
288 | 287 | */ |
289 | 288 | $non_roots_ancestors = DB::table('maj_sosa AS sosa') |
290 | 289 | ->select(['sosa.majs_gen', 'sosa.majs_gedcom_id', 'sosa.majs_user_id', 'sosa.majs_sosa']) |
291 | - ->selectRaw('MAX(' . $table_prefix . 'sosa_anc.majs_sosa) - MIN(' . $table_prefix . 'sosa_anc.majs_sosa)' . |
|
290 | + ->selectRaw('MAX('.$table_prefix.'sosa_anc.majs_sosa) - MIN('.$table_prefix.'sosa_anc.majs_sosa)'. |
|
292 | 291 | ' AS full_ancestors') |
293 | - ->join('maj_sosa AS sosa_anc', function (JoinClause $join) use ($table_prefix): void { |
|
292 | + ->join('maj_sosa AS sosa_anc', function(JoinClause $join) use ($table_prefix): void { |
|
294 | 293 | $join->on('sosa.majs_gen', '<', 'sosa_anc.majs_gen') |
295 | - ->whereRaw('FLOOR(' . $table_prefix . 'sosa_anc.majs_sosa / POWER(2, ' . |
|
296 | - $table_prefix . 'sosa_anc.majs_gen - ' . $table_prefix . 'sosa.majs_gen)) = ' . |
|
297 | - $table_prefix . 'sosa.majs_sosa') |
|
294 | + ->whereRaw('FLOOR('.$table_prefix.'sosa_anc.majs_sosa / POWER(2, '. |
|
295 | + $table_prefix.'sosa_anc.majs_gen - '.$table_prefix.'sosa.majs_gen)) = '. |
|
296 | + $table_prefix.'sosa.majs_sosa') |
|
298 | 297 | ->where('sosa_anc.majs_gedcom_id', '=', $this->tree->id()) |
299 | 298 | ->where('sosa_anc.majs_user_id', '=', $this->user->id()); |
300 | 299 | }) |
301 | 300 | ->where('sosa.majs_gedcom_id', '=', $this->tree->id()) |
302 | 301 | ->where('sosa.majs_user_id', '=', $this->user->id()) |
303 | - ->whereIn('sosa_anc.majs_i_id', function (Builder $query) use ($table_prefix): void { |
|
302 | + ->whereIn('sosa_anc.majs_i_id', function(Builder $query) use ($table_prefix): void { |
|
304 | 303 | $query->from('maj_sosa AS sosa_gen') |
305 | 304 | ->select('sosa_gen.majs_i_id')->distinct() |
306 | 305 | ->where('sosa_gen.majs_gedcom_id', '=', $this->tree->id()) |
307 | 306 | ->where('sosa_gen.majs_user_id', '=', $this->user->id()) |
308 | - ->whereRaw($table_prefix . 'sosa_gen.majs_gen = ' . $table_prefix . 'sosa.majs_gen'); |
|
307 | + ->whereRaw($table_prefix.'sosa_gen.majs_gen = '.$table_prefix.'sosa.majs_gen'); |
|
309 | 308 | }) |
310 | 309 | ->groupBy(['sosa.majs_gen', 'sosa.majs_gedcom_id', 'sosa.majs_user_id', |
311 | 310 | 'sosa.majs_sosa', 'sosa.majs_i_id']); |
@@ -318,7 +317,7 @@ discard block |
||
318 | 317 | ->select(['sosa.majs_gen AS gen', 'sosa.majs_gedcom_id', 'sosa.majs_user_id']) |
319 | 318 | ->addSelect(['sosa.majs_i_id', 'sosa.majs_gen']) |
320 | 319 | ->selectRaw('1 AS contrib') |
321 | - ->leftJoinSub($non_roots_ancestors, 'nonroot', function (JoinClause $join): void { |
|
320 | + ->leftJoinSub($non_roots_ancestors, 'nonroot', function(JoinClause $join): void { |
|
322 | 321 | $join->on('sosa.majs_gen', '=', 'nonroot.majs_gen') |
323 | 322 | ->on('sosa.majs_sosa', '=', 'nonroot.majs_sosa') |
324 | 323 | ->where('nonroot.full_ancestors', '>', 0) |
@@ -336,9 +335,9 @@ discard block |
||
336 | 335 | ->fromSub($root_ancestors_contributions->unionAll($known_ancestors_contributions), 'sosa_contribs') |
337 | 336 | ->select(['sosa_contribs.gen', 'sosa_contribs.majs_gedcom_id', 'sosa_contribs.majs_user_id']) |
338 | 337 | ->addSelect(['sosa_contribs.majs_i_id', 'sosa_contribs.contrib']) |
339 | - ->selectRaw('COUNT(' . $table_prefix . 'sosa_contribs.majs_i_id) * ' . |
|
340 | - $table_prefix . 'sosa_contribs.contrib AS totalContrib') |
|
341 | - ->leftJoin('maj_sosa AS sosa_low', function (JoinClause $join): void { |
|
338 | + ->selectRaw('COUNT('.$table_prefix.'sosa_contribs.majs_i_id) * '. |
|
339 | + $table_prefix.'sosa_contribs.contrib AS totalContrib') |
|
340 | + ->leftJoin('maj_sosa AS sosa_low', function(JoinClause $join): void { |
|
342 | 341 | $join->on('sosa_low.majs_gen', '<', 'sosa_contribs.majs_gen') |
343 | 342 | ->on('sosa_low.majs_i_id', '=', 'sosa_contribs.majs_i_id') |
344 | 343 | ->where('sosa_low.majs_gedcom_id', '=', $this->tree->id()) |
@@ -359,9 +358,9 @@ discard block |
||
359 | 358 | |
360 | 359 | $pedi_collapse_by_gen = []; |
361 | 360 | foreach ($pedi_collapse_coll as $collapse_gen) { |
362 | - $pedi_collapse_by_gen[(int) $collapse_gen->gen] = array( |
|
363 | - 'pedi_collapse_roots' => (float) $collapse_gen->pedi_collapse_roots, |
|
364 | - 'pedi_collapse_xgen' => (float) $collapse_gen->pedi_collapse_xgen |
|
361 | + $pedi_collapse_by_gen[(int)$collapse_gen->gen] = array( |
|
362 | + 'pedi_collapse_roots' => (float)$collapse_gen->pedi_collapse_roots, |
|
363 | + 'pedi_collapse_xgen' => (float)$collapse_gen->pedi_collapse_xgen |
|
365 | 364 | ); |
366 | 365 | } |
367 | 366 | return $pedi_collapse_by_gen; |
@@ -389,26 +388,26 @@ discard block |
||
389 | 388 | { |
390 | 389 | $table_prefix = DB::connection()->getTablePrefix(); |
391 | 390 | $missing_ancestors_by_gen = DB::table('maj_sosa AS sosa') |
392 | - ->selectRaw($table_prefix . 'sosa.majs_gen - ? AS majs_gen_norm', [$gen]) |
|
393 | - ->selectRaw('FLOOR(((' . $table_prefix . 'sosa.majs_sosa / POW(2, ' . $table_prefix . 'sosa.majs_gen -1 )) - 1) * POWER(2, ? - 1)) + POWER(2, ? - 1) AS root_ancestor', [$gen, $gen]) //@phpcs:ignore Generic.Files.LineLength.TooLong |
|
394 | - ->selectRaw('SUM(CASE WHEN ' . $table_prefix . 'sosa_fat.majs_i_id IS NULL AND ' . $table_prefix . 'sosa_mot.majs_i_id IS NULL THEN 1 ELSE 0 END) AS full_root_count') //@phpcs:ignore Generic.Files.LineLength.TooLong |
|
395 | - ->selectRaw('SUM(CASE WHEN ' . $table_prefix . 'sosa_fat.majs_i_id IS NULL AND ' . $table_prefix . 'sosa_mot.majs_i_id IS NULL THEN 0 ELSE 1 END) As semi_root_count') //@phpcs:ignore Generic.Files.LineLength.TooLong |
|
396 | - ->leftJoin('maj_sosa AS sosa_fat', function (JoinClause $join) use ($table_prefix): void { |
|
391 | + ->selectRaw($table_prefix.'sosa.majs_gen - ? AS majs_gen_norm', [$gen]) |
|
392 | + ->selectRaw('FLOOR((('.$table_prefix.'sosa.majs_sosa / POW(2, '.$table_prefix.'sosa.majs_gen -1 )) - 1) * POWER(2, ? - 1)) + POWER(2, ? - 1) AS root_ancestor', [$gen, $gen]) //@phpcs:ignore Generic.Files.LineLength.TooLong |
|
393 | + ->selectRaw('SUM(CASE WHEN '.$table_prefix.'sosa_fat.majs_i_id IS NULL AND '.$table_prefix.'sosa_mot.majs_i_id IS NULL THEN 1 ELSE 0 END) AS full_root_count') //@phpcs:ignore Generic.Files.LineLength.TooLong |
|
394 | + ->selectRaw('SUM(CASE WHEN '.$table_prefix.'sosa_fat.majs_i_id IS NULL AND '.$table_prefix.'sosa_mot.majs_i_id IS NULL THEN 0 ELSE 1 END) As semi_root_count') //@phpcs:ignore Generic.Files.LineLength.TooLong |
|
395 | + ->leftJoin('maj_sosa AS sosa_fat', function(JoinClause $join) use ($table_prefix): void { |
|
397 | 396 | // Link to sosa's father |
398 | - $join->whereRaw($table_prefix . 'sosa_fat.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa') |
|
397 | + $join->whereRaw($table_prefix.'sosa_fat.majs_sosa = 2 * '.$table_prefix.'sosa.majs_sosa') |
|
399 | 398 | ->where('sosa_fat.majs_gedcom_id', '=', $this->tree->id()) |
400 | 399 | ->where('sosa_fat.majs_user_id', '=', $this->user->id()); |
401 | 400 | }) |
402 | - ->leftJoin('maj_sosa AS sosa_mot', function (JoinClause $join) use ($table_prefix): void { |
|
401 | + ->leftJoin('maj_sosa AS sosa_mot', function(JoinClause $join) use ($table_prefix): void { |
|
403 | 402 | // Link to sosa's mother |
404 | - $join->whereRaw($table_prefix . 'sosa_mot.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa + 1') |
|
403 | + $join->whereRaw($table_prefix.'sosa_mot.majs_sosa = 2 * '.$table_prefix.'sosa.majs_sosa + 1') |
|
405 | 404 | ->where('sosa_mot.majs_gedcom_id', '=', $this->tree->id()) |
406 | 405 | ->where('sosa_mot.majs_user_id', '=', $this->user->id()); |
407 | 406 | }) |
408 | 407 | ->where('sosa.majs_gedcom_id', '=', $this->tree->id()) |
409 | 408 | ->where('sosa.majs_user_id', '=', $this->user->id()) |
410 | 409 | ->where('sosa.majs_gen', '>=', $gen) |
411 | - ->where(function (Builder $query): void { |
|
410 | + ->where(function(Builder $query): void { |
|
412 | 411 | $query->whereNull('sosa_fat.majs_i_id') |
413 | 412 | ->orWhereNull('sosa_mot.majs_i_id'); |
414 | 413 | }) |
@@ -417,11 +416,11 @@ discard block |
||
417 | 416 | return DB::table('maj_sosa AS sosa_list') |
418 | 417 | ->select(['stats_by_gen.root_ancestor AS root_ancestor_sosa', 'sosa_list.majs_i_id as root_ancestor_id']) |
419 | 418 | ->selectRaw('1 + SUM( (majs_gen_norm) * ( 2 * full_root_count + semi_root_count) / (2 * POWER(2, majs_gen_norm))) AS mean_gen_depth') //@phpcs:ignore Generic.Files.LineLength.TooLong |
420 | - ->selectRaw(' SQRT(' . |
|
421 | - ' SUM(POWER(majs_gen_norm, 2) * ( 2 * full_root_count + semi_root_count) / (2 * POWER(2, majs_gen_norm)))' . //@phpcs:ignore Generic.Files.LineLength.TooLong |
|
422 | - ' - POWER( SUM( (majs_gen_norm) * ( 2 * full_root_count + semi_root_count) / (2 * POWER(2, majs_gen_norm))), 2)' . //@phpcs:ignore Generic.Files.LineLength.TooLong |
|
419 | + ->selectRaw(' SQRT('. |
|
420 | + ' SUM(POWER(majs_gen_norm, 2) * ( 2 * full_root_count + semi_root_count) / (2 * POWER(2, majs_gen_norm)))'.//@phpcs:ignore Generic.Files.LineLength.TooLong |
|
421 | + ' - POWER( SUM( (majs_gen_norm) * ( 2 * full_root_count + semi_root_count) / (2 * POWER(2, majs_gen_norm))), 2)'.//@phpcs:ignore Generic.Files.LineLength.TooLong |
|
423 | 422 | ' ) AS stddev_gen_depth') |
424 | - ->joinSub($missing_ancestors_by_gen, 'stats_by_gen', function (JoinClause $join): void { |
|
423 | + ->joinSub($missing_ancestors_by_gen, 'stats_by_gen', function(JoinClause $join): void { |
|
425 | 424 | $join->on('sosa_list.majs_sosa', '=', 'stats_by_gen.root_ancestor') |
426 | 425 | ->where('sosa_list.majs_gedcom_id', '=', $this->tree->id()) |
427 | 426 | ->where('sosa_list.majs_user_id', '=', $this->user->id()); |
@@ -450,16 +449,16 @@ discard block |
||
450 | 449 | $table_prefix = DB::connection()->getTablePrefix(); |
451 | 450 | $multiple_ancestors = DB::table('maj_sosa AS sosa') |
452 | 451 | ->select('sosa.majs_i_id AS sosa_i_id') |
453 | - ->selectRaw('COUNT(' . $table_prefix . 'sosa.majs_sosa) AS sosa_count') |
|
454 | - ->leftJoin('maj_sosa AS sosa_fat', function (JoinClause $join) use ($table_prefix): void { |
|
452 | + ->selectRaw('COUNT('.$table_prefix.'sosa.majs_sosa) AS sosa_count') |
|
453 | + ->leftJoin('maj_sosa AS sosa_fat', function(JoinClause $join) use ($table_prefix): void { |
|
455 | 454 | // Link to sosa's father |
456 | - $join->whereRaw($table_prefix . 'sosa_fat.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa') |
|
455 | + $join->whereRaw($table_prefix.'sosa_fat.majs_sosa = 2 * '.$table_prefix.'sosa.majs_sosa') |
|
457 | 456 | ->where('sosa_fat.majs_gedcom_id', '=', $this->tree->id()) |
458 | 457 | ->where('sosa_fat.majs_user_id', '=', $this->user->id()); |
459 | 458 | }) |
460 | - ->leftJoin('maj_sosa AS sosa_mot', function (JoinClause $join) use ($table_prefix): void { |
|
459 | + ->leftJoin('maj_sosa AS sosa_mot', function(JoinClause $join) use ($table_prefix): void { |
|
461 | 460 | // Link to sosa's mother |
462 | - $join->whereRaw($table_prefix . 'sosa_mot.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa + 1') |
|
461 | + $join->whereRaw($table_prefix.'sosa_mot.majs_sosa = 2 * '.$table_prefix.'sosa.majs_sosa + 1') |
|
463 | 462 | ->where('sosa_mot.majs_gedcom_id', '=', $this->tree->id()) |
464 | 463 | ->where('sosa_mot.majs_user_id', '=', $this->user->id()); |
465 | 464 | }) |
@@ -468,15 +467,15 @@ discard block |
||
468 | 467 | ->whereNull('sosa_fat.majs_sosa') // We keep only root individuals, i.e. those with no father or mother |
469 | 468 | ->whereNull('sosa_mot.majs_sosa') |
470 | 469 | ->groupBy('sosa.majs_i_id') |
471 | - ->havingRaw('COUNT(' . $table_prefix . 'sosa.majs_sosa) > 1') // Limit to the duplicate sosas. |
|
472 | - ->orderByRaw('COUNT(' . $table_prefix . 'sosa.majs_sosa) DESC, MIN(' . $table_prefix . 'sosa.majs_sosa) ASC') //@phpcs:ignore Generic.Files.LineLength.TooLong |
|
470 | + ->havingRaw('COUNT('.$table_prefix.'sosa.majs_sosa) > 1') // Limit to the duplicate sosas. |
|
471 | + ->orderByRaw('COUNT('.$table_prefix.'sosa.majs_sosa) DESC, MIN('.$table_prefix.'sosa.majs_sosa) ASC') //@phpcs:ignore Generic.Files.LineLength.TooLong |
|
473 | 472 | ->limit($limit + 1) // We want to select one more than required, for ties |
474 | 473 | ->get(); |
475 | 474 | |
476 | 475 | if ($multiple_ancestors->count() > $limit) { |
477 | 476 | $last_count = $multiple_ancestors->last()->sosa_count; |
478 | 477 | $multiple_ancestors = $multiple_ancestors->reject( |
479 | - fn (stdClass $element): bool => $element->sosa_count === $last_count |
|
478 | + fn (stdClass $element): bool => $element->sosa_count === $last_count |
|
480 | 479 | ); |
481 | 480 | } |
482 | 481 | return $multiple_ancestors; |
@@ -527,7 +526,7 @@ discard block |
||
527 | 526 | ->rightJoinSub( |
528 | 527 | $consolidated_ancestors_branches, |
529 | 528 | 'indi_branch_consolidated', |
530 | - function (JoinClause $join) use ($gen): void { |
|
529 | + function(JoinClause $join) use ($gen): void { |
|
531 | 530 | $join->where('maj_sosa.majs_gedcom_id', '=', $this->tree->id()) |
532 | 531 | ->where('maj_sosa.majs_user_id', '=', $this->user->id()) |
533 | 532 | ->where('branches', '>', 0) |