18add1155SRico Sonntag<?php 28add1155SRico Sonntag/** 38add1155SRico Sonntag * webtrees: online genealogy 48add1155SRico Sonntag * Copyright (C) 2018 webtrees development team 58add1155SRico Sonntag * This program is free software: you can redistribute it and/or modify 68add1155SRico Sonntag * it under the terms of the GNU General Public License as published by 78add1155SRico Sonntag * the Free Software Foundation, either version 3 of the License, or 88add1155SRico Sonntag * (at your option) any later version. 98add1155SRico Sonntag * This program is distributed in the hope that it will be useful, 108add1155SRico Sonntag * but WITHOUT ANY WARRANTY; without even the implied warranty of 118add1155SRico Sonntag * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 128add1155SRico Sonntag * GNU General Public License for more details. 138add1155SRico Sonntag * You should have received a copy of the GNU General Public License 148add1155SRico Sonntag * along with this program. If not, see <http://www.gnu.org/licenses/>. 158add1155SRico Sonntag */ 168add1155SRico Sonntagdeclare(strict_types=1); 178add1155SRico Sonntag 188add1155SRico Sonntagnamespace Fisharebest\Webtrees\Statistics\Google; 198add1155SRico Sonntag 208add1155SRico Sonntaguse Fisharebest\Webtrees\I18N; 218add1155SRico Sonntaguse Fisharebest\Webtrees\Statistics\AbstractGoogle; 228add1155SRico Sonntaguse Fisharebest\Webtrees\Statistics\Helper\Century; 238add1155SRico Sonntaguse Fisharebest\Webtrees\Tree; 248add1155SRico Sonntaguse Illuminate\Database\Capsule\Manager as DB; 258add1155SRico Sonntag 268add1155SRico Sonntag/** 278add1155SRico Sonntag * 288add1155SRico Sonntag */ 298add1155SRico Sonntagclass ChartDivorce extends AbstractGoogle 308add1155SRico Sonntag{ 318add1155SRico Sonntag /** 328add1155SRico Sonntag * @var Century 338add1155SRico Sonntag */ 348add1155SRico Sonntag private $centuryHelper; 358add1155SRico Sonntag 368add1155SRico Sonntag /** 378add1155SRico Sonntag * Constructor. 388add1155SRico Sonntag * 398add1155SRico Sonntag * @param Tree $tree 408add1155SRico Sonntag */ 418add1155SRico Sonntag public function __construct(Tree $tree) 428add1155SRico Sonntag { 43*88de55fdSRico Sonntag parent::__construct($tree); 44*88de55fdSRico Sonntag 458add1155SRico Sonntag $this->centuryHelper = new Century(); 468add1155SRico Sonntag } 478add1155SRico Sonntag 488add1155SRico Sonntag /** 498add1155SRico Sonntag * Returns the related database records. 508add1155SRico Sonntag * 518add1155SRico Sonntag * @return \stdClass[] 528add1155SRico Sonntag */ 538add1155SRico Sonntag private function queryRecords(): array 548add1155SRico Sonntag { 558add1155SRico Sonntag $query = DB::table('dates') 563dc8167dSGreg Roach ->selectRaw('ROUND((d_year - 50) / 100) AS century') 578add1155SRico Sonntag ->selectRaw('COUNT(*) AS total') 588add1155SRico Sonntag ->where('d_file', '=', $this->tree->id()) 598add1155SRico Sonntag ->where('d_year', '<>', 0) 608add1155SRico Sonntag ->where('d_fact', '=', 'DIV') 618add1155SRico Sonntag ->whereIn('d_type', ['@#DGREGORIAN@', '@#DJULIAN@']) 628add1155SRico Sonntag ->groupBy(['century']) 638add1155SRico Sonntag ->orderBy('century'); 648add1155SRico Sonntag 658add1155SRico Sonntag return $query->get()->all(); 668add1155SRico Sonntag } 678add1155SRico Sonntag 688add1155SRico Sonntag /** 698add1155SRico Sonntag * General query on divorces. 708add1155SRico Sonntag * 718add1155SRico Sonntag * @param string|null $color_from 728add1155SRico Sonntag * @param string|null $color_to 738add1155SRico Sonntag * 748add1155SRico Sonntag * @return string 758add1155SRico Sonntag */ 76*88de55fdSRico Sonntag public function chartDivorce(string $color_from = null, string $color_to = null): string 778add1155SRico Sonntag { 78*88de55fdSRico Sonntag $chart_color1 = (string) $this->theme->parameter('distribution-chart-no-values'); 79*88de55fdSRico Sonntag $chart_color2 = (string) $this->theme->parameter('distribution-chart-high-values'); 808add1155SRico Sonntag $color_from = $color_from ?? $chart_color1; 818add1155SRico Sonntag $color_to = $color_to ?? $chart_color2; 828add1155SRico Sonntag 83*88de55fdSRico Sonntag $data = [ 84*88de55fdSRico Sonntag [ 85*88de55fdSRico Sonntag I18N::translate('Century'), 86*88de55fdSRico Sonntag I18N::translate('Total') 87*88de55fdSRico Sonntag ], 88*88de55fdSRico Sonntag ]; 898add1155SRico Sonntag 90*88de55fdSRico Sonntag foreach ($this->queryRecords() as $record) { 91*88de55fdSRico Sonntag $data[] = [ 92*88de55fdSRico Sonntag $this->centuryHelper->centuryName((int) $record->century), 93*88de55fdSRico Sonntag $record->total 94*88de55fdSRico Sonntag ]; 958add1155SRico Sonntag } 968add1155SRico Sonntag 97*88de55fdSRico Sonntag $colors = $this->interpolateRgb($color_from, $color_to, \count($data) - 1); 988add1155SRico Sonntag 998add1155SRico Sonntag return view( 100*88de55fdSRico Sonntag 'statistics/other/charts/pie', 1018add1155SRico Sonntag [ 102*88de55fdSRico Sonntag 'title' => I18N::translate('Divorces by century'), 103*88de55fdSRico Sonntag 'data' => $data, 104*88de55fdSRico Sonntag 'colors' => $colors, 1058add1155SRico Sonntag ] 1068add1155SRico Sonntag ); 1078add1155SRico Sonntag } 1088add1155SRico Sonntag} 109