@@ -30,511 +30,511 @@ |
||
| 30 | 30 | class SosaStatisticsService |
| 31 | 31 | { |
| 32 | 32 | |
| 33 | - /** |
|
| 34 | - * Reference user |
|
| 35 | - * @var UserInterface $user |
|
| 36 | - */ |
|
| 37 | - private $user; |
|
| 38 | - |
|
| 39 | - /** |
|
| 40 | - * Reference tree |
|
| 41 | - * @var Tree $tree |
|
| 42 | - */ |
|
| 43 | - private $tree; |
|
| 44 | - |
|
| 45 | - /** |
|
| 46 | - * Constructor for Sosa Statistics Service |
|
| 47 | - * |
|
| 48 | - * @param Tree $tree |
|
| 49 | - * @param UserInterface $user |
|
| 50 | - */ |
|
| 51 | - public function __construct(Tree $tree, UserInterface $user) |
|
| 52 | - { |
|
| 53 | - $this->tree = $tree; |
|
| 54 | - $this->user = $user; |
|
| 55 | - } |
|
| 56 | - |
|
| 57 | - /** |
|
| 58 | - * Return the root individual for the reference tree and user. |
|
| 59 | - * |
|
| 60 | - * @return Individual|NULL |
|
| 61 | - */ |
|
| 62 | - public function rootIndividual(): ?Individual |
|
| 63 | - { |
|
| 64 | - $root_indi_id = $this->tree->getUserPreference($this->user, 'MAJ_SOSA_ROOT_ID'); |
|
| 65 | - return Registry::individualFactory()->make($root_indi_id, $this->tree); |
|
| 66 | - } |
|
| 67 | - |
|
| 68 | - /** |
|
| 69 | - * Get the highest generation for the reference tree and user. |
|
| 70 | - * |
|
| 71 | - * @return int |
|
| 72 | - */ |
|
| 73 | - public function maxGeneration(): int |
|
| 74 | - { |
|
| 75 | - return (int) DB::table('maj_sosa') |
|
| 76 | - ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
| 77 | - ->where('majs_user_id', '=', $this->user->id()) |
|
| 78 | - ->max('majs_gen'); |
|
| 79 | - } |
|
| 80 | - |
|
| 81 | - /** |
|
| 82 | - * Get the total count of individuals in the tree. |
|
| 83 | - * |
|
| 84 | - * @return int |
|
| 85 | - */ |
|
| 86 | - public function totalIndividuals(): int |
|
| 87 | - { |
|
| 88 | - return DB::table('individuals') |
|
| 89 | - ->where('i_file', '=', $this->tree->id()) |
|
| 90 | - ->count(); |
|
| 91 | - } |
|
| 92 | - |
|
| 93 | - /** |
|
| 94 | - * Get the total count of Sosa ancestors for all generations |
|
| 95 | - * |
|
| 96 | - * @return int |
|
| 97 | - */ |
|
| 98 | - public function totalAncestors(): int |
|
| 99 | - { |
|
| 100 | - return DB::table('maj_sosa') |
|
| 101 | - ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
| 102 | - ->where('majs_user_id', '=', $this->user->id()) |
|
| 103 | - ->count(); |
|
| 104 | - } |
|
| 105 | - |
|
| 106 | - /** |
|
| 107 | - * Get the total count of Sosa ancestors for a generation |
|
| 108 | - * |
|
| 109 | - * @return int |
|
| 110 | - */ |
|
| 111 | - public function totalAncestorsAtGeneration(int $gen): int |
|
| 112 | - { |
|
| 113 | - return DB::table('maj_sosa') |
|
| 114 | - ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
| 115 | - ->where('majs_user_id', '=', $this->user->id()) |
|
| 116 | - ->where('majs_gen', '=', $gen) |
|
| 117 | - ->count(); |
|
| 118 | - } |
|
| 119 | - |
|
| 120 | - /** |
|
| 121 | - * Get the total count of distinct Sosa ancestors for all generations |
|
| 122 | - * |
|
| 123 | - * @return int |
|
| 124 | - */ |
|
| 125 | - public function totalDistinctAncestors(): int |
|
| 126 | - { |
|
| 127 | - return DB::table('maj_sosa') |
|
| 128 | - ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
| 129 | - ->where('majs_user_id', '=', $this->user->id()) |
|
| 130 | - ->distinct() |
|
| 131 | - ->count('majs_i_id'); |
|
| 132 | - } |
|
| 133 | - |
|
| 134 | - /** |
|
| 135 | - * Get the mean generation time, as the slope of the linear regression of birth years vs generations |
|
| 136 | - * |
|
| 137 | - * @return float |
|
| 138 | - */ |
|
| 139 | - public function meanGenerationTime(): float |
|
| 140 | - { |
|
| 141 | - $row = DB::table('maj_sosa') |
|
| 142 | - ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
| 143 | - ->where('majs_user_id', '=', $this->user->id()) |
|
| 144 | - ->whereNotNull('majs_birth_year') |
|
| 145 | - ->selectRaw('COUNT(majs_sosa) AS n') |
|
| 146 | - ->selectRaw('SUM(majs_gen * majs_birth_year) AS sum_xy') |
|
| 147 | - ->selectRaw('SUM(majs_gen) AS sum_x') |
|
| 148 | - ->selectRaw('SUM(majs_birth_year) AS sum_y') |
|
| 149 | - ->selectRaw('SUM(majs_gen * majs_gen) AS sum_x2') |
|
| 150 | - ->get()->first(); |
|
| 151 | - |
|
| 152 | - return $row->n == 0 ? 0 : |
|
| 153 | - -($row->n * $row->sum_xy - $row->sum_x * $row->sum_y) / ($row->n * $row->sum_x2 - pow($row->sum_x, 2)); |
|
| 154 | - } |
|
| 155 | - |
|
| 156 | - /** |
|
| 157 | - * Get the statistic array detailed by generation. |
|
| 158 | - * Statistics for each generation are: |
|
| 159 | - * - The number of Sosa in generation |
|
| 160 | - * - The number of Sosa up to generation |
|
| 161 | - * - The number of distinct Sosa up to generation |
|
| 162 | - * - The year of the first birth in generation |
|
| 163 | - * - The year of the first estimated birth in generation |
|
| 164 | - * - The year of the last birth in generation |
|
| 165 | - * - The year of the last estimated birth in generation |
|
| 166 | - * - The average year of birth in generation |
|
| 167 | - * |
|
| 168 | - * @return array<int, array<string, int|null>> Statistics array |
|
| 169 | - */ |
|
| 170 | - public function statisticsByGenerations(): array |
|
| 171 | - { |
|
| 172 | - $stats_by_gen = $this->statisticsByGenerationBasicData(); |
|
| 173 | - $cumul_stats_by_gen = $this->statisticsByGenerationCumulativeData(); |
|
| 174 | - |
|
| 175 | - $statistics_by_gen = []; |
|
| 176 | - foreach ($stats_by_gen as $gen => $stats_gen) { |
|
| 177 | - $statistics_by_gen[(int) $stats_gen->gen] = array( |
|
| 178 | - 'sosaCount' => (int) $stats_gen->total_sosa, |
|
| 179 | - 'sosaTotalCount' => (int) $cumul_stats_by_gen[$gen]->total_cumul, |
|
| 180 | - 'diffSosaTotalCount' => (int) $cumul_stats_by_gen[$gen]->total_distinct_cumul, |
|
| 181 | - 'firstBirth' => $stats_gen->first_year, |
|
| 182 | - 'firstEstimatedBirth' => $stats_gen->first_est_year, |
|
| 183 | - 'lastBirth' => $stats_gen->last_year, |
|
| 184 | - 'lastEstimatedBirth' => $stats_gen->last_est_year |
|
| 185 | - ); |
|
| 186 | - } |
|
| 187 | - |
|
| 188 | - return $statistics_by_gen; |
|
| 189 | - } |
|
| 190 | - |
|
| 191 | - /** |
|
| 192 | - * Returns the basic statistics data by generation. |
|
| 193 | - * |
|
| 194 | - * @return Collection<int, \stdClass> |
|
| 195 | - */ |
|
| 196 | - private function statisticsByGenerationBasicData(): Collection |
|
| 197 | - { |
|
| 198 | - return DB::table('maj_sosa') |
|
| 199 | - ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
| 200 | - ->where('majs_user_id', '=', $this->user->id()) |
|
| 201 | - ->groupBy('majs_gen') |
|
| 202 | - ->orderBy('majs_gen', 'asc') |
|
| 203 | - ->select('majs_gen AS gen') |
|
| 204 | - ->selectRaw('COUNT(majs_sosa) AS total_sosa') |
|
| 205 | - ->selectRaw('MIN(majs_birth_year) AS first_year') |
|
| 206 | - ->selectRaw('MIN(majs_birth_year_est) AS first_est_year') |
|
| 207 | - ->selectRaw('MAX(majs_birth_year) AS last_year') |
|
| 208 | - ->selectRaw('MAX(majs_birth_year_est) AS last_est_year') |
|
| 209 | - ->get()->keyBy('gen'); |
|
| 210 | - } |
|
| 211 | - |
|
| 212 | - /** |
|
| 213 | - * Returns the cumulative statistics data by generation |
|
| 214 | - * |
|
| 215 | - * @return Collection<int, \stdClass> |
|
| 216 | - */ |
|
| 217 | - private function statisticsByGenerationCumulativeData(): Collection |
|
| 218 | - { |
|
| 219 | - $list_gen = DB::table('maj_sosa')->select('majs_gen')->distinct() |
|
| 220 | - ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
| 221 | - ->where('majs_user_id', '=', $this->user->id()); |
|
| 222 | - |
|
| 223 | - return DB::table('maj_sosa') |
|
| 224 | - ->joinSub($list_gen, 'list_gen', function (JoinClause $join): void { |
|
| 225 | - $join->on('maj_sosa.majs_gen', '<=', 'list_gen.majs_gen') |
|
| 226 | - ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
| 227 | - ->where('majs_user_id', '=', $this->user->id()); |
|
| 228 | - }) |
|
| 229 | - ->groupBy('list_gen.majs_gen') |
|
| 230 | - ->select('list_gen.majs_gen AS gen') |
|
| 231 | - ->selectRaw('COUNT(majs_i_id) AS total_cumul') |
|
| 232 | - ->selectRaw('COUNT(DISTINCT majs_i_id) AS total_distinct_cumul') |
|
| 233 | - ->selectRaw('1 - COUNT(DISTINCT majs_i_id) / COUNT(majs_i_id) AS pedi_collapse_simple') |
|
| 234 | - ->get()->keyBy('gen'); |
|
| 235 | - } |
|
| 236 | - |
|
| 237 | - /** |
|
| 238 | - * Returns the pedigree collapse improved calculation by generation. |
|
| 239 | - * |
|
| 240 | - * Format: |
|
| 241 | - * - key : generation |
|
| 242 | - * - values: |
|
| 243 | - * - pedi_collapse_roots : pedigree collapse of ancestor roots for the generation |
|
| 244 | - * - pedi_collapse_xgen : pedigree cross-generation shrinkage for the generation |
|
| 245 | - * |
|
| 246 | - * @return array<int, array<string, float>> |
|
| 247 | - */ |
|
| 248 | - public function pedigreeCollapseByGenerationData(): array |
|
| 249 | - { |
|
| 250 | - $table_prefix = DB::connection()->getTablePrefix(); |
|
| 251 | - |
|
| 252 | - $list_gen = DB::table('maj_sosa')->select('majs_gen')->distinct() |
|
| 253 | - ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
| 254 | - ->where('majs_user_id', '=', $this->user->id()); |
|
| 255 | - |
|
| 256 | - /* Compute the contributions of nodes of previous generations to the current generation */ |
|
| 257 | - $root_ancestors_contributions = DB::table('maj_sosa AS sosa') |
|
| 258 | - ->select(['list_gen.majs_gen AS gen', 'sosa.majs_gedcom_id', 'sosa.majs_user_id']) |
|
| 259 | - ->addSelect(['sosa.majs_i_id', 'sosa.majs_gen']) |
|
| 260 | - ->selectRaw( |
|
| 261 | - '(CASE ' . |
|
| 262 | - ' WHEN ' . $table_prefix . 'sosa_fat.majs_i_id IS NULL' . |
|
| 263 | - ' THEN POWER(2, ' . $table_prefix . 'list_gen.majs_gen - ' . $table_prefix . 'sosa.majs_gen - 1)' . |
|
| 264 | - ' ELSE 0 ' . |
|
| 265 | - ' END)' . |
|
| 266 | - ' + (CASE ' . |
|
| 267 | - ' WHEN ' . $table_prefix . 'sosa_mot.majs_i_id IS NULL' . |
|
| 268 | - ' THEN POWER(2, ' . $table_prefix . 'list_gen.majs_gen - ' . $table_prefix . 'sosa.majs_gen - 1)' . |
|
| 269 | - ' ELSE 0 ' . |
|
| 270 | - ' END) contrib' |
|
| 271 | - ) |
|
| 272 | - ->joinSub($list_gen, 'list_gen', function (JoinClause $join): void { |
|
| 273 | - $join->on('sosa.majs_gen', '<', 'list_gen.majs_gen') |
|
| 274 | - ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
| 275 | - ->where('majs_user_id', '=', $this->user->id()); |
|
| 276 | - }) |
|
| 277 | - ->leftJoin('maj_sosa AS sosa_fat', function (JoinClause $join) use ($table_prefix): void { |
|
| 278 | - // Link to sosa's father |
|
| 279 | - $join->whereRaw($table_prefix . 'sosa_fat.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa') |
|
| 280 | - ->where('sosa_fat.majs_gedcom_id', '=', $this->tree->id()) |
|
| 281 | - ->where('sosa_fat.majs_user_id', '=', $this->user->id()); |
|
| 282 | - }) |
|
| 283 | - ->leftJoin('maj_sosa AS sosa_mot', function (JoinClause $join) use ($table_prefix): void { |
|
| 284 | - // Link to sosa's mother |
|
| 285 | - $join->whereRaw($table_prefix . 'sosa_mot.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa + 1') |
|
| 286 | - ->where('sosa_mot.majs_gedcom_id', '=', $this->tree->id()) |
|
| 287 | - ->where('sosa_mot.majs_user_id', '=', $this->user->id()); |
|
| 288 | - }) |
|
| 289 | - ->where('sosa.majs_gedcom_id', '=', $this->tree->id()) |
|
| 290 | - ->where('sosa.majs_user_id', '=', $this->user->id()) |
|
| 291 | - ->where(function (Builder $query): void { |
|
| 292 | - $query->whereNull('sosa_fat.majs_i_id') |
|
| 293 | - ->orWhereNull('sosa_mot.majs_i_id'); |
|
| 294 | - }); |
|
| 295 | - |
|
| 296 | - /* Identify nodes in the generations with ancestors who are also in the same generation. |
|
| 33 | + /** |
|
| 34 | + * Reference user |
|
| 35 | + * @var UserInterface $user |
|
| 36 | + */ |
|
| 37 | + private $user; |
|
| 38 | + |
|
| 39 | + /** |
|
| 40 | + * Reference tree |
|
| 41 | + * @var Tree $tree |
|
| 42 | + */ |
|
| 43 | + private $tree; |
|
| 44 | + |
|
| 45 | + /** |
|
| 46 | + * Constructor for Sosa Statistics Service |
|
| 47 | + * |
|
| 48 | + * @param Tree $tree |
|
| 49 | + * @param UserInterface $user |
|
| 50 | + */ |
|
| 51 | + public function __construct(Tree $tree, UserInterface $user) |
|
| 52 | + { |
|
| 53 | + $this->tree = $tree; |
|
| 54 | + $this->user = $user; |
|
| 55 | + } |
|
| 56 | + |
|
| 57 | + /** |
|
| 58 | + * Return the root individual for the reference tree and user. |
|
| 59 | + * |
|
| 60 | + * @return Individual|NULL |
|
| 61 | + */ |
|
| 62 | + public function rootIndividual(): ?Individual |
|
| 63 | + { |
|
| 64 | + $root_indi_id = $this->tree->getUserPreference($this->user, 'MAJ_SOSA_ROOT_ID'); |
|
| 65 | + return Registry::individualFactory()->make($root_indi_id, $this->tree); |
|
| 66 | + } |
|
| 67 | + |
|
| 68 | + /** |
|
| 69 | + * Get the highest generation for the reference tree and user. |
|
| 70 | + * |
|
| 71 | + * @return int |
|
| 72 | + */ |
|
| 73 | + public function maxGeneration(): int |
|
| 74 | + { |
|
| 75 | + return (int) DB::table('maj_sosa') |
|
| 76 | + ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
| 77 | + ->where('majs_user_id', '=', $this->user->id()) |
|
| 78 | + ->max('majs_gen'); |
|
| 79 | + } |
|
| 80 | + |
|
| 81 | + /** |
|
| 82 | + * Get the total count of individuals in the tree. |
|
| 83 | + * |
|
| 84 | + * @return int |
|
| 85 | + */ |
|
| 86 | + public function totalIndividuals(): int |
|
| 87 | + { |
|
| 88 | + return DB::table('individuals') |
|
| 89 | + ->where('i_file', '=', $this->tree->id()) |
|
| 90 | + ->count(); |
|
| 91 | + } |
|
| 92 | + |
|
| 93 | + /** |
|
| 94 | + * Get the total count of Sosa ancestors for all generations |
|
| 95 | + * |
|
| 96 | + * @return int |
|
| 97 | + */ |
|
| 98 | + public function totalAncestors(): int |
|
| 99 | + { |
|
| 100 | + return DB::table('maj_sosa') |
|
| 101 | + ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
| 102 | + ->where('majs_user_id', '=', $this->user->id()) |
|
| 103 | + ->count(); |
|
| 104 | + } |
|
| 105 | + |
|
| 106 | + /** |
|
| 107 | + * Get the total count of Sosa ancestors for a generation |
|
| 108 | + * |
|
| 109 | + * @return int |
|
| 110 | + */ |
|
| 111 | + public function totalAncestorsAtGeneration(int $gen): int |
|
| 112 | + { |
|
| 113 | + return DB::table('maj_sosa') |
|
| 114 | + ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
| 115 | + ->where('majs_user_id', '=', $this->user->id()) |
|
| 116 | + ->where('majs_gen', '=', $gen) |
|
| 117 | + ->count(); |
|
| 118 | + } |
|
| 119 | + |
|
| 120 | + /** |
|
| 121 | + * Get the total count of distinct Sosa ancestors for all generations |
|
| 122 | + * |
|
| 123 | + * @return int |
|
| 124 | + */ |
|
| 125 | + public function totalDistinctAncestors(): int |
|
| 126 | + { |
|
| 127 | + return DB::table('maj_sosa') |
|
| 128 | + ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
| 129 | + ->where('majs_user_id', '=', $this->user->id()) |
|
| 130 | + ->distinct() |
|
| 131 | + ->count('majs_i_id'); |
|
| 132 | + } |
|
| 133 | + |
|
| 134 | + /** |
|
| 135 | + * Get the mean generation time, as the slope of the linear regression of birth years vs generations |
|
| 136 | + * |
|
| 137 | + * @return float |
|
| 138 | + */ |
|
| 139 | + public function meanGenerationTime(): float |
|
| 140 | + { |
|
| 141 | + $row = DB::table('maj_sosa') |
|
| 142 | + ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
| 143 | + ->where('majs_user_id', '=', $this->user->id()) |
|
| 144 | + ->whereNotNull('majs_birth_year') |
|
| 145 | + ->selectRaw('COUNT(majs_sosa) AS n') |
|
| 146 | + ->selectRaw('SUM(majs_gen * majs_birth_year) AS sum_xy') |
|
| 147 | + ->selectRaw('SUM(majs_gen) AS sum_x') |
|
| 148 | + ->selectRaw('SUM(majs_birth_year) AS sum_y') |
|
| 149 | + ->selectRaw('SUM(majs_gen * majs_gen) AS sum_x2') |
|
| 150 | + ->get()->first(); |
|
| 151 | + |
|
| 152 | + return $row->n == 0 ? 0 : |
|
| 153 | + -($row->n * $row->sum_xy - $row->sum_x * $row->sum_y) / ($row->n * $row->sum_x2 - pow($row->sum_x, 2)); |
|
| 154 | + } |
|
| 155 | + |
|
| 156 | + /** |
|
| 157 | + * Get the statistic array detailed by generation. |
|
| 158 | + * Statistics for each generation are: |
|
| 159 | + * - The number of Sosa in generation |
|
| 160 | + * - The number of Sosa up to generation |
|
| 161 | + * - The number of distinct Sosa up to generation |
|
| 162 | + * - The year of the first birth in generation |
|
| 163 | + * - The year of the first estimated birth in generation |
|
| 164 | + * - The year of the last birth in generation |
|
| 165 | + * - The year of the last estimated birth in generation |
|
| 166 | + * - The average year of birth in generation |
|
| 167 | + * |
|
| 168 | + * @return array<int, array<string, int|null>> Statistics array |
|
| 169 | + */ |
|
| 170 | + public function statisticsByGenerations(): array |
|
| 171 | + { |
|
| 172 | + $stats_by_gen = $this->statisticsByGenerationBasicData(); |
|
| 173 | + $cumul_stats_by_gen = $this->statisticsByGenerationCumulativeData(); |
|
| 174 | + |
|
| 175 | + $statistics_by_gen = []; |
|
| 176 | + foreach ($stats_by_gen as $gen => $stats_gen) { |
|
| 177 | + $statistics_by_gen[(int) $stats_gen->gen] = array( |
|
| 178 | + 'sosaCount' => (int) $stats_gen->total_sosa, |
|
| 179 | + 'sosaTotalCount' => (int) $cumul_stats_by_gen[$gen]->total_cumul, |
|
| 180 | + 'diffSosaTotalCount' => (int) $cumul_stats_by_gen[$gen]->total_distinct_cumul, |
|
| 181 | + 'firstBirth' => $stats_gen->first_year, |
|
| 182 | + 'firstEstimatedBirth' => $stats_gen->first_est_year, |
|
| 183 | + 'lastBirth' => $stats_gen->last_year, |
|
| 184 | + 'lastEstimatedBirth' => $stats_gen->last_est_year |
|
| 185 | + ); |
|
| 186 | + } |
|
| 187 | + |
|
| 188 | + return $statistics_by_gen; |
|
| 189 | + } |
|
| 190 | + |
|
| 191 | + /** |
|
| 192 | + * Returns the basic statistics data by generation. |
|
| 193 | + * |
|
| 194 | + * @return Collection<int, \stdClass> |
|
| 195 | + */ |
|
| 196 | + private function statisticsByGenerationBasicData(): Collection |
|
| 197 | + { |
|
| 198 | + return DB::table('maj_sosa') |
|
| 199 | + ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
| 200 | + ->where('majs_user_id', '=', $this->user->id()) |
|
| 201 | + ->groupBy('majs_gen') |
|
| 202 | + ->orderBy('majs_gen', 'asc') |
|
| 203 | + ->select('majs_gen AS gen') |
|
| 204 | + ->selectRaw('COUNT(majs_sosa) AS total_sosa') |
|
| 205 | + ->selectRaw('MIN(majs_birth_year) AS first_year') |
|
| 206 | + ->selectRaw('MIN(majs_birth_year_est) AS first_est_year') |
|
| 207 | + ->selectRaw('MAX(majs_birth_year) AS last_year') |
|
| 208 | + ->selectRaw('MAX(majs_birth_year_est) AS last_est_year') |
|
| 209 | + ->get()->keyBy('gen'); |
|
| 210 | + } |
|
| 211 | + |
|
| 212 | + /** |
|
| 213 | + * Returns the cumulative statistics data by generation |
|
| 214 | + * |
|
| 215 | + * @return Collection<int, \stdClass> |
|
| 216 | + */ |
|
| 217 | + private function statisticsByGenerationCumulativeData(): Collection |
|
| 218 | + { |
|
| 219 | + $list_gen = DB::table('maj_sosa')->select('majs_gen')->distinct() |
|
| 220 | + ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
| 221 | + ->where('majs_user_id', '=', $this->user->id()); |
|
| 222 | + |
|
| 223 | + return DB::table('maj_sosa') |
|
| 224 | + ->joinSub($list_gen, 'list_gen', function (JoinClause $join): void { |
|
| 225 | + $join->on('maj_sosa.majs_gen', '<=', 'list_gen.majs_gen') |
|
| 226 | + ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
| 227 | + ->where('majs_user_id', '=', $this->user->id()); |
|
| 228 | + }) |
|
| 229 | + ->groupBy('list_gen.majs_gen') |
|
| 230 | + ->select('list_gen.majs_gen AS gen') |
|
| 231 | + ->selectRaw('COUNT(majs_i_id) AS total_cumul') |
|
| 232 | + ->selectRaw('COUNT(DISTINCT majs_i_id) AS total_distinct_cumul') |
|
| 233 | + ->selectRaw('1 - COUNT(DISTINCT majs_i_id) / COUNT(majs_i_id) AS pedi_collapse_simple') |
|
| 234 | + ->get()->keyBy('gen'); |
|
| 235 | + } |
|
| 236 | + |
|
| 237 | + /** |
|
| 238 | + * Returns the pedigree collapse improved calculation by generation. |
|
| 239 | + * |
|
| 240 | + * Format: |
|
| 241 | + * - key : generation |
|
| 242 | + * - values: |
|
| 243 | + * - pedi_collapse_roots : pedigree collapse of ancestor roots for the generation |
|
| 244 | + * - pedi_collapse_xgen : pedigree cross-generation shrinkage for the generation |
|
| 245 | + * |
|
| 246 | + * @return array<int, array<string, float>> |
|
| 247 | + */ |
|
| 248 | + public function pedigreeCollapseByGenerationData(): array |
|
| 249 | + { |
|
| 250 | + $table_prefix = DB::connection()->getTablePrefix(); |
|
| 251 | + |
|
| 252 | + $list_gen = DB::table('maj_sosa')->select('majs_gen')->distinct() |
|
| 253 | + ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
| 254 | + ->where('majs_user_id', '=', $this->user->id()); |
|
| 255 | + |
|
| 256 | + /* Compute the contributions of nodes of previous generations to the current generation */ |
|
| 257 | + $root_ancestors_contributions = DB::table('maj_sosa AS sosa') |
|
| 258 | + ->select(['list_gen.majs_gen AS gen', 'sosa.majs_gedcom_id', 'sosa.majs_user_id']) |
|
| 259 | + ->addSelect(['sosa.majs_i_id', 'sosa.majs_gen']) |
|
| 260 | + ->selectRaw( |
|
| 261 | + '(CASE ' . |
|
| 262 | + ' WHEN ' . $table_prefix . 'sosa_fat.majs_i_id IS NULL' . |
|
| 263 | + ' THEN POWER(2, ' . $table_prefix . 'list_gen.majs_gen - ' . $table_prefix . 'sosa.majs_gen - 1)' . |
|
| 264 | + ' ELSE 0 ' . |
|
| 265 | + ' END)' . |
|
| 266 | + ' + (CASE ' . |
|
| 267 | + ' WHEN ' . $table_prefix . 'sosa_mot.majs_i_id IS NULL' . |
|
| 268 | + ' THEN POWER(2, ' . $table_prefix . 'list_gen.majs_gen - ' . $table_prefix . 'sosa.majs_gen - 1)' . |
|
| 269 | + ' ELSE 0 ' . |
|
| 270 | + ' END) contrib' |
|
| 271 | + ) |
|
| 272 | + ->joinSub($list_gen, 'list_gen', function (JoinClause $join): void { |
|
| 273 | + $join->on('sosa.majs_gen', '<', 'list_gen.majs_gen') |
|
| 274 | + ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
| 275 | + ->where('majs_user_id', '=', $this->user->id()); |
|
| 276 | + }) |
|
| 277 | + ->leftJoin('maj_sosa AS sosa_fat', function (JoinClause $join) use ($table_prefix): void { |
|
| 278 | + // Link to sosa's father |
|
| 279 | + $join->whereRaw($table_prefix . 'sosa_fat.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa') |
|
| 280 | + ->where('sosa_fat.majs_gedcom_id', '=', $this->tree->id()) |
|
| 281 | + ->where('sosa_fat.majs_user_id', '=', $this->user->id()); |
|
| 282 | + }) |
|
| 283 | + ->leftJoin('maj_sosa AS sosa_mot', function (JoinClause $join) use ($table_prefix): void { |
|
| 284 | + // Link to sosa's mother |
|
| 285 | + $join->whereRaw($table_prefix . 'sosa_mot.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa + 1') |
|
| 286 | + ->where('sosa_mot.majs_gedcom_id', '=', $this->tree->id()) |
|
| 287 | + ->where('sosa_mot.majs_user_id', '=', $this->user->id()); |
|
| 288 | + }) |
|
| 289 | + ->where('sosa.majs_gedcom_id', '=', $this->tree->id()) |
|
| 290 | + ->where('sosa.majs_user_id', '=', $this->user->id()) |
|
| 291 | + ->where(function (Builder $query): void { |
|
| 292 | + $query->whereNull('sosa_fat.majs_i_id') |
|
| 293 | + ->orWhereNull('sosa_mot.majs_i_id'); |
|
| 294 | + }); |
|
| 295 | + |
|
| 296 | + /* Identify nodes in the generations with ancestors who are also in the same generation. |
|
| 297 | 297 | * This is the vertical/generational collapse that will reduce the number or roots. |
| 298 | 298 | */ |
| 299 | - $non_roots_ancestors = DB::table('maj_sosa AS sosa') |
|
| 300 | - ->select(['sosa.majs_gen', 'sosa.majs_gedcom_id', 'sosa.majs_user_id', 'sosa.majs_sosa']) |
|
| 301 | - ->selectRaw('MAX(' . $table_prefix . 'sosa_anc.majs_sosa) - MIN(' . $table_prefix . 'sosa_anc.majs_sosa)' . |
|
| 302 | - ' AS full_ancestors') |
|
| 303 | - ->join('maj_sosa AS sosa_anc', function (JoinClause $join) use ($table_prefix): void { |
|
| 304 | - $join->on('sosa.majs_gen', '<', 'sosa_anc.majs_gen') |
|
| 305 | - ->whereRaw('FLOOR(' . $table_prefix . 'sosa_anc.majs_sosa / POWER(2, ' . |
|
| 306 | - $table_prefix . 'sosa_anc.majs_gen - ' . $table_prefix . 'sosa.majs_gen)) = ' . |
|
| 307 | - $table_prefix . 'sosa.majs_sosa') |
|
| 308 | - ->where('sosa_anc.majs_gedcom_id', '=', $this->tree->id()) |
|
| 309 | - ->where('sosa_anc.majs_user_id', '=', $this->user->id()); |
|
| 310 | - }) |
|
| 311 | - ->where('sosa.majs_gedcom_id', '=', $this->tree->id()) |
|
| 312 | - ->where('sosa.majs_user_id', '=', $this->user->id()) |
|
| 313 | - ->whereIn('sosa_anc.majs_i_id', function (Builder $query) use ($table_prefix): void { |
|
| 314 | - $query->from('maj_sosa AS sosa_gen') |
|
| 315 | - ->select('sosa_gen.majs_i_id')->distinct() |
|
| 316 | - ->where('sosa_gen.majs_gedcom_id', '=', $this->tree->id()) |
|
| 317 | - ->where('sosa_gen.majs_user_id', '=', $this->user->id()) |
|
| 318 | - ->whereRaw($table_prefix . 'sosa_gen.majs_gen = ' . $table_prefix . 'sosa.majs_gen'); |
|
| 319 | - }) |
|
| 320 | - ->groupBy(['sosa.majs_gen', 'sosa.majs_gedcom_id', 'sosa.majs_user_id', |
|
| 321 | - 'sosa.majs_sosa', 'sosa.majs_i_id']); |
|
| 322 | - |
|
| 323 | - /* Compute the contribution of the nodes in the generation, |
|
| 299 | + $non_roots_ancestors = DB::table('maj_sosa AS sosa') |
|
| 300 | + ->select(['sosa.majs_gen', 'sosa.majs_gedcom_id', 'sosa.majs_user_id', 'sosa.majs_sosa']) |
|
| 301 | + ->selectRaw('MAX(' . $table_prefix . 'sosa_anc.majs_sosa) - MIN(' . $table_prefix . 'sosa_anc.majs_sosa)' . |
|
| 302 | + ' AS full_ancestors') |
|
| 303 | + ->join('maj_sosa AS sosa_anc', function (JoinClause $join) use ($table_prefix): void { |
|
| 304 | + $join->on('sosa.majs_gen', '<', 'sosa_anc.majs_gen') |
|
| 305 | + ->whereRaw('FLOOR(' . $table_prefix . 'sosa_anc.majs_sosa / POWER(2, ' . |
|
| 306 | + $table_prefix . 'sosa_anc.majs_gen - ' . $table_prefix . 'sosa.majs_gen)) = ' . |
|
| 307 | + $table_prefix . 'sosa.majs_sosa') |
|
| 308 | + ->where('sosa_anc.majs_gedcom_id', '=', $this->tree->id()) |
|
| 309 | + ->where('sosa_anc.majs_user_id', '=', $this->user->id()); |
|
| 310 | + }) |
|
| 311 | + ->where('sosa.majs_gedcom_id', '=', $this->tree->id()) |
|
| 312 | + ->where('sosa.majs_user_id', '=', $this->user->id()) |
|
| 313 | + ->whereIn('sosa_anc.majs_i_id', function (Builder $query) use ($table_prefix): void { |
|
| 314 | + $query->from('maj_sosa AS sosa_gen') |
|
| 315 | + ->select('sosa_gen.majs_i_id')->distinct() |
|
| 316 | + ->where('sosa_gen.majs_gedcom_id', '=', $this->tree->id()) |
|
| 317 | + ->where('sosa_gen.majs_user_id', '=', $this->user->id()) |
|
| 318 | + ->whereRaw($table_prefix . 'sosa_gen.majs_gen = ' . $table_prefix . 'sosa.majs_gen'); |
|
| 319 | + }) |
|
| 320 | + ->groupBy(['sosa.majs_gen', 'sosa.majs_gedcom_id', 'sosa.majs_user_id', |
|
| 321 | + 'sosa.majs_sosa', 'sosa.majs_i_id']); |
|
| 322 | + |
|
| 323 | + /* Compute the contribution of the nodes in the generation, |
|
| 324 | 324 | * excluding the nodes with ancestors in the same generation. |
| 325 | 325 | * Nodes with a parent missing are not excluded to cater for the missing one. |
| 326 | 326 | */ |
| 327 | - $known_ancestors_contributions = DB::table('maj_sosa AS sosa') |
|
| 328 | - ->select(['sosa.majs_gen AS gen', 'sosa.majs_gedcom_id', 'sosa.majs_user_id']) |
|
| 329 | - ->addSelect(['sosa.majs_i_id', 'sosa.majs_gen']) |
|
| 330 | - ->selectRaw('1 AS contrib') |
|
| 331 | - ->leftJoinSub($non_roots_ancestors, 'nonroot', function (JoinClause $join): void { |
|
| 332 | - $join->on('sosa.majs_gen', '=', 'nonroot.majs_gen') |
|
| 333 | - ->on('sosa.majs_sosa', '=', 'nonroot.majs_sosa') |
|
| 334 | - ->where('nonroot.full_ancestors', '>', 0) |
|
| 335 | - ->where('nonroot.majs_gedcom_id', '=', $this->tree->id()) |
|
| 336 | - ->where('nonroot.majs_user_id', '=', $this->user->id()); |
|
| 337 | - }) |
|
| 338 | - ->where('sosa.majs_gedcom_id', '=', $this->tree->id()) |
|
| 339 | - ->where('sosa.majs_user_id', '=', $this->user->id()) |
|
| 340 | - ->whereNull('nonroot.majs_sosa'); |
|
| 341 | - |
|
| 342 | - /* Aggregate both queries, and calculate the sum of contributions by generation roots. |
|
| 327 | + $known_ancestors_contributions = DB::table('maj_sosa AS sosa') |
|
| 328 | + ->select(['sosa.majs_gen AS gen', 'sosa.majs_gedcom_id', 'sosa.majs_user_id']) |
|
| 329 | + ->addSelect(['sosa.majs_i_id', 'sosa.majs_gen']) |
|
| 330 | + ->selectRaw('1 AS contrib') |
|
| 331 | + ->leftJoinSub($non_roots_ancestors, 'nonroot', function (JoinClause $join): void { |
|
| 332 | + $join->on('sosa.majs_gen', '=', 'nonroot.majs_gen') |
|
| 333 | + ->on('sosa.majs_sosa', '=', 'nonroot.majs_sosa') |
|
| 334 | + ->where('nonroot.full_ancestors', '>', 0) |
|
| 335 | + ->where('nonroot.majs_gedcom_id', '=', $this->tree->id()) |
|
| 336 | + ->where('nonroot.majs_user_id', '=', $this->user->id()); |
|
| 337 | + }) |
|
| 338 | + ->where('sosa.majs_gedcom_id', '=', $this->tree->id()) |
|
| 339 | + ->where('sosa.majs_user_id', '=', $this->user->id()) |
|
| 340 | + ->whereNull('nonroot.majs_sosa'); |
|
| 341 | + |
|
| 342 | + /* Aggregate both queries, and calculate the sum of contributions by generation roots. |
|
| 343 | 343 | * Exclude as well nodes that already appear in lower generations, as their branche has already been reduced. |
| 344 | 344 | */ |
| 345 | - $ancestors_contributions_sum = DB::connection()->query() |
|
| 346 | - ->fromSub($root_ancestors_contributions->unionAll($known_ancestors_contributions), 'sosa_contribs') |
|
| 347 | - ->select(['sosa_contribs.gen', 'sosa_contribs.majs_gedcom_id', 'sosa_contribs.majs_user_id']) |
|
| 348 | - ->addSelect(['sosa_contribs.majs_i_id', 'sosa_contribs.contrib']) |
|
| 349 | - ->selectRaw('COUNT(' . $table_prefix . 'sosa_contribs.majs_i_id) * ' . |
|
| 350 | - $table_prefix . 'sosa_contribs.contrib AS totalContrib') |
|
| 351 | - ->leftJoin('maj_sosa AS sosa_low', function (JoinClause $join): void { |
|
| 352 | - $join->on('sosa_low.majs_gen', '<', 'sosa_contribs.majs_gen') |
|
| 353 | - ->on('sosa_low.majs_i_id', '=', 'sosa_contribs.majs_i_id') |
|
| 354 | - ->where('sosa_low.majs_gedcom_id', '=', $this->tree->id()) |
|
| 355 | - ->where('sosa_low.majs_user_id', '=', $this->user->id()); |
|
| 356 | - }) |
|
| 357 | - ->whereNull('sosa_low.majs_sosa') |
|
| 358 | - ->groupBy(['sosa_contribs.gen', 'sosa_contribs.majs_gedcom_id', 'sosa_contribs.majs_user_id', |
|
| 359 | - 'sosa_contribs.majs_i_id', 'sosa_contribs.contrib']); |
|
| 360 | - |
|
| 361 | - // Aggregate all generation roots to compute root and generation pedigree collapse |
|
| 362 | - $pedi_collapse_coll = DB::connection()->query()->fromSub($ancestors_contributions_sum, 'sosa_contribs_sum') |
|
| 363 | - ->select(['gen'])->selectRaw('SUM(contrib), SUM(totalContrib)') |
|
| 364 | - ->selectRaw('1 - SUM(contrib) / SUM(totalContrib) AS pedi_collapse_roots') // Roots/horizontal collapse |
|
| 365 | - ->selectRaw('1 - SUM(totalContrib) / POWER ( 2, gen - 1) AS pedi_collapse_xgen') // Crossgeneration collapse |
|
| 366 | - ->groupBy(['gen', 'majs_gedcom_id', 'majs_user_id']) |
|
| 367 | - ->orderBy('gen') |
|
| 368 | - ->get(); |
|
| 369 | - |
|
| 370 | - $pedi_collapse_by_gen = []; |
|
| 371 | - foreach ($pedi_collapse_coll as $collapse_gen) { |
|
| 372 | - $pedi_collapse_by_gen[(int) $collapse_gen->gen] = array( |
|
| 373 | - 'pedi_collapse_roots' => (float) $collapse_gen->pedi_collapse_roots, |
|
| 374 | - 'pedi_collapse_xgen' => (float) $collapse_gen->pedi_collapse_xgen |
|
| 375 | - ); |
|
| 376 | - } |
|
| 377 | - return $pedi_collapse_by_gen; |
|
| 378 | - } |
|
| 379 | - |
|
| 380 | - /** |
|
| 381 | - * Return a Collection of the mean generation depth and deviation for all Sosa ancestors at a given generation. |
|
| 382 | - * Sosa 1 is of generation 1. |
|
| 383 | - * |
|
| 384 | - * Mean generation depth and deviation are calculated based on the works of Marie-Héléne Cazes and Pierre Cazes, |
|
| 385 | - * published in Population (French Edition), Vol. 51, No. 1 (Jan. - Feb., 1996), pp. 117-140 |
|
| 386 | - * http://kintip.net/index.php?option=com_jdownloads&task=download.send&id=9&catid=4&m=0 |
|
| 387 | - * |
|
| 388 | - * Format: |
|
| 389 | - * - key : sosa number of the ancestor |
|
| 390 | - * - values: |
|
| 391 | - * - root_ancestor_id : ID of the ancestor |
|
| 392 | - * - mean_gen_depth : Mean generation depth |
|
| 393 | - * - stddev_gen_depth : Standard deviation of generation depth |
|
| 394 | - * |
|
| 395 | - * @param int $gen Sosa generation |
|
| 396 | - * @return Collection<int, \stdClass> |
|
| 397 | - */ |
|
| 398 | - public function generationDepthStatsAtGeneration(int $gen): Collection |
|
| 399 | - { |
|
| 400 | - $table_prefix = DB::connection()->getTablePrefix(); |
|
| 401 | - $missing_ancestors_by_gen = DB::table('maj_sosa AS sosa') |
|
| 402 | - ->selectRaw($table_prefix . 'sosa.majs_gen - ? AS majs_gen_norm', [$gen]) |
|
| 403 | - ->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 |
|
| 404 | - ->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 |
|
| 405 | - ->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 |
|
| 406 | - ->leftJoin('maj_sosa AS sosa_fat', function (JoinClause $join) use ($table_prefix): void { |
|
| 407 | - // Link to sosa's father |
|
| 408 | - $join->whereRaw($table_prefix . 'sosa_fat.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa') |
|
| 409 | - ->where('sosa_fat.majs_gedcom_id', '=', $this->tree->id()) |
|
| 410 | - ->where('sosa_fat.majs_user_id', '=', $this->user->id()); |
|
| 411 | - }) |
|
| 412 | - ->leftJoin('maj_sosa AS sosa_mot', function (JoinClause $join) use ($table_prefix): void { |
|
| 413 | - // Link to sosa's mother |
|
| 414 | - $join->whereRaw($table_prefix . 'sosa_mot.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa + 1') |
|
| 415 | - ->where('sosa_mot.majs_gedcom_id', '=', $this->tree->id()) |
|
| 416 | - ->where('sosa_mot.majs_user_id', '=', $this->user->id()); |
|
| 417 | - }) |
|
| 418 | - ->where('sosa.majs_gedcom_id', '=', $this->tree->id()) |
|
| 419 | - ->where('sosa.majs_user_id', '=', $this->user->id()) |
|
| 420 | - ->where('sosa.majs_gen', '>=', $gen) |
|
| 421 | - ->where(function (Builder $query): void { |
|
| 422 | - $query->whereNull('sosa_fat.majs_i_id') |
|
| 423 | - ->orWhereNull('sosa_mot.majs_i_id'); |
|
| 424 | - }) |
|
| 425 | - ->groupBy(['sosa.majs_gen', 'root_ancestor']); |
|
| 426 | - |
|
| 427 | - return DB::table('maj_sosa AS sosa_list') |
|
| 428 | - ->select(['stats_by_gen.root_ancestor AS root_ancestor_sosa', 'sosa_list.majs_i_id as root_ancestor_id']) |
|
| 429 | - ->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 |
|
| 430 | - ->selectRaw(' SQRT(' . |
|
| 431 | - ' 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 |
|
| 432 | - ' - 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 |
|
| 433 | - ' ) AS stddev_gen_depth') |
|
| 434 | - ->joinSub($missing_ancestors_by_gen, 'stats_by_gen', function (JoinClause $join): void { |
|
| 435 | - $join->on('sosa_list.majs_sosa', '=', 'stats_by_gen.root_ancestor') |
|
| 436 | - ->where('sosa_list.majs_gedcom_id', '=', $this->tree->id()) |
|
| 437 | - ->where('sosa_list.majs_user_id', '=', $this->user->id()); |
|
| 438 | - }) |
|
| 439 | - ->groupBy(['stats_by_gen.root_ancestor', 'sosa_list.majs_i_id']) |
|
| 440 | - ->orderBy('stats_by_gen.root_ancestor') |
|
| 441 | - ->get()->keyBy('root_ancestor_sosa'); |
|
| 442 | - } |
|
| 443 | - |
|
| 444 | - /** |
|
| 445 | - * Return a collection of the most duplicated root Sosa ancestors. |
|
| 446 | - * The number of ancestors to return is limited by the parameter $limit. |
|
| 447 | - * If several individuals are tied when reaching the limit, none of them are returned, |
|
| 448 | - * which means that there can be less individuals returned than requested. |
|
| 449 | - * |
|
| 450 | - * Format: |
|
| 451 | - * - value: |
|
| 452 | - * - sosa_i_id : sosa individual |
|
| 453 | - * - sosa_count: number of duplications of the ancestor (e.g. 3 if it appears 3 times) |
|
| 454 | - * |
|
| 455 | - * @param int $limit |
|
| 456 | - * @return Collection<\stdClass> |
|
| 457 | - */ |
|
| 458 | - public function topMultipleAncestorsWithNoTies(int $limit): Collection |
|
| 459 | - { |
|
| 460 | - $table_prefix = DB::connection()->getTablePrefix(); |
|
| 461 | - $multiple_ancestors = DB::table('maj_sosa AS sosa') |
|
| 462 | - ->select('sosa.majs_i_id AS sosa_i_id') |
|
| 463 | - ->selectRaw('COUNT(' . $table_prefix . 'sosa.majs_sosa) AS sosa_count') |
|
| 464 | - ->leftJoin('maj_sosa AS sosa_fat', function (JoinClause $join) use ($table_prefix): void { |
|
| 465 | - // Link to sosa's father |
|
| 466 | - $join->whereRaw($table_prefix . 'sosa_fat.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa') |
|
| 467 | - ->where('sosa_fat.majs_gedcom_id', '=', $this->tree->id()) |
|
| 468 | - ->where('sosa_fat.majs_user_id', '=', $this->user->id()); |
|
| 469 | - }) |
|
| 470 | - ->leftJoin('maj_sosa AS sosa_mot', function (JoinClause $join) use ($table_prefix): void { |
|
| 471 | - // Link to sosa's mother |
|
| 472 | - $join->whereRaw($table_prefix . 'sosa_mot.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa + 1') |
|
| 473 | - ->where('sosa_mot.majs_gedcom_id', '=', $this->tree->id()) |
|
| 474 | - ->where('sosa_mot.majs_user_id', '=', $this->user->id()); |
|
| 475 | - }) |
|
| 476 | - ->where('sosa.majs_gedcom_id', '=', $this->tree->id()) |
|
| 477 | - ->where('sosa.majs_user_id', '=', $this->user->id()) |
|
| 478 | - ->whereNull('sosa_fat.majs_sosa') // We keep only root individuals, i.e. those with no father or mother |
|
| 479 | - ->whereNull('sosa_mot.majs_sosa') |
|
| 480 | - ->groupBy('sosa.majs_i_id') |
|
| 481 | - ->havingRaw('COUNT(' . $table_prefix . 'sosa.majs_sosa) > 1') // Limit to the duplicate sosas. |
|
| 482 | - ->orderByRaw('COUNT(' . $table_prefix . 'sosa.majs_sosa) DESC, MIN(' . $table_prefix . 'sosa.majs_sosa) ASC') //@phpcs:ignore Generic.Files.LineLength.TooLong |
|
| 483 | - ->limit($limit + 1) // We want to select one more than required, for ties |
|
| 484 | - ->get(); |
|
| 485 | - |
|
| 486 | - if ($multiple_ancestors->count() > $limit) { |
|
| 487 | - $last_count = $multiple_ancestors->last()->sosa_count; |
|
| 488 | - $multiple_ancestors = $multiple_ancestors->reject(function (stdClass $element) use ($last_count): bool { |
|
| 489 | - return $element->sosa_count == $last_count; |
|
| 490 | - }); |
|
| 491 | - } |
|
| 492 | - return $multiple_ancestors; |
|
| 493 | - } |
|
| 494 | - |
|
| 495 | - /** |
|
| 496 | - * Return a computed array of statistics about the dispersion of ancestors across the ancestors |
|
| 497 | - * at a specified generation. |
|
| 498 | - * |
|
| 499 | - * Format: |
|
| 500 | - * - key : rank of the ancestor in generation G for which exclusive ancestors have been found |
|
| 501 | - * For instance 3 represent the maternal grand father |
|
| 502 | - * 0 is used for shared ancestors |
|
| 503 | - * - values: number of ancestors exclusively in the ancestors of the ancestor in key |
|
| 504 | - * |
|
| 505 | - * For instance a result at generation 3 could be : |
|
| 506 | - * array ( 0 => 12 -> 12 ancestors are shared by the grand-parents |
|
| 507 | - * 1 => 32 -> 32 ancestors are exclusive to the paternal grand-father |
|
| 508 | - * 2 => 25 -> 25 ancestors are exclusive to the paternal grand-mother |
|
| 509 | - * 3 => 12 -> 12 ancestors are exclusive to the maternal grand-father |
|
| 510 | - * 4 => 30 -> 30 ancestors are exclusive to the maternal grand-mother |
|
| 511 | - * ) |
|
| 512 | - * |
|
| 513 | - * @param int $gen |
|
| 514 | - * @return Collection<int, int> |
|
| 515 | - */ |
|
| 516 | - public function ancestorsDispersionForGeneration(int $gen): Collection |
|
| 517 | - { |
|
| 518 | - $ancestors_branches = DB::table('maj_sosa') |
|
| 519 | - ->select('majs_i_id AS i_id') |
|
| 520 | - ->selectRaw('FLOOR(majs_sosa / POW(2, (majs_gen - ?))) - POW(2, ? -1) + 1 AS branch', [$gen, $gen]) |
|
| 521 | - ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
| 522 | - ->where('majs_user_id', '=', $this->user->id()) |
|
| 523 | - ->where('majs_gen', '>=', $gen) |
|
| 524 | - ->groupBy('majs_i_id', 'branch'); |
|
| 525 | - |
|
| 526 | - |
|
| 527 | - $consolidated_ancestors_branches = DB::table('maj_sosa') |
|
| 528 | - ->fromSub($ancestors_branches, 'indi_branch') |
|
| 529 | - ->select('i_id') |
|
| 530 | - ->selectRaw('CASE WHEN COUNT(branch) > 1 THEN 0 ELSE MIN(branch) END AS branches') |
|
| 531 | - ->groupBy('i_id'); |
|
| 532 | - |
|
| 533 | - return DB::table('maj_sosa') |
|
| 534 | - ->fromSub($consolidated_ancestors_branches, 'indi_branch_consolidated') |
|
| 535 | - ->select('branches') |
|
| 536 | - ->selectRaw('COUNT(i_id) AS count_indi') |
|
| 537 | - ->groupBy('branches') |
|
| 538 | - ->get()->pluck('count_indi', 'branches'); |
|
| 539 | - } |
|
| 345 | + $ancestors_contributions_sum = DB::connection()->query() |
|
| 346 | + ->fromSub($root_ancestors_contributions->unionAll($known_ancestors_contributions), 'sosa_contribs') |
|
| 347 | + ->select(['sosa_contribs.gen', 'sosa_contribs.majs_gedcom_id', 'sosa_contribs.majs_user_id']) |
|
| 348 | + ->addSelect(['sosa_contribs.majs_i_id', 'sosa_contribs.contrib']) |
|
| 349 | + ->selectRaw('COUNT(' . $table_prefix . 'sosa_contribs.majs_i_id) * ' . |
|
| 350 | + $table_prefix . 'sosa_contribs.contrib AS totalContrib') |
|
| 351 | + ->leftJoin('maj_sosa AS sosa_low', function (JoinClause $join): void { |
|
| 352 | + $join->on('sosa_low.majs_gen', '<', 'sosa_contribs.majs_gen') |
|
| 353 | + ->on('sosa_low.majs_i_id', '=', 'sosa_contribs.majs_i_id') |
|
| 354 | + ->where('sosa_low.majs_gedcom_id', '=', $this->tree->id()) |
|
| 355 | + ->where('sosa_low.majs_user_id', '=', $this->user->id()); |
|
| 356 | + }) |
|
| 357 | + ->whereNull('sosa_low.majs_sosa') |
|
| 358 | + ->groupBy(['sosa_contribs.gen', 'sosa_contribs.majs_gedcom_id', 'sosa_contribs.majs_user_id', |
|
| 359 | + 'sosa_contribs.majs_i_id', 'sosa_contribs.contrib']); |
|
| 360 | + |
|
| 361 | + // Aggregate all generation roots to compute root and generation pedigree collapse |
|
| 362 | + $pedi_collapse_coll = DB::connection()->query()->fromSub($ancestors_contributions_sum, 'sosa_contribs_sum') |
|
| 363 | + ->select(['gen'])->selectRaw('SUM(contrib), SUM(totalContrib)') |
|
| 364 | + ->selectRaw('1 - SUM(contrib) / SUM(totalContrib) AS pedi_collapse_roots') // Roots/horizontal collapse |
|
| 365 | + ->selectRaw('1 - SUM(totalContrib) / POWER ( 2, gen - 1) AS pedi_collapse_xgen') // Crossgeneration collapse |
|
| 366 | + ->groupBy(['gen', 'majs_gedcom_id', 'majs_user_id']) |
|
| 367 | + ->orderBy('gen') |
|
| 368 | + ->get(); |
|
| 369 | + |
|
| 370 | + $pedi_collapse_by_gen = []; |
|
| 371 | + foreach ($pedi_collapse_coll as $collapse_gen) { |
|
| 372 | + $pedi_collapse_by_gen[(int) $collapse_gen->gen] = array( |
|
| 373 | + 'pedi_collapse_roots' => (float) $collapse_gen->pedi_collapse_roots, |
|
| 374 | + 'pedi_collapse_xgen' => (float) $collapse_gen->pedi_collapse_xgen |
|
| 375 | + ); |
|
| 376 | + } |
|
| 377 | + return $pedi_collapse_by_gen; |
|
| 378 | + } |
|
| 379 | + |
|
| 380 | + /** |
|
| 381 | + * Return a Collection of the mean generation depth and deviation for all Sosa ancestors at a given generation. |
|
| 382 | + * Sosa 1 is of generation 1. |
|
| 383 | + * |
|
| 384 | + * Mean generation depth and deviation are calculated based on the works of Marie-Héléne Cazes and Pierre Cazes, |
|
| 385 | + * published in Population (French Edition), Vol. 51, No. 1 (Jan. - Feb., 1996), pp. 117-140 |
|
| 386 | + * http://kintip.net/index.php?option=com_jdownloads&task=download.send&id=9&catid=4&m=0 |
|
| 387 | + * |
|
| 388 | + * Format: |
|
| 389 | + * - key : sosa number of the ancestor |
|
| 390 | + * - values: |
|
| 391 | + * - root_ancestor_id : ID of the ancestor |
|
| 392 | + * - mean_gen_depth : Mean generation depth |
|
| 393 | + * - stddev_gen_depth : Standard deviation of generation depth |
|
| 394 | + * |
|
| 395 | + * @param int $gen Sosa generation |
|
| 396 | + * @return Collection<int, \stdClass> |
|
| 397 | + */ |
|
| 398 | + public function generationDepthStatsAtGeneration(int $gen): Collection |
|
| 399 | + { |
|
| 400 | + $table_prefix = DB::connection()->getTablePrefix(); |
|
| 401 | + $missing_ancestors_by_gen = DB::table('maj_sosa AS sosa') |
|
| 402 | + ->selectRaw($table_prefix . 'sosa.majs_gen - ? AS majs_gen_norm', [$gen]) |
|
| 403 | + ->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 |
|
| 404 | + ->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 |
|
| 405 | + ->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 |
|
| 406 | + ->leftJoin('maj_sosa AS sosa_fat', function (JoinClause $join) use ($table_prefix): void { |
|
| 407 | + // Link to sosa's father |
|
| 408 | + $join->whereRaw($table_prefix . 'sosa_fat.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa') |
|
| 409 | + ->where('sosa_fat.majs_gedcom_id', '=', $this->tree->id()) |
|
| 410 | + ->where('sosa_fat.majs_user_id', '=', $this->user->id()); |
|
| 411 | + }) |
|
| 412 | + ->leftJoin('maj_sosa AS sosa_mot', function (JoinClause $join) use ($table_prefix): void { |
|
| 413 | + // Link to sosa's mother |
|
| 414 | + $join->whereRaw($table_prefix . 'sosa_mot.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa + 1') |
|
| 415 | + ->where('sosa_mot.majs_gedcom_id', '=', $this->tree->id()) |
|
| 416 | + ->where('sosa_mot.majs_user_id', '=', $this->user->id()); |
|
| 417 | + }) |
|
| 418 | + ->where('sosa.majs_gedcom_id', '=', $this->tree->id()) |
|
| 419 | + ->where('sosa.majs_user_id', '=', $this->user->id()) |
|
| 420 | + ->where('sosa.majs_gen', '>=', $gen) |
|
| 421 | + ->where(function (Builder $query): void { |
|
| 422 | + $query->whereNull('sosa_fat.majs_i_id') |
|
| 423 | + ->orWhereNull('sosa_mot.majs_i_id'); |
|
| 424 | + }) |
|
| 425 | + ->groupBy(['sosa.majs_gen', 'root_ancestor']); |
|
| 426 | + |
|
| 427 | + return DB::table('maj_sosa AS sosa_list') |
|
| 428 | + ->select(['stats_by_gen.root_ancestor AS root_ancestor_sosa', 'sosa_list.majs_i_id as root_ancestor_id']) |
|
| 429 | + ->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 |
|
| 430 | + ->selectRaw(' SQRT(' . |
|
| 431 | + ' 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 |
|
| 432 | + ' - 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 |
|
| 433 | + ' ) AS stddev_gen_depth') |
|
| 434 | + ->joinSub($missing_ancestors_by_gen, 'stats_by_gen', function (JoinClause $join): void { |
|
| 435 | + $join->on('sosa_list.majs_sosa', '=', 'stats_by_gen.root_ancestor') |
|
| 436 | + ->where('sosa_list.majs_gedcom_id', '=', $this->tree->id()) |
|
| 437 | + ->where('sosa_list.majs_user_id', '=', $this->user->id()); |
|
| 438 | + }) |
|
| 439 | + ->groupBy(['stats_by_gen.root_ancestor', 'sosa_list.majs_i_id']) |
|
| 440 | + ->orderBy('stats_by_gen.root_ancestor') |
|
| 441 | + ->get()->keyBy('root_ancestor_sosa'); |
|
| 442 | + } |
|
| 443 | + |
|
| 444 | + /** |
|
| 445 | + * Return a collection of the most duplicated root Sosa ancestors. |
|
| 446 | + * The number of ancestors to return is limited by the parameter $limit. |
|
| 447 | + * If several individuals are tied when reaching the limit, none of them are returned, |
|
| 448 | + * which means that there can be less individuals returned than requested. |
|
| 449 | + * |
|
| 450 | + * Format: |
|
| 451 | + * - value: |
|
| 452 | + * - sosa_i_id : sosa individual |
|
| 453 | + * - sosa_count: number of duplications of the ancestor (e.g. 3 if it appears 3 times) |
|
| 454 | + * |
|
| 455 | + * @param int $limit |
|
| 456 | + * @return Collection<\stdClass> |
|
| 457 | + */ |
|
| 458 | + public function topMultipleAncestorsWithNoTies(int $limit): Collection |
|
| 459 | + { |
|
| 460 | + $table_prefix = DB::connection()->getTablePrefix(); |
|
| 461 | + $multiple_ancestors = DB::table('maj_sosa AS sosa') |
|
| 462 | + ->select('sosa.majs_i_id AS sosa_i_id') |
|
| 463 | + ->selectRaw('COUNT(' . $table_prefix . 'sosa.majs_sosa) AS sosa_count') |
|
| 464 | + ->leftJoin('maj_sosa AS sosa_fat', function (JoinClause $join) use ($table_prefix): void { |
|
| 465 | + // Link to sosa's father |
|
| 466 | + $join->whereRaw($table_prefix . 'sosa_fat.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa') |
|
| 467 | + ->where('sosa_fat.majs_gedcom_id', '=', $this->tree->id()) |
|
| 468 | + ->where('sosa_fat.majs_user_id', '=', $this->user->id()); |
|
| 469 | + }) |
|
| 470 | + ->leftJoin('maj_sosa AS sosa_mot', function (JoinClause $join) use ($table_prefix): void { |
|
| 471 | + // Link to sosa's mother |
|
| 472 | + $join->whereRaw($table_prefix . 'sosa_mot.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa + 1') |
|
| 473 | + ->where('sosa_mot.majs_gedcom_id', '=', $this->tree->id()) |
|
| 474 | + ->where('sosa_mot.majs_user_id', '=', $this->user->id()); |
|
| 475 | + }) |
|
| 476 | + ->where('sosa.majs_gedcom_id', '=', $this->tree->id()) |
|
| 477 | + ->where('sosa.majs_user_id', '=', $this->user->id()) |
|
| 478 | + ->whereNull('sosa_fat.majs_sosa') // We keep only root individuals, i.e. those with no father or mother |
|
| 479 | + ->whereNull('sosa_mot.majs_sosa') |
|
| 480 | + ->groupBy('sosa.majs_i_id') |
|
| 481 | + ->havingRaw('COUNT(' . $table_prefix . 'sosa.majs_sosa) > 1') // Limit to the duplicate sosas. |
|
| 482 | + ->orderByRaw('COUNT(' . $table_prefix . 'sosa.majs_sosa) DESC, MIN(' . $table_prefix . 'sosa.majs_sosa) ASC') //@phpcs:ignore Generic.Files.LineLength.TooLong |
|
| 483 | + ->limit($limit + 1) // We want to select one more than required, for ties |
|
| 484 | + ->get(); |
|
| 485 | + |
|
| 486 | + if ($multiple_ancestors->count() > $limit) { |
|
| 487 | + $last_count = $multiple_ancestors->last()->sosa_count; |
|
| 488 | + $multiple_ancestors = $multiple_ancestors->reject(function (stdClass $element) use ($last_count): bool { |
|
| 489 | + return $element->sosa_count == $last_count; |
|
| 490 | + }); |
|
| 491 | + } |
|
| 492 | + return $multiple_ancestors; |
|
| 493 | + } |
|
| 494 | + |
|
| 495 | + /** |
|
| 496 | + * Return a computed array of statistics about the dispersion of ancestors across the ancestors |
|
| 497 | + * at a specified generation. |
|
| 498 | + * |
|
| 499 | + * Format: |
|
| 500 | + * - key : rank of the ancestor in generation G for which exclusive ancestors have been found |
|
| 501 | + * For instance 3 represent the maternal grand father |
|
| 502 | + * 0 is used for shared ancestors |
|
| 503 | + * - values: number of ancestors exclusively in the ancestors of the ancestor in key |
|
| 504 | + * |
|
| 505 | + * For instance a result at generation 3 could be : |
|
| 506 | + * array ( 0 => 12 -> 12 ancestors are shared by the grand-parents |
|
| 507 | + * 1 => 32 -> 32 ancestors are exclusive to the paternal grand-father |
|
| 508 | + * 2 => 25 -> 25 ancestors are exclusive to the paternal grand-mother |
|
| 509 | + * 3 => 12 -> 12 ancestors are exclusive to the maternal grand-father |
|
| 510 | + * 4 => 30 -> 30 ancestors are exclusive to the maternal grand-mother |
|
| 511 | + * ) |
|
| 512 | + * |
|
| 513 | + * @param int $gen |
|
| 514 | + * @return Collection<int, int> |
|
| 515 | + */ |
|
| 516 | + public function ancestorsDispersionForGeneration(int $gen): Collection |
|
| 517 | + { |
|
| 518 | + $ancestors_branches = DB::table('maj_sosa') |
|
| 519 | + ->select('majs_i_id AS i_id') |
|
| 520 | + ->selectRaw('FLOOR(majs_sosa / POW(2, (majs_gen - ?))) - POW(2, ? -1) + 1 AS branch', [$gen, $gen]) |
|
| 521 | + ->where('majs_gedcom_id', '=', $this->tree->id()) |
|
| 522 | + ->where('majs_user_id', '=', $this->user->id()) |
|
| 523 | + ->where('majs_gen', '>=', $gen) |
|
| 524 | + ->groupBy('majs_i_id', 'branch'); |
|
| 525 | + |
|
| 526 | + |
|
| 527 | + $consolidated_ancestors_branches = DB::table('maj_sosa') |
|
| 528 | + ->fromSub($ancestors_branches, 'indi_branch') |
|
| 529 | + ->select('i_id') |
|
| 530 | + ->selectRaw('CASE WHEN COUNT(branch) > 1 THEN 0 ELSE MIN(branch) END AS branches') |
|
| 531 | + ->groupBy('i_id'); |
|
| 532 | + |
|
| 533 | + return DB::table('maj_sosa') |
|
| 534 | + ->fromSub($consolidated_ancestors_branches, 'indi_branch_consolidated') |
|
| 535 | + ->select('branches') |
|
| 536 | + ->selectRaw('COUNT(i_id) AS count_indi') |
|
| 537 | + ->groupBy('branches') |
|
| 538 | + ->get()->pluck('count_indi', 'branches'); |
|
| 539 | + } |
|
| 540 | 540 | } |
@@ -72,7 +72,7 @@ discard block |
||
| 72 | 72 | */ |
| 73 | 73 | public function maxGeneration(): int |
| 74 | 74 | { |
| 75 | - return (int) DB::table('maj_sosa') |
|
| 75 | + return (int)DB::table('maj_sosa') |
|
| 76 | 76 | ->where('majs_gedcom_id', '=', $this->tree->id()) |
| 77 | 77 | ->where('majs_user_id', '=', $this->user->id()) |
| 78 | 78 | ->max('majs_gen'); |
@@ -149,8 +149,7 @@ discard block |
||
| 149 | 149 | ->selectRaw('SUM(majs_gen * majs_gen) AS sum_x2') |
| 150 | 150 | ->get()->first(); |
| 151 | 151 | |
| 152 | - return $row->n == 0 ? 0 : |
|
| 153 | - -($row->n * $row->sum_xy - $row->sum_x * $row->sum_y) / ($row->n * $row->sum_x2 - pow($row->sum_x, 2)); |
|
| 152 | + 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)); |
|
| 154 | 153 | } |
| 155 | 154 | |
| 156 | 155 | /** |
@@ -174,10 +173,10 @@ discard block |
||
| 174 | 173 | |
| 175 | 174 | $statistics_by_gen = []; |
| 176 | 175 | foreach ($stats_by_gen as $gen => $stats_gen) { |
| 177 | - $statistics_by_gen[(int) $stats_gen->gen] = array( |
|
| 178 | - 'sosaCount' => (int) $stats_gen->total_sosa, |
|
| 179 | - 'sosaTotalCount' => (int) $cumul_stats_by_gen[$gen]->total_cumul, |
|
| 180 | - 'diffSosaTotalCount' => (int) $cumul_stats_by_gen[$gen]->total_distinct_cumul, |
|
| 176 | + $statistics_by_gen[(int)$stats_gen->gen] = array( |
|
| 177 | + 'sosaCount' => (int)$stats_gen->total_sosa, |
|
| 178 | + 'sosaTotalCount' => (int)$cumul_stats_by_gen[$gen]->total_cumul, |
|
| 179 | + 'diffSosaTotalCount' => (int)$cumul_stats_by_gen[$gen]->total_distinct_cumul, |
|
| 181 | 180 | 'firstBirth' => $stats_gen->first_year, |
| 182 | 181 | 'firstEstimatedBirth' => $stats_gen->first_est_year, |
| 183 | 182 | 'lastBirth' => $stats_gen->last_year, |
@@ -221,7 +220,7 @@ discard block |
||
| 221 | 220 | ->where('majs_user_id', '=', $this->user->id()); |
| 222 | 221 | |
| 223 | 222 | return DB::table('maj_sosa') |
| 224 | - ->joinSub($list_gen, 'list_gen', function (JoinClause $join): void { |
|
| 223 | + ->joinSub($list_gen, 'list_gen', function(JoinClause $join): void { |
|
| 225 | 224 | $join->on('maj_sosa.majs_gen', '<=', 'list_gen.majs_gen') |
| 226 | 225 | ->where('majs_gedcom_id', '=', $this->tree->id()) |
| 227 | 226 | ->where('majs_user_id', '=', $this->user->id()); |
@@ -258,37 +257,37 @@ discard block |
||
| 258 | 257 | ->select(['list_gen.majs_gen AS gen', 'sosa.majs_gedcom_id', 'sosa.majs_user_id']) |
| 259 | 258 | ->addSelect(['sosa.majs_i_id', 'sosa.majs_gen']) |
| 260 | 259 | ->selectRaw( |
| 261 | - '(CASE ' . |
|
| 262 | - ' WHEN ' . $table_prefix . 'sosa_fat.majs_i_id IS NULL' . |
|
| 263 | - ' THEN POWER(2, ' . $table_prefix . 'list_gen.majs_gen - ' . $table_prefix . 'sosa.majs_gen - 1)' . |
|
| 264 | - ' ELSE 0 ' . |
|
| 265 | - ' END)' . |
|
| 266 | - ' + (CASE ' . |
|
| 267 | - ' WHEN ' . $table_prefix . 'sosa_mot.majs_i_id IS NULL' . |
|
| 268 | - ' THEN POWER(2, ' . $table_prefix . 'list_gen.majs_gen - ' . $table_prefix . 'sosa.majs_gen - 1)' . |
|
| 269 | - ' ELSE 0 ' . |
|
| 260 | + '(CASE '. |
|
| 261 | + ' WHEN '.$table_prefix.'sosa_fat.majs_i_id IS NULL'. |
|
| 262 | + ' THEN POWER(2, '.$table_prefix.'list_gen.majs_gen - '.$table_prefix.'sosa.majs_gen - 1)'. |
|
| 263 | + ' ELSE 0 '. |
|
| 264 | + ' END)'. |
|
| 265 | + ' + (CASE '. |
|
| 266 | + ' WHEN '.$table_prefix.'sosa_mot.majs_i_id IS NULL'. |
|
| 267 | + ' THEN POWER(2, '.$table_prefix.'list_gen.majs_gen - '.$table_prefix.'sosa.majs_gen - 1)'. |
|
| 268 | + ' ELSE 0 '. |
|
| 270 | 269 | ' END) contrib' |
| 271 | 270 | ) |
| 272 | - ->joinSub($list_gen, 'list_gen', function (JoinClause $join): void { |
|
| 271 | + ->joinSub($list_gen, 'list_gen', function(JoinClause $join): void { |
|
| 273 | 272 | $join->on('sosa.majs_gen', '<', 'list_gen.majs_gen') |
| 274 | 273 | ->where('majs_gedcom_id', '=', $this->tree->id()) |
| 275 | 274 | ->where('majs_user_id', '=', $this->user->id()); |
| 276 | 275 | }) |
| 277 | - ->leftJoin('maj_sosa AS sosa_fat', function (JoinClause $join) use ($table_prefix): void { |
|
| 276 | + ->leftJoin('maj_sosa AS sosa_fat', function(JoinClause $join) use ($table_prefix): void { |
|
| 278 | 277 | // Link to sosa's father |
| 279 | - $join->whereRaw($table_prefix . 'sosa_fat.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa') |
|
| 278 | + $join->whereRaw($table_prefix.'sosa_fat.majs_sosa = 2 * '.$table_prefix.'sosa.majs_sosa') |
|
| 280 | 279 | ->where('sosa_fat.majs_gedcom_id', '=', $this->tree->id()) |
| 281 | 280 | ->where('sosa_fat.majs_user_id', '=', $this->user->id()); |
| 282 | 281 | }) |
| 283 | - ->leftJoin('maj_sosa AS sosa_mot', function (JoinClause $join) use ($table_prefix): void { |
|
| 282 | + ->leftJoin('maj_sosa AS sosa_mot', function(JoinClause $join) use ($table_prefix): void { |
|
| 284 | 283 | // Link to sosa's mother |
| 285 | - $join->whereRaw($table_prefix . 'sosa_mot.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa + 1') |
|
| 284 | + $join->whereRaw($table_prefix.'sosa_mot.majs_sosa = 2 * '.$table_prefix.'sosa.majs_sosa + 1') |
|
| 286 | 285 | ->where('sosa_mot.majs_gedcom_id', '=', $this->tree->id()) |
| 287 | 286 | ->where('sosa_mot.majs_user_id', '=', $this->user->id()); |
| 288 | 287 | }) |
| 289 | 288 | ->where('sosa.majs_gedcom_id', '=', $this->tree->id()) |
| 290 | 289 | ->where('sosa.majs_user_id', '=', $this->user->id()) |
| 291 | - ->where(function (Builder $query): void { |
|
| 290 | + ->where(function(Builder $query): void { |
|
| 292 | 291 | $query->whereNull('sosa_fat.majs_i_id') |
| 293 | 292 | ->orWhereNull('sosa_mot.majs_i_id'); |
| 294 | 293 | }); |
@@ -298,24 +297,24 @@ discard block |
||
| 298 | 297 | */ |
| 299 | 298 | $non_roots_ancestors = DB::table('maj_sosa AS sosa') |
| 300 | 299 | ->select(['sosa.majs_gen', 'sosa.majs_gedcom_id', 'sosa.majs_user_id', 'sosa.majs_sosa']) |
| 301 | - ->selectRaw('MAX(' . $table_prefix . 'sosa_anc.majs_sosa) - MIN(' . $table_prefix . 'sosa_anc.majs_sosa)' . |
|
| 300 | + ->selectRaw('MAX('.$table_prefix.'sosa_anc.majs_sosa) - MIN('.$table_prefix.'sosa_anc.majs_sosa)'. |
|
| 302 | 301 | ' AS full_ancestors') |
| 303 | - ->join('maj_sosa AS sosa_anc', function (JoinClause $join) use ($table_prefix): void { |
|
| 302 | + ->join('maj_sosa AS sosa_anc', function(JoinClause $join) use ($table_prefix): void { |
|
| 304 | 303 | $join->on('sosa.majs_gen', '<', 'sosa_anc.majs_gen') |
| 305 | - ->whereRaw('FLOOR(' . $table_prefix . 'sosa_anc.majs_sosa / POWER(2, ' . |
|
| 306 | - $table_prefix . 'sosa_anc.majs_gen - ' . $table_prefix . 'sosa.majs_gen)) = ' . |
|
| 307 | - $table_prefix . 'sosa.majs_sosa') |
|
| 304 | + ->whereRaw('FLOOR('.$table_prefix.'sosa_anc.majs_sosa / POWER(2, '. |
|
| 305 | + $table_prefix.'sosa_anc.majs_gen - '.$table_prefix.'sosa.majs_gen)) = '. |
|
| 306 | + $table_prefix.'sosa.majs_sosa') |
|
| 308 | 307 | ->where('sosa_anc.majs_gedcom_id', '=', $this->tree->id()) |
| 309 | 308 | ->where('sosa_anc.majs_user_id', '=', $this->user->id()); |
| 310 | 309 | }) |
| 311 | 310 | ->where('sosa.majs_gedcom_id', '=', $this->tree->id()) |
| 312 | 311 | ->where('sosa.majs_user_id', '=', $this->user->id()) |
| 313 | - ->whereIn('sosa_anc.majs_i_id', function (Builder $query) use ($table_prefix): void { |
|
| 312 | + ->whereIn('sosa_anc.majs_i_id', function(Builder $query) use ($table_prefix): void { |
|
| 314 | 313 | $query->from('maj_sosa AS sosa_gen') |
| 315 | 314 | ->select('sosa_gen.majs_i_id')->distinct() |
| 316 | 315 | ->where('sosa_gen.majs_gedcom_id', '=', $this->tree->id()) |
| 317 | 316 | ->where('sosa_gen.majs_user_id', '=', $this->user->id()) |
| 318 | - ->whereRaw($table_prefix . 'sosa_gen.majs_gen = ' . $table_prefix . 'sosa.majs_gen'); |
|
| 317 | + ->whereRaw($table_prefix.'sosa_gen.majs_gen = '.$table_prefix.'sosa.majs_gen'); |
|
| 319 | 318 | }) |
| 320 | 319 | ->groupBy(['sosa.majs_gen', 'sosa.majs_gedcom_id', 'sosa.majs_user_id', |
| 321 | 320 | 'sosa.majs_sosa', 'sosa.majs_i_id']); |
@@ -328,7 +327,7 @@ discard block |
||
| 328 | 327 | ->select(['sosa.majs_gen AS gen', 'sosa.majs_gedcom_id', 'sosa.majs_user_id']) |
| 329 | 328 | ->addSelect(['sosa.majs_i_id', 'sosa.majs_gen']) |
| 330 | 329 | ->selectRaw('1 AS contrib') |
| 331 | - ->leftJoinSub($non_roots_ancestors, 'nonroot', function (JoinClause $join): void { |
|
| 330 | + ->leftJoinSub($non_roots_ancestors, 'nonroot', function(JoinClause $join): void { |
|
| 332 | 331 | $join->on('sosa.majs_gen', '=', 'nonroot.majs_gen') |
| 333 | 332 | ->on('sosa.majs_sosa', '=', 'nonroot.majs_sosa') |
| 334 | 333 | ->where('nonroot.full_ancestors', '>', 0) |
@@ -346,9 +345,9 @@ discard block |
||
| 346 | 345 | ->fromSub($root_ancestors_contributions->unionAll($known_ancestors_contributions), 'sosa_contribs') |
| 347 | 346 | ->select(['sosa_contribs.gen', 'sosa_contribs.majs_gedcom_id', 'sosa_contribs.majs_user_id']) |
| 348 | 347 | ->addSelect(['sosa_contribs.majs_i_id', 'sosa_contribs.contrib']) |
| 349 | - ->selectRaw('COUNT(' . $table_prefix . 'sosa_contribs.majs_i_id) * ' . |
|
| 350 | - $table_prefix . 'sosa_contribs.contrib AS totalContrib') |
|
| 351 | - ->leftJoin('maj_sosa AS sosa_low', function (JoinClause $join): void { |
|
| 348 | + ->selectRaw('COUNT('.$table_prefix.'sosa_contribs.majs_i_id) * '. |
|
| 349 | + $table_prefix.'sosa_contribs.contrib AS totalContrib') |
|
| 350 | + ->leftJoin('maj_sosa AS sosa_low', function(JoinClause $join): void { |
|
| 352 | 351 | $join->on('sosa_low.majs_gen', '<', 'sosa_contribs.majs_gen') |
| 353 | 352 | ->on('sosa_low.majs_i_id', '=', 'sosa_contribs.majs_i_id') |
| 354 | 353 | ->where('sosa_low.majs_gedcom_id', '=', $this->tree->id()) |
@@ -369,9 +368,9 @@ discard block |
||
| 369 | 368 | |
| 370 | 369 | $pedi_collapse_by_gen = []; |
| 371 | 370 | foreach ($pedi_collapse_coll as $collapse_gen) { |
| 372 | - $pedi_collapse_by_gen[(int) $collapse_gen->gen] = array( |
|
| 373 | - 'pedi_collapse_roots' => (float) $collapse_gen->pedi_collapse_roots, |
|
| 374 | - 'pedi_collapse_xgen' => (float) $collapse_gen->pedi_collapse_xgen |
|
| 371 | + $pedi_collapse_by_gen[(int)$collapse_gen->gen] = array( |
|
| 372 | + 'pedi_collapse_roots' => (float)$collapse_gen->pedi_collapse_roots, |
|
| 373 | + 'pedi_collapse_xgen' => (float)$collapse_gen->pedi_collapse_xgen |
|
| 375 | 374 | ); |
| 376 | 375 | } |
| 377 | 376 | return $pedi_collapse_by_gen; |
@@ -399,26 +398,26 @@ discard block |
||
| 399 | 398 | { |
| 400 | 399 | $table_prefix = DB::connection()->getTablePrefix(); |
| 401 | 400 | $missing_ancestors_by_gen = DB::table('maj_sosa AS sosa') |
| 402 | - ->selectRaw($table_prefix . 'sosa.majs_gen - ? AS majs_gen_norm', [$gen]) |
|
| 403 | - ->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 |
|
| 404 | - ->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 |
|
| 405 | - ->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 |
|
| 406 | - ->leftJoin('maj_sosa AS sosa_fat', function (JoinClause $join) use ($table_prefix): void { |
|
| 401 | + ->selectRaw($table_prefix.'sosa.majs_gen - ? AS majs_gen_norm', [$gen]) |
|
| 402 | + ->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 |
|
| 403 | + ->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 |
|
| 404 | + ->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 |
|
| 405 | + ->leftJoin('maj_sosa AS sosa_fat', function(JoinClause $join) use ($table_prefix): void { |
|
| 407 | 406 | // Link to sosa's father |
| 408 | - $join->whereRaw($table_prefix . 'sosa_fat.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa') |
|
| 407 | + $join->whereRaw($table_prefix.'sosa_fat.majs_sosa = 2 * '.$table_prefix.'sosa.majs_sosa') |
|
| 409 | 408 | ->where('sosa_fat.majs_gedcom_id', '=', $this->tree->id()) |
| 410 | 409 | ->where('sosa_fat.majs_user_id', '=', $this->user->id()); |
| 411 | 410 | }) |
| 412 | - ->leftJoin('maj_sosa AS sosa_mot', function (JoinClause $join) use ($table_prefix): void { |
|
| 411 | + ->leftJoin('maj_sosa AS sosa_mot', function(JoinClause $join) use ($table_prefix): void { |
|
| 413 | 412 | // Link to sosa's mother |
| 414 | - $join->whereRaw($table_prefix . 'sosa_mot.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa + 1') |
|
| 413 | + $join->whereRaw($table_prefix.'sosa_mot.majs_sosa = 2 * '.$table_prefix.'sosa.majs_sosa + 1') |
|
| 415 | 414 | ->where('sosa_mot.majs_gedcom_id', '=', $this->tree->id()) |
| 416 | 415 | ->where('sosa_mot.majs_user_id', '=', $this->user->id()); |
| 417 | 416 | }) |
| 418 | 417 | ->where('sosa.majs_gedcom_id', '=', $this->tree->id()) |
| 419 | 418 | ->where('sosa.majs_user_id', '=', $this->user->id()) |
| 420 | 419 | ->where('sosa.majs_gen', '>=', $gen) |
| 421 | - ->where(function (Builder $query): void { |
|
| 420 | + ->where(function(Builder $query): void { |
|
| 422 | 421 | $query->whereNull('sosa_fat.majs_i_id') |
| 423 | 422 | ->orWhereNull('sosa_mot.majs_i_id'); |
| 424 | 423 | }) |
@@ -427,11 +426,11 @@ discard block |
||
| 427 | 426 | return DB::table('maj_sosa AS sosa_list') |
| 428 | 427 | ->select(['stats_by_gen.root_ancestor AS root_ancestor_sosa', 'sosa_list.majs_i_id as root_ancestor_id']) |
| 429 | 428 | ->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 |
| 430 | - ->selectRaw(' SQRT(' . |
|
| 431 | - ' 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 |
|
| 432 | - ' - 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 |
|
| 429 | + ->selectRaw(' SQRT('. |
|
| 430 | + ' 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 |
|
| 431 | + ' - 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 |
|
| 433 | 432 | ' ) AS stddev_gen_depth') |
| 434 | - ->joinSub($missing_ancestors_by_gen, 'stats_by_gen', function (JoinClause $join): void { |
|
| 433 | + ->joinSub($missing_ancestors_by_gen, 'stats_by_gen', function(JoinClause $join): void { |
|
| 435 | 434 | $join->on('sosa_list.majs_sosa', '=', 'stats_by_gen.root_ancestor') |
| 436 | 435 | ->where('sosa_list.majs_gedcom_id', '=', $this->tree->id()) |
| 437 | 436 | ->where('sosa_list.majs_user_id', '=', $this->user->id()); |
@@ -460,16 +459,16 @@ discard block |
||
| 460 | 459 | $table_prefix = DB::connection()->getTablePrefix(); |
| 461 | 460 | $multiple_ancestors = DB::table('maj_sosa AS sosa') |
| 462 | 461 | ->select('sosa.majs_i_id AS sosa_i_id') |
| 463 | - ->selectRaw('COUNT(' . $table_prefix . 'sosa.majs_sosa) AS sosa_count') |
|
| 464 | - ->leftJoin('maj_sosa AS sosa_fat', function (JoinClause $join) use ($table_prefix): void { |
|
| 462 | + ->selectRaw('COUNT('.$table_prefix.'sosa.majs_sosa) AS sosa_count') |
|
| 463 | + ->leftJoin('maj_sosa AS sosa_fat', function(JoinClause $join) use ($table_prefix): void { |
|
| 465 | 464 | // Link to sosa's father |
| 466 | - $join->whereRaw($table_prefix . 'sosa_fat.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa') |
|
| 465 | + $join->whereRaw($table_prefix.'sosa_fat.majs_sosa = 2 * '.$table_prefix.'sosa.majs_sosa') |
|
| 467 | 466 | ->where('sosa_fat.majs_gedcom_id', '=', $this->tree->id()) |
| 468 | 467 | ->where('sosa_fat.majs_user_id', '=', $this->user->id()); |
| 469 | 468 | }) |
| 470 | - ->leftJoin('maj_sosa AS sosa_mot', function (JoinClause $join) use ($table_prefix): void { |
|
| 469 | + ->leftJoin('maj_sosa AS sosa_mot', function(JoinClause $join) use ($table_prefix): void { |
|
| 471 | 470 | // Link to sosa's mother |
| 472 | - $join->whereRaw($table_prefix . 'sosa_mot.majs_sosa = 2 * ' . $table_prefix . 'sosa.majs_sosa + 1') |
|
| 471 | + $join->whereRaw($table_prefix.'sosa_mot.majs_sosa = 2 * '.$table_prefix.'sosa.majs_sosa + 1') |
|
| 473 | 472 | ->where('sosa_mot.majs_gedcom_id', '=', $this->tree->id()) |
| 474 | 473 | ->where('sosa_mot.majs_user_id', '=', $this->user->id()); |
| 475 | 474 | }) |
@@ -478,15 +477,15 @@ discard block |
||
| 478 | 477 | ->whereNull('sosa_fat.majs_sosa') // We keep only root individuals, i.e. those with no father or mother |
| 479 | 478 | ->whereNull('sosa_mot.majs_sosa') |
| 480 | 479 | ->groupBy('sosa.majs_i_id') |
| 481 | - ->havingRaw('COUNT(' . $table_prefix . 'sosa.majs_sosa) > 1') // Limit to the duplicate sosas. |
|
| 482 | - ->orderByRaw('COUNT(' . $table_prefix . 'sosa.majs_sosa) DESC, MIN(' . $table_prefix . 'sosa.majs_sosa) ASC') //@phpcs:ignore Generic.Files.LineLength.TooLong |
|
| 480 | + ->havingRaw('COUNT('.$table_prefix.'sosa.majs_sosa) > 1') // Limit to the duplicate sosas. |
|
| 481 | + ->orderByRaw('COUNT('.$table_prefix.'sosa.majs_sosa) DESC, MIN('.$table_prefix.'sosa.majs_sosa) ASC') //@phpcs:ignore Generic.Files.LineLength.TooLong |
|
| 483 | 482 | ->limit($limit + 1) // We want to select one more than required, for ties |
| 484 | 483 | ->get(); |
| 485 | 484 | |
| 486 | 485 | if ($multiple_ancestors->count() > $limit) { |
| 487 | 486 | $last_count = $multiple_ancestors->last()->sosa_count; |
| 488 | - $multiple_ancestors = $multiple_ancestors->reject(function (stdClass $element) use ($last_count): bool { |
|
| 489 | - return $element->sosa_count == $last_count; |
|
| 487 | + $multiple_ancestors = $multiple_ancestors->reject(function(stdClass $element) use ($last_count): bool { |
|
| 488 | + return $element->sosa_count == $last_count; |
|
| 490 | 489 | }); |
| 491 | 490 | } |
| 492 | 491 | return $multiple_ancestors; |
@@ -31,101 +31,101 @@ |
||
| 31 | 31 | */ |
| 32 | 32 | class SosaByGenerationGeoAnalysis implements GeoAnalysisInterface |
| 33 | 33 | { |
| 34 | - private SosaRecordsService $records_service; |
|
| 35 | - |
|
| 36 | - /** |
|
| 37 | - * Constructor for SosaByGenerationGeoAnalysis |
|
| 38 | - * |
|
| 39 | - * @param SosaRecordsService $records_service |
|
| 40 | - */ |
|
| 41 | - public function __construct(SosaRecordsService $records_service) |
|
| 42 | - { |
|
| 43 | - $this->records_service = $records_service; |
|
| 44 | - } |
|
| 45 | - |
|
| 46 | - /** |
|
| 47 | - * {@inheritDoc} |
|
| 48 | - * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\GeoAnalysisInterface::title() |
|
| 49 | - */ |
|
| 50 | - public function title(): string |
|
| 51 | - { |
|
| 52 | - return I18N::translate('Sosa ancestors places by generation'); |
|
| 53 | - } |
|
| 54 | - |
|
| 55 | - /** |
|
| 56 | - * {@inheritDoc} |
|
| 57 | - * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\GeoAnalysisInterface::itemsDescription() |
|
| 58 | - */ |
|
| 59 | - public function itemsDescription(): callable |
|
| 60 | - { |
|
| 61 | - return fn(int $count): string => I18N::plural('ancestor', 'ancestors', $count); |
|
| 62 | - } |
|
| 63 | - |
|
| 64 | - /** |
|
| 65 | - * {@inheritDoc} |
|
| 66 | - * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\GeoAnalysisInterface::results() |
|
| 67 | - */ |
|
| 68 | - public function results(Tree $tree, int $depth): GeoAnalysisResults |
|
| 69 | - { |
|
| 70 | - $results = new GeoAnalysisResults(); |
|
| 71 | - |
|
| 72 | - $unique_ancestors = $this->records_service |
|
| 73 | - ->listAncestors($tree, Auth::user()) |
|
| 74 | - ->uniqueStrict(fn(stdClass $item): string => $item->majs_i_id); |
|
| 75 | - |
|
| 76 | - foreach ($unique_ancestors as $item) { |
|
| 77 | - $ancestor = Registry::individualFactory()->make($item->majs_i_id, $tree); |
|
| 78 | - if ($ancestor === null || !$ancestor->canShow()) { |
|
| 79 | - continue; |
|
| 80 | - } |
|
| 81 | - $generation = $this->records_service->generation((int) $item->majs_sosa); |
|
| 82 | - $significantplace = new GeoAnalysisPlace($tree, null, $depth); |
|
| 83 | - foreach ($this->significantPlaces($ancestor) as $place) { |
|
| 84 | - $significantplace = new GeoAnalysisPlace($tree, $place, $depth, true); |
|
| 85 | - if ($significantplace->isKnown()) { |
|
| 86 | - break; |
|
| 87 | - } |
|
| 88 | - } |
|
| 89 | - $results->addPlace($significantplace); |
|
| 90 | - $results->addPlaceInCategory( |
|
| 91 | - I18N::translate('Generation %s', I18N::number($generation)), |
|
| 92 | - $generation, |
|
| 93 | - $significantplace |
|
| 94 | - ); |
|
| 95 | - } |
|
| 96 | - |
|
| 97 | - return $results; |
|
| 98 | - } |
|
| 99 | - |
|
| 100 | - /** |
|
| 101 | - * Returns significant places in order of priority for an individual |
|
| 102 | - * |
|
| 103 | - * @param Individual $individual |
|
| 104 | - * @return Generator<\Fisharebest\Webtrees\Place> |
|
| 105 | - */ |
|
| 106 | - protected function significantPlaces(Individual $individual): Generator |
|
| 107 | - { |
|
| 108 | - yield $individual->getBirthPlace(); |
|
| 109 | - |
|
| 110 | - /** @var \Fisharebest\Webtrees\Fact $fact */ |
|
| 111 | - foreach ($individual->facts(['RESI']) as $fact) { |
|
| 112 | - yield $fact->place(); |
|
| 113 | - } |
|
| 114 | - |
|
| 115 | - yield $individual->getDeathPlace(); |
|
| 116 | - |
|
| 117 | - /** @var \Fisharebest\Webtrees\Family $family */ |
|
| 118 | - foreach ($individual->childFamilies() as $family) { |
|
| 119 | - foreach ($family->facts(['RESI']) as $fact) { |
|
| 120 | - yield $fact->place(); |
|
| 121 | - } |
|
| 122 | - } |
|
| 123 | - |
|
| 124 | - /** @var \Fisharebest\Webtrees\Family $family */ |
|
| 125 | - foreach ($individual->spouseFamilies() as $family) { |
|
| 126 | - foreach ($family->facts(['RESI']) as $fact) { |
|
| 127 | - yield $fact->place(); |
|
| 128 | - } |
|
| 129 | - } |
|
| 130 | - } |
|
| 34 | + private SosaRecordsService $records_service; |
|
| 35 | + |
|
| 36 | + /** |
|
| 37 | + * Constructor for SosaByGenerationGeoAnalysis |
|
| 38 | + * |
|
| 39 | + * @param SosaRecordsService $records_service |
|
| 40 | + */ |
|
| 41 | + public function __construct(SosaRecordsService $records_service) |
|
| 42 | + { |
|
| 43 | + $this->records_service = $records_service; |
|
| 44 | + } |
|
| 45 | + |
|
| 46 | + /** |
|
| 47 | + * {@inheritDoc} |
|
| 48 | + * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\GeoAnalysisInterface::title() |
|
| 49 | + */ |
|
| 50 | + public function title(): string |
|
| 51 | + { |
|
| 52 | + return I18N::translate('Sosa ancestors places by generation'); |
|
| 53 | + } |
|
| 54 | + |
|
| 55 | + /** |
|
| 56 | + * {@inheritDoc} |
|
| 57 | + * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\GeoAnalysisInterface::itemsDescription() |
|
| 58 | + */ |
|
| 59 | + public function itemsDescription(): callable |
|
| 60 | + { |
|
| 61 | + return fn(int $count): string => I18N::plural('ancestor', 'ancestors', $count); |
|
| 62 | + } |
|
| 63 | + |
|
| 64 | + /** |
|
| 65 | + * {@inheritDoc} |
|
| 66 | + * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\GeoAnalysisInterface::results() |
|
| 67 | + */ |
|
| 68 | + public function results(Tree $tree, int $depth): GeoAnalysisResults |
|
| 69 | + { |
|
| 70 | + $results = new GeoAnalysisResults(); |
|
| 71 | + |
|
| 72 | + $unique_ancestors = $this->records_service |
|
| 73 | + ->listAncestors($tree, Auth::user()) |
|
| 74 | + ->uniqueStrict(fn(stdClass $item): string => $item->majs_i_id); |
|
| 75 | + |
|
| 76 | + foreach ($unique_ancestors as $item) { |
|
| 77 | + $ancestor = Registry::individualFactory()->make($item->majs_i_id, $tree); |
|
| 78 | + if ($ancestor === null || !$ancestor->canShow()) { |
|
| 79 | + continue; |
|
| 80 | + } |
|
| 81 | + $generation = $this->records_service->generation((int) $item->majs_sosa); |
|
| 82 | + $significantplace = new GeoAnalysisPlace($tree, null, $depth); |
|
| 83 | + foreach ($this->significantPlaces($ancestor) as $place) { |
|
| 84 | + $significantplace = new GeoAnalysisPlace($tree, $place, $depth, true); |
|
| 85 | + if ($significantplace->isKnown()) { |
|
| 86 | + break; |
|
| 87 | + } |
|
| 88 | + } |
|
| 89 | + $results->addPlace($significantplace); |
|
| 90 | + $results->addPlaceInCategory( |
|
| 91 | + I18N::translate('Generation %s', I18N::number($generation)), |
|
| 92 | + $generation, |
|
| 93 | + $significantplace |
|
| 94 | + ); |
|
| 95 | + } |
|
| 96 | + |
|
| 97 | + return $results; |
|
| 98 | + } |
|
| 99 | + |
|
| 100 | + /** |
|
| 101 | + * Returns significant places in order of priority for an individual |
|
| 102 | + * |
|
| 103 | + * @param Individual $individual |
|
| 104 | + * @return Generator<\Fisharebest\Webtrees\Place> |
|
| 105 | + */ |
|
| 106 | + protected function significantPlaces(Individual $individual): Generator |
|
| 107 | + { |
|
| 108 | + yield $individual->getBirthPlace(); |
|
| 109 | + |
|
| 110 | + /** @var \Fisharebest\Webtrees\Fact $fact */ |
|
| 111 | + foreach ($individual->facts(['RESI']) as $fact) { |
|
| 112 | + yield $fact->place(); |
|
| 113 | + } |
|
| 114 | + |
|
| 115 | + yield $individual->getDeathPlace(); |
|
| 116 | + |
|
| 117 | + /** @var \Fisharebest\Webtrees\Family $family */ |
|
| 118 | + foreach ($individual->childFamilies() as $family) { |
|
| 119 | + foreach ($family->facts(['RESI']) as $fact) { |
|
| 120 | + yield $fact->place(); |
|
| 121 | + } |
|
| 122 | + } |
|
| 123 | + |
|
| 124 | + /** @var \Fisharebest\Webtrees\Family $family */ |
|
| 125 | + foreach ($individual->spouseFamilies() as $family) { |
|
| 126 | + foreach ($family->facts(['RESI']) as $fact) { |
|
| 127 | + yield $fact->place(); |
|
| 128 | + } |
|
| 129 | + } |
|
| 130 | + } |
|
| 131 | 131 | } |
@@ -78,7 +78,7 @@ |
||
| 78 | 78 | if ($ancestor === null || !$ancestor->canShow()) { |
| 79 | 79 | continue; |
| 80 | 80 | } |
| 81 | - $generation = $this->records_service->generation((int) $item->majs_sosa); |
|
| 81 | + $generation = $this->records_service->generation((int)$item->majs_sosa); |
|
| 82 | 82 | $significantplace = new GeoAnalysisPlace($tree, null, $depth); |
| 83 | 83 | foreach ($this->significantPlaces($ancestor) as $place) { |
| 84 | 84 | $significantplace = new GeoAnalysisPlace($tree, $place, $depth, true); |
@@ -59,186 +59,186 @@ |
||
| 59 | 59 | * Geographical Dispersion Module. |
| 60 | 60 | */ |
| 61 | 61 | class GeoDispersionModule extends AbstractModule implements |
| 62 | - ModuleMyArtJaubInterface, |
|
| 63 | - ModuleChartInterface, |
|
| 64 | - ModuleConfigInterface, |
|
| 65 | - ModuleGlobalInterface, |
|
| 66 | - ModuleGeoAnalysisProviderInterface, |
|
| 67 | - ModulePlaceMapperProviderInterface |
|
| 62 | + ModuleMyArtJaubInterface, |
|
| 63 | + ModuleChartInterface, |
|
| 64 | + ModuleConfigInterface, |
|
| 65 | + ModuleGlobalInterface, |
|
| 66 | + ModuleGeoAnalysisProviderInterface, |
|
| 67 | + ModulePlaceMapperProviderInterface |
|
| 68 | 68 | { |
| 69 | - use ModuleMyArtJaubTrait { |
|
| 70 | - boot as traitBoot; |
|
| 71 | - } |
|
| 72 | - use ModuleChartTrait; |
|
| 73 | - use ModuleConfigTrait; |
|
| 74 | - use ModuleGlobalTrait; |
|
| 75 | - |
|
| 76 | - // How to update the database schema for this module |
|
| 77 | - private const SCHEMA_TARGET_VERSION = 3; |
|
| 78 | - private const SCHEMA_SETTING_NAME = 'MAJ_GEODISP_SCHEMA_VERSION'; |
|
| 79 | - private const SCHEMA_MIGRATION_PREFIX = __NAMESPACE__ . '\Schema'; |
|
| 80 | - |
|
| 81 | - /** |
|
| 82 | - * {@inheritDoc} |
|
| 83 | - * @see \Fisharebest\Webtrees\Module\AbstractModule::title() |
|
| 84 | - */ |
|
| 85 | - public function title(): string |
|
| 86 | - { |
|
| 87 | - return /* I18N: Name of the “GeoDispersion” module */ I18N::translate('Geographical dispersion'); |
|
| 88 | - } |
|
| 89 | - |
|
| 90 | - /** |
|
| 91 | - * {@inheritDoc} |
|
| 92 | - * @see \Fisharebest\Webtrees\Module\AbstractModule::description() |
|
| 93 | - */ |
|
| 94 | - public function description(): string |
|
| 95 | - { |
|
| 96 | - //phpcs:ignore Generic.Files.LineLength.TooLong |
|
| 97 | - return /* I18N: Description of the “GeoDispersion” module */ I18N::translate('Perform and display geographical dispersion analyses.'); |
|
| 98 | - } |
|
| 99 | - |
|
| 100 | - /** |
|
| 101 | - * {@inheritDoc} |
|
| 102 | - * @see \Fisharebest\Webtrees\Module\AbstractModule::boot() |
|
| 103 | - */ |
|
| 104 | - public function boot(): void |
|
| 105 | - { |
|
| 106 | - $this->traitBoot(); |
|
| 107 | - app(MigrationService::class)->updateSchema( |
|
| 108 | - self::SCHEMA_MIGRATION_PREFIX, |
|
| 109 | - self::SCHEMA_SETTING_NAME, |
|
| 110 | - self::SCHEMA_TARGET_VERSION |
|
| 111 | - ); |
|
| 112 | - } |
|
| 113 | - |
|
| 114 | - /** |
|
| 115 | - * {@inheritDoc} |
|
| 116 | - * @see \Fisharebest\Webtrees\Module\ModuleCustomInterface::customModuleVersion() |
|
| 117 | - */ |
|
| 118 | - public function customModuleVersion(): string |
|
| 119 | - { |
|
| 120 | - return '2.1.0-v.1'; |
|
| 121 | - } |
|
| 122 | - |
|
| 123 | - /** |
|
| 124 | - * {@inheritDoc} |
|
| 125 | - * @see \MyArtJaub\Webtrees\Module\ModuleMyArtJaubInterface::loadRoutes() |
|
| 126 | - */ |
|
| 127 | - public function loadRoutes(Map $router): void |
|
| 128 | - { |
|
| 129 | - $router->attach('', '', static function (Map $router): void { |
|
| 130 | - |
|
| 131 | - $router->attach('', '/module-maj/geodispersion', static function (Map $router): void { |
|
| 132 | - $router->attach('', '/admin', static function (Map $router): void { |
|
| 133 | - $router->get(AdminConfigPage::class, '/config{/tree}', AdminConfigPage::class); |
|
| 134 | - |
|
| 135 | - $router->attach('', '/analysis-views/{tree}', static function (Map $router): void { |
|
| 136 | - $router->tokens(['view_id' => '\d+', 'enable' => '[01]']); |
|
| 137 | - $router->extras([ |
|
| 138 | - 'middleware' => [ |
|
| 139 | - AuthManager::class, |
|
| 140 | - ], |
|
| 141 | - ]); |
|
| 142 | - $router->get(GeoAnalysisViewListData::class, '', GeoAnalysisViewListData::class); |
|
| 143 | - |
|
| 144 | - $router->get(GeoAnalysisViewAddPage::class, '/add', GeoAnalysisViewAddPage::class); |
|
| 145 | - $router->post(GeoAnalysisViewAddAction::class, '/add', GeoAnalysisViewAddAction::class); |
|
| 146 | - $router->get(GeoAnalysisViewEditPage::class, '/{view_id}', GeoAnalysisViewEditPage::class); |
|
| 147 | - $router->post(GeoAnalysisViewEditAction::class, '/{view_id}', GeoAnalysisViewEditAction::class); |
|
| 148 | - //phpcs:disable Generic.Files.LineLength.TooLong |
|
| 149 | - $router->get(GeoAnalysisViewStatusAction::class, '/{view_id}/status/{enable}', GeoAnalysisViewStatusAction::class); |
|
| 150 | - $router->get(GeoAnalysisViewDeleteAction::class, '/{view_id}/delete', GeoAnalysisViewDeleteAction::class); |
|
| 151 | - //phpcs:enable |
|
| 152 | - }); |
|
| 153 | - |
|
| 154 | - $router->attach('', '/map-adapters/{tree}', static function (Map $router): void { |
|
| 155 | - $router->tokens(['adapter_id' => '\d+', 'view_id' => '\d+']); |
|
| 156 | - $router->extras([ |
|
| 157 | - 'middleware' => [ |
|
| 158 | - AuthManager::class, |
|
| 159 | - ], |
|
| 160 | - ]); |
|
| 161 | - |
|
| 162 | - $router->get(MapAdapterAddPage::class, '/add/{view_id}', MapAdapterAddPage::class); |
|
| 163 | - $router->post(MapAdapterAddAction::class, '/add/{view_id}', MapAdapterAddAction::class); |
|
| 164 | - $router->get(MapAdapterEditPage::class, '/{adapter_id}', MapAdapterEditPage::class); |
|
| 165 | - $router->post(MapAdapterEditAction::class, '/{adapter_id}', MapAdapterEditAction::class); |
|
| 166 | - //phpcs:disable Generic.Files.LineLength.TooLong |
|
| 167 | - $router->get(MapAdapterDeleteAction::class, '/{adapter_id}/delete', MapAdapterDeleteAction::class); |
|
| 168 | - $router->get(MapAdapterDeleteInvalidAction::class, '/delete-invalid/{view_id}', MapAdapterDeleteInvalidAction::class); |
|
| 169 | - $router->get(MapAdapterMapperConfig::class, '/mapper/config{/adapter_id}', MapAdapterMapperConfig::class); |
|
| 170 | - //phpcs:enable |
|
| 171 | - }); |
|
| 172 | - |
|
| 173 | - //phpcs:ignore Generic.Files.LineLength.TooLong |
|
| 174 | - $router->get(MapFeaturePropertyData::class, '/map/feature-properties{/map_id}', MapFeaturePropertyData::class); |
|
| 175 | - }); |
|
| 176 | - |
|
| 177 | - $router->get(GeoAnalysisViewsList::class, '/list/{tree}', GeoAnalysisViewsList::class); |
|
| 178 | - |
|
| 179 | - $router->attach('', '/analysisview/{tree}/{view_id}', static function (Map $router): void { |
|
| 180 | - $router->tokens(['view_id' => '\d+']); |
|
| 181 | - $router->get(GeoAnalysisViewPage::class, '', GeoAnalysisViewPage::class); |
|
| 182 | - $router->get(GeoAnalysisViewTabs::class, '/tabs', GeoAnalysisViewTabs::class); |
|
| 183 | - }); |
|
| 184 | - }); |
|
| 185 | - }); |
|
| 186 | - } |
|
| 187 | - |
|
| 188 | - public function getConfigLink(): string |
|
| 189 | - { |
|
| 190 | - return route(AdminConfigPage::class); |
|
| 191 | - } |
|
| 192 | - |
|
| 193 | - /** |
|
| 194 | - * {@inheritDoc} |
|
| 195 | - * @see \Fisharebest\Webtrees\Module\ModuleChartInterface::chartUrl() |
|
| 196 | - */ |
|
| 197 | - public function chartUrl(Individual $individual, array $parameters = []): string |
|
| 198 | - { |
|
| 199 | - return route(GeoAnalysisViewsList::class, ['tree' => $individual->tree()->name()] + $parameters); |
|
| 200 | - } |
|
| 201 | - |
|
| 202 | - /** |
|
| 203 | - * {@inheritDoc} |
|
| 204 | - * @see \Fisharebest\Webtrees\Module\ModuleChartInterface::chartMenuClass() |
|
| 205 | - */ |
|
| 206 | - public function chartMenuClass(): string |
|
| 207 | - { |
|
| 208 | - return 'menu-maj-geodispersion'; |
|
| 209 | - } |
|
| 210 | - |
|
| 211 | - /** |
|
| 212 | - * {@inheritDoc} |
|
| 213 | - * @see \Fisharebest\Webtrees\Module\ModuleGlobalInterface::headContent() |
|
| 214 | - */ |
|
| 215 | - public function headContent(): string |
|
| 216 | - { |
|
| 217 | - return '<link rel="stylesheet" href="' . e($this->moduleCssUrl()) . '">'; |
|
| 218 | - } |
|
| 219 | - |
|
| 220 | - /** |
|
| 221 | - * {@inheritDoc} |
|
| 222 | - * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\ModulePlaceMapperProviderInterface::listPlaceMappers() |
|
| 223 | - */ |
|
| 224 | - public function listPlaceMappers(): array |
|
| 225 | - { |
|
| 226 | - return [ |
|
| 227 | - CoordinatesPlaceMapper::class, |
|
| 228 | - SimplePlaceMapper::class, |
|
| 229 | - SimpleTopFilteredPlaceMapper::class |
|
| 230 | - ]; |
|
| 231 | - } |
|
| 232 | - |
|
| 233 | - /** |
|
| 234 | - * {@inheritDoc} |
|
| 235 | - * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\ModuleGeoAnalysisProviderInterface::listGeoAnalyses() |
|
| 236 | - */ |
|
| 237 | - public function listGeoAnalyses(): array |
|
| 238 | - { |
|
| 239 | - return [ |
|
| 240 | - AllEventsByCenturyGeoAnalysis::class, |
|
| 241 | - AllEventsByTypeGeoAnalysis::class |
|
| 242 | - ]; |
|
| 243 | - } |
|
| 69 | + use ModuleMyArtJaubTrait { |
|
| 70 | + boot as traitBoot; |
|
| 71 | + } |
|
| 72 | + use ModuleChartTrait; |
|
| 73 | + use ModuleConfigTrait; |
|
| 74 | + use ModuleGlobalTrait; |
|
| 75 | + |
|
| 76 | + // How to update the database schema for this module |
|
| 77 | + private const SCHEMA_TARGET_VERSION = 3; |
|
| 78 | + private const SCHEMA_SETTING_NAME = 'MAJ_GEODISP_SCHEMA_VERSION'; |
|
| 79 | + private const SCHEMA_MIGRATION_PREFIX = __NAMESPACE__ . '\Schema'; |
|
| 80 | + |
|
| 81 | + /** |
|
| 82 | + * {@inheritDoc} |
|
| 83 | + * @see \Fisharebest\Webtrees\Module\AbstractModule::title() |
|
| 84 | + */ |
|
| 85 | + public function title(): string |
|
| 86 | + { |
|
| 87 | + return /* I18N: Name of the “GeoDispersion” module */ I18N::translate('Geographical dispersion'); |
|
| 88 | + } |
|
| 89 | + |
|
| 90 | + /** |
|
| 91 | + * {@inheritDoc} |
|
| 92 | + * @see \Fisharebest\Webtrees\Module\AbstractModule::description() |
|
| 93 | + */ |
|
| 94 | + public function description(): string |
|
| 95 | + { |
|
| 96 | + //phpcs:ignore Generic.Files.LineLength.TooLong |
|
| 97 | + return /* I18N: Description of the “GeoDispersion” module */ I18N::translate('Perform and display geographical dispersion analyses.'); |
|
| 98 | + } |
|
| 99 | + |
|
| 100 | + /** |
|
| 101 | + * {@inheritDoc} |
|
| 102 | + * @see \Fisharebest\Webtrees\Module\AbstractModule::boot() |
|
| 103 | + */ |
|
| 104 | + public function boot(): void |
|
| 105 | + { |
|
| 106 | + $this->traitBoot(); |
|
| 107 | + app(MigrationService::class)->updateSchema( |
|
| 108 | + self::SCHEMA_MIGRATION_PREFIX, |
|
| 109 | + self::SCHEMA_SETTING_NAME, |
|
| 110 | + self::SCHEMA_TARGET_VERSION |
|
| 111 | + ); |
|
| 112 | + } |
|
| 113 | + |
|
| 114 | + /** |
|
| 115 | + * {@inheritDoc} |
|
| 116 | + * @see \Fisharebest\Webtrees\Module\ModuleCustomInterface::customModuleVersion() |
|
| 117 | + */ |
|
| 118 | + public function customModuleVersion(): string |
|
| 119 | + { |
|
| 120 | + return '2.1.0-v.1'; |
|
| 121 | + } |
|
| 122 | + |
|
| 123 | + /** |
|
| 124 | + * {@inheritDoc} |
|
| 125 | + * @see \MyArtJaub\Webtrees\Module\ModuleMyArtJaubInterface::loadRoutes() |
|
| 126 | + */ |
|
| 127 | + public function loadRoutes(Map $router): void |
|
| 128 | + { |
|
| 129 | + $router->attach('', '', static function (Map $router): void { |
|
| 130 | + |
|
| 131 | + $router->attach('', '/module-maj/geodispersion', static function (Map $router): void { |
|
| 132 | + $router->attach('', '/admin', static function (Map $router): void { |
|
| 133 | + $router->get(AdminConfigPage::class, '/config{/tree}', AdminConfigPage::class); |
|
| 134 | + |
|
| 135 | + $router->attach('', '/analysis-views/{tree}', static function (Map $router): void { |
|
| 136 | + $router->tokens(['view_id' => '\d+', 'enable' => '[01]']); |
|
| 137 | + $router->extras([ |
|
| 138 | + 'middleware' => [ |
|
| 139 | + AuthManager::class, |
|
| 140 | + ], |
|
| 141 | + ]); |
|
| 142 | + $router->get(GeoAnalysisViewListData::class, '', GeoAnalysisViewListData::class); |
|
| 143 | + |
|
| 144 | + $router->get(GeoAnalysisViewAddPage::class, '/add', GeoAnalysisViewAddPage::class); |
|
| 145 | + $router->post(GeoAnalysisViewAddAction::class, '/add', GeoAnalysisViewAddAction::class); |
|
| 146 | + $router->get(GeoAnalysisViewEditPage::class, '/{view_id}', GeoAnalysisViewEditPage::class); |
|
| 147 | + $router->post(GeoAnalysisViewEditAction::class, '/{view_id}', GeoAnalysisViewEditAction::class); |
|
| 148 | + //phpcs:disable Generic.Files.LineLength.TooLong |
|
| 149 | + $router->get(GeoAnalysisViewStatusAction::class, '/{view_id}/status/{enable}', GeoAnalysisViewStatusAction::class); |
|
| 150 | + $router->get(GeoAnalysisViewDeleteAction::class, '/{view_id}/delete', GeoAnalysisViewDeleteAction::class); |
|
| 151 | + //phpcs:enable |
|
| 152 | + }); |
|
| 153 | + |
|
| 154 | + $router->attach('', '/map-adapters/{tree}', static function (Map $router): void { |
|
| 155 | + $router->tokens(['adapter_id' => '\d+', 'view_id' => '\d+']); |
|
| 156 | + $router->extras([ |
|
| 157 | + 'middleware' => [ |
|
| 158 | + AuthManager::class, |
|
| 159 | + ], |
|
| 160 | + ]); |
|
| 161 | + |
|
| 162 | + $router->get(MapAdapterAddPage::class, '/add/{view_id}', MapAdapterAddPage::class); |
|
| 163 | + $router->post(MapAdapterAddAction::class, '/add/{view_id}', MapAdapterAddAction::class); |
|
| 164 | + $router->get(MapAdapterEditPage::class, '/{adapter_id}', MapAdapterEditPage::class); |
|
| 165 | + $router->post(MapAdapterEditAction::class, '/{adapter_id}', MapAdapterEditAction::class); |
|
| 166 | + //phpcs:disable Generic.Files.LineLength.TooLong |
|
| 167 | + $router->get(MapAdapterDeleteAction::class, '/{adapter_id}/delete', MapAdapterDeleteAction::class); |
|
| 168 | + $router->get(MapAdapterDeleteInvalidAction::class, '/delete-invalid/{view_id}', MapAdapterDeleteInvalidAction::class); |
|
| 169 | + $router->get(MapAdapterMapperConfig::class, '/mapper/config{/adapter_id}', MapAdapterMapperConfig::class); |
|
| 170 | + //phpcs:enable |
|
| 171 | + }); |
|
| 172 | + |
|
| 173 | + //phpcs:ignore Generic.Files.LineLength.TooLong |
|
| 174 | + $router->get(MapFeaturePropertyData::class, '/map/feature-properties{/map_id}', MapFeaturePropertyData::class); |
|
| 175 | + }); |
|
| 176 | + |
|
| 177 | + $router->get(GeoAnalysisViewsList::class, '/list/{tree}', GeoAnalysisViewsList::class); |
|
| 178 | + |
|
| 179 | + $router->attach('', '/analysisview/{tree}/{view_id}', static function (Map $router): void { |
|
| 180 | + $router->tokens(['view_id' => '\d+']); |
|
| 181 | + $router->get(GeoAnalysisViewPage::class, '', GeoAnalysisViewPage::class); |
|
| 182 | + $router->get(GeoAnalysisViewTabs::class, '/tabs', GeoAnalysisViewTabs::class); |
|
| 183 | + }); |
|
| 184 | + }); |
|
| 185 | + }); |
|
| 186 | + } |
|
| 187 | + |
|
| 188 | + public function getConfigLink(): string |
|
| 189 | + { |
|
| 190 | + return route(AdminConfigPage::class); |
|
| 191 | + } |
|
| 192 | + |
|
| 193 | + /** |
|
| 194 | + * {@inheritDoc} |
|
| 195 | + * @see \Fisharebest\Webtrees\Module\ModuleChartInterface::chartUrl() |
|
| 196 | + */ |
|
| 197 | + public function chartUrl(Individual $individual, array $parameters = []): string |
|
| 198 | + { |
|
| 199 | + return route(GeoAnalysisViewsList::class, ['tree' => $individual->tree()->name()] + $parameters); |
|
| 200 | + } |
|
| 201 | + |
|
| 202 | + /** |
|
| 203 | + * {@inheritDoc} |
|
| 204 | + * @see \Fisharebest\Webtrees\Module\ModuleChartInterface::chartMenuClass() |
|
| 205 | + */ |
|
| 206 | + public function chartMenuClass(): string |
|
| 207 | + { |
|
| 208 | + return 'menu-maj-geodispersion'; |
|
| 209 | + } |
|
| 210 | + |
|
| 211 | + /** |
|
| 212 | + * {@inheritDoc} |
|
| 213 | + * @see \Fisharebest\Webtrees\Module\ModuleGlobalInterface::headContent() |
|
| 214 | + */ |
|
| 215 | + public function headContent(): string |
|
| 216 | + { |
|
| 217 | + return '<link rel="stylesheet" href="' . e($this->moduleCssUrl()) . '">'; |
|
| 218 | + } |
|
| 219 | + |
|
| 220 | + /** |
|
| 221 | + * {@inheritDoc} |
|
| 222 | + * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\ModulePlaceMapperProviderInterface::listPlaceMappers() |
|
| 223 | + */ |
|
| 224 | + public function listPlaceMappers(): array |
|
| 225 | + { |
|
| 226 | + return [ |
|
| 227 | + CoordinatesPlaceMapper::class, |
|
| 228 | + SimplePlaceMapper::class, |
|
| 229 | + SimpleTopFilteredPlaceMapper::class |
|
| 230 | + ]; |
|
| 231 | + } |
|
| 232 | + |
|
| 233 | + /** |
|
| 234 | + * {@inheritDoc} |
|
| 235 | + * @see \MyArtJaub\Webtrees\Contracts\GeoDispersion\ModuleGeoAnalysisProviderInterface::listGeoAnalyses() |
|
| 236 | + */ |
|
| 237 | + public function listGeoAnalyses(): array |
|
| 238 | + { |
|
| 239 | + return [ |
|
| 240 | + AllEventsByCenturyGeoAnalysis::class, |
|
| 241 | + AllEventsByTypeGeoAnalysis::class |
|
| 242 | + ]; |
|
| 243 | + } |
|
| 244 | 244 | } |
@@ -76,7 +76,7 @@ discard block |
||
| 76 | 76 | // How to update the database schema for this module |
| 77 | 77 | private const SCHEMA_TARGET_VERSION = 3; |
| 78 | 78 | private const SCHEMA_SETTING_NAME = 'MAJ_GEODISP_SCHEMA_VERSION'; |
| 79 | - private const SCHEMA_MIGRATION_PREFIX = __NAMESPACE__ . '\Schema'; |
|
| 79 | + private const SCHEMA_MIGRATION_PREFIX = __NAMESPACE__.'\Schema'; |
|
| 80 | 80 | |
| 81 | 81 | /** |
| 82 | 82 | * {@inheritDoc} |
@@ -126,13 +126,13 @@ discard block |
||
| 126 | 126 | */ |
| 127 | 127 | public function loadRoutes(Map $router): void |
| 128 | 128 | { |
| 129 | - $router->attach('', '', static function (Map $router): void { |
|
| 129 | + $router->attach('', '', static function(Map $router): void { |
|
| 130 | 130 | |
| 131 | - $router->attach('', '/module-maj/geodispersion', static function (Map $router): void { |
|
| 132 | - $router->attach('', '/admin', static function (Map $router): void { |
|
| 131 | + $router->attach('', '/module-maj/geodispersion', static function(Map $router): void { |
|
| 132 | + $router->attach('', '/admin', static function(Map $router): void { |
|
| 133 | 133 | $router->get(AdminConfigPage::class, '/config{/tree}', AdminConfigPage::class); |
| 134 | 134 | |
| 135 | - $router->attach('', '/analysis-views/{tree}', static function (Map $router): void { |
|
| 135 | + $router->attach('', '/analysis-views/{tree}', static function(Map $router): void { |
|
| 136 | 136 | $router->tokens(['view_id' => '\d+', 'enable' => '[01]']); |
| 137 | 137 | $router->extras([ |
| 138 | 138 | 'middleware' => [ |
@@ -151,7 +151,7 @@ discard block |
||
| 151 | 151 | //phpcs:enable |
| 152 | 152 | }); |
| 153 | 153 | |
| 154 | - $router->attach('', '/map-adapters/{tree}', static function (Map $router): void { |
|
| 154 | + $router->attach('', '/map-adapters/{tree}', static function(Map $router): void { |
|
| 155 | 155 | $router->tokens(['adapter_id' => '\d+', 'view_id' => '\d+']); |
| 156 | 156 | $router->extras([ |
| 157 | 157 | 'middleware' => [ |
@@ -176,7 +176,7 @@ discard block |
||
| 176 | 176 | |
| 177 | 177 | $router->get(GeoAnalysisViewsList::class, '/list/{tree}', GeoAnalysisViewsList::class); |
| 178 | 178 | |
| 179 | - $router->attach('', '/analysisview/{tree}/{view_id}', static function (Map $router): void { |
|
| 179 | + $router->attach('', '/analysisview/{tree}/{view_id}', static function(Map $router): void { |
|
| 180 | 180 | $router->tokens(['view_id' => '\d+']); |
| 181 | 181 | $router->get(GeoAnalysisViewPage::class, '', GeoAnalysisViewPage::class); |
| 182 | 182 | $router->get(GeoAnalysisViewTabs::class, '/tabs', GeoAnalysisViewTabs::class); |
@@ -214,7 +214,7 @@ discard block |
||
| 214 | 214 | */ |
| 215 | 215 | public function headContent(): string |
| 216 | 216 | { |
| 217 | - return '<link rel="stylesheet" href="' . e($this->moduleCssUrl()) . '">'; |
|
| 217 | + return '<link rel="stylesheet" href="'.e($this->moduleCssUrl()).'">'; |
|
| 218 | 218 | } |
| 219 | 219 | |
| 220 | 220 | /** |
@@ -38,64 +38,64 @@ |
||
| 38 | 38 | */ |
| 39 | 39 | class GeoAnalysisViewEditPage implements RequestHandlerInterface |
| 40 | 40 | { |
| 41 | - use ViewResponseTrait; |
|
| 41 | + use ViewResponseTrait; |
|
| 42 | 42 | |
| 43 | - private ?GeoDispersionModule $module; |
|
| 44 | - private GeoAnalysisViewDataService $geoview_data_service; |
|
| 45 | - private GeoAnalysisService $geoanalysis_service; |
|
| 46 | - private GeoAnalysisDataService $geoanalysis_data_service; |
|
| 43 | + private ?GeoDispersionModule $module; |
|
| 44 | + private GeoAnalysisViewDataService $geoview_data_service; |
|
| 45 | + private GeoAnalysisService $geoanalysis_service; |
|
| 46 | + private GeoAnalysisDataService $geoanalysis_data_service; |
|
| 47 | 47 | |
| 48 | - /** |
|
| 49 | - * Constructor for GeoAnalysisViewEditPage Request Handler |
|
| 50 | - * |
|
| 51 | - * @param ModuleService $module_service |
|
| 52 | - * @param GeoAnalysisViewDataService $geoview_data_service |
|
| 53 | - * @param GeoAnalysisService $geoanalysis_service |
|
| 54 | - * @param GeoAnalysisDataService $geoanalysis_data_service |
|
| 55 | - */ |
|
| 56 | - public function __construct( |
|
| 57 | - ModuleService $module_service, |
|
| 58 | - GeoAnalysisViewDataService $geoview_data_service, |
|
| 59 | - GeoAnalysisService $geoanalysis_service, |
|
| 60 | - GeoAnalysisDataService $geoanalysis_data_service |
|
| 61 | - ) { |
|
| 62 | - $this->module = $module_service->findByInterface(GeoDispersionModule::class)->first(); |
|
| 63 | - $this->geoview_data_service = $geoview_data_service; |
|
| 64 | - $this->geoanalysis_service = $geoanalysis_service; |
|
| 65 | - $this->geoanalysis_data_service = $geoanalysis_data_service; |
|
| 66 | - } |
|
| 48 | + /** |
|
| 49 | + * Constructor for GeoAnalysisViewEditPage Request Handler |
|
| 50 | + * |
|
| 51 | + * @param ModuleService $module_service |
|
| 52 | + * @param GeoAnalysisViewDataService $geoview_data_service |
|
| 53 | + * @param GeoAnalysisService $geoanalysis_service |
|
| 54 | + * @param GeoAnalysisDataService $geoanalysis_data_service |
|
| 55 | + */ |
|
| 56 | + public function __construct( |
|
| 57 | + ModuleService $module_service, |
|
| 58 | + GeoAnalysisViewDataService $geoview_data_service, |
|
| 59 | + GeoAnalysisService $geoanalysis_service, |
|
| 60 | + GeoAnalysisDataService $geoanalysis_data_service |
|
| 61 | + ) { |
|
| 62 | + $this->module = $module_service->findByInterface(GeoDispersionModule::class)->first(); |
|
| 63 | + $this->geoview_data_service = $geoview_data_service; |
|
| 64 | + $this->geoanalysis_service = $geoanalysis_service; |
|
| 65 | + $this->geoanalysis_data_service = $geoanalysis_data_service; |
|
| 66 | + } |
|
| 67 | 67 | |
| 68 | - /** |
|
| 69 | - * {@inheritDoc} |
|
| 70 | - * @see \Psr\Http\Server\RequestHandlerInterface::handle() |
|
| 71 | - */ |
|
| 72 | - public function handle(ServerRequestInterface $request): ResponseInterface |
|
| 73 | - { |
|
| 74 | - $this->layout = 'layouts/administration'; |
|
| 68 | + /** |
|
| 69 | + * {@inheritDoc} |
|
| 70 | + * @see \Psr\Http\Server\RequestHandlerInterface::handle() |
|
| 71 | + */ |
|
| 72 | + public function handle(ServerRequestInterface $request): ResponseInterface |
|
| 73 | + { |
|
| 74 | + $this->layout = 'layouts/administration'; |
|
| 75 | 75 | |
| 76 | - if ($this->module === null) { |
|
| 77 | - throw new HttpNotFoundException(I18N::translate('The attached module could not be found.')); |
|
| 78 | - } |
|
| 79 | - $tree = $request->getAttribute('tree'); |
|
| 80 | - assert($tree instanceof Tree); |
|
| 76 | + if ($this->module === null) { |
|
| 77 | + throw new HttpNotFoundException(I18N::translate('The attached module could not be found.')); |
|
| 78 | + } |
|
| 79 | + $tree = $request->getAttribute('tree'); |
|
| 80 | + assert($tree instanceof Tree); |
|
| 81 | 81 | |
| 82 | - $view_id = (int) $request->getAttribute('view_id'); |
|
| 83 | - $view = $this->geoview_data_service->find($tree, $view_id, true); |
|
| 82 | + $view_id = (int) $request->getAttribute('view_id'); |
|
| 83 | + $view = $this->geoview_data_service->find($tree, $view_id, true); |
|
| 84 | 84 | |
| 85 | - if ($view === null) { |
|
| 86 | - throw new HttpNotFoundException( |
|
| 87 | - I18N::translate('The geographical dispersion analysis view could not be found.') |
|
| 88 | - ); |
|
| 89 | - } |
|
| 85 | + if ($view === null) { |
|
| 86 | + throw new HttpNotFoundException( |
|
| 87 | + I18N::translate('The geographical dispersion analysis view could not be found.') |
|
| 88 | + ); |
|
| 89 | + } |
|
| 90 | 90 | |
| 91 | - return $this->viewResponse($this->module->name() . '::admin/view-edit', [ |
|
| 92 | - 'module' => $this->module, |
|
| 93 | - 'title' => I18N::translate('Edit the geographical dispersion analysis view - %s', $view->type()), |
|
| 94 | - 'tree' => $tree, |
|
| 95 | - 'view' => $view, |
|
| 96 | - 'geoanalysis_list' => $this->geoanalysis_service->all(), |
|
| 97 | - 'place_example' => $this->geoanalysis_data_service->placeHierarchyExample($tree), |
|
| 98 | - 'global_settings' => $view->globalSettingsContent($this->module) |
|
| 99 | - ]); |
|
| 100 | - } |
|
| 91 | + return $this->viewResponse($this->module->name() . '::admin/view-edit', [ |
|
| 92 | + 'module' => $this->module, |
|
| 93 | + 'title' => I18N::translate('Edit the geographical dispersion analysis view - %s', $view->type()), |
|
| 94 | + 'tree' => $tree, |
|
| 95 | + 'view' => $view, |
|
| 96 | + 'geoanalysis_list' => $this->geoanalysis_service->all(), |
|
| 97 | + 'place_example' => $this->geoanalysis_data_service->placeHierarchyExample($tree), |
|
| 98 | + 'global_settings' => $view->globalSettingsContent($this->module) |
|
| 99 | + ]); |
|
| 100 | + } |
|
| 101 | 101 | } |
@@ -79,7 +79,7 @@ discard block |
||
| 79 | 79 | $tree = $request->getAttribute('tree'); |
| 80 | 80 | assert($tree instanceof Tree); |
| 81 | 81 | |
| 82 | - $view_id = (int) $request->getAttribute('view_id'); |
|
| 82 | + $view_id = (int)$request->getAttribute('view_id'); |
|
| 83 | 83 | $view = $this->geoview_data_service->find($tree, $view_id, true); |
| 84 | 84 | |
| 85 | 85 | if ($view === null) { |
@@ -88,7 +88,7 @@ discard block |
||
| 88 | 88 | ); |
| 89 | 89 | } |
| 90 | 90 | |
| 91 | - return $this->viewResponse($this->module->name() . '::admin/view-edit', [ |
|
| 91 | + return $this->viewResponse($this->module->name().'::admin/view-edit', [ |
|
| 92 | 92 | 'module' => $this->module, |
| 93 | 93 | 'title' => I18N::translate('Edit the geographical dispersion analysis view - %s', $view->type()), |
| 94 | 94 | 'tree' => $tree, |
@@ -34,89 +34,89 @@ |
||
| 34 | 34 | */ |
| 35 | 35 | class GeoAnalysisViewEditAction implements RequestHandlerInterface |
| 36 | 36 | { |
| 37 | - private ?GeoDispersionModule $module; |
|
| 38 | - private GeoAnalysisViewDataService $geoview_data_service; |
|
| 39 | - |
|
| 40 | - /** |
|
| 41 | - * Constructor for GeoAnalysisViewEditAction Request Handler |
|
| 42 | - * |
|
| 43 | - * @param ModuleService $module_service |
|
| 44 | - * @param GeoAnalysisViewDataService $geoview_data_service |
|
| 45 | - */ |
|
| 46 | - public function __construct(ModuleService $module_service, GeoAnalysisViewDataService $geoview_data_service) |
|
| 47 | - { |
|
| 48 | - $this->module = $module_service->findByInterface(GeoDispersionModule::class)->first(); |
|
| 49 | - $this->geoview_data_service = $geoview_data_service; |
|
| 50 | - } |
|
| 51 | - |
|
| 52 | - /** |
|
| 53 | - * {@inheritDoc} |
|
| 54 | - * @see \Psr\Http\Server\RequestHandlerInterface::handle() |
|
| 55 | - */ |
|
| 56 | - public function handle(ServerRequestInterface $request): ResponseInterface |
|
| 57 | - { |
|
| 58 | - $tree = $request->getAttribute('tree'); |
|
| 59 | - assert($tree instanceof Tree); |
|
| 60 | - |
|
| 61 | - $admin_config_route = route(AdminConfigPage::class, ['tree' => $tree->name()]); |
|
| 62 | - |
|
| 63 | - if ($this->module === null) { |
|
| 64 | - FlashMessages::addMessage( |
|
| 65 | - I18N::translate('The attached module could not be found.'), |
|
| 66 | - 'danger' |
|
| 67 | - ); |
|
| 68 | - return redirect($admin_config_route); |
|
| 69 | - } |
|
| 70 | - |
|
| 71 | - |
|
| 72 | - $view_id = (int) $request->getAttribute('view_id'); |
|
| 73 | - $view = $this->geoview_data_service->find($tree, $view_id, true); |
|
| 74 | - |
|
| 75 | - $params = (array) $request->getParsedBody(); |
|
| 76 | - |
|
| 77 | - $description = $params['view_description'] ?? ''; |
|
| 78 | - $place_depth = (int) ($params['view_depth'] ?? 1); |
|
| 79 | - $top_places = (int) ($params['view_top_places'] ?? 0); |
|
| 80 | - |
|
| 81 | - $analysis = null; |
|
| 82 | - try { |
|
| 83 | - $analysis = app($params['view_analysis'] ?? ''); |
|
| 84 | - } catch (BindingResolutionException $ex) { |
|
| 85 | - } |
|
| 86 | - |
|
| 87 | - if ( |
|
| 88 | - $view === null |
|
| 89 | - || $analysis === null || !($analysis instanceof GeoAnalysisInterface) |
|
| 90 | - || $place_depth <= 0 && $top_places < 0 |
|
| 91 | - ) { |
|
| 92 | - FlashMessages::addMessage( |
|
| 93 | - I18N::translate('The parameters for view with ID “%s” are not valid.', I18N::number($view_id)), |
|
| 94 | - 'danger' |
|
| 95 | - ); |
|
| 96 | - return redirect($admin_config_route); |
|
| 97 | - } |
|
| 98 | - |
|
| 99 | - $new_view = $view |
|
| 100 | - ->with($view->isEnabled(), $description, $analysis, $place_depth, $top_places) |
|
| 101 | - ->withGlobalSettingsUpdate($request); |
|
| 102 | - |
|
| 103 | - try { |
|
| 104 | - $this->geoview_data_service->update($new_view); |
|
| 105 | - FlashMessages::addMessage( |
|
| 106 | - I18N::translate('The geographical dispersion analysis view has been successfully updated.'), |
|
| 107 | - 'success' |
|
| 108 | - ); |
|
| 109 | - //phpcs:ignore Generic.Files.LineLength.TooLong |
|
| 110 | - Log::addConfigurationLog('Module ' . $this->module->title() . ' : View “' . $view->id() . '” has been updated.'); |
|
| 111 | - } catch (Throwable $ex) { |
|
| 112 | - FlashMessages::addMessage( |
|
| 113 | - I18N::translate('An error occured while updating the geographical dispersion analysis view.'), |
|
| 114 | - 'danger' |
|
| 115 | - ); |
|
| 116 | - //phpcs:ignore Generic.Files.LineLength.TooLong |
|
| 117 | - Log::addErrorLog('Module ' . $this->module->title() . ' : Error when updating view “' . $view->id() . '”: ' . $ex->getMessage()); |
|
| 118 | - } |
|
| 119 | - |
|
| 120 | - return redirect($admin_config_route); |
|
| 121 | - } |
|
| 37 | + private ?GeoDispersionModule $module; |
|
| 38 | + private GeoAnalysisViewDataService $geoview_data_service; |
|
| 39 | + |
|
| 40 | + /** |
|
| 41 | + * Constructor for GeoAnalysisViewEditAction Request Handler |
|
| 42 | + * |
|
| 43 | + * @param ModuleService $module_service |
|
| 44 | + * @param GeoAnalysisViewDataService $geoview_data_service |
|
| 45 | + */ |
|
| 46 | + public function __construct(ModuleService $module_service, GeoAnalysisViewDataService $geoview_data_service) |
|
| 47 | + { |
|
| 48 | + $this->module = $module_service->findByInterface(GeoDispersionModule::class)->first(); |
|
| 49 | + $this->geoview_data_service = $geoview_data_service; |
|
| 50 | + } |
|
| 51 | + |
|
| 52 | + /** |
|
| 53 | + * {@inheritDoc} |
|
| 54 | + * @see \Psr\Http\Server\RequestHandlerInterface::handle() |
|
| 55 | + */ |
|
| 56 | + public function handle(ServerRequestInterface $request): ResponseInterface |
|
| 57 | + { |
|
| 58 | + $tree = $request->getAttribute('tree'); |
|
| 59 | + assert($tree instanceof Tree); |
|
| 60 | + |
|
| 61 | + $admin_config_route = route(AdminConfigPage::class, ['tree' => $tree->name()]); |
|
| 62 | + |
|
| 63 | + if ($this->module === null) { |
|
| 64 | + FlashMessages::addMessage( |
|
| 65 | + I18N::translate('The attached module could not be found.'), |
|
| 66 | + 'danger' |
|
| 67 | + ); |
|
| 68 | + return redirect($admin_config_route); |
|
| 69 | + } |
|
| 70 | + |
|
| 71 | + |
|
| 72 | + $view_id = (int) $request->getAttribute('view_id'); |
|
| 73 | + $view = $this->geoview_data_service->find($tree, $view_id, true); |
|
| 74 | + |
|
| 75 | + $params = (array) $request->getParsedBody(); |
|
| 76 | + |
|
| 77 | + $description = $params['view_description'] ?? ''; |
|
| 78 | + $place_depth = (int) ($params['view_depth'] ?? 1); |
|
| 79 | + $top_places = (int) ($params['view_top_places'] ?? 0); |
|
| 80 | + |
|
| 81 | + $analysis = null; |
|
| 82 | + try { |
|
| 83 | + $analysis = app($params['view_analysis'] ?? ''); |
|
| 84 | + } catch (BindingResolutionException $ex) { |
|
| 85 | + } |
|
| 86 | + |
|
| 87 | + if ( |
|
| 88 | + $view === null |
|
| 89 | + || $analysis === null || !($analysis instanceof GeoAnalysisInterface) |
|
| 90 | + || $place_depth <= 0 && $top_places < 0 |
|
| 91 | + ) { |
|
| 92 | + FlashMessages::addMessage( |
|
| 93 | + I18N::translate('The parameters for view with ID “%s” are not valid.', I18N::number($view_id)), |
|
| 94 | + 'danger' |
|
| 95 | + ); |
|
| 96 | + return redirect($admin_config_route); |
|
| 97 | + } |
|
| 98 | + |
|
| 99 | + $new_view = $view |
|
| 100 | + ->with($view->isEnabled(), $description, $analysis, $place_depth, $top_places) |
|
| 101 | + ->withGlobalSettingsUpdate($request); |
|
| 102 | + |
|
| 103 | + try { |
|
| 104 | + $this->geoview_data_service->update($new_view); |
|
| 105 | + FlashMessages::addMessage( |
|
| 106 | + I18N::translate('The geographical dispersion analysis view has been successfully updated.'), |
|
| 107 | + 'success' |
|
| 108 | + ); |
|
| 109 | + //phpcs:ignore Generic.Files.LineLength.TooLong |
|
| 110 | + Log::addConfigurationLog('Module ' . $this->module->title() . ' : View “' . $view->id() . '” has been updated.'); |
|
| 111 | + } catch (Throwable $ex) { |
|
| 112 | + FlashMessages::addMessage( |
|
| 113 | + I18N::translate('An error occured while updating the geographical dispersion analysis view.'), |
|
| 114 | + 'danger' |
|
| 115 | + ); |
|
| 116 | + //phpcs:ignore Generic.Files.LineLength.TooLong |
|
| 117 | + Log::addErrorLog('Module ' . $this->module->title() . ' : Error when updating view “' . $view->id() . '”: ' . $ex->getMessage()); |
|
| 118 | + } |
|
| 119 | + |
|
| 120 | + return redirect($admin_config_route); |
|
| 121 | + } |
|
| 122 | 122 | } |
@@ -69,14 +69,14 @@ discard block |
||
| 69 | 69 | } |
| 70 | 70 | |
| 71 | 71 | |
| 72 | - $view_id = (int) $request->getAttribute('view_id'); |
|
| 72 | + $view_id = (int)$request->getAttribute('view_id'); |
|
| 73 | 73 | $view = $this->geoview_data_service->find($tree, $view_id, true); |
| 74 | 74 | |
| 75 | - $params = (array) $request->getParsedBody(); |
|
| 75 | + $params = (array)$request->getParsedBody(); |
|
| 76 | 76 | |
| 77 | 77 | $description = $params['view_description'] ?? ''; |
| 78 | - $place_depth = (int) ($params['view_depth'] ?? 1); |
|
| 79 | - $top_places = (int) ($params['view_top_places'] ?? 0); |
|
| 78 | + $place_depth = (int)($params['view_depth'] ?? 1); |
|
| 79 | + $top_places = (int)($params['view_top_places'] ?? 0); |
|
| 80 | 80 | |
| 81 | 81 | $analysis = null; |
| 82 | 82 | try { |
@@ -107,14 +107,14 @@ discard block |
||
| 107 | 107 | 'success' |
| 108 | 108 | ); |
| 109 | 109 | //phpcs:ignore Generic.Files.LineLength.TooLong |
| 110 | - Log::addConfigurationLog('Module ' . $this->module->title() . ' : View “' . $view->id() . '” has been updated.'); |
|
| 110 | + Log::addConfigurationLog('Module '.$this->module->title().' : View “'.$view->id().'” has been updated.'); |
|
| 111 | 111 | } catch (Throwable $ex) { |
| 112 | 112 | FlashMessages::addMessage( |
| 113 | 113 | I18N::translate('An error occured while updating the geographical dispersion analysis view.'), |
| 114 | 114 | 'danger' |
| 115 | 115 | ); |
| 116 | 116 | //phpcs:ignore Generic.Files.LineLength.TooLong |
| 117 | - Log::addErrorLog('Module ' . $this->module->title() . ' : Error when updating view “' . $view->id() . '”: ' . $ex->getMessage()); |
|
| 117 | + Log::addErrorLog('Module '.$this->module->title().' : Error when updating view “'.$view->id().'”: '.$ex->getMessage()); |
|
| 118 | 118 | } |
| 119 | 119 | |
| 120 | 120 | return redirect($admin_config_route); |
@@ -32,47 +32,47 @@ |
||
| 32 | 32 | */ |
| 33 | 33 | class GeoAnalysisViewsList implements RequestHandlerInterface |
| 34 | 34 | { |
| 35 | - use ViewResponseTrait; |
|
| 35 | + use ViewResponseTrait; |
|
| 36 | 36 | |
| 37 | - private ?GeoDispersionModule $module; |
|
| 38 | - private GeoAnalysisViewDataService $geoviewdata_service; |
|
| 37 | + private ?GeoDispersionModule $module; |
|
| 38 | + private GeoAnalysisViewDataService $geoviewdata_service; |
|
| 39 | 39 | |
| 40 | - /** |
|
| 41 | - * Constructor for GeoAnalysisViewsList Request Handler |
|
| 42 | - * |
|
| 43 | - * @param ModuleService $module_service |
|
| 44 | - */ |
|
| 45 | - public function __construct( |
|
| 46 | - ModuleService $module_service, |
|
| 47 | - GeoAnalysisViewDataService $geoviewdata_service |
|
| 48 | - ) { |
|
| 49 | - $this->module = $module_service->findByInterface(GeoDispersionModule::class)->first(); |
|
| 50 | - $this->geoviewdata_service = $geoviewdata_service; |
|
| 51 | - } |
|
| 40 | + /** |
|
| 41 | + * Constructor for GeoAnalysisViewsList Request Handler |
|
| 42 | + * |
|
| 43 | + * @param ModuleService $module_service |
|
| 44 | + */ |
|
| 45 | + public function __construct( |
|
| 46 | + ModuleService $module_service, |
|
| 47 | + GeoAnalysisViewDataService $geoviewdata_service |
|
| 48 | + ) { |
|
| 49 | + $this->module = $module_service->findByInterface(GeoDispersionModule::class)->first(); |
|
| 50 | + $this->geoviewdata_service = $geoviewdata_service; |
|
| 51 | + } |
|
| 52 | 52 | |
| 53 | - /** |
|
| 54 | - * {@inheritDoc} |
|
| 55 | - * @see \Psr\Http\Server\RequestHandlerInterface::handle() |
|
| 56 | - */ |
|
| 57 | - public function handle(ServerRequestInterface $request): ResponseInterface |
|
| 58 | - { |
|
| 59 | - if ($this->module === null) { |
|
| 60 | - throw new HttpNotFoundException(I18N::translate('The attached module could not be found.')); |
|
| 61 | - } |
|
| 53 | + /** |
|
| 54 | + * {@inheritDoc} |
|
| 55 | + * @see \Psr\Http\Server\RequestHandlerInterface::handle() |
|
| 56 | + */ |
|
| 57 | + public function handle(ServerRequestInterface $request): ResponseInterface |
|
| 58 | + { |
|
| 59 | + if ($this->module === null) { |
|
| 60 | + throw new HttpNotFoundException(I18N::translate('The attached module could not be found.')); |
|
| 61 | + } |
|
| 62 | 62 | |
| 63 | - $tree = $request->getAttribute('tree'); |
|
| 64 | - assert($tree instanceof Tree); |
|
| 63 | + $tree = $request->getAttribute('tree'); |
|
| 64 | + assert($tree instanceof Tree); |
|
| 65 | 65 | |
| 66 | - $views_list = $this->geoviewdata_service |
|
| 67 | - ->all($tree) |
|
| 68 | - ->sortBy(fn(AbstractGeoAnalysisView $view) => $view->description()); |
|
| 66 | + $views_list = $this->geoviewdata_service |
|
| 67 | + ->all($tree) |
|
| 68 | + ->sortBy(fn(AbstractGeoAnalysisView $view) => $view->description()); |
|
| 69 | 69 | |
| 70 | - return $this->viewResponse($this->module->name() . '::geoanalysisviews-list', [ |
|
| 71 | - 'module' => $this->module, |
|
| 72 | - 'title' => I18N::translate('Geographical dispersion'), |
|
| 73 | - 'tree' => $tree, |
|
| 74 | - 'views_list' => $views_list, |
|
| 75 | - 'js_script_url' => $this->module->assetUrl('js/geodispersion.min.js') |
|
| 76 | - ]); |
|
| 77 | - } |
|
| 70 | + return $this->viewResponse($this->module->name() . '::geoanalysisviews-list', [ |
|
| 71 | + 'module' => $this->module, |
|
| 72 | + 'title' => I18N::translate('Geographical dispersion'), |
|
| 73 | + 'tree' => $tree, |
|
| 74 | + 'views_list' => $views_list, |
|
| 75 | + 'js_script_url' => $this->module->assetUrl('js/geodispersion.min.js') |
|
| 76 | + ]); |
|
| 77 | + } |
|
| 78 | 78 | } |
@@ -67,7 +67,7 @@ |
||
| 67 | 67 | ->all($tree) |
| 68 | 68 | ->sortBy(fn(AbstractGeoAnalysisView $view) => $view->description()); |
| 69 | 69 | |
| 70 | - return $this->viewResponse($this->module->name() . '::geoanalysisviews-list', [ |
|
| 70 | + return $this->viewResponse($this->module->name().'::geoanalysisviews-list', [ |
|
| 71 | 71 | 'module' => $this->module, |
| 72 | 72 | 'title' => I18N::translate('Geographical dispersion'), |
| 73 | 73 | 'tree' => $tree, |
@@ -30,61 +30,61 @@ |
||
| 30 | 30 | */ |
| 31 | 31 | class GeoAnalysisViewTabs implements RequestHandlerInterface |
| 32 | 32 | { |
| 33 | - private ?GeoDispersionModule $module; |
|
| 34 | - private GeoAnalysisViewDataService $geoviewdata_service; |
|
| 33 | + private ?GeoDispersionModule $module; |
|
| 34 | + private GeoAnalysisViewDataService $geoviewdata_service; |
|
| 35 | 35 | |
| 36 | - /** |
|
| 37 | - * Constructor for GeoAnalysisMapsList Request Handler |
|
| 38 | - * |
|
| 39 | - * @param ModuleService $module_service |
|
| 40 | - */ |
|
| 41 | - public function __construct( |
|
| 42 | - ModuleService $module_service, |
|
| 43 | - GeoAnalysisViewDataService $geoviewdata_service |
|
| 44 | - ) { |
|
| 45 | - $this->module = $module_service->findByInterface(GeoDispersionModule::class)->first(); |
|
| 46 | - $this->geoviewdata_service = $geoviewdata_service; |
|
| 47 | - } |
|
| 36 | + /** |
|
| 37 | + * Constructor for GeoAnalysisMapsList Request Handler |
|
| 38 | + * |
|
| 39 | + * @param ModuleService $module_service |
|
| 40 | + */ |
|
| 41 | + public function __construct( |
|
| 42 | + ModuleService $module_service, |
|
| 43 | + GeoAnalysisViewDataService $geoviewdata_service |
|
| 44 | + ) { |
|
| 45 | + $this->module = $module_service->findByInterface(GeoDispersionModule::class)->first(); |
|
| 46 | + $this->geoviewdata_service = $geoviewdata_service; |
|
| 47 | + } |
|
| 48 | 48 | |
| 49 | - /** |
|
| 50 | - * {@inheritDoc} |
|
| 51 | - * @see \Psr\Http\Server\RequestHandlerInterface::handle() |
|
| 52 | - */ |
|
| 53 | - public function handle(ServerRequestInterface $request): ResponseInterface |
|
| 54 | - { |
|
| 55 | - if ($this->module === null) { |
|
| 56 | - throw new HttpNotFoundException(I18N::translate('The attached module could not be found.')); |
|
| 57 | - } |
|
| 49 | + /** |
|
| 50 | + * {@inheritDoc} |
|
| 51 | + * @see \Psr\Http\Server\RequestHandlerInterface::handle() |
|
| 52 | + */ |
|
| 53 | + public function handle(ServerRequestInterface $request): ResponseInterface |
|
| 54 | + { |
|
| 55 | + if ($this->module === null) { |
|
| 56 | + throw new HttpNotFoundException(I18N::translate('The attached module could not be found.')); |
|
| 57 | + } |
|
| 58 | 58 | |
| 59 | - $tree = $request->getAttribute('tree'); |
|
| 60 | - assert($tree instanceof Tree); |
|
| 59 | + $tree = $request->getAttribute('tree'); |
|
| 60 | + assert($tree instanceof Tree); |
|
| 61 | 61 | |
| 62 | - $view_id = $request->getAttribute('view_id'); |
|
| 63 | - $view_id = is_numeric($view_id) ? (int) $view_id : 0; |
|
| 62 | + $view_id = $request->getAttribute('view_id'); |
|
| 63 | + $view_id = is_numeric($view_id) ? (int) $view_id : 0; |
|
| 64 | 64 | |
| 65 | - $view = $this->geoviewdata_service->find($tree, $view_id); |
|
| 65 | + $view = $this->geoviewdata_service->find($tree, $view_id); |
|
| 66 | 66 | |
| 67 | - if ($view === null) { |
|
| 68 | - throw new HttpNotFoundException(I18N::translate('The requested dispersion analysis does not exist.')); |
|
| 69 | - } |
|
| 67 | + if ($view === null) { |
|
| 68 | + throw new HttpNotFoundException(I18N::translate('The requested dispersion analysis does not exist.')); |
|
| 69 | + } |
|
| 70 | 70 | |
| 71 | - $results = $view->analysis()->results($tree, $view->placesDepth()); |
|
| 71 | + $results = $view->analysis()->results($tree, $view->placesDepth()); |
|
| 72 | 72 | |
| 73 | - $params = [ |
|
| 74 | - 'module_name' => $this->module->name(), |
|
| 75 | - 'tree' => $tree, |
|
| 76 | - 'view' => $view, |
|
| 77 | - 'items_descr' => $view->analysis()->itemsDescription() |
|
| 78 | - ]; |
|
| 79 | - $response = [ |
|
| 80 | - 'global' => view('layouts/ajax', [ |
|
| 81 | - 'content' => $view->globalTabContent($this->module, $results->global(), $params) |
|
| 82 | - ]), |
|
| 83 | - 'detailed' => view('layouts/ajax', [ |
|
| 84 | - 'content' => $view->detailedTabContent($this->module, $results->sortedDetailed(), $params) |
|
| 85 | - ]) |
|
| 86 | - ]; |
|
| 73 | + $params = [ |
|
| 74 | + 'module_name' => $this->module->name(), |
|
| 75 | + 'tree' => $tree, |
|
| 76 | + 'view' => $view, |
|
| 77 | + 'items_descr' => $view->analysis()->itemsDescription() |
|
| 78 | + ]; |
|
| 79 | + $response = [ |
|
| 80 | + 'global' => view('layouts/ajax', [ |
|
| 81 | + 'content' => $view->globalTabContent($this->module, $results->global(), $params) |
|
| 82 | + ]), |
|
| 83 | + 'detailed' => view('layouts/ajax', [ |
|
| 84 | + 'content' => $view->detailedTabContent($this->module, $results->sortedDetailed(), $params) |
|
| 85 | + ]) |
|
| 86 | + ]; |
|
| 87 | 87 | |
| 88 | - return response($response); |
|
| 89 | - } |
|
| 88 | + return response($response); |
|
| 89 | + } |
|
| 90 | 90 | } |
@@ -60,7 +60,7 @@ |
||
| 60 | 60 | assert($tree instanceof Tree); |
| 61 | 61 | |
| 62 | 62 | $view_id = $request->getAttribute('view_id'); |
| 63 | - $view_id = is_numeric($view_id) ? (int) $view_id : 0; |
|
| 63 | + $view_id = is_numeric($view_id) ? (int)$view_id : 0; |
|
| 64 | 64 | |
| 65 | 65 | $view = $this->geoviewdata_service->find($tree, $view_id); |
| 66 | 66 | |
@@ -32,68 +32,68 @@ |
||
| 32 | 32 | */ |
| 33 | 33 | class MapAdapterMapperConfig implements RequestHandlerInterface |
| 34 | 34 | { |
| 35 | - use ViewResponseTrait; |
|
| 35 | + use ViewResponseTrait; |
|
| 36 | 36 | |
| 37 | - private ?GeoDispersionModule $module; |
|
| 38 | - private MapAdapterDataService $mapadapter_data_service; |
|
| 37 | + private ?GeoDispersionModule $module; |
|
| 38 | + private MapAdapterDataService $mapadapter_data_service; |
|
| 39 | 39 | |
| 40 | - /** |
|
| 41 | - * Constructor for MapAdapterMapperConfig Request Handler |
|
| 42 | - * |
|
| 43 | - * @param ModuleService $module_service |
|
| 44 | - * @param MapAdapterDataService $mapadapter_data_service |
|
| 45 | - */ |
|
| 46 | - public function __construct( |
|
| 47 | - ModuleService $module_service, |
|
| 48 | - MapAdapterDataService $mapadapter_data_service |
|
| 49 | - ) { |
|
| 50 | - $this->module = $module_service->findByInterface(GeoDispersionModule::class)->first(); |
|
| 51 | - $this->mapadapter_data_service = $mapadapter_data_service; |
|
| 52 | - } |
|
| 40 | + /** |
|
| 41 | + * Constructor for MapAdapterMapperConfig Request Handler |
|
| 42 | + * |
|
| 43 | + * @param ModuleService $module_service |
|
| 44 | + * @param MapAdapterDataService $mapadapter_data_service |
|
| 45 | + */ |
|
| 46 | + public function __construct( |
|
| 47 | + ModuleService $module_service, |
|
| 48 | + MapAdapterDataService $mapadapter_data_service |
|
| 49 | + ) { |
|
| 50 | + $this->module = $module_service->findByInterface(GeoDispersionModule::class)->first(); |
|
| 51 | + $this->mapadapter_data_service = $mapadapter_data_service; |
|
| 52 | + } |
|
| 53 | 53 | |
| 54 | - /** |
|
| 55 | - * {@inheritDoc} |
|
| 56 | - * @see \Psr\Http\Server\RequestHandlerInterface::handle() |
|
| 57 | - */ |
|
| 58 | - public function handle(ServerRequestInterface $request): ResponseInterface |
|
| 59 | - { |
|
| 60 | - $this->layout = 'layouts/ajax'; |
|
| 54 | + /** |
|
| 55 | + * {@inheritDoc} |
|
| 56 | + * @see \Psr\Http\Server\RequestHandlerInterface::handle() |
|
| 57 | + */ |
|
| 58 | + public function handle(ServerRequestInterface $request): ResponseInterface |
|
| 59 | + { |
|
| 60 | + $this->layout = 'layouts/ajax'; |
|
| 61 | 61 | |
| 62 | - if ($this->module === null) { |
|
| 63 | - throw new HttpNotFoundException(I18N::translate('The attached module could not be found.')); |
|
| 64 | - } |
|
| 65 | - $tree = $request->getAttribute('tree'); |
|
| 66 | - assert($tree instanceof Tree); |
|
| 62 | + if ($this->module === null) { |
|
| 63 | + throw new HttpNotFoundException(I18N::translate('The attached module could not be found.')); |
|
| 64 | + } |
|
| 65 | + $tree = $request->getAttribute('tree'); |
|
| 66 | + assert($tree instanceof Tree); |
|
| 67 | 67 | |
| 68 | - $adapter_id = (int) $request->getAttribute('adapter_id'); |
|
| 69 | - $map_adapter = $this->mapadapter_data_service->find($adapter_id); |
|
| 68 | + $adapter_id = (int) $request->getAttribute('adapter_id'); |
|
| 69 | + $map_adapter = $this->mapadapter_data_service->find($adapter_id); |
|
| 70 | 70 | |
| 71 | - $mapper_class = $request->getQueryParams()['mapper'] ?? ''; |
|
| 72 | - $mapper = null; |
|
| 73 | - if ($mapper_class === '' && $map_adapter !== null) { |
|
| 74 | - $mapper = $map_adapter->placeMapper(); |
|
| 75 | - } else { |
|
| 76 | - try { |
|
| 77 | - $mapper = app($mapper_class); |
|
| 78 | - } catch (BindingResolutionException $ex) { |
|
| 79 | - } |
|
| 71 | + $mapper_class = $request->getQueryParams()['mapper'] ?? ''; |
|
| 72 | + $mapper = null; |
|
| 73 | + if ($mapper_class === '' && $map_adapter !== null) { |
|
| 74 | + $mapper = $map_adapter->placeMapper(); |
|
| 75 | + } else { |
|
| 76 | + try { |
|
| 77 | + $mapper = app($mapper_class); |
|
| 78 | + } catch (BindingResolutionException $ex) { |
|
| 79 | + } |
|
| 80 | 80 | |
| 81 | - if ( |
|
| 82 | - $mapper !== null && $map_adapter !== null && |
|
| 83 | - get_class($map_adapter->placeMapper()) === get_class($mapper) |
|
| 84 | - ) { |
|
| 85 | - $mapper = $map_adapter->placeMapper(); |
|
| 86 | - } |
|
| 87 | - } |
|
| 81 | + if ( |
|
| 82 | + $mapper !== null && $map_adapter !== null && |
|
| 83 | + get_class($map_adapter->placeMapper()) === get_class($mapper) |
|
| 84 | + ) { |
|
| 85 | + $mapper = $map_adapter->placeMapper(); |
|
| 86 | + } |
|
| 87 | + } |
|
| 88 | 88 | |
| 89 | - if ($mapper === null || !($mapper instanceof PlaceMapperInterface)) { |
|
| 90 | - throw new HttpNotFoundException( |
|
| 91 | - I18N::translate('The configuration for the place mapper could not be found.') |
|
| 92 | - ); |
|
| 93 | - } |
|
| 89 | + if ($mapper === null || !($mapper instanceof PlaceMapperInterface)) { |
|
| 90 | + throw new HttpNotFoundException( |
|
| 91 | + I18N::translate('The configuration for the place mapper could not be found.') |
|
| 92 | + ); |
|
| 93 | + } |
|
| 94 | 94 | |
| 95 | - return $this->viewResponse('layouts/ajax', [ |
|
| 96 | - 'content' => $mapper->config()->configContent($this->module, $tree) |
|
| 97 | - ]); |
|
| 98 | - } |
|
| 95 | + return $this->viewResponse('layouts/ajax', [ |
|
| 96 | + 'content' => $mapper->config()->configContent($this->module, $tree) |
|
| 97 | + ]); |
|
| 98 | + } |
|
| 99 | 99 | } |
@@ -65,7 +65,7 @@ |
||
| 65 | 65 | $tree = $request->getAttribute('tree'); |
| 66 | 66 | assert($tree instanceof Tree); |
| 67 | 67 | |
| 68 | - $adapter_id = (int) $request->getAttribute('adapter_id'); |
|
| 68 | + $adapter_id = (int)$request->getAttribute('adapter_id'); |
|
| 69 | 69 | $map_adapter = $this->mapadapter_data_service->find($adapter_id); |
| 70 | 70 | |
| 71 | 71 | $mapper_class = $request->getQueryParams()['mapper'] ?? ''; |
@@ -31,49 +31,49 @@ |
||
| 31 | 31 | */ |
| 32 | 32 | class GeoAnalysisViewAddPage implements RequestHandlerInterface |
| 33 | 33 | { |
| 34 | - use ViewResponseTrait; |
|
| 34 | + use ViewResponseTrait; |
|
| 35 | 35 | |
| 36 | - private ?GeoDispersionModule $module; |
|
| 37 | - private GeoAnalysisService $geoanalysis_service; |
|
| 38 | - private GeoAnalysisDataService $geoanalysis_data_service; |
|
| 36 | + private ?GeoDispersionModule $module; |
|
| 37 | + private GeoAnalysisService $geoanalysis_service; |
|
| 38 | + private GeoAnalysisDataService $geoanalysis_data_service; |
|
| 39 | 39 | |
| 40 | - /** |
|
| 41 | - * Constructor for GeoAnalysisViewAddPage Request Handler |
|
| 42 | - * |
|
| 43 | - * @param ModuleService $module_service |
|
| 44 | - * @param GeoAnalysisService $geoanalysis_service |
|
| 45 | - * @param GeoAnalysisDataService $geoanalysis_data_service |
|
| 46 | - */ |
|
| 47 | - public function __construct( |
|
| 48 | - ModuleService $module_service, |
|
| 49 | - GeoAnalysisService $geoanalysis_service, |
|
| 50 | - GeoAnalysisDataService $geoanalysis_data_service |
|
| 51 | - ) { |
|
| 52 | - $this->module = $module_service->findByInterface(GeoDispersionModule::class)->first(); |
|
| 53 | - $this->geoanalysis_service = $geoanalysis_service; |
|
| 54 | - $this->geoanalysis_data_service = $geoanalysis_data_service; |
|
| 55 | - } |
|
| 40 | + /** |
|
| 41 | + * Constructor for GeoAnalysisViewAddPage Request Handler |
|
| 42 | + * |
|
| 43 | + * @param ModuleService $module_service |
|
| 44 | + * @param GeoAnalysisService $geoanalysis_service |
|
| 45 | + * @param GeoAnalysisDataService $geoanalysis_data_service |
|
| 46 | + */ |
|
| 47 | + public function __construct( |
|
| 48 | + ModuleService $module_service, |
|
| 49 | + GeoAnalysisService $geoanalysis_service, |
|
| 50 | + GeoAnalysisDataService $geoanalysis_data_service |
|
| 51 | + ) { |
|
| 52 | + $this->module = $module_service->findByInterface(GeoDispersionModule::class)->first(); |
|
| 53 | + $this->geoanalysis_service = $geoanalysis_service; |
|
| 54 | + $this->geoanalysis_data_service = $geoanalysis_data_service; |
|
| 55 | + } |
|
| 56 | 56 | |
| 57 | - /** |
|
| 58 | - * {@inheritDoc} |
|
| 59 | - * @see \Psr\Http\Server\RequestHandlerInterface::handle() |
|
| 60 | - */ |
|
| 61 | - public function handle(ServerRequestInterface $request): ResponseInterface |
|
| 62 | - { |
|
| 63 | - $this->layout = 'layouts/administration'; |
|
| 57 | + /** |
|
| 58 | + * {@inheritDoc} |
|
| 59 | + * @see \Psr\Http\Server\RequestHandlerInterface::handle() |
|
| 60 | + */ |
|
| 61 | + public function handle(ServerRequestInterface $request): ResponseInterface |
|
| 62 | + { |
|
| 63 | + $this->layout = 'layouts/administration'; |
|
| 64 | 64 | |
| 65 | - if ($this->module === null) { |
|
| 66 | - throw new HttpNotFoundException(I18N::translate('The attached module could not be found.')); |
|
| 67 | - } |
|
| 68 | - $tree = $request->getAttribute('tree'); |
|
| 69 | - assert($tree instanceof Tree); |
|
| 65 | + if ($this->module === null) { |
|
| 66 | + throw new HttpNotFoundException(I18N::translate('The attached module could not be found.')); |
|
| 67 | + } |
|
| 68 | + $tree = $request->getAttribute('tree'); |
|
| 69 | + assert($tree instanceof Tree); |
|
| 70 | 70 | |
| 71 | - return $this->viewResponse($this->module->name() . '::admin/view-add', [ |
|
| 72 | - 'module' => $this->module, |
|
| 73 | - 'title' => I18N::translate('Add a geographical dispersion analysis view'), |
|
| 74 | - 'tree' => $tree, |
|
| 75 | - 'geoanalysis_list' => $this->geoanalysis_service->all(), |
|
| 76 | - 'place_example' => $this->geoanalysis_data_service->placeHierarchyExample($tree) |
|
| 77 | - ]); |
|
| 78 | - } |
|
| 71 | + return $this->viewResponse($this->module->name() . '::admin/view-add', [ |
|
| 72 | + 'module' => $this->module, |
|
| 73 | + 'title' => I18N::translate('Add a geographical dispersion analysis view'), |
|
| 74 | + 'tree' => $tree, |
|
| 75 | + 'geoanalysis_list' => $this->geoanalysis_service->all(), |
|
| 76 | + 'place_example' => $this->geoanalysis_data_service->placeHierarchyExample($tree) |
|
| 77 | + ]); |
|
| 78 | + } |
|
| 79 | 79 | } |
@@ -68,7 +68,7 @@ |
||
| 68 | 68 | $tree = $request->getAttribute('tree'); |
| 69 | 69 | assert($tree instanceof Tree); |
| 70 | 70 | |
| 71 | - return $this->viewResponse($this->module->name() . '::admin/view-add', [ |
|
| 71 | + return $this->viewResponse($this->module->name().'::admin/view-add', [ |
|
| 72 | 72 | 'module' => $this->module, |
| 73 | 73 | 'title' => I18N::translate('Add a geographical dispersion analysis view'), |
| 74 | 74 | 'tree' => $tree, |