18add1155SRico Sonntag<?php 23976b470SGreg Roach 38add1155SRico Sonntag/** 48add1155SRico Sonntag * webtrees: online genealogy 5d11be702SGreg Roach * Copyright (C) 2023 webtrees development team 68add1155SRico Sonntag * This program is free software: you can redistribute it and/or modify 78add1155SRico Sonntag * it under the terms of the GNU General Public License as published by 88add1155SRico Sonntag * the Free Software Foundation, either version 3 of the License, or 98add1155SRico Sonntag * (at your option) any later version. 108add1155SRico Sonntag * This program is distributed in the hope that it will be useful, 118add1155SRico Sonntag * but WITHOUT ANY WARRANTY; without even the implied warranty of 128add1155SRico Sonntag * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 138add1155SRico Sonntag * GNU General Public License for more details. 148add1155SRico Sonntag * You should have received a copy of the GNU General Public License 1589f7189bSGreg Roach * along with this program. If not, see <https://www.gnu.org/licenses/>. 168add1155SRico Sonntag */ 17fcfa147eSGreg Roach 188add1155SRico Sonntagdeclare(strict_types=1); 198add1155SRico Sonntag 208add1155SRico Sonntagnamespace Fisharebest\Webtrees\Statistics\Google; 218add1155SRico Sonntag 226f4ec3caSGreg Roachuse Fisharebest\Webtrees\DB; 238add1155SRico Sonntaguse Fisharebest\Webtrees\I18N; 2493ccd686SRico Sonntaguse Fisharebest\Webtrees\Statistics\Service\CenturyService; 2593ccd686SRico Sonntaguse Fisharebest\Webtrees\Statistics\Service\ColorService; 268add1155SRico Sonntaguse Fisharebest\Webtrees\Tree; 2734e3587bSGreg Roachuse Illuminate\Support\Collection; 288add1155SRico Sonntag 2971378461SGreg Roachuse function count; 3034b20f29SGreg Roachuse function view; 3171378461SGreg Roach 328add1155SRico Sonntag/** 3393ccd686SRico Sonntag * A chart showing the marriages by century. 348add1155SRico Sonntag */ 3593ccd686SRico Sonntagclass ChartMarriage 368add1155SRico Sonntag{ 3734b20f29SGreg Roach private Tree $tree; 3893ccd686SRico Sonntag 3934b20f29SGreg Roach private CenturyService $century_service; 4093ccd686SRico Sonntag 4134b20f29SGreg Roach private ColorService $color_service; 428add1155SRico Sonntag 438add1155SRico Sonntag /** 44f78da678SGreg Roach * @param CenturyService $century_service 45f78da678SGreg Roach * @param ColorService $color_service 468add1155SRico Sonntag * @param Tree $tree 478add1155SRico Sonntag */ 48f78da678SGreg Roach public function __construct(CenturyService $century_service, ColorService $color_service, Tree $tree) 498add1155SRico Sonntag { 5093ccd686SRico Sonntag $this->tree = $tree; 51f78da678SGreg Roach $this->century_service = $century_service; 52f78da678SGreg Roach $this->color_service = $color_service; 538add1155SRico Sonntag } 548add1155SRico Sonntag 558add1155SRico Sonntag /** 568add1155SRico Sonntag * Returns the related database records. 578add1155SRico Sonntag * 58*d7c2f5ccSGreg Roach * @return Collection<array-key,object> 598add1155SRico Sonntag */ 6034e3587bSGreg Roach private function queryRecords(): Collection 618add1155SRico Sonntag { 6234e3587bSGreg Roach return DB::table('dates') 63cde98219SGreg Roach ->selectRaw('ROUND((d_year + 49) / 100, 0) AS century') 648add1155SRico Sonntag ->selectRaw('COUNT(*) AS total') 658add1155SRico Sonntag ->where('d_file', '=', $this->tree->id()) 668add1155SRico Sonntag ->where('d_year', '<>', 0) 678add1155SRico Sonntag ->where('d_fact', '=', 'MARR') 688add1155SRico Sonntag ->whereIn('d_type', ['@#DGREGORIAN@', '@#DJULIAN@']) 698add1155SRico Sonntag ->groupBy(['century']) 7034e3587bSGreg Roach ->orderBy('century') 7134e3587bSGreg Roach ->get() 72f25fc0f9SGreg Roach ->map(static fn (object $row): object => (object) [ 7334e3587bSGreg Roach 'century' => (int) $row->century, 7434e3587bSGreg Roach 'total' => (float) $row->total, 75f25fc0f9SGreg Roach ]); 768add1155SRico Sonntag } 778add1155SRico Sonntag 788add1155SRico Sonntag /** 798add1155SRico Sonntag * General query on marriages. 808add1155SRico Sonntag * 818add1155SRico Sonntag * @param string|null $color_from 828add1155SRico Sonntag * @param string|null $color_to 838add1155SRico Sonntag * 848add1155SRico Sonntag * @return string 858add1155SRico Sonntag */ 862c6f1bd5SGreg Roach public function chartMarriage(string|null $color_from = null, string|null $color_to = null): string 878add1155SRico Sonntag { 883529c469SGreg Roach $color_from ??= 'ffffff'; 893529c469SGreg Roach $color_to ??= '84beff'; 908add1155SRico Sonntag 9188de55fdSRico Sonntag $data = [ 9288de55fdSRico Sonntag [ 9388de55fdSRico Sonntag I18N::translate('Century'), 9488de55fdSRico Sonntag I18N::translate('Total') 9588de55fdSRico Sonntag ], 9688de55fdSRico Sonntag ]; 978add1155SRico Sonntag 9888de55fdSRico Sonntag foreach ($this->queryRecords() as $record) { 9988de55fdSRico Sonntag $data[] = [ 10034e3587bSGreg Roach $this->century_service->centuryName($record->century), 10188de55fdSRico Sonntag $record->total 10288de55fdSRico Sonntag ]; 1038add1155SRico Sonntag } 1048add1155SRico Sonntag 1056ccdf4f0SGreg Roach $colors = $this->color_service->interpolateRgb($color_from, $color_to, count($data) - 1); 1068add1155SRico Sonntag 10790a2f718SGreg Roach return view('statistics/other/charts/pie', [ 10893ccd686SRico Sonntag 'title' => I18N::translate('Marriages by century'), 10988de55fdSRico Sonntag 'data' => $data, 11088de55fdSRico Sonntag 'colors' => $colors, 11165cf5706SGreg Roach 'language' => I18N::languageTag(), 11290a2f718SGreg Roach ]); 1138add1155SRico Sonntag } 1148add1155SRico Sonntag} 115