@@ -23,8 +23,8 @@ discard block |
||
| 23 | 23 | * {@inhericDoc} |
| 24 | 24 | * @see \MyArtJaub\Webtrees\Mvc\View\AbstractView::renderContent() |
| 25 | 25 | */ |
| 26 | - protected function renderContent() { |
|
| 27 | - ?> |
|
| 26 | + protected function renderContent() { |
|
| 27 | + ?> |
|
| 28 | 28 | <div id="maj-sosa-stats-page"> |
| 29 | 29 | <h2><?php echo $this->data->get('title'); ?></h2> |
| 30 | 30 | |
@@ -36,7 +36,7 @@ discard block |
||
| 36 | 36 | <?php } ?> |
| 37 | 37 | |
| 38 | 38 | <?php if($this->data->get('is_setup')) { |
| 39 | - $general_stats = $this->data->get('general_stats'); ?> |
|
| 39 | + $general_stats = $this->data->get('general_stats'); ?> |
|
| 40 | 40 | <h3><?php echo I18N::translate('General statistics'); ?></h3> |
| 41 | 41 | <div class="maj-table"> |
| 42 | 42 | <div class="maj-row"> |
@@ -126,23 +126,23 @@ discard block |
||
| 126 | 126 | <td class="label" colspan="13"> |
| 127 | 127 | <?php |
| 128 | 128 | echo I18N::translate( |
| 129 | - 'Mean generation depth: %s', |
|
| 130 | - I18N::plural( |
|
| 131 | - I18N::translate('%s generation'), |
|
| 132 | - I18N::translate('%s generations'), |
|
| 133 | - $this->data->get('mean_gen_depth'), |
|
| 134 | - I18N::number($this->data->get('mean_gen_depth'),2) |
|
| 135 | - ) |
|
| 136 | - ). |
|
| 129 | + 'Mean generation depth: %s', |
|
| 130 | + I18N::plural( |
|
| 131 | + I18N::translate('%s generation'), |
|
| 132 | + I18N::translate('%s generations'), |
|
| 133 | + $this->data->get('mean_gen_depth'), |
|
| 134 | + I18N::number($this->data->get('mean_gen_depth'),2) |
|
| 135 | + ) |
|
| 136 | + ). |
|
| 137 | 137 | ' — ' . |
| 138 | 138 | I18N::translate( |
| 139 | - 'Standard deviation: %s', |
|
| 140 | - I18N::plural( |
|
| 141 | - I18N::translate('%s generation'), |
|
| 142 | - I18N::translate('%s generations'), |
|
| 143 | - $this->data->get('stddev_gen_depth'), |
|
| 144 | - I18N::number($this->data->get('stddev_gen_depth'),2) |
|
| 145 | - ) |
|
| 139 | + 'Standard deviation: %s', |
|
| 140 | + I18N::plural( |
|
| 141 | + I18N::translate('%s generation'), |
|
| 142 | + I18N::translate('%s generations'), |
|
| 143 | + $this->data->get('stddev_gen_depth'), |
|
| 144 | + I18N::number($this->data->get('stddev_gen_depth'),2) |
|
| 145 | + ) |
|
| 146 | 146 | ); |
| 147 | 147 | ?> |
| 148 | 148 | </td> |
@@ -160,13 +160,13 @@ discard block |
||
| 160 | 160 | <div class="maj-row"> |
| 161 | 161 | <div class="label"><?= I18N::translate('%s times', I18N::number($count)); ?></div> |
| 162 | 162 | <div class="value"><?php |
| 163 | - echo implode( |
|
| 164 | - I18N::$list_separator, |
|
| 165 | - array_map(function(Individual $indi) { |
|
| 166 | - return '<a href="'. $indi->getHtmlUrl(). '">'. $indi->getFullName() . ' ' . $indi->getSexImage() . '</a>'; |
|
| 167 | - }, $indis) |
|
| 168 | - ); |
|
| 169 | - ?></div> |
|
| 163 | + echo implode( |
|
| 164 | + I18N::$list_separator, |
|
| 165 | + array_map(function(Individual $indi) { |
|
| 166 | + return '<a href="'. $indi->getHtmlUrl(). '">'. $indi->getFullName() . ' ' . $indi->getSexImage() . '</a>'; |
|
| 167 | + }, $indis) |
|
| 168 | + ); |
|
| 169 | + ?></div> |
|
| 170 | 170 | </div> |
| 171 | 171 | <?php } ?> |
| 172 | 172 | </div> |
@@ -187,6 +187,6 @@ discard block |
||
| 187 | 187 | <?php } else { ?> |
| 188 | 188 | <div class="center warning"><?php echo I18N::translate('No Sosa root individual has been defined.'); ?></div> |
| 189 | 189 | <?php } |
| 190 | - } |
|
| 190 | + } |
|
| 191 | 191 | |
| 192 | 192 | } |
| 193 | 193 | \ No newline at end of file |
@@ -22,13 +22,13 @@ |
||
| 22 | 22 | public function upgrade() { |
| 23 | 23 | |
| 24 | 24 | Database::exec( |
| 25 | - 'ALTER TABLE `##maj_sosa`' . |
|
| 26 | - ' ADD COLUMN majs_birth_year_est SMALLINT NULL AFTER majs_birth_year,' . |
|
| 27 | - ' ADD COLUMN majs_death_year_est SMALLINT NULL AFTER majs_death_year' |
|
| 25 | + 'ALTER TABLE `##maj_sosa`' . |
|
| 26 | + ' ADD COLUMN majs_birth_year_est SMALLINT NULL AFTER majs_birth_year,' . |
|
| 27 | + ' ADD COLUMN majs_death_year_est SMALLINT NULL AFTER majs_death_year' |
|
| 28 | 28 | ); |
| 29 | 29 | |
| 30 | 30 | Database::exec( |
| 31 | - 'DELETE FROM `##maj_sosa`' |
|
| 31 | + 'DELETE FROM `##maj_sosa`' |
|
| 32 | 32 | ); |
| 33 | 33 | } |
| 34 | 34 | } |
@@ -28,279 +28,279 @@ |
||
| 28 | 28 | */ |
| 29 | 29 | class SosaStatsController extends MvcController |
| 30 | 30 | { |
| 31 | - /** |
|
| 32 | - * Sosa Provider for the controller |
|
| 33 | - * @var SosaProvider $sosa_provider |
|
| 34 | - */ |
|
| 35 | - protected $sosa_provider; |
|
| 31 | + /** |
|
| 32 | + * Sosa Provider for the controller |
|
| 33 | + * @var SosaProvider $sosa_provider |
|
| 34 | + */ |
|
| 35 | + protected $sosa_provider; |
|
| 36 | 36 | |
| 37 | - /** |
|
| 38 | - * Constructor for SosaStatsController |
|
| 39 | - * @param AbstractModule $module |
|
| 40 | - */ |
|
| 41 | - public function __construct(AbstractModule $module) { |
|
| 42 | - parent::__construct($module); |
|
| 37 | + /** |
|
| 38 | + * Constructor for SosaStatsController |
|
| 39 | + * @param AbstractModule $module |
|
| 40 | + */ |
|
| 41 | + public function __construct(AbstractModule $module) { |
|
| 42 | + parent::__construct($module); |
|
| 43 | 43 | |
| 44 | - $this->sosa_provider = new SosaProvider(Globals::getTree(), Auth::user()); |
|
| 45 | - } |
|
| 44 | + $this->sosa_provider = new SosaProvider(Globals::getTree(), Auth::user()); |
|
| 45 | + } |
|
| 46 | 46 | |
| 47 | - /** |
|
| 48 | - * Pages |
|
| 49 | - */ |
|
| 47 | + /** |
|
| 48 | + * Pages |
|
| 49 | + */ |
|
| 50 | 50 | |
| 51 | - /** |
|
| 52 | - * SosaStats@index |
|
| 53 | - */ |
|
| 54 | - public function index() { |
|
| 55 | - $wt_tree = Globals::getTree(); |
|
| 56 | - $controller = new PageController(); |
|
| 57 | - $controller |
|
| 58 | - ->setPageTitle(I18N::translate('Sosa Statistics')) |
|
| 59 | - ->addInlineJavascript('$(".help_tooltip").tooltip();') |
|
| 60 | - ; |
|
| 51 | + /** |
|
| 52 | + * SosaStats@index |
|
| 53 | + */ |
|
| 54 | + public function index() { |
|
| 55 | + $wt_tree = Globals::getTree(); |
|
| 56 | + $controller = new PageController(); |
|
| 57 | + $controller |
|
| 58 | + ->setPageTitle(I18N::translate('Sosa Statistics')) |
|
| 59 | + ->addInlineJavascript('$(".help_tooltip").tooltip();') |
|
| 60 | + ; |
|
| 61 | 61 | |
| 62 | - $view_bag = new ViewBag(); |
|
| 63 | - $view_bag->set('title', $controller->getPageTitle()); |
|
| 64 | - $view_bag->set('is_setup', false); |
|
| 62 | + $view_bag = new ViewBag(); |
|
| 63 | + $view_bag->set('title', $controller->getPageTitle()); |
|
| 64 | + $view_bag->set('is_setup', false); |
|
| 65 | 65 | |
| 66 | - if($this->sosa_provider->isSetup()) { |
|
| 67 | - $view_bag->set('is_setup', true); |
|
| 66 | + if($this->sosa_provider->isSetup()) { |
|
| 67 | + $view_bag->set('is_setup', true); |
|
| 68 | 68 | |
| 69 | - $view_bag->set('root_indi', $this->sosa_provider->getRootIndi()); |
|
| 69 | + $view_bag->set('root_indi', $this->sosa_provider->getRootIndi()); |
|
| 70 | 70 | |
| 71 | - $sosaCount = $this->sosa_provider->getSosaCount(); |
|
| 72 | - $diffSosaCount = $this->sosa_provider->getDifferentSosaCount(); |
|
| 71 | + $sosaCount = $this->sosa_provider->getSosaCount(); |
|
| 72 | + $diffSosaCount = $this->sosa_provider->getDifferentSosaCount(); |
|
| 73 | 73 | |
| 74 | - $general_stats = array( |
|
| 75 | - 'sosa_count' => $sosaCount, |
|
| 76 | - 'distinct_count' => $diffSosaCount, |
|
| 77 | - 'sosa_rate' => Functions::safeDivision($diffSosaCount, $this->sosa_provider->getTotalIndividuals()), |
|
| 78 | - 'pedi_collapse' => 1 - Functions::safeDivision($diffSosaCount, $sosaCount), |
|
| 79 | - 'mean_gen_time' => $this->sosa_provider->getMeanGenerationTime() |
|
| 80 | - ); |
|
| 81 | - $view_bag->set('general_stats', $general_stats); |
|
| 74 | + $general_stats = array( |
|
| 75 | + 'sosa_count' => $sosaCount, |
|
| 76 | + 'distinct_count' => $diffSosaCount, |
|
| 77 | + 'sosa_rate' => Functions::safeDivision($diffSosaCount, $this->sosa_provider->getTotalIndividuals()), |
|
| 78 | + 'pedi_collapse' => 1 - Functions::safeDivision($diffSosaCount, $sosaCount), |
|
| 79 | + 'mean_gen_time' => $this->sosa_provider->getMeanGenerationTime() |
|
| 80 | + ); |
|
| 81 | + $view_bag->set('general_stats', $general_stats); |
|
| 82 | 82 | |
| 83 | - $stats_gen = $this->sosa_provider->getStatisticsByGeneration(); |
|
| 84 | - $view_bag->set('missinganc_url', 'module.php?mod='.$this->module->getName().'&mod_action=SosaList@missing&ged='.$wt_tree->getNameUrl().'&gen='); |
|
| 85 | - $view_bag->set('sosaanc_url', 'module.php?mod='.$this->module->getName().'&mod_action=SosaList&ged='.$wt_tree->getNameUrl().'&gen='); |
|
| 83 | + $stats_gen = $this->sosa_provider->getStatisticsByGeneration(); |
|
| 84 | + $view_bag->set('missinganc_url', 'module.php?mod='.$this->module->getName().'&mod_action=SosaList@missing&ged='.$wt_tree->getNameUrl().'&gen='); |
|
| 85 | + $view_bag->set('sosaanc_url', 'module.php?mod='.$this->module->getName().'&mod_action=SosaList&ged='.$wt_tree->getNameUrl().'&gen='); |
|
| 86 | 86 | |
| 87 | - $gen_theoretical=1; |
|
| 88 | - $total_theoretical=0; |
|
| 89 | - $prev_diff=0; |
|
| 90 | - $prev_known=0.5; |
|
| 91 | - $generation_stats = array(); |
|
| 87 | + $gen_theoretical=1; |
|
| 88 | + $total_theoretical=0; |
|
| 89 | + $prev_diff=0; |
|
| 90 | + $prev_known=0.5; |
|
| 91 | + $generation_stats = array(); |
|
| 92 | 92 | |
| 93 | - foreach($stats_gen as $gen => $tab){ |
|
| 94 | - $genY1= I18N::translate('-'); |
|
| 95 | - $genY2= I18N::translate('-'); |
|
| 96 | - if($tab['firstBirth']>0) $genY1=$tab['firstEstimatedBirth']; |
|
| 97 | - if($tab['lastBirth']>0) $genY2=$tab['lastEstimatedBirth']; |
|
| 98 | - $total_theoretical += $gen_theoretical; |
|
| 99 | - $perc_sosa_count_theor = Functions::safeDivision($tab['sosaCount'], $gen_theoretical); |
|
| 100 | - $missing=2*$prev_known - $tab['sosaCount']; |
|
| 101 | - $gen_diff=$tab['diffSosaTotalCount']-$prev_diff; |
|
| 93 | + foreach($stats_gen as $gen => $tab){ |
|
| 94 | + $genY1= I18N::translate('-'); |
|
| 95 | + $genY2= I18N::translate('-'); |
|
| 96 | + if($tab['firstBirth']>0) $genY1=$tab['firstEstimatedBirth']; |
|
| 97 | + if($tab['lastBirth']>0) $genY2=$tab['lastEstimatedBirth']; |
|
| 98 | + $total_theoretical += $gen_theoretical; |
|
| 99 | + $perc_sosa_count_theor = Functions::safeDivision($tab['sosaCount'], $gen_theoretical); |
|
| 100 | + $missing=2*$prev_known - $tab['sosaCount']; |
|
| 101 | + $gen_diff=$tab['diffSosaTotalCount']-$prev_diff; |
|
| 102 | 102 | |
| 103 | - $generation_stats[$gen] = array( |
|
| 104 | - 'gen_min_birth' => $genY1, |
|
| 105 | - 'gen_max_birth' => $genY2, |
|
| 106 | - 'theoretical' => $gen_theoretical, |
|
| 107 | - 'known' => $tab['sosaCount'], |
|
| 108 | - 'perc_known' => $perc_sosa_count_theor, |
|
| 109 | - 'missing' => $missing, |
|
| 110 | - 'perc_missing' => 1-Functions::safeDivision($tab['sosaCount'], 2*$prev_known), |
|
| 111 | - 'total_known' => $tab['sosaTotalCount'], |
|
| 112 | - 'perc_total_known' => Functions::safeDivision($tab['sosaTotalCount'], $total_theoretical), |
|
| 113 | - 'different' => $gen_diff, |
|
| 114 | - 'perc_different' => Functions::safeDivision($gen_diff, $tab['sosaCount']), |
|
| 115 | - 'total_different' => $tab['diffSosaTotalCount'], |
|
| 116 | - 'pedi_collapse' => 1 - Functions::safeDivision($tab['diffSosaTotalCount'], $tab['sosaTotalCount']) |
|
| 117 | - ); |
|
| 103 | + $generation_stats[$gen] = array( |
|
| 104 | + 'gen_min_birth' => $genY1, |
|
| 105 | + 'gen_max_birth' => $genY2, |
|
| 106 | + 'theoretical' => $gen_theoretical, |
|
| 107 | + 'known' => $tab['sosaCount'], |
|
| 108 | + 'perc_known' => $perc_sosa_count_theor, |
|
| 109 | + 'missing' => $missing, |
|
| 110 | + 'perc_missing' => 1-Functions::safeDivision($tab['sosaCount'], 2*$prev_known), |
|
| 111 | + 'total_known' => $tab['sosaTotalCount'], |
|
| 112 | + 'perc_total_known' => Functions::safeDivision($tab['sosaTotalCount'], $total_theoretical), |
|
| 113 | + 'different' => $gen_diff, |
|
| 114 | + 'perc_different' => Functions::safeDivision($gen_diff, $tab['sosaCount']), |
|
| 115 | + 'total_different' => $tab['diffSosaTotalCount'], |
|
| 116 | + 'pedi_collapse' => 1 - Functions::safeDivision($tab['diffSosaTotalCount'], $tab['sosaTotalCount']) |
|
| 117 | + ); |
|
| 118 | 118 | |
| 119 | - $gen_theoretical = $gen_theoretical * 2; |
|
| 120 | - $prev_known=$tab['sosaCount']; |
|
| 121 | - $prev_diff=$tab['diffSosaTotalCount']; |
|
| 122 | - } |
|
| 119 | + $gen_theoretical = $gen_theoretical * 2; |
|
| 120 | + $prev_known=$tab['sosaCount']; |
|
| 121 | + $prev_diff=$tab['diffSosaTotalCount']; |
|
| 122 | + } |
|
| 123 | 123 | |
| 124 | - $view_bag->set('generation_stats', $generation_stats); |
|
| 124 | + $view_bag->set('generation_stats', $generation_stats); |
|
| 125 | 125 | |
| 126 | - $gen_depth_stats = $this->sosa_provider->getGenerationDepthStatsAtGen(1); |
|
| 127 | - $view_bag->set('mean_gen_depth', count($gen_depth_stats) > 0 ? $gen_depth_stats[1]['mean_gen_depth'] : 0); |
|
| 128 | - $view_bag->set('stddev_gen_depth', count($gen_depth_stats) > 0 ? $gen_depth_stats[1]['stddev_gen_depth'] : 0); |
|
| 126 | + $gen_depth_stats = $this->sosa_provider->getGenerationDepthStatsAtGen(1); |
|
| 127 | + $view_bag->set('mean_gen_depth', count($gen_depth_stats) > 0 ? $gen_depth_stats[1]['mean_gen_depth'] : 0); |
|
| 128 | + $view_bag->set('stddev_gen_depth', count($gen_depth_stats) > 0 ? $gen_depth_stats[1]['stddev_gen_depth'] : 0); |
|
| 129 | 129 | |
| 130 | - $view_bag->set('top10multiancestors', $this->getTop10Ancestors()); |
|
| 130 | + $view_bag->set('top10multiancestors', $this->getTop10Ancestors()); |
|
| 131 | 131 | |
| 132 | - $view_bag->set('chart_img_g2', $this->htmlAncestorDispersionG2()); |
|
| 133 | - $view_bag->set('chart_img_g3', $this->htmlAncestorDispersionG3()); |
|
| 132 | + $view_bag->set('chart_img_g2', $this->htmlAncestorDispersionG2()); |
|
| 133 | + $view_bag->set('chart_img_g3', $this->htmlAncestorDispersionG3()); |
|
| 134 | 134 | |
| 135 | - $view_bag->set('chart_img_gendepth3', $this->htmlAncestorGenDepthG3()); |
|
| 136 | - //$view_bag->set('mean_gen_depth_gen3_stats', $this->sosa_provider->getMeanGeneratuonDepthAndDeviationAtGen(3)); |
|
| 137 | - } |
|
| 135 | + $view_bag->set('chart_img_gendepth3', $this->htmlAncestorGenDepthG3()); |
|
| 136 | + //$view_bag->set('mean_gen_depth_gen3_stats', $this->sosa_provider->getMeanGeneratuonDepthAndDeviationAtGen(3)); |
|
| 137 | + } |
|
| 138 | 138 | |
| 139 | - ViewFactory::make('SosaStats', $this, $controller, $view_bag)->render(); |
|
| 140 | - } |
|
| 139 | + ViewFactory::make('SosaStats', $this, $controller, $view_bag)->render(); |
|
| 140 | + } |
|
| 141 | 141 | |
| 142 | - /** |
|
| 143 | - * Return an array of the top 10 of ancestor appearing multiple times, grouped by the number of occurrences. |
|
| 144 | - * The key is the number of appearance, and the value contains the list of Inidvidual |
|
| 145 | - * |
|
| 146 | - * @return array Top 10 ancestors with count |
|
| 147 | - */ |
|
| 148 | - private function getTop10Ancestors() |
|
| 149 | - { |
|
| 150 | - $top10multiancestors = $this->sosa_provider->getTopMultiSosaAncestorsNoTies(10); |
|
| 151 | - $top10ancestors = array(); |
|
| 152 | - if($top10multiancestors !== null && count($top10multiancestors)) { |
|
| 153 | - foreach($top10multiancestors as $pid => $count) { |
|
| 154 | - $indi = Individual::getInstance($pid, $this->sosa_provider->getTree()); |
|
| 155 | - if($indi !== null && $indi->canShowName()) { |
|
| 156 | - array_key_exists($count, $top10ancestors) ? |
|
| 157 | - $top10ancestors[$count][] = $indi: |
|
| 158 | - $top10ancestors[$count] = array($count => $indi); |
|
| 159 | - } |
|
| 160 | - } |
|
| 161 | - } |
|
| 162 | - return $top10ancestors; |
|
| 163 | - } |
|
| 142 | + /** |
|
| 143 | + * Return an array of the top 10 of ancestor appearing multiple times, grouped by the number of occurrences. |
|
| 144 | + * The key is the number of appearance, and the value contains the list of Inidvidual |
|
| 145 | + * |
|
| 146 | + * @return array Top 10 ancestors with count |
|
| 147 | + */ |
|
| 148 | + private function getTop10Ancestors() |
|
| 149 | + { |
|
| 150 | + $top10multiancestors = $this->sosa_provider->getTopMultiSosaAncestorsNoTies(10); |
|
| 151 | + $top10ancestors = array(); |
|
| 152 | + if($top10multiancestors !== null && count($top10multiancestors)) { |
|
| 153 | + foreach($top10multiancestors as $pid => $count) { |
|
| 154 | + $indi = Individual::getInstance($pid, $this->sosa_provider->getTree()); |
|
| 155 | + if($indi !== null && $indi->canShowName()) { |
|
| 156 | + array_key_exists($count, $top10ancestors) ? |
|
| 157 | + $top10ancestors[$count][] = $indi: |
|
| 158 | + $top10ancestors[$count] = array($count => $indi); |
|
| 159 | + } |
|
| 160 | + } |
|
| 161 | + } |
|
| 162 | + return $top10ancestors; |
|
| 163 | + } |
|
| 164 | 164 | |
| 165 | - /** |
|
| 166 | - * Returns HTML code for a graph showing the dispersion of ancestors across father & mother |
|
| 167 | - * @return string HTML code |
|
| 168 | - */ |
|
| 169 | - private function htmlAncestorDispersionG2() |
|
| 170 | - { |
|
| 171 | - $ancestorsDispGen2 = $this->sosa_provider->getAncestorDispersionForGen(2); |
|
| 172 | - if(count($ancestorsDispGen2) == 0) return; |
|
| 165 | + /** |
|
| 166 | + * Returns HTML code for a graph showing the dispersion of ancestors across father & mother |
|
| 167 | + * @return string HTML code |
|
| 168 | + */ |
|
| 169 | + private function htmlAncestorDispersionG2() |
|
| 170 | + { |
|
| 171 | + $ancestorsDispGen2 = $this->sosa_provider->getAncestorDispersionForGen(2); |
|
| 172 | + if(count($ancestorsDispGen2) == 0) return; |
|
| 173 | 173 | |
| 174 | - $size = '600x300'; |
|
| 174 | + $size = '600x300'; |
|
| 175 | 175 | |
| 176 | - $total = array_sum($ancestorsDispGen2); |
|
| 177 | - $father_count = array_key_exists(1, $ancestorsDispGen2) ? $ancestorsDispGen2[1] : 0; |
|
| 178 | - $father = array ( |
|
| 179 | - 'color' => '84beff', |
|
| 180 | - 'count' => $father_count, |
|
| 181 | - 'perc' => Functions::safeDivision($father_count, $total), |
|
| 182 | - 'name' => \Fisharebest\Webtrees\Functions\Functions::getRelationshipNameFromPath('fat') |
|
| 183 | - ); |
|
| 184 | - $mother_count = array_key_exists(2, $ancestorsDispGen2) ? $ancestorsDispGen2[2] : 0; |
|
| 185 | - $mother = array ( |
|
| 186 | - 'color' => 'ffd1dc', |
|
| 187 | - 'count' => $mother_count, |
|
| 188 | - 'perc' => Functions::safeDivision($mother_count, $total), |
|
| 189 | - 'name' => \Fisharebest\Webtrees\Functions\Functions::getRelationshipNameFromPath('mot') |
|
| 190 | - ); |
|
| 191 | - $shared_count = array_key_exists(-1, $ancestorsDispGen2) ? $ancestorsDispGen2[-1] : 0; |
|
| 192 | - $shared = array ( |
|
| 193 | - 'color' => '777777', |
|
| 194 | - 'count' => $shared_count, |
|
| 195 | - 'perc' => Functions::safeDivision($shared_count, $total), |
|
| 196 | - 'name' => I18N::translate('Shared') |
|
| 197 | - ); |
|
| 176 | + $total = array_sum($ancestorsDispGen2); |
|
| 177 | + $father_count = array_key_exists(1, $ancestorsDispGen2) ? $ancestorsDispGen2[1] : 0; |
|
| 178 | + $father = array ( |
|
| 179 | + 'color' => '84beff', |
|
| 180 | + 'count' => $father_count, |
|
| 181 | + 'perc' => Functions::safeDivision($father_count, $total), |
|
| 182 | + 'name' => \Fisharebest\Webtrees\Functions\Functions::getRelationshipNameFromPath('fat') |
|
| 183 | + ); |
|
| 184 | + $mother_count = array_key_exists(2, $ancestorsDispGen2) ? $ancestorsDispGen2[2] : 0; |
|
| 185 | + $mother = array ( |
|
| 186 | + 'color' => 'ffd1dc', |
|
| 187 | + 'count' => $mother_count, |
|
| 188 | + 'perc' => Functions::safeDivision($mother_count, $total), |
|
| 189 | + 'name' => \Fisharebest\Webtrees\Functions\Functions::getRelationshipNameFromPath('mot') |
|
| 190 | + ); |
|
| 191 | + $shared_count = array_key_exists(-1, $ancestorsDispGen2) ? $ancestorsDispGen2[-1] : 0; |
|
| 192 | + $shared = array ( |
|
| 193 | + 'color' => '777777', |
|
| 194 | + 'count' => $shared_count, |
|
| 195 | + 'perc' => Functions::safeDivision($shared_count, $total), |
|
| 196 | + 'name' => I18N::translate('Shared') |
|
| 197 | + ); |
|
| 198 | 198 | |
| 199 | - $chd = $this->arrayToExtendedEncoding(array(4095 * $father['perc'], 4095 * $shared['perc'], 4095 * $mother['perc'])); |
|
| 200 | - $chart_title = I18N::translate('Known Sosa ancestors\' dispersion'); |
|
| 201 | - $chl = |
|
| 202 | - $father['name'] . ' - ' . I18N::percentage($father['perc'], 1) . '|' . |
|
| 203 | - $shared['name'] . ' - ' . I18N::percentage($shared['perc'], 1) . '|' . |
|
| 204 | - $mother['name'] . ' - ' . I18N::percentage($mother['perc'], 1); |
|
| 205 | - return "<img src=\"https://chart.googleapis.com/chart?cht=p&chp=1.5708&chd=e:{$chd}&chs={$size}&chco={$father['color']},{$shared['color']},{$mother['color']}&chf=bg,s,ffffff00&chl={$chl}\" alt=\"" . $chart_title . "\" title=\"" . $chart_title . "\" />"; |
|
| 206 | - } |
|
| 199 | + $chd = $this->arrayToExtendedEncoding(array(4095 * $father['perc'], 4095 * $shared['perc'], 4095 * $mother['perc'])); |
|
| 200 | + $chart_title = I18N::translate('Known Sosa ancestors\' dispersion'); |
|
| 201 | + $chl = |
|
| 202 | + $father['name'] . ' - ' . I18N::percentage($father['perc'], 1) . '|' . |
|
| 203 | + $shared['name'] . ' - ' . I18N::percentage($shared['perc'], 1) . '|' . |
|
| 204 | + $mother['name'] . ' - ' . I18N::percentage($mother['perc'], 1); |
|
| 205 | + return "<img src=\"https://chart.googleapis.com/chart?cht=p&chp=1.5708&chd=e:{$chd}&chs={$size}&chco={$father['color']},{$shared['color']},{$mother['color']}&chf=bg,s,ffffff00&chl={$chl}\" alt=\"" . $chart_title . "\" title=\"" . $chart_title . "\" />"; |
|
| 206 | + } |
|
| 207 | 207 | |
| 208 | - /** |
|
| 209 | - * Returns HTML code for a graph showing the dispersion of ancestors across grand-parents |
|
| 210 | - * @return string HTML code |
|
| 211 | - */ |
|
| 212 | - private function htmlAncestorDispersionG3() |
|
| 213 | - { |
|
| 214 | - $ancestorsDispGen2 = $this->sosa_provider->getAncestorDispersionForGen(3); |
|
| 208 | + /** |
|
| 209 | + * Returns HTML code for a graph showing the dispersion of ancestors across grand-parents |
|
| 210 | + * @return string HTML code |
|
| 211 | + */ |
|
| 212 | + private function htmlAncestorDispersionG3() |
|
| 213 | + { |
|
| 214 | + $ancestorsDispGen2 = $this->sosa_provider->getAncestorDispersionForGen(3); |
|
| 215 | 215 | |
| 216 | - $size = '700x300'; |
|
| 216 | + $size = '700x300'; |
|
| 217 | 217 | |
| 218 | - $color_motmot = 'ffd1dc'; |
|
| 219 | - $color_motfat = 'b998a0'; |
|
| 220 | - $color_fatfat = '577292'; |
|
| 221 | - $color_fatmot = '84beff'; |
|
| 222 | - $color_shared = '777777'; |
|
| 218 | + $color_motmot = 'ffd1dc'; |
|
| 219 | + $color_motfat = 'b998a0'; |
|
| 220 | + $color_fatfat = '577292'; |
|
| 221 | + $color_fatmot = '84beff'; |
|
| 222 | + $color_shared = '777777'; |
|
| 223 | 223 | |
| 224 | - $total_fatfat = array_key_exists(1, $ancestorsDispGen2) ? $ancestorsDispGen2[1] : 0; |
|
| 225 | - $total_fatmot = array_key_exists(2, $ancestorsDispGen2) ? $ancestorsDispGen2[2] : 0; |
|
| 226 | - $total_motfat = array_key_exists(4, $ancestorsDispGen2) ? $ancestorsDispGen2[4] : 0; |
|
| 227 | - $total_motmot = array_key_exists(8, $ancestorsDispGen2) ? $ancestorsDispGen2[8] : 0; |
|
| 228 | - $total_sha = array_key_exists(-1, $ancestorsDispGen2) ? $ancestorsDispGen2[-1] : 0; |
|
| 229 | - $total = $total_fatfat + $total_fatmot + $total_motfat+ $total_motmot + $total_sha; |
|
| 224 | + $total_fatfat = array_key_exists(1, $ancestorsDispGen2) ? $ancestorsDispGen2[1] : 0; |
|
| 225 | + $total_fatmot = array_key_exists(2, $ancestorsDispGen2) ? $ancestorsDispGen2[2] : 0; |
|
| 226 | + $total_motfat = array_key_exists(4, $ancestorsDispGen2) ? $ancestorsDispGen2[4] : 0; |
|
| 227 | + $total_motmot = array_key_exists(8, $ancestorsDispGen2) ? $ancestorsDispGen2[8] : 0; |
|
| 228 | + $total_sha = array_key_exists(-1, $ancestorsDispGen2) ? $ancestorsDispGen2[-1] : 0; |
|
| 229 | + $total = $total_fatfat + $total_fatmot + $total_motfat+ $total_motmot + $total_sha; |
|
| 230 | 230 | |
| 231 | - $chd = $this->arrayToExtendedEncoding(array( |
|
| 232 | - 4095 * Functions::safeDivision($total_fatfat, $total), |
|
| 233 | - 4095 * Functions::safeDivision($total_fatmot, $total), |
|
| 234 | - 4095 * Functions::safeDivision($total_sha, $total), |
|
| 235 | - 4095 * Functions::safeDivision($total_motfat, $total), |
|
| 236 | - 4095 * Functions::safeDivision($total_motmot, $total) |
|
| 237 | - )); |
|
| 238 | - $chart_title = I18N::translate('Known Sosa ancestors\' dispersion - G3'); |
|
| 239 | - $chl = |
|
| 240 | - \Fisharebest\Webtrees\Functions\Functions::getRelationshipNameFromPath('fatfat') . ' - ' . I18N::percentage(Functions::safeDivision($total_fatfat, $total), 1) . '|' . |
|
| 241 | - \Fisharebest\Webtrees\Functions\Functions::getRelationshipNameFromPath('fatmot') . ' - ' . I18N::percentage(Functions::safeDivision($total_fatmot, $total), 1) . '|' . |
|
| 242 | - I18N::translate('Shared') . ' - ' . I18N::percentage(Functions::safeDivision($total_sha, $total), 1) . '|' . |
|
| 243 | - \Fisharebest\Webtrees\Functions\Functions::getRelationshipNameFromPath('motfat') . ' - ' . I18N::percentage(Functions::safeDivision($total_motfat, $total), 1) . '|' . |
|
| 244 | - \Fisharebest\Webtrees\Functions\Functions::getRelationshipNameFromPath('motmot') . ' - ' . I18N::percentage(Functions::safeDivision($total_motmot, $total), 1); |
|
| 245 | - return "<img src=\"https://chart.googleapis.com/chart?cht=p&chp=1.5708&chd=e:{$chd}&chs={$size}&chco={$color_fatfat},{$color_fatmot},{$color_shared},{$color_motfat},{$color_motmot}&chf=bg,s,ffffff00&chl={$chl}\" alt=\"" . $chart_title . "\" title=\"" . $chart_title . "\" />"; |
|
| 246 | - } |
|
| 231 | + $chd = $this->arrayToExtendedEncoding(array( |
|
| 232 | + 4095 * Functions::safeDivision($total_fatfat, $total), |
|
| 233 | + 4095 * Functions::safeDivision($total_fatmot, $total), |
|
| 234 | + 4095 * Functions::safeDivision($total_sha, $total), |
|
| 235 | + 4095 * Functions::safeDivision($total_motfat, $total), |
|
| 236 | + 4095 * Functions::safeDivision($total_motmot, $total) |
|
| 237 | + )); |
|
| 238 | + $chart_title = I18N::translate('Known Sosa ancestors\' dispersion - G3'); |
|
| 239 | + $chl = |
|
| 240 | + \Fisharebest\Webtrees\Functions\Functions::getRelationshipNameFromPath('fatfat') . ' - ' . I18N::percentage(Functions::safeDivision($total_fatfat, $total), 1) . '|' . |
|
| 241 | + \Fisharebest\Webtrees\Functions\Functions::getRelationshipNameFromPath('fatmot') . ' - ' . I18N::percentage(Functions::safeDivision($total_fatmot, $total), 1) . '|' . |
|
| 242 | + I18N::translate('Shared') . ' - ' . I18N::percentage(Functions::safeDivision($total_sha, $total), 1) . '|' . |
|
| 243 | + \Fisharebest\Webtrees\Functions\Functions::getRelationshipNameFromPath('motfat') . ' - ' . I18N::percentage(Functions::safeDivision($total_motfat, $total), 1) . '|' . |
|
| 244 | + \Fisharebest\Webtrees\Functions\Functions::getRelationshipNameFromPath('motmot') . ' - ' . I18N::percentage(Functions::safeDivision($total_motmot, $total), 1); |
|
| 245 | + return "<img src=\"https://chart.googleapis.com/chart?cht=p&chp=1.5708&chd=e:{$chd}&chs={$size}&chco={$color_fatfat},{$color_fatmot},{$color_shared},{$color_motfat},{$color_motmot}&chf=bg,s,ffffff00&chl={$chl}\" alt=\"" . $chart_title . "\" title=\"" . $chart_title . "\" />"; |
|
| 246 | + } |
|
| 247 | 247 | |
| 248 | - /** |
|
| 249 | - * Returns HTML code for a graph showing the grand-parents' mean generation depth and standard deviation |
|
| 250 | - * @return string HTML code |
|
| 251 | - */ |
|
| 252 | - private function htmlAncestorGenDepthG3() { |
|
| 253 | - $ancestorsGenDepth3 = $this->sosa_provider->getGenerationDepthStatsAtGen(3); |
|
| 254 | - if(count($ancestorsGenDepth3) == 0) return; |
|
| 248 | + /** |
|
| 249 | + * Returns HTML code for a graph showing the grand-parents' mean generation depth and standard deviation |
|
| 250 | + * @return string HTML code |
|
| 251 | + */ |
|
| 252 | + private function htmlAncestorGenDepthG3() { |
|
| 253 | + $ancestorsGenDepth3 = $this->sosa_provider->getGenerationDepthStatsAtGen(3); |
|
| 254 | + if(count($ancestorsGenDepth3) == 0) return; |
|
| 255 | 255 | |
| 256 | - $ancestors = array(); |
|
| 257 | - $chd_mean = array(); |
|
| 258 | - $chd_error_low = array(); |
|
| 259 | - $chd_error_high = array(); |
|
| 260 | - foreach($ancestorsGenDepth3 as $sosa => $genDepthStat) { |
|
| 261 | - $ancestor = Individual::getInstance($genDepthStat['root_ancestor_id'], $this->sosa_provider->getTree()); |
|
| 262 | - if($ancestor !== null && $ancestor->canShowName()) { |
|
| 263 | - $tmp = $ancestor->getAllNames(); |
|
| 264 | - $ancestors[] = Filter::escapeUrl($tmp[$ancestor->getPrimaryName()]['fullNN']); |
|
| 265 | - } |
|
| 266 | - else { |
|
| 267 | - $ancestors[] = I18N::translate('Sosa %s', I18N::number($sosa)); |
|
| 268 | - } |
|
| 269 | - $chd_mean[] = $genDepthStat['mean_gen_depth']; |
|
| 270 | - $chd_error_low[] = $genDepthStat['mean_gen_depth'] - $genDepthStat['stddev_gen_depth']; |
|
| 271 | - $chd_error_high[] = $genDepthStat['mean_gen_depth'] + $genDepthStat['stddev_gen_depth']; |
|
| 272 | - } |
|
| 256 | + $ancestors = array(); |
|
| 257 | + $chd_mean = array(); |
|
| 258 | + $chd_error_low = array(); |
|
| 259 | + $chd_error_high = array(); |
|
| 260 | + foreach($ancestorsGenDepth3 as $sosa => $genDepthStat) { |
|
| 261 | + $ancestor = Individual::getInstance($genDepthStat['root_ancestor_id'], $this->sosa_provider->getTree()); |
|
| 262 | + if($ancestor !== null && $ancestor->canShowName()) { |
|
| 263 | + $tmp = $ancestor->getAllNames(); |
|
| 264 | + $ancestors[] = Filter::escapeUrl($tmp[$ancestor->getPrimaryName()]['fullNN']); |
|
| 265 | + } |
|
| 266 | + else { |
|
| 267 | + $ancestors[] = I18N::translate('Sosa %s', I18N::number($sosa)); |
|
| 268 | + } |
|
| 269 | + $chd_mean[] = $genDepthStat['mean_gen_depth']; |
|
| 270 | + $chd_error_low[] = $genDepthStat['mean_gen_depth'] - $genDepthStat['stddev_gen_depth']; |
|
| 271 | + $chd_error_high[] = $genDepthStat['mean_gen_depth'] + $genDepthStat['stddev_gen_depth']; |
|
| 272 | + } |
|
| 273 | 273 | |
| 274 | - $maxChd = ceil(max($chd_error_high)); |
|
| 275 | - $chd = implode(',', $chd_mean) . '|' . implode(',', $chd_error_low) . '|' . implode(',', $chd_error_high); |
|
| 276 | - $chxl = implode('|', array_reverse($ancestors)); |
|
| 277 | - $chbh = 30; |
|
| 278 | - $chs = 4 * $chbh + 50; |
|
| 279 | - $chxl_title = I18N::translate('Mean generation depth and standard deviation'); |
|
| 274 | + $maxChd = ceil(max($chd_error_high)); |
|
| 275 | + $chd = implode(',', $chd_mean) . '|' . implode(',', $chd_error_low) . '|' . implode(',', $chd_error_high); |
|
| 276 | + $chxl = implode('|', array_reverse($ancestors)); |
|
| 277 | + $chbh = 30; |
|
| 278 | + $chs = 4 * $chbh + 50; |
|
| 279 | + $chxl_title = I18N::translate('Mean generation depth and standard deviation'); |
|
| 280 | 280 | |
| 281 | - return "<img src=\"https://chart.googleapis.com/chart?cht=bhs&chco=84beff&chs=600x{$chs}&chbh={$chbh}&chd=t1:{$chd}&chds=0,{$maxChd}&chxt=x,x,y&chxl=1:|{$chxl_title}|2:|{$chxl}&chxp=1,50&chxr=0,0,{$maxChd},1&chm=E,577292,1:2,,2\" />"; |
|
| 282 | - } |
|
| 281 | + return "<img src=\"https://chart.googleapis.com/chart?cht=bhs&chco=84beff&chs=600x{$chs}&chbh={$chbh}&chd=t1:{$chd}&chds=0,{$maxChd}&chxt=x,x,y&chxl=1:|{$chxl_title}|2:|{$chxl}&chxp=1,50&chxr=0,0,{$maxChd},1&chm=E,577292,1:2,,2\" />"; |
|
| 282 | + } |
|
| 283 | 283 | |
| 284 | - /** |
|
| 285 | - * Convert an array to Google Chart encoding |
|
| 286 | - * @param arrat $a Array to encode |
|
| 287 | - * @return string |
|
| 288 | - */ |
|
| 289 | - private function arrayToExtendedEncoding($a) { |
|
| 290 | - $xencoding = WT_GOOGLE_CHART_ENCODING; |
|
| 284 | + /** |
|
| 285 | + * Convert an array to Google Chart encoding |
|
| 286 | + * @param arrat $a Array to encode |
|
| 287 | + * @return string |
|
| 288 | + */ |
|
| 289 | + private function arrayToExtendedEncoding($a) { |
|
| 290 | + $xencoding = WT_GOOGLE_CHART_ENCODING; |
|
| 291 | 291 | |
| 292 | - $encoding = ''; |
|
| 293 | - foreach ($a as $value) { |
|
| 294 | - if ($value < 0) { |
|
| 295 | - $value = 0; |
|
| 296 | - } |
|
| 297 | - $first = (int) ($value / 64); |
|
| 298 | - $second = $value % 64; |
|
| 299 | - $encoding .= $xencoding[(int) $first] . $xencoding[(int) $second]; |
|
| 300 | - } |
|
| 292 | + $encoding = ''; |
|
| 293 | + foreach ($a as $value) { |
|
| 294 | + if ($value < 0) { |
|
| 295 | + $value = 0; |
|
| 296 | + } |
|
| 297 | + $first = (int) ($value / 64); |
|
| 298 | + $second = $value % 64; |
|
| 299 | + $encoding .= $xencoding[(int) $first] . $xencoding[(int) $second]; |
|
| 300 | + } |
|
| 301 | 301 | |
| 302 | - return $encoding; |
|
| 303 | - } |
|
| 302 | + return $encoding; |
|
| 303 | + } |
|
| 304 | 304 | |
| 305 | 305 | |
| 306 | 306 | } |
| 307 | 307 | \ No newline at end of file |
@@ -93,8 +93,12 @@ discard block |
||
| 93 | 93 | foreach($stats_gen as $gen => $tab){ |
| 94 | 94 | $genY1= I18N::translate('-'); |
| 95 | 95 | $genY2= I18N::translate('-'); |
| 96 | - if($tab['firstBirth']>0) $genY1=$tab['firstEstimatedBirth']; |
|
| 97 | - if($tab['lastBirth']>0) $genY2=$tab['lastEstimatedBirth']; |
|
| 96 | + if($tab['firstBirth']>0) { |
|
| 97 | + $genY1=$tab['firstEstimatedBirth']; |
|
| 98 | + } |
|
| 99 | + if($tab['lastBirth']>0) { |
|
| 100 | + $genY2=$tab['lastEstimatedBirth']; |
|
| 101 | + } |
|
| 98 | 102 | $total_theoretical += $gen_theoretical; |
| 99 | 103 | $perc_sosa_count_theor = Functions::safeDivision($tab['sosaCount'], $gen_theoretical); |
| 100 | 104 | $missing=2*$prev_known - $tab['sosaCount']; |
@@ -169,7 +173,9 @@ discard block |
||
| 169 | 173 | private function htmlAncestorDispersionG2() |
| 170 | 174 | { |
| 171 | 175 | $ancestorsDispGen2 = $this->sosa_provider->getAncestorDispersionForGen(2); |
| 172 | - if(count($ancestorsDispGen2) == 0) return; |
|
| 176 | + if(count($ancestorsDispGen2) == 0) { |
|
| 177 | + return; |
|
| 178 | + } |
|
| 173 | 179 | |
| 174 | 180 | $size = '600x300'; |
| 175 | 181 | |
@@ -251,7 +257,9 @@ discard block |
||
| 251 | 257 | */ |
| 252 | 258 | private function htmlAncestorGenDepthG3() { |
| 253 | 259 | $ancestorsGenDepth3 = $this->sosa_provider->getGenerationDepthStatsAtGen(3); |
| 254 | - if(count($ancestorsGenDepth3) == 0) return; |
|
| 260 | + if(count($ancestorsGenDepth3) == 0) { |
|
| 261 | + return; |
|
| 262 | + } |
|
| 255 | 263 | |
| 256 | 264 | $ancestors = array(); |
| 257 | 265 | $chd_mean = array(); |
@@ -262,8 +270,7 @@ discard block |
||
| 262 | 270 | if($ancestor !== null && $ancestor->canShowName()) { |
| 263 | 271 | $tmp = $ancestor->getAllNames(); |
| 264 | 272 | $ancestors[] = Filter::escapeUrl($tmp[$ancestor->getPrimaryName()]['fullNN']); |
| 265 | - } |
|
| 266 | - else { |
|
| 273 | + } else { |
|
| 267 | 274 | $ancestors[] = I18N::translate('Sosa %s', I18N::number($sosa)); |
| 268 | 275 | } |
| 269 | 276 | $chd_mean[] = $genDepthStat['mean_gen_depth']; |
@@ -22,413 +22,413 @@ discard block |
||
| 22 | 22 | */ |
| 23 | 23 | class SosaProvider { |
| 24 | 24 | |
| 25 | - /** |
|
| 26 | - * Maximum number of generation the database is able to hold. |
|
| 27 | - * @var int MAX_DB_GENERATIONS |
|
| 28 | - */ |
|
| 29 | - const MAX_DB_GENERATIONS = 64; |
|
| 30 | - |
|
| 31 | - /** |
|
| 32 | - * System's default user (ID -1 in the database |
|
| 33 | - * @var User $default_user |
|
| 34 | - */ |
|
| 35 | - protected static $default_user; |
|
| 36 | - |
|
| 37 | - /** |
|
| 38 | - * Reference user |
|
| 39 | - * @var User $user |
|
| 40 | - */ |
|
| 41 | - protected $user; |
|
| 42 | - |
|
| 43 | - /** |
|
| 44 | - * Reference tree |
|
| 45 | - * @var Tree $tree |
|
| 46 | - */ |
|
| 47 | - protected $tree; |
|
| 48 | - |
|
| 49 | - /** |
|
| 50 | - * Cached list of Sosa Individuals by generation |
|
| 51 | - * Format: key = generation, value = array ( sosa => Individual ID) |
|
| 52 | - * @var array $sosa_list_by_gen |
|
| 53 | - */ |
|
| 54 | - protected $sosa_list_by_gen; |
|
| 55 | - |
|
| 56 | - /** |
|
| 57 | - * Cached list of Sosa Families by generation |
|
| 58 | - * Format: key = generation, value = array ( sosa => Family ID) |
|
| 59 | - * @var unknown $sosa_fam_list_by_gen |
|
| 60 | - */ |
|
| 61 | - protected $sosa_fam_list_by_gen; |
|
| 62 | - |
|
| 63 | - /** |
|
| 64 | - * Cached array of statistics by generation |
|
| 65 | - * Format: key = generation, |
|
| 66 | - * value = array( |
|
| 67 | - * sosaCount, sosaTotalCount, diffSosaTotalCount, firstBirth, lastBirth, avgBirth |
|
| 68 | - * ) |
|
| 69 | - * @var array $statistics_tab |
|
| 70 | - */ |
|
| 71 | - protected $statistics_tab; |
|
| 72 | - |
|
| 73 | - /** |
|
| 74 | - * Has the provider's initialisation completed |
|
| 75 | - * @var bool $is_setup |
|
| 76 | - */ |
|
| 77 | - protected $is_setup; |
|
| 78 | - |
|
| 79 | - /** |
|
| 80 | - * Constructor for Sosa Provider. |
|
| 81 | - * A provider is defined in relation to a specific tree and reference user. |
|
| 82 | - * |
|
| 83 | - * @param Tree $tree |
|
| 84 | - * @param User $user |
|
| 85 | - */ |
|
| 86 | - public function __construct(Tree $tree, User $user = null) { |
|
| 87 | - if(self::$default_user === null) |
|
| 88 | - self::$default_user = User::find(-1); |
|
| 25 | + /** |
|
| 26 | + * Maximum number of generation the database is able to hold. |
|
| 27 | + * @var int MAX_DB_GENERATIONS |
|
| 28 | + */ |
|
| 29 | + const MAX_DB_GENERATIONS = 64; |
|
| 30 | + |
|
| 31 | + /** |
|
| 32 | + * System's default user (ID -1 in the database |
|
| 33 | + * @var User $default_user |
|
| 34 | + */ |
|
| 35 | + protected static $default_user; |
|
| 36 | + |
|
| 37 | + /** |
|
| 38 | + * Reference user |
|
| 39 | + * @var User $user |
|
| 40 | + */ |
|
| 41 | + protected $user; |
|
| 42 | + |
|
| 43 | + /** |
|
| 44 | + * Reference tree |
|
| 45 | + * @var Tree $tree |
|
| 46 | + */ |
|
| 47 | + protected $tree; |
|
| 48 | + |
|
| 49 | + /** |
|
| 50 | + * Cached list of Sosa Individuals by generation |
|
| 51 | + * Format: key = generation, value = array ( sosa => Individual ID) |
|
| 52 | + * @var array $sosa_list_by_gen |
|
| 53 | + */ |
|
| 54 | + protected $sosa_list_by_gen; |
|
| 55 | + |
|
| 56 | + /** |
|
| 57 | + * Cached list of Sosa Families by generation |
|
| 58 | + * Format: key = generation, value = array ( sosa => Family ID) |
|
| 59 | + * @var unknown $sosa_fam_list_by_gen |
|
| 60 | + */ |
|
| 61 | + protected $sosa_fam_list_by_gen; |
|
| 62 | + |
|
| 63 | + /** |
|
| 64 | + * Cached array of statistics by generation |
|
| 65 | + * Format: key = generation, |
|
| 66 | + * value = array( |
|
| 67 | + * sosaCount, sosaTotalCount, diffSosaTotalCount, firstBirth, lastBirth, avgBirth |
|
| 68 | + * ) |
|
| 69 | + * @var array $statistics_tab |
|
| 70 | + */ |
|
| 71 | + protected $statistics_tab; |
|
| 72 | + |
|
| 73 | + /** |
|
| 74 | + * Has the provider's initialisation completed |
|
| 75 | + * @var bool $is_setup |
|
| 76 | + */ |
|
| 77 | + protected $is_setup; |
|
| 78 | + |
|
| 79 | + /** |
|
| 80 | + * Constructor for Sosa Provider. |
|
| 81 | + * A provider is defined in relation to a specific tree and reference user. |
|
| 82 | + * |
|
| 83 | + * @param Tree $tree |
|
| 84 | + * @param User $user |
|
| 85 | + */ |
|
| 86 | + public function __construct(Tree $tree, User $user = null) { |
|
| 87 | + if(self::$default_user === null) |
|
| 88 | + self::$default_user = User::find(-1); |
|
| 89 | 89 | |
| 90 | - $this->tree = $tree; |
|
| 91 | - $this->user = $user; |
|
| 92 | - $this->is_setup = true; |
|
| 93 | - if($this->user === null) $this->user = Auth::user(); |
|
| 94 | - if(strlen($this->user->getUserId()) == 0) $this->user = self::$default_user; |
|
| 90 | + $this->tree = $tree; |
|
| 91 | + $this->user = $user; |
|
| 92 | + $this->is_setup = true; |
|
| 93 | + if($this->user === null) $this->user = Auth::user(); |
|
| 94 | + if(strlen($this->user->getUserId()) == 0) $this->user = self::$default_user; |
|
| 95 | 95 | |
| 96 | - // Check if the user, or the default user, has a root already setup; |
|
| 97 | - if(empty($this->getRootIndiId())) { |
|
| 98 | - if($this->user == self::$default_user) { // If the default user is not setup |
|
| 99 | - $this->is_setup = false; |
|
| 100 | - } |
|
| 101 | - else { |
|
| 102 | - $this->user = self::$default_user; |
|
| 103 | - $this->is_setup = $this->getRootIndiId() === null; |
|
| 104 | - } |
|
| 105 | - } |
|
| 106 | - } |
|
| 107 | - |
|
| 108 | - /** |
|
| 109 | - * Returns is the Provider has been successfully set up |
|
| 110 | - * @return bool |
|
| 111 | - */ |
|
| 112 | - public function isSetup() { |
|
| 113 | - return $this->is_setup; |
|
| 114 | - } |
|
| 115 | - |
|
| 116 | - /** |
|
| 117 | - * Return the reference tree |
|
| 118 | - * |
|
| 119 | - * @return Tree Reference tree |
|
| 120 | - */ |
|
| 121 | - public function getTree() { |
|
| 122 | - return $this->tree; |
|
| 123 | - } |
|
| 124 | - |
|
| 125 | - /** |
|
| 126 | - * Return the reference user |
|
| 127 | - * |
|
| 128 | - * @return User |
|
| 129 | - */ |
|
| 130 | - public function getUser() { |
|
| 131 | - return $this->user; |
|
| 132 | - } |
|
| 133 | - |
|
| 134 | - /** |
|
| 135 | - * Return the root individual ID for the reference tree and user. |
|
| 136 | - * @return string Individual ID |
|
| 137 | - */ |
|
| 138 | - public function getRootIndiId() { |
|
| 139 | - return $this->tree->getUserPreference($this->user, 'MAJ_SOSA_ROOT_ID'); |
|
| 140 | - } |
|
| 141 | - |
|
| 142 | - /** |
|
| 143 | - * Return the root individual for the reference tree and user. |
|
| 144 | - * @return Individual Individual |
|
| 145 | - */ |
|
| 146 | - public function getRootIndi() { |
|
| 147 | - $root_indi_id = $this->getRootIndiId(); |
|
| 148 | - if(!empty($root_indi_id)) { |
|
| 149 | - return Individual::getInstance($root_indi_id, $this->tree); |
|
| 150 | - } |
|
| 151 | - return null; |
|
| 152 | - } |
|
| 96 | + // Check if the user, or the default user, has a root already setup; |
|
| 97 | + if(empty($this->getRootIndiId())) { |
|
| 98 | + if($this->user == self::$default_user) { // If the default user is not setup |
|
| 99 | + $this->is_setup = false; |
|
| 100 | + } |
|
| 101 | + else { |
|
| 102 | + $this->user = self::$default_user; |
|
| 103 | + $this->is_setup = $this->getRootIndiId() === null; |
|
| 104 | + } |
|
| 105 | + } |
|
| 106 | + } |
|
| 107 | + |
|
| 108 | + /** |
|
| 109 | + * Returns is the Provider has been successfully set up |
|
| 110 | + * @return bool |
|
| 111 | + */ |
|
| 112 | + public function isSetup() { |
|
| 113 | + return $this->is_setup; |
|
| 114 | + } |
|
| 115 | + |
|
| 116 | + /** |
|
| 117 | + * Return the reference tree |
|
| 118 | + * |
|
| 119 | + * @return Tree Reference tree |
|
| 120 | + */ |
|
| 121 | + public function getTree() { |
|
| 122 | + return $this->tree; |
|
| 123 | + } |
|
| 124 | + |
|
| 125 | + /** |
|
| 126 | + * Return the reference user |
|
| 127 | + * |
|
| 128 | + * @return User |
|
| 129 | + */ |
|
| 130 | + public function getUser() { |
|
| 131 | + return $this->user; |
|
| 132 | + } |
|
| 133 | + |
|
| 134 | + /** |
|
| 135 | + * Return the root individual ID for the reference tree and user. |
|
| 136 | + * @return string Individual ID |
|
| 137 | + */ |
|
| 138 | + public function getRootIndiId() { |
|
| 139 | + return $this->tree->getUserPreference($this->user, 'MAJ_SOSA_ROOT_ID'); |
|
| 140 | + } |
|
| 141 | + |
|
| 142 | + /** |
|
| 143 | + * Return the root individual for the reference tree and user. |
|
| 144 | + * @return Individual Individual |
|
| 145 | + */ |
|
| 146 | + public function getRootIndi() { |
|
| 147 | + $root_indi_id = $this->getRootIndiId(); |
|
| 148 | + if(!empty($root_indi_id)) { |
|
| 149 | + return Individual::getInstance($root_indi_id, $this->tree); |
|
| 150 | + } |
|
| 151 | + return null; |
|
| 152 | + } |
|
| 153 | 153 | |
| 154 | - /***************** |
|
| 154 | + /***************** |
|
| 155 | 155 | * DATA CRUD LAYER |
| 156 | 156 | *****************/ |
| 157 | 157 | |
| 158 | - /** |
|
| 159 | - * Remove all Sosa entries related to the gedcom file and user |
|
| 160 | - */ |
|
| 161 | - public function deleteAll() { |
|
| 162 | - if(!$this->is_setup) return; |
|
| 163 | - Database::prepare( |
|
| 164 | - 'DELETE FROM `##maj_sosa`'. |
|
| 165 | - ' WHERE majs_gedcom_id= :tree_id and majs_user_id = :user_id ') |
|
| 166 | - ->execute(array( |
|
| 167 | - 'tree_id' => $this->tree->getTreeId(), |
|
| 168 | - 'user_id' => $this->user->getUserId() |
|
| 169 | - )); |
|
| 170 | - } |
|
| 171 | - |
|
| 172 | - /** |
|
| 173 | - * Remove all ancestors of a sosa number |
|
| 174 | - * |
|
| 175 | - * @param int $sosa |
|
| 176 | - */ |
|
| 177 | - public function deleteAncestors($sosa) { |
|
| 178 | - if(!$this->is_setup) return; |
|
| 179 | - $gen = Functions::getGeneration($sosa); |
|
| 180 | - Database::prepare( |
|
| 181 | - 'DELETE FROM `##maj_sosa`'. |
|
| 182 | - ' WHERE majs_gedcom_id=:tree_id and majs_user_id = :user_id' . |
|
| 183 | - ' AND majs_gen >= :gen' . |
|
| 184 | - ' AND FLOOR(majs_sosa / (POW(2, (majs_gen - :gen)))) = :sosa' |
|
| 185 | - )->execute(array( |
|
| 186 | - 'tree_id' => $this->tree->getTreeId(), |
|
| 187 | - 'user_id' => $this->user->getUserId(), |
|
| 188 | - 'gen' => $gen, |
|
| 189 | - 'sosa' => $sosa |
|
| 190 | - )); |
|
| 191 | - } |
|
| 192 | - |
|
| 193 | - /** |
|
| 194 | - * Insert (or update if already existing) a list of Sosa individuals |
|
| 195 | - * @param array $sosa_records |
|
| 196 | - */ |
|
| 197 | - public function insertOrUpdate($sosa_records) { |
|
| 198 | - if(!$this->is_setup) return; |
|
| 158 | + /** |
|
| 159 | + * Remove all Sosa entries related to the gedcom file and user |
|
| 160 | + */ |
|
| 161 | + public function deleteAll() { |
|
| 162 | + if(!$this->is_setup) return; |
|
| 163 | + Database::prepare( |
|
| 164 | + 'DELETE FROM `##maj_sosa`'. |
|
| 165 | + ' WHERE majs_gedcom_id= :tree_id and majs_user_id = :user_id ') |
|
| 166 | + ->execute(array( |
|
| 167 | + 'tree_id' => $this->tree->getTreeId(), |
|
| 168 | + 'user_id' => $this->user->getUserId() |
|
| 169 | + )); |
|
| 170 | + } |
|
| 171 | + |
|
| 172 | + /** |
|
| 173 | + * Remove all ancestors of a sosa number |
|
| 174 | + * |
|
| 175 | + * @param int $sosa |
|
| 176 | + */ |
|
| 177 | + public function deleteAncestors($sosa) { |
|
| 178 | + if(!$this->is_setup) return; |
|
| 179 | + $gen = Functions::getGeneration($sosa); |
|
| 180 | + Database::prepare( |
|
| 181 | + 'DELETE FROM `##maj_sosa`'. |
|
| 182 | + ' WHERE majs_gedcom_id=:tree_id and majs_user_id = :user_id' . |
|
| 183 | + ' AND majs_gen >= :gen' . |
|
| 184 | + ' AND FLOOR(majs_sosa / (POW(2, (majs_gen - :gen)))) = :sosa' |
|
| 185 | + )->execute(array( |
|
| 186 | + 'tree_id' => $this->tree->getTreeId(), |
|
| 187 | + 'user_id' => $this->user->getUserId(), |
|
| 188 | + 'gen' => $gen, |
|
| 189 | + 'sosa' => $sosa |
|
| 190 | + )); |
|
| 191 | + } |
|
| 192 | + |
|
| 193 | + /** |
|
| 194 | + * Insert (or update if already existing) a list of Sosa individuals |
|
| 195 | + * @param array $sosa_records |
|
| 196 | + */ |
|
| 197 | + public function insertOrUpdate($sosa_records) { |
|
| 198 | + if(!$this->is_setup) return; |
|
| 199 | 199 | |
| 200 | - $treeid = $this->tree->getTreeId(); |
|
| 201 | - $userid = $this->user->getUserId(); |
|
| 202 | - $questionmarks_table = array(); |
|
| 203 | - $values_table = array(); |
|
| 200 | + $treeid = $this->tree->getTreeId(); |
|
| 201 | + $userid = $this->user->getUserId(); |
|
| 202 | + $questionmarks_table = array(); |
|
| 203 | + $values_table = array(); |
|
| 204 | 204 | |
| 205 | - $i = 0; |
|
| 206 | - foreach ($sosa_records as $row) { |
|
| 207 | - $gen = Functions::getGeneration($row['sosa']); |
|
| 208 | - if($gen <= self::MAX_DB_GENERATIONS) { |
|
| 209 | - $questionmarks_table[] = |
|
| 210 | - '(:tree_id'.$i.', :user_id'.$i.', :sosa'.$i.', :indi_id'.$i.', :gen'.$i.', :byear'.$i.', :byearest'.$i.', :dyear'.$i.', :dyearest'.$i.')'; |
|
| 211 | - $values_table = array_merge( |
|
| 212 | - $values_table, |
|
| 213 | - array( |
|
| 214 | - 'tree_id'.$i => $treeid, |
|
| 215 | - 'user_id'.$i => $userid, |
|
| 216 | - 'sosa'.$i => $row['sosa'], |
|
| 217 | - 'indi_id'.$i => $row['indi'], |
|
| 218 | - 'gen'.$i => Functions::getGeneration($row['sosa']), |
|
| 219 | - 'byear'.$i => $row['birth_year'], |
|
| 220 | - 'byearest'.$i => $row['birth_year_est'], |
|
| 221 | - 'dyear'.$i => $row['death_year'], |
|
| 222 | - 'dyearest'.$i => $row['death_year_est'] |
|
| 223 | - ) |
|
| 224 | - ); |
|
| 225 | - } |
|
| 226 | - $i++; |
|
| 227 | - } |
|
| 205 | + $i = 0; |
|
| 206 | + foreach ($sosa_records as $row) { |
|
| 207 | + $gen = Functions::getGeneration($row['sosa']); |
|
| 208 | + if($gen <= self::MAX_DB_GENERATIONS) { |
|
| 209 | + $questionmarks_table[] = |
|
| 210 | + '(:tree_id'.$i.', :user_id'.$i.', :sosa'.$i.', :indi_id'.$i.', :gen'.$i.', :byear'.$i.', :byearest'.$i.', :dyear'.$i.', :dyearest'.$i.')'; |
|
| 211 | + $values_table = array_merge( |
|
| 212 | + $values_table, |
|
| 213 | + array( |
|
| 214 | + 'tree_id'.$i => $treeid, |
|
| 215 | + 'user_id'.$i => $userid, |
|
| 216 | + 'sosa'.$i => $row['sosa'], |
|
| 217 | + 'indi_id'.$i => $row['indi'], |
|
| 218 | + 'gen'.$i => Functions::getGeneration($row['sosa']), |
|
| 219 | + 'byear'.$i => $row['birth_year'], |
|
| 220 | + 'byearest'.$i => $row['birth_year_est'], |
|
| 221 | + 'dyear'.$i => $row['death_year'], |
|
| 222 | + 'dyearest'.$i => $row['death_year_est'] |
|
| 223 | + ) |
|
| 224 | + ); |
|
| 225 | + } |
|
| 226 | + $i++; |
|
| 227 | + } |
|
| 228 | 228 | |
| 229 | - $sql = 'REPLACE INTO `##maj_sosa`' . |
|
| 230 | - ' (majs_gedcom_id, majs_user_id, majs_sosa, majs_i_id, majs_gen, majs_birth_year, majs_birth_year_est, majs_death_year, majs_death_year_est)' . |
|
| 231 | - ' VALUES '. implode(',', $questionmarks_table); |
|
| 232 | - Database::prepare($sql)->execute($values_table); |
|
| 233 | - } |
|
| 229 | + $sql = 'REPLACE INTO `##maj_sosa`' . |
|
| 230 | + ' (majs_gedcom_id, majs_user_id, majs_sosa, majs_i_id, majs_gen, majs_birth_year, majs_birth_year_est, majs_death_year, majs_death_year_est)' . |
|
| 231 | + ' VALUES '. implode(',', $questionmarks_table); |
|
| 232 | + Database::prepare($sql)->execute($values_table); |
|
| 233 | + } |
|
| 234 | 234 | |
| 235 | - /**************** |
|
| 235 | + /**************** |
|
| 236 | 236 | * SIMPLE QUERIES |
| 237 | 237 | ****************/ |
| 238 | 238 | |
| 239 | - /** |
|
| 240 | - * Returns the list of Sosa numbers to which an individual is related. |
|
| 241 | - * Format: key = sosa number, value = generation for the Sosa number |
|
| 242 | - * |
|
| 243 | - * @param Individual $indi |
|
| 244 | - * @return array Array of sosa numbers |
|
| 245 | - */ |
|
| 246 | - public function getSosaNumbers(Individual $indi) { |
|
| 247 | - if(!$this->is_setup) return array(); |
|
| 248 | - return Database::prepare( |
|
| 249 | - 'SELECT majs_sosa, majs_gen FROM `##maj_sosa`'. |
|
| 250 | - ' WHERE majs_i_id=:indi_id AND majs_gedcom_id=:tree_id AND majs_user_id=:user_id' |
|
| 251 | - )->execute(array( |
|
| 252 | - 'indi_id' => $indi->getXref(), |
|
| 253 | - 'tree_id' => $this->tree->getTreeId(), |
|
| 254 | - 'user_id' => $this->user->getUserId() |
|
| 255 | - ))->fetchAssoc(); |
|
| 256 | - } |
|
| 257 | - |
|
| 258 | - /** |
|
| 259 | - * Get the last generation of Sosa ancestors |
|
| 260 | - * |
|
| 261 | - * @return number Last generation if found, 1 otherwise |
|
| 262 | - */ |
|
| 263 | - public function getLastGeneration() { |
|
| 264 | - if(!$this->is_setup) return; |
|
| 265 | - return Database::prepare( |
|
| 266 | - 'SELECT MAX(majs_gen) FROM `##maj_sosa`'. |
|
| 267 | - ' WHERE majs_gedcom_id=:tree_id AND majs_user_id=:user_id' |
|
| 268 | - )->execute(array( |
|
| 269 | - 'tree_id' => $this->tree->getTreeId(), |
|
| 270 | - 'user_id' => $this->user->getUserId() |
|
| 271 | - ))->fetchOne() ?: 1; |
|
| 272 | - } |
|
| 273 | - |
|
| 274 | - /************* |
|
| 239 | + /** |
|
| 240 | + * Returns the list of Sosa numbers to which an individual is related. |
|
| 241 | + * Format: key = sosa number, value = generation for the Sosa number |
|
| 242 | + * |
|
| 243 | + * @param Individual $indi |
|
| 244 | + * @return array Array of sosa numbers |
|
| 245 | + */ |
|
| 246 | + public function getSosaNumbers(Individual $indi) { |
|
| 247 | + if(!$this->is_setup) return array(); |
|
| 248 | + return Database::prepare( |
|
| 249 | + 'SELECT majs_sosa, majs_gen FROM `##maj_sosa`'. |
|
| 250 | + ' WHERE majs_i_id=:indi_id AND majs_gedcom_id=:tree_id AND majs_user_id=:user_id' |
|
| 251 | + )->execute(array( |
|
| 252 | + 'indi_id' => $indi->getXref(), |
|
| 253 | + 'tree_id' => $this->tree->getTreeId(), |
|
| 254 | + 'user_id' => $this->user->getUserId() |
|
| 255 | + ))->fetchAssoc(); |
|
| 256 | + } |
|
| 257 | + |
|
| 258 | + /** |
|
| 259 | + * Get the last generation of Sosa ancestors |
|
| 260 | + * |
|
| 261 | + * @return number Last generation if found, 1 otherwise |
|
| 262 | + */ |
|
| 263 | + public function getLastGeneration() { |
|
| 264 | + if(!$this->is_setup) return; |
|
| 265 | + return Database::prepare( |
|
| 266 | + 'SELECT MAX(majs_gen) FROM `##maj_sosa`'. |
|
| 267 | + ' WHERE majs_gedcom_id=:tree_id AND majs_user_id=:user_id' |
|
| 268 | + )->execute(array( |
|
| 269 | + 'tree_id' => $this->tree->getTreeId(), |
|
| 270 | + 'user_id' => $this->user->getUserId() |
|
| 271 | + ))->fetchOne() ?: 1; |
|
| 272 | + } |
|
| 273 | + |
|
| 274 | + /************* |
|
| 275 | 275 | * SOSA LISTS |
| 276 | 276 | *************/ |
| 277 | 277 | |
| 278 | - /** |
|
| 279 | - * Return the list of all sosas, with the generations it belongs to |
|
| 280 | - * |
|
| 281 | - * @return array Associative array of Sosa ancestors, with their generation, comma separated |
|
| 282 | - */ |
|
| 283 | - public function getAllSosaWithGenerations(){ |
|
| 284 | - if(!$this->is_setup) return array(); |
|
| 285 | - return Database::prepare( |
|
| 286 | - 'SELECT majs_i_id AS indi,' . |
|
| 287 | - ' GROUP_CONCAT(DISTINCT majs_gen ORDER BY majs_gen ASC SEPARATOR ",") AS generations' . |
|
| 288 | - ' FROM `##maj_sosa`' . |
|
| 289 | - ' WHERE majs_gedcom_id=:tree_id AND majs_user_id=:user_id' . |
|
| 290 | - ' GROUP BY majs_i_id' |
|
| 291 | - )->execute(array( |
|
| 292 | - 'tree_id' => $this->tree->getTreeId(), |
|
| 293 | - 'user_id' => $this->user->getUserId() |
|
| 294 | - ))->fetchAssoc(); |
|
| 295 | - } |
|
| 296 | - |
|
| 297 | - /** |
|
| 298 | - * Get an associative array of Sosa individuals in generation G. Keys are Sosa numbers, values individuals. |
|
| 299 | - * |
|
| 300 | - * @param number $gen Generation |
|
| 301 | - * @return array Array of Sosa individuals |
|
| 302 | - */ |
|
| 303 | - public function getSosaListAtGeneration($gen){ |
|
| 304 | - if(!$this->is_setup) return array(); |
|
| 305 | - if(!$this->sosa_list_by_gen) |
|
| 306 | - $this->sosa_list_by_gen = array(); |
|
| 278 | + /** |
|
| 279 | + * Return the list of all sosas, with the generations it belongs to |
|
| 280 | + * |
|
| 281 | + * @return array Associative array of Sosa ancestors, with their generation, comma separated |
|
| 282 | + */ |
|
| 283 | + public function getAllSosaWithGenerations(){ |
|
| 284 | + if(!$this->is_setup) return array(); |
|
| 285 | + return Database::prepare( |
|
| 286 | + 'SELECT majs_i_id AS indi,' . |
|
| 287 | + ' GROUP_CONCAT(DISTINCT majs_gen ORDER BY majs_gen ASC SEPARATOR ",") AS generations' . |
|
| 288 | + ' FROM `##maj_sosa`' . |
|
| 289 | + ' WHERE majs_gedcom_id=:tree_id AND majs_user_id=:user_id' . |
|
| 290 | + ' GROUP BY majs_i_id' |
|
| 291 | + )->execute(array( |
|
| 292 | + 'tree_id' => $this->tree->getTreeId(), |
|
| 293 | + 'user_id' => $this->user->getUserId() |
|
| 294 | + ))->fetchAssoc(); |
|
| 295 | + } |
|
| 296 | + |
|
| 297 | + /** |
|
| 298 | + * Get an associative array of Sosa individuals in generation G. Keys are Sosa numbers, values individuals. |
|
| 299 | + * |
|
| 300 | + * @param number $gen Generation |
|
| 301 | + * @return array Array of Sosa individuals |
|
| 302 | + */ |
|
| 303 | + public function getSosaListAtGeneration($gen){ |
|
| 304 | + if(!$this->is_setup) return array(); |
|
| 305 | + if(!$this->sosa_list_by_gen) |
|
| 306 | + $this->sosa_list_by_gen = array(); |
|
| 307 | 307 | |
| 308 | - if($gen){ |
|
| 309 | - if(!isset($this->sosa_list_by_gen[$gen])){ |
|
| 310 | - $this->sosa_list_by_gen[$gen] = Database::prepare( |
|
| 311 | - 'SELECT majs_sosa AS sosa, majs_i_id AS indi'. |
|
| 312 | - ' FROM `##maj_sosa`'. |
|
| 313 | - ' WHERE majs_gedcom_id=:tree_id AND majs_user_id=:user_id'. |
|
| 314 | - ' AND majs_gen = :gen'. |
|
| 315 | - ' ORDER BY majs_sosa ASC') |
|
| 316 | - ->execute(array( |
|
| 317 | - 'tree_id' => $this->tree->getTreeId(), |
|
| 318 | - 'user_id' => $this->user->getUserId(), |
|
| 319 | - 'gen' => $gen |
|
| 320 | - )) |
|
| 321 | - ->fetchAssoc(); |
|
| 322 | - } |
|
| 323 | - return $this->sosa_list_by_gen[$gen]; |
|
| 324 | - } |
|
| 325 | - return array(); |
|
| 326 | - } |
|
| 327 | - |
|
| 328 | - /** |
|
| 329 | - * Get an associative array of Sosa families in generation G. Keys are Sosa numbers for the husband, values families. |
|
| 330 | - * |
|
| 331 | - * @param number $gen Generation |
|
| 332 | - * @return array Array of Sosa families |
|
| 333 | - */ |
|
| 334 | - public function getFamilySosaListAtGeneration($gen){ |
|
| 335 | - if(!$this->is_setup) return array(); |
|
| 336 | - if(!$this->sosa_fam_list_by_gen) |
|
| 337 | - $this->sosa_fam_list_by_gen = array(); |
|
| 308 | + if($gen){ |
|
| 309 | + if(!isset($this->sosa_list_by_gen[$gen])){ |
|
| 310 | + $this->sosa_list_by_gen[$gen] = Database::prepare( |
|
| 311 | + 'SELECT majs_sosa AS sosa, majs_i_id AS indi'. |
|
| 312 | + ' FROM `##maj_sosa`'. |
|
| 313 | + ' WHERE majs_gedcom_id=:tree_id AND majs_user_id=:user_id'. |
|
| 314 | + ' AND majs_gen = :gen'. |
|
| 315 | + ' ORDER BY majs_sosa ASC') |
|
| 316 | + ->execute(array( |
|
| 317 | + 'tree_id' => $this->tree->getTreeId(), |
|
| 318 | + 'user_id' => $this->user->getUserId(), |
|
| 319 | + 'gen' => $gen |
|
| 320 | + )) |
|
| 321 | + ->fetchAssoc(); |
|
| 322 | + } |
|
| 323 | + return $this->sosa_list_by_gen[$gen]; |
|
| 324 | + } |
|
| 325 | + return array(); |
|
| 326 | + } |
|
| 327 | + |
|
| 328 | + /** |
|
| 329 | + * Get an associative array of Sosa families in generation G. Keys are Sosa numbers for the husband, values families. |
|
| 330 | + * |
|
| 331 | + * @param number $gen Generation |
|
| 332 | + * @return array Array of Sosa families |
|
| 333 | + */ |
|
| 334 | + public function getFamilySosaListAtGeneration($gen){ |
|
| 335 | + if(!$this->is_setup) return array(); |
|
| 336 | + if(!$this->sosa_fam_list_by_gen) |
|
| 337 | + $this->sosa_fam_list_by_gen = array(); |
|
| 338 | 338 | |
| 339 | - if($gen){ |
|
| 340 | - if(!isset($this->sosa_fam_list_by_gen[$gen])){ |
|
| 341 | - $this->sosa_fam_list_by_gen[$gen] = Database::prepare( |
|
| 342 | - 'SELECT s1.majs_sosa AS sosa, f_id AS fam'. |
|
| 343 | - ' FROM `##families`'. |
|
| 344 | - ' INNER JOIN `##maj_sosa` AS s1 ON (`##families`.f_husb = s1.majs_i_id AND `##families`.f_file = s1.majs_gedcom_id)'. |
|
| 345 | - ' INNER JOIN `##maj_sosa` AS s2 ON (`##families`.f_wife = s2.majs_i_id AND `##families`.f_file = s2.majs_gedcom_id)'. |
|
| 346 | - ' WHERE s1.majs_sosa + 1 = s2.majs_sosa'. |
|
| 347 | - ' AND s1.majs_gedcom_id= :tree_id AND s1.majs_user_id=:user_id'. |
|
| 348 | - ' AND s2.majs_gedcom_id= :tree_id AND s2.majs_user_id=:user_id'. |
|
| 349 | - ' AND s1.majs_gen = :gen'. |
|
| 350 | - ' ORDER BY s1.majs_sosa ASC' |
|
| 351 | - ) |
|
| 352 | - ->execute(array( |
|
| 353 | - 'tree_id' => $this->tree->getTreeId(), |
|
| 354 | - 'user_id' => $this->user->getUserId(), |
|
| 355 | - 'gen' => $gen |
|
| 356 | - )) |
|
| 357 | - ->fetchAssoc(); |
|
| 358 | - } |
|
| 359 | - return $this->sosa_fam_list_by_gen[$gen]; |
|
| 360 | - } |
|
| 361 | - return array(); |
|
| 362 | - } |
|
| 363 | - |
|
| 364 | - /** |
|
| 365 | - * Get an associative array of Sosa individuals in generation G who are missing parents. Keys are Sosa numbers, values individuals. |
|
| 366 | - * |
|
| 367 | - * @param number $gen Generation |
|
| 368 | - * @return array Array of Sosa individuals |
|
| 369 | - */ |
|
| 370 | - public function getMissingSosaListAtGeneration($gen){ |
|
| 371 | - if(!$this->is_setup) return array(); |
|
| 372 | - if($gen){ |
|
| 373 | - return $this->sosa_list_by_gen[$gen] = Database::prepare( |
|
| 374 | - 'SELECT schild.majs_sosa sosa, schild.majs_i_id indi, sfat.majs_sosa IS NOT NULL has_father, smot.majs_sosa IS NOT NULL has_mother'. |
|
| 375 | - ' FROM `##maj_sosa` schild'. |
|
| 376 | - ' LEFT JOIN `##maj_sosa` sfat ON ((schild.majs_sosa * 2) = sfat.majs_sosa AND schild.majs_gedcom_id = sfat.majs_gedcom_id AND schild.majs_user_id = sfat.majs_user_id)'. |
|
| 377 | - ' LEFT JOIN `##maj_sosa` smot ON ((schild.majs_sosa * 2 + 1) = smot.majs_sosa AND schild.majs_gedcom_id = smot.majs_gedcom_id AND schild.majs_user_id = smot.majs_user_id)'. |
|
| 378 | - ' WHERE schild.majs_gedcom_id = :tree_id AND schild.majs_user_id = :user_id'. |
|
| 379 | - ' AND schild.majs_gen = :gen'. |
|
| 380 | - ' AND (sfat.majs_sosa IS NULL OR smot.majs_sosa IS NULL)'. |
|
| 381 | - ' ORDER BY schild.majs_sosa ASC') |
|
| 382 | - ->execute(array( |
|
| 383 | - 'tree_id' => $this->tree->getTreeId(), |
|
| 384 | - 'user_id' => $this->user->getUserId(), |
|
| 385 | - 'gen' => $gen - 1 |
|
| 386 | - ))->fetchAll(\PDO::FETCH_ASSOC); |
|
| 387 | - } |
|
| 388 | - return array(); |
|
| 389 | - } |
|
| 390 | - |
|
| 391 | - |
|
| 392 | - |
|
| 393 | - /************* |
|
| 339 | + if($gen){ |
|
| 340 | + if(!isset($this->sosa_fam_list_by_gen[$gen])){ |
|
| 341 | + $this->sosa_fam_list_by_gen[$gen] = Database::prepare( |
|
| 342 | + 'SELECT s1.majs_sosa AS sosa, f_id AS fam'. |
|
| 343 | + ' FROM `##families`'. |
|
| 344 | + ' INNER JOIN `##maj_sosa` AS s1 ON (`##families`.f_husb = s1.majs_i_id AND `##families`.f_file = s1.majs_gedcom_id)'. |
|
| 345 | + ' INNER JOIN `##maj_sosa` AS s2 ON (`##families`.f_wife = s2.majs_i_id AND `##families`.f_file = s2.majs_gedcom_id)'. |
|
| 346 | + ' WHERE s1.majs_sosa + 1 = s2.majs_sosa'. |
|
| 347 | + ' AND s1.majs_gedcom_id= :tree_id AND s1.majs_user_id=:user_id'. |
|
| 348 | + ' AND s2.majs_gedcom_id= :tree_id AND s2.majs_user_id=:user_id'. |
|
| 349 | + ' AND s1.majs_gen = :gen'. |
|
| 350 | + ' ORDER BY s1.majs_sosa ASC' |
|
| 351 | + ) |
|
| 352 | + ->execute(array( |
|
| 353 | + 'tree_id' => $this->tree->getTreeId(), |
|
| 354 | + 'user_id' => $this->user->getUserId(), |
|
| 355 | + 'gen' => $gen |
|
| 356 | + )) |
|
| 357 | + ->fetchAssoc(); |
|
| 358 | + } |
|
| 359 | + return $this->sosa_fam_list_by_gen[$gen]; |
|
| 360 | + } |
|
| 361 | + return array(); |
|
| 362 | + } |
|
| 363 | + |
|
| 364 | + /** |
|
| 365 | + * Get an associative array of Sosa individuals in generation G who are missing parents. Keys are Sosa numbers, values individuals. |
|
| 366 | + * |
|
| 367 | + * @param number $gen Generation |
|
| 368 | + * @return array Array of Sosa individuals |
|
| 369 | + */ |
|
| 370 | + public function getMissingSosaListAtGeneration($gen){ |
|
| 371 | + if(!$this->is_setup) return array(); |
|
| 372 | + if($gen){ |
|
| 373 | + return $this->sosa_list_by_gen[$gen] = Database::prepare( |
|
| 374 | + 'SELECT schild.majs_sosa sosa, schild.majs_i_id indi, sfat.majs_sosa IS NOT NULL has_father, smot.majs_sosa IS NOT NULL has_mother'. |
|
| 375 | + ' FROM `##maj_sosa` schild'. |
|
| 376 | + ' LEFT JOIN `##maj_sosa` sfat ON ((schild.majs_sosa * 2) = sfat.majs_sosa AND schild.majs_gedcom_id = sfat.majs_gedcom_id AND schild.majs_user_id = sfat.majs_user_id)'. |
|
| 377 | + ' LEFT JOIN `##maj_sosa` smot ON ((schild.majs_sosa * 2 + 1) = smot.majs_sosa AND schild.majs_gedcom_id = smot.majs_gedcom_id AND schild.majs_user_id = smot.majs_user_id)'. |
|
| 378 | + ' WHERE schild.majs_gedcom_id = :tree_id AND schild.majs_user_id = :user_id'. |
|
| 379 | + ' AND schild.majs_gen = :gen'. |
|
| 380 | + ' AND (sfat.majs_sosa IS NULL OR smot.majs_sosa IS NULL)'. |
|
| 381 | + ' ORDER BY schild.majs_sosa ASC') |
|
| 382 | + ->execute(array( |
|
| 383 | + 'tree_id' => $this->tree->getTreeId(), |
|
| 384 | + 'user_id' => $this->user->getUserId(), |
|
| 385 | + 'gen' => $gen - 1 |
|
| 386 | + ))->fetchAll(\PDO::FETCH_ASSOC); |
|
| 387 | + } |
|
| 388 | + return array(); |
|
| 389 | + } |
|
| 390 | + |
|
| 391 | + |
|
| 392 | + |
|
| 393 | + /************* |
|
| 394 | 394 | * STATISTICS |
| 395 | 395 | *************/ |
| 396 | - /** |
|
| 397 | - * Get the statistic array detailed by generation. |
|
| 398 | - * Statistics for each generation are: |
|
| 399 | - * - The number of Sosa in generation |
|
| 400 | - * - The number of Sosa up to generation |
|
| 401 | - * - The number of distinct Sosa up to generation |
|
| 402 | - * - The year of the first birth in generation |
|
| 403 | - * - The year of the first estimated birth in generation |
|
| 404 | - * - The year of the last birth in generation |
|
| 405 | - * - The year of the last estimated birth in generation |
|
| 406 | - * - The average year of birth in generation |
|
| 407 | - * |
|
| 408 | - * @return array Statistics array |
|
| 409 | - */ |
|
| 410 | - public function getStatisticsByGeneration() { |
|
| 411 | - if(!$this->is_setup) return array(); |
|
| 412 | - if(!$this->statistics_tab) { |
|
| 413 | - $this->statistics_tab = array(); |
|
| 414 | - if($maxGeneration = $this->getLastGeneration()) { |
|
| 415 | - for ($gen = 1; $gen <= $maxGeneration; $gen++) { |
|
| 416 | - $birthStats = $this->getStatsBirthYearInGeneration($gen); |
|
| 417 | - $this->statistics_tab[$gen] = array( |
|
| 418 | - 'sosaCount' => $this->getSosaCountAtGeneration($gen), |
|
| 419 | - 'sosaTotalCount' => $this->getSosaCountUpToGeneration($gen), |
|
| 420 | - 'diffSosaTotalCount' => $this->getDifferentSosaCountUpToGeneration($gen), |
|
| 421 | - 'firstBirth' => $birthStats['first'], |
|
| 422 | - 'firstEstimatedBirth' => $birthStats['first_est'], |
|
| 423 | - 'lastBirth' => $birthStats['last'], |
|
| 424 | - 'lastEstimatedBirth' => $birthStats['last_est'], |
|
| 425 | - 'avgBirth' => $birthStats['avg'] |
|
| 426 | - ); |
|
| 427 | - } |
|
| 428 | - } |
|
| 429 | - } |
|
| 430 | - return $this->statistics_tab; |
|
| 431 | - } |
|
| 396 | + /** |
|
| 397 | + * Get the statistic array detailed by generation. |
|
| 398 | + * Statistics for each generation are: |
|
| 399 | + * - The number of Sosa in generation |
|
| 400 | + * - The number of Sosa up to generation |
|
| 401 | + * - The number of distinct Sosa up to generation |
|
| 402 | + * - The year of the first birth in generation |
|
| 403 | + * - The year of the first estimated birth in generation |
|
| 404 | + * - The year of the last birth in generation |
|
| 405 | + * - The year of the last estimated birth in generation |
|
| 406 | + * - The average year of birth in generation |
|
| 407 | + * |
|
| 408 | + * @return array Statistics array |
|
| 409 | + */ |
|
| 410 | + public function getStatisticsByGeneration() { |
|
| 411 | + if(!$this->is_setup) return array(); |
|
| 412 | + if(!$this->statistics_tab) { |
|
| 413 | + $this->statistics_tab = array(); |
|
| 414 | + if($maxGeneration = $this->getLastGeneration()) { |
|
| 415 | + for ($gen = 1; $gen <= $maxGeneration; $gen++) { |
|
| 416 | + $birthStats = $this->getStatsBirthYearInGeneration($gen); |
|
| 417 | + $this->statistics_tab[$gen] = array( |
|
| 418 | + 'sosaCount' => $this->getSosaCountAtGeneration($gen), |
|
| 419 | + 'sosaTotalCount' => $this->getSosaCountUpToGeneration($gen), |
|
| 420 | + 'diffSosaTotalCount' => $this->getDifferentSosaCountUpToGeneration($gen), |
|
| 421 | + 'firstBirth' => $birthStats['first'], |
|
| 422 | + 'firstEstimatedBirth' => $birthStats['first_est'], |
|
| 423 | + 'lastBirth' => $birthStats['last'], |
|
| 424 | + 'lastEstimatedBirth' => $birthStats['last_est'], |
|
| 425 | + 'avgBirth' => $birthStats['avg'] |
|
| 426 | + ); |
|
| 427 | + } |
|
| 428 | + } |
|
| 429 | + } |
|
| 430 | + return $this->statistics_tab; |
|
| 431 | + } |
|
| 432 | 432 | |
| 433 | 433 | /** |
| 434 | 434 | * How many individuals exist in the tree. |
@@ -436,333 +436,333 @@ discard block |
||
| 436 | 436 | * @return int |
| 437 | 437 | */ |
| 438 | 438 | public function getTotalIndividuals() { |
| 439 | - if(!$this->is_setup) return 0; |
|
| 440 | - return Database::prepare( |
|
| 441 | - 'SELECT COUNT(*) FROM `##individuals`' . |
|
| 442 | - ' WHERE i_file = :tree_id') |
|
| 443 | - ->execute(array('tree_id' => $this->tree->getTreeId())) |
|
| 444 | - ->fetchOne() ?: 0; |
|
| 439 | + if(!$this->is_setup) return 0; |
|
| 440 | + return Database::prepare( |
|
| 441 | + 'SELECT COUNT(*) FROM `##individuals`' . |
|
| 442 | + ' WHERE i_file = :tree_id') |
|
| 443 | + ->execute(array('tree_id' => $this->tree->getTreeId())) |
|
| 444 | + ->fetchOne() ?: 0; |
|
| 445 | 445 | } |
| 446 | 446 | |
| 447 | - /** |
|
| 448 | - * Get the total Sosa count for all generations |
|
| 449 | - * |
|
| 450 | - * @return number Number of Sosas |
|
| 451 | - */ |
|
| 452 | - public function getSosaCount(){ |
|
| 453 | - if(!$this->is_setup) return 0; |
|
| 454 | - return Database::prepare( |
|
| 455 | - 'SELECT COUNT(majs_sosa) FROM `##maj_sosa`' . |
|
| 456 | - ' WHERE majs_gedcom_id=:tree_id AND majs_user_id=:user_id') |
|
| 457 | - ->execute(array( |
|
| 458 | - 'tree_id' => $this->tree->getTreeId(), |
|
| 459 | - 'user_id' => $this->user->getUserId() |
|
| 460 | - ))->fetchOne() ?: 0; |
|
| 461 | - } |
|
| 462 | - |
|
| 463 | - /** |
|
| 464 | - * Get the number of Sosa in a specific generation. |
|
| 465 | - * |
|
| 466 | - * @param number $gen Generation |
|
| 467 | - * @return number Number of Sosas in generation |
|
| 468 | - */ |
|
| 469 | - public function getSosaCountAtGeneration($gen){ |
|
| 470 | - if(!$this->is_setup) return 0; |
|
| 471 | - return Database::prepare( |
|
| 472 | - 'SELECT COUNT(majs_sosa) FROM `##maj_sosa`' . |
|
| 473 | - ' WHERE majs_gedcom_id=:tree_id AND majs_user_id=:user_id'. |
|
| 474 | - ' AND majs_gen= :gen') |
|
| 475 | - ->execute(array( |
|
| 476 | - 'tree_id' => $this->tree->getTreeId(), |
|
| 477 | - 'user_id' => $this->user->getUserId(), |
|
| 478 | - 'gen' => $gen |
|
| 479 | - ))->fetchOne() ?: 0; |
|
| 480 | - } |
|
| 481 | - |
|
| 482 | - /** |
|
| 483 | - * Get the total number of Sosa up to a specific generation. |
|
| 484 | - * |
|
| 485 | - * @param number $gen Generation |
|
| 486 | - * @return number Total number of Sosas up to generation |
|
| 487 | - */ |
|
| 488 | - public function getSosaCountUpToGeneration($gen){ |
|
| 489 | - if(!$this->is_setup) return 0; |
|
| 490 | - return Database::prepare( |
|
| 491 | - 'SELECT COUNT(majs_sosa) FROM `##maj_sosa`' . |
|
| 492 | - ' WHERE majs_gedcom_id=:tree_id AND majs_user_id=:user_id'. |
|
| 493 | - ' AND majs_gen <= :gen') |
|
| 494 | - ->execute(array( |
|
| 495 | - 'tree_id' => $this->tree->getTreeId(), |
|
| 496 | - 'user_id' => $this->user->getUserId(), |
|
| 497 | - 'gen' => $gen |
|
| 498 | - ))->fetchOne() ?: 0; |
|
| 499 | - } |
|
| 500 | - |
|
| 501 | - /** |
|
| 502 | - * Get the total number of distinct Sosa individual for all generations. |
|
| 503 | - * |
|
| 504 | - * @return number Total number of distinct individual |
|
| 505 | - */ |
|
| 506 | - public function getDifferentSosaCount(){ |
|
| 507 | - if(!$this->is_setup) return 0; |
|
| 508 | - return Database::prepare( |
|
| 509 | - 'SELECT COUNT(DISTINCT majs_i_id) FROM `##maj_sosa`' . |
|
| 510 | - ' WHERE majs_gedcom_id=:tree_id AND majs_user_id=:user_id') |
|
| 511 | - ->execute(array( |
|
| 512 | - 'tree_id' => $this->tree->getTreeId(), |
|
| 513 | - 'user_id' => $this->user->getUserId() |
|
| 514 | - ))->fetchOne() ?: 0; |
|
| 515 | - } |
|
| 516 | - |
|
| 517 | - /** |
|
| 518 | - * Get the number of distinct Sosa individual up to a specific generation. |
|
| 519 | - * |
|
| 520 | - * @param number $gen Generation |
|
| 521 | - * @return number Number of distinct Sosa individuals up to generation |
|
| 522 | - */ |
|
| 523 | - public function getDifferentSosaCountUpToGeneration($gen){ |
|
| 524 | - if(!$this->is_setup) return 0; |
|
| 525 | - return Database::prepare( |
|
| 526 | - 'SELECT COUNT(DISTINCT majs_i_id) FROM `##maj_sosa`' . |
|
| 527 | - ' WHERE majs_gedcom_id=:tree_id AND majs_user_id=:user_id'. |
|
| 528 | - ' AND majs_gen <= :gen') |
|
| 529 | - ->execute(array( |
|
| 530 | - 'tree_id' => $this->tree->getTreeId(), |
|
| 531 | - 'user_id' => $this->user->getUserId(), |
|
| 532 | - 'gen' => $gen |
|
| 533 | - ))->fetchOne() ?: 0; |
|
| 534 | - } |
|
| 535 | - |
|
| 536 | - /** |
|
| 537 | - * Get an array of birth statistics for a specific generation |
|
| 538 | - * Statistics are : |
|
| 539 | - * - first : First birth year in generation |
|
| 540 | - * - first_est: First estimated birth year in generation |
|
| 541 | - * - last : Last birth year in generation |
|
| 542 | - * - last_est : Last estimated birth year in generation |
|
| 543 | - * - avg : Average birth year (based on non-estimated birth date) |
|
| 544 | - * |
|
| 545 | - * @param number $gen Generation |
|
| 546 | - * @return array Birth statistics array |
|
| 547 | - */ |
|
| 548 | - public function getStatsBirthYearInGeneration($gen){ |
|
| 549 | - if(!$this->is_setup) return array('first' => 0, 'first_est' => 0, 'avg' => 0, 'last' => 0, 'last_est' => 0); |
|
| 550 | - return Database::prepare( |
|
| 551 | - 'SELECT'. |
|
| 552 | - ' MIN(majs_birth_year) AS first, MIN(majs_birth_year_est) AS first_est,'. |
|
| 553 | - ' AVG(majs_birth_year) AS avg,'. |
|
| 554 | - ' MAX(majs_birth_year) AS last, MAX(majs_birth_year_est) AS last_est'. |
|
| 555 | - ' FROM `##maj_sosa`'. |
|
| 556 | - ' WHERE majs_gedcom_id=:tree_id AND majs_user_id=:user_id'. |
|
| 557 | - ' AND majs_gen=:gen') |
|
| 558 | - ->execute(array( |
|
| 559 | - 'tree_id' => $this->tree->getTreeId(), |
|
| 560 | - 'user_id' => $this->user->getUserId(), |
|
| 561 | - 'gen' => $gen)) |
|
| 562 | - ->fetchOneRow(\PDO::FETCH_ASSOC) ?: array('first' => 0, 'first_est' => 0, 'avg' => 0, 'last' => 0, 'last_est' => 0); |
|
| 563 | - } |
|
| 564 | - |
|
| 565 | - /** |
|
| 566 | - * Get the mean generation time, based on a linear regression of birth years and generations |
|
| 567 | - * |
|
| 568 | - * @return number|NULL Mean generation time |
|
| 569 | - */ |
|
| 570 | - public function getMeanGenerationTime(){ |
|
| 571 | - if(!$this->is_setup) return; |
|
| 572 | - if(!$this->statistics_tab){ |
|
| 573 | - $this->getStatisticsByGeneration(); |
|
| 574 | - } |
|
| 575 | - //Linear regression on x=generation and y=birthdate |
|
| 576 | - $sum_xy = 0; |
|
| 577 | - $sum_x=0; |
|
| 578 | - $sum_y=0; |
|
| 579 | - $sum_x2=0; |
|
| 580 | - $n=count($this->statistics_tab); |
|
| 581 | - foreach($this->statistics_tab as $gen=>$stats){ |
|
| 582 | - $sum_xy+=$gen*$stats['avgBirth']; |
|
| 583 | - $sum_x+=$gen; |
|
| 584 | - $sum_y+=$stats['avgBirth']; |
|
| 585 | - $sum_x2+=$gen*$gen; |
|
| 586 | - } |
|
| 587 | - $denom=($n*$sum_x2)-($sum_x*$sum_x); |
|
| 588 | - if($denom!=0){ |
|
| 589 | - return -(($n*$sum_xy)-($sum_x*$sum_y))/($denom); |
|
| 590 | - } |
|
| 591 | - return null; |
|
| 592 | - } |
|
| 593 | - |
|
| 594 | - /** |
|
| 595 | - * Return an array of the mean generation depth and standard deviation for all Sosa ancestors at a given generation. |
|
| 596 | - * Sosa 1 is of generation 1. |
|
| 597 | - * |
|
| 598 | - * Mean generation depth and deviation are calculated based on the works of Marie-Héléne Cazes and Pierre Cazes, |
|
| 599 | - * published in Population (French Edition), Vol. 51, No. 1 (Jan. - Feb., 1996), pp. 117-140 |
|
| 600 | - * http://kintip.net/index.php?option=com_jdownloads&task=download.send&id=9&catid=4&m=0 |
|
| 601 | - * |
|
| 602 | - * Format: |
|
| 603 | - * - key : sosa number of the ancestor |
|
| 604 | - * - values: array |
|
| 605 | - * - root_ancestor_id : ID of the ancestor |
|
| 606 | - * - mean_gen_depth : Mean generation depth |
|
| 607 | - * - stddev_gen_depth : Standard deviation of generation depth |
|
| 608 | - * |
|
| 609 | - * @param number $gen Sosa generation |
|
| 610 | - * @return array |
|
| 611 | - */ |
|
| 612 | - public function getGenerationDepthStatsAtGen($gen) { |
|
| 613 | - if(!$this->is_setup) return array(); |
|
| 614 | - $gen_depth_stats_raw = Database::prepare( |
|
| 615 | - 'SELECT stats_by_gen.root_ancestor AS root_ancestor_sosa,'. |
|
| 616 | - ' sosa_list.majs_i_id as root_ancestor_id,'. |
|
| 617 | - ' 1 + SUM( (majs_gen_norm) * ( 2 * full_root_count + semi_root_count) / (2 * POWER(2, majs_gen_norm))) AS mean_gen_depth,'. |
|
| 618 | - ' SQRT('. |
|
| 619 | - ' SUM(POWER(majs_gen_norm, 2) * ( 2 * full_root_count + semi_root_count) / (2 * POWER(2, majs_gen_norm)))'. |
|
| 620 | - ' - POWER( SUM( (majs_gen_norm) * ( 2 * full_root_count + semi_root_count) / (2 * POWER(2, majs_gen_norm))), 2)'. |
|
| 621 | - ' ) AS stddev_gen_depth'. |
|
| 622 | - ' FROM('. |
|
| 623 | - ' SELECT'. |
|
| 624 | - ' sosa.majs_gedcom_id,'. |
|
| 625 | - ' sosa.majs_user_id,'. |
|
| 626 | - ' sosa.majs_gen - :gen AS majs_gen_norm,'. |
|
| 627 | - ' FLOOR(((sosa.majs_sosa / POW(2, sosa.majs_gen -1 )) - 1) * POWER(2, :gen - 1)) + POWER(2, :gen - 1) AS root_ancestor,'. |
|
| 628 | - ' SUM(case when sosa_fat.majs_i_id IS NULL AND sosa_mot.majs_i_id IS NULL THEN 1 ELSE 0 END) AS full_root_count,'. |
|
| 629 | - ' SUM(case when sosa_fat.majs_i_id IS NULL AND sosa_mot.majs_i_id IS NULL THEN 0 ELSE 1 END) As semi_root_count'. |
|
| 630 | - ' FROM `##maj_sosa` AS sosa'. |
|
| 631 | - ' LEFT JOIN `##maj_sosa` AS sosa_fat ON sosa_fat.majs_sosa = 2 * sosa.majs_sosa'. |
|
| 632 | - ' AND sosa_fat.majs_gedcom_id = sosa.majs_gedcom_id'. |
|
| 633 | - ' AND sosa_fat.majs_user_id = sosa.majs_user_id'. |
|
| 634 | - ' LEFT JOIN `##maj_sosa` AS sosa_mot ON sosa_mot.majs_sosa = 2 * sosa.majs_sosa + 1'. |
|
| 635 | - ' AND sosa_mot.majs_gedcom_id = sosa.majs_gedcom_id'. |
|
| 636 | - ' AND sosa_mot.majs_user_id = sosa.majs_user_id'. |
|
| 637 | - ' WHERE sosa.majs_gedcom_id = :tree_id'. |
|
| 638 | - ' AND sosa.majs_user_id = :user_id'. |
|
| 639 | - ' AND sosa.majs_gen >= :gen'. |
|
| 640 | - ' AND (sosa_fat.majs_i_id IS NULL OR sosa_mot.majs_i_id IS NULL)'. |
|
| 641 | - ' GROUP BY sosa.majs_gen, root_ancestor'. |
|
| 642 | - ' ) AS stats_by_gen'. |
|
| 643 | - ' INNER JOIN `##maj_sosa` sosa_list ON sosa_list.majs_gedcom_id = stats_by_gen.majs_gedcom_id'. |
|
| 644 | - ' AND sosa_list.majs_user_id = stats_by_gen.majs_user_id'. |
|
| 645 | - ' AND sosa_list.majs_sosa = stats_by_gen.root_ancestor'. |
|
| 646 | - ' GROUP BY stats_by_gen.root_ancestor, sosa_list.majs_i_id'. |
|
| 647 | - ' ORDER BY stats_by_gen.root_ancestor') |
|
| 648 | - ->execute(array( |
|
| 649 | - 'tree_id' => $this->tree->getTreeId(), |
|
| 650 | - 'user_id' => $this->user->getUserId(), |
|
| 651 | - 'gen' => $gen |
|
| 652 | - ))->fetchAll() ?: array(); |
|
| 447 | + /** |
|
| 448 | + * Get the total Sosa count for all generations |
|
| 449 | + * |
|
| 450 | + * @return number Number of Sosas |
|
| 451 | + */ |
|
| 452 | + public function getSosaCount(){ |
|
| 453 | + if(!$this->is_setup) return 0; |
|
| 454 | + return Database::prepare( |
|
| 455 | + 'SELECT COUNT(majs_sosa) FROM `##maj_sosa`' . |
|
| 456 | + ' WHERE majs_gedcom_id=:tree_id AND majs_user_id=:user_id') |
|
| 457 | + ->execute(array( |
|
| 458 | + 'tree_id' => $this->tree->getTreeId(), |
|
| 459 | + 'user_id' => $this->user->getUserId() |
|
| 460 | + ))->fetchOne() ?: 0; |
|
| 461 | + } |
|
| 462 | + |
|
| 463 | + /** |
|
| 464 | + * Get the number of Sosa in a specific generation. |
|
| 465 | + * |
|
| 466 | + * @param number $gen Generation |
|
| 467 | + * @return number Number of Sosas in generation |
|
| 468 | + */ |
|
| 469 | + public function getSosaCountAtGeneration($gen){ |
|
| 470 | + if(!$this->is_setup) return 0; |
|
| 471 | + return Database::prepare( |
|
| 472 | + 'SELECT COUNT(majs_sosa) FROM `##maj_sosa`' . |
|
| 473 | + ' WHERE majs_gedcom_id=:tree_id AND majs_user_id=:user_id'. |
|
| 474 | + ' AND majs_gen= :gen') |
|
| 475 | + ->execute(array( |
|
| 476 | + 'tree_id' => $this->tree->getTreeId(), |
|
| 477 | + 'user_id' => $this->user->getUserId(), |
|
| 478 | + 'gen' => $gen |
|
| 479 | + ))->fetchOne() ?: 0; |
|
| 480 | + } |
|
| 481 | + |
|
| 482 | + /** |
|
| 483 | + * Get the total number of Sosa up to a specific generation. |
|
| 484 | + * |
|
| 485 | + * @param number $gen Generation |
|
| 486 | + * @return number Total number of Sosas up to generation |
|
| 487 | + */ |
|
| 488 | + public function getSosaCountUpToGeneration($gen){ |
|
| 489 | + if(!$this->is_setup) return 0; |
|
| 490 | + return Database::prepare( |
|
| 491 | + 'SELECT COUNT(majs_sosa) FROM `##maj_sosa`' . |
|
| 492 | + ' WHERE majs_gedcom_id=:tree_id AND majs_user_id=:user_id'. |
|
| 493 | + ' AND majs_gen <= :gen') |
|
| 494 | + ->execute(array( |
|
| 495 | + 'tree_id' => $this->tree->getTreeId(), |
|
| 496 | + 'user_id' => $this->user->getUserId(), |
|
| 497 | + 'gen' => $gen |
|
| 498 | + ))->fetchOne() ?: 0; |
|
| 499 | + } |
|
| 500 | + |
|
| 501 | + /** |
|
| 502 | + * Get the total number of distinct Sosa individual for all generations. |
|
| 503 | + * |
|
| 504 | + * @return number Total number of distinct individual |
|
| 505 | + */ |
|
| 506 | + public function getDifferentSosaCount(){ |
|
| 507 | + if(!$this->is_setup) return 0; |
|
| 508 | + return Database::prepare( |
|
| 509 | + 'SELECT COUNT(DISTINCT majs_i_id) FROM `##maj_sosa`' . |
|
| 510 | + ' WHERE majs_gedcom_id=:tree_id AND majs_user_id=:user_id') |
|
| 511 | + ->execute(array( |
|
| 512 | + 'tree_id' => $this->tree->getTreeId(), |
|
| 513 | + 'user_id' => $this->user->getUserId() |
|
| 514 | + ))->fetchOne() ?: 0; |
|
| 515 | + } |
|
| 516 | + |
|
| 517 | + /** |
|
| 518 | + * Get the number of distinct Sosa individual up to a specific generation. |
|
| 519 | + * |
|
| 520 | + * @param number $gen Generation |
|
| 521 | + * @return number Number of distinct Sosa individuals up to generation |
|
| 522 | + */ |
|
| 523 | + public function getDifferentSosaCountUpToGeneration($gen){ |
|
| 524 | + if(!$this->is_setup) return 0; |
|
| 525 | + return Database::prepare( |
|
| 526 | + 'SELECT COUNT(DISTINCT majs_i_id) FROM `##maj_sosa`' . |
|
| 527 | + ' WHERE majs_gedcom_id=:tree_id AND majs_user_id=:user_id'. |
|
| 528 | + ' AND majs_gen <= :gen') |
|
| 529 | + ->execute(array( |
|
| 530 | + 'tree_id' => $this->tree->getTreeId(), |
|
| 531 | + 'user_id' => $this->user->getUserId(), |
|
| 532 | + 'gen' => $gen |
|
| 533 | + ))->fetchOne() ?: 0; |
|
| 534 | + } |
|
| 535 | + |
|
| 536 | + /** |
|
| 537 | + * Get an array of birth statistics for a specific generation |
|
| 538 | + * Statistics are : |
|
| 539 | + * - first : First birth year in generation |
|
| 540 | + * - first_est: First estimated birth year in generation |
|
| 541 | + * - last : Last birth year in generation |
|
| 542 | + * - last_est : Last estimated birth year in generation |
|
| 543 | + * - avg : Average birth year (based on non-estimated birth date) |
|
| 544 | + * |
|
| 545 | + * @param number $gen Generation |
|
| 546 | + * @return array Birth statistics array |
|
| 547 | + */ |
|
| 548 | + public function getStatsBirthYearInGeneration($gen){ |
|
| 549 | + if(!$this->is_setup) return array('first' => 0, 'first_est' => 0, 'avg' => 0, 'last' => 0, 'last_est' => 0); |
|
| 550 | + return Database::prepare( |
|
| 551 | + 'SELECT'. |
|
| 552 | + ' MIN(majs_birth_year) AS first, MIN(majs_birth_year_est) AS first_est,'. |
|
| 553 | + ' AVG(majs_birth_year) AS avg,'. |
|
| 554 | + ' MAX(majs_birth_year) AS last, MAX(majs_birth_year_est) AS last_est'. |
|
| 555 | + ' FROM `##maj_sosa`'. |
|
| 556 | + ' WHERE majs_gedcom_id=:tree_id AND majs_user_id=:user_id'. |
|
| 557 | + ' AND majs_gen=:gen') |
|
| 558 | + ->execute(array( |
|
| 559 | + 'tree_id' => $this->tree->getTreeId(), |
|
| 560 | + 'user_id' => $this->user->getUserId(), |
|
| 561 | + 'gen' => $gen)) |
|
| 562 | + ->fetchOneRow(\PDO::FETCH_ASSOC) ?: array('first' => 0, 'first_est' => 0, 'avg' => 0, 'last' => 0, 'last_est' => 0); |
|
| 563 | + } |
|
| 564 | + |
|
| 565 | + /** |
|
| 566 | + * Get the mean generation time, based on a linear regression of birth years and generations |
|
| 567 | + * |
|
| 568 | + * @return number|NULL Mean generation time |
|
| 569 | + */ |
|
| 570 | + public function getMeanGenerationTime(){ |
|
| 571 | + if(!$this->is_setup) return; |
|
| 572 | + if(!$this->statistics_tab){ |
|
| 573 | + $this->getStatisticsByGeneration(); |
|
| 574 | + } |
|
| 575 | + //Linear regression on x=generation and y=birthdate |
|
| 576 | + $sum_xy = 0; |
|
| 577 | + $sum_x=0; |
|
| 578 | + $sum_y=0; |
|
| 579 | + $sum_x2=0; |
|
| 580 | + $n=count($this->statistics_tab); |
|
| 581 | + foreach($this->statistics_tab as $gen=>$stats){ |
|
| 582 | + $sum_xy+=$gen*$stats['avgBirth']; |
|
| 583 | + $sum_x+=$gen; |
|
| 584 | + $sum_y+=$stats['avgBirth']; |
|
| 585 | + $sum_x2+=$gen*$gen; |
|
| 586 | + } |
|
| 587 | + $denom=($n*$sum_x2)-($sum_x*$sum_x); |
|
| 588 | + if($denom!=0){ |
|
| 589 | + return -(($n*$sum_xy)-($sum_x*$sum_y))/($denom); |
|
| 590 | + } |
|
| 591 | + return null; |
|
| 592 | + } |
|
| 593 | + |
|
| 594 | + /** |
|
| 595 | + * Return an array of the mean generation depth and standard deviation for all Sosa ancestors at a given generation. |
|
| 596 | + * Sosa 1 is of generation 1. |
|
| 597 | + * |
|
| 598 | + * Mean generation depth and deviation are calculated based on the works of Marie-Héléne Cazes and Pierre Cazes, |
|
| 599 | + * published in Population (French Edition), Vol. 51, No. 1 (Jan. - Feb., 1996), pp. 117-140 |
|
| 600 | + * http://kintip.net/index.php?option=com_jdownloads&task=download.send&id=9&catid=4&m=0 |
|
| 601 | + * |
|
| 602 | + * Format: |
|
| 603 | + * - key : sosa number of the ancestor |
|
| 604 | + * - values: array |
|
| 605 | + * - root_ancestor_id : ID of the ancestor |
|
| 606 | + * - mean_gen_depth : Mean generation depth |
|
| 607 | + * - stddev_gen_depth : Standard deviation of generation depth |
|
| 608 | + * |
|
| 609 | + * @param number $gen Sosa generation |
|
| 610 | + * @return array |
|
| 611 | + */ |
|
| 612 | + public function getGenerationDepthStatsAtGen($gen) { |
|
| 613 | + if(!$this->is_setup) return array(); |
|
| 614 | + $gen_depth_stats_raw = Database::prepare( |
|
| 615 | + 'SELECT stats_by_gen.root_ancestor AS root_ancestor_sosa,'. |
|
| 616 | + ' sosa_list.majs_i_id as root_ancestor_id,'. |
|
| 617 | + ' 1 + SUM( (majs_gen_norm) * ( 2 * full_root_count + semi_root_count) / (2 * POWER(2, majs_gen_norm))) AS mean_gen_depth,'. |
|
| 618 | + ' SQRT('. |
|
| 619 | + ' SUM(POWER(majs_gen_norm, 2) * ( 2 * full_root_count + semi_root_count) / (2 * POWER(2, majs_gen_norm)))'. |
|
| 620 | + ' - POWER( SUM( (majs_gen_norm) * ( 2 * full_root_count + semi_root_count) / (2 * POWER(2, majs_gen_norm))), 2)'. |
|
| 621 | + ' ) AS stddev_gen_depth'. |
|
| 622 | + ' FROM('. |
|
| 623 | + ' SELECT'. |
|
| 624 | + ' sosa.majs_gedcom_id,'. |
|
| 625 | + ' sosa.majs_user_id,'. |
|
| 626 | + ' sosa.majs_gen - :gen AS majs_gen_norm,'. |
|
| 627 | + ' FLOOR(((sosa.majs_sosa / POW(2, sosa.majs_gen -1 )) - 1) * POWER(2, :gen - 1)) + POWER(2, :gen - 1) AS root_ancestor,'. |
|
| 628 | + ' SUM(case when sosa_fat.majs_i_id IS NULL AND sosa_mot.majs_i_id IS NULL THEN 1 ELSE 0 END) AS full_root_count,'. |
|
| 629 | + ' SUM(case when sosa_fat.majs_i_id IS NULL AND sosa_mot.majs_i_id IS NULL THEN 0 ELSE 1 END) As semi_root_count'. |
|
| 630 | + ' FROM `##maj_sosa` AS sosa'. |
|
| 631 | + ' LEFT JOIN `##maj_sosa` AS sosa_fat ON sosa_fat.majs_sosa = 2 * sosa.majs_sosa'. |
|
| 632 | + ' AND sosa_fat.majs_gedcom_id = sosa.majs_gedcom_id'. |
|
| 633 | + ' AND sosa_fat.majs_user_id = sosa.majs_user_id'. |
|
| 634 | + ' LEFT JOIN `##maj_sosa` AS sosa_mot ON sosa_mot.majs_sosa = 2 * sosa.majs_sosa + 1'. |
|
| 635 | + ' AND sosa_mot.majs_gedcom_id = sosa.majs_gedcom_id'. |
|
| 636 | + ' AND sosa_mot.majs_user_id = sosa.majs_user_id'. |
|
| 637 | + ' WHERE sosa.majs_gedcom_id = :tree_id'. |
|
| 638 | + ' AND sosa.majs_user_id = :user_id'. |
|
| 639 | + ' AND sosa.majs_gen >= :gen'. |
|
| 640 | + ' AND (sosa_fat.majs_i_id IS NULL OR sosa_mot.majs_i_id IS NULL)'. |
|
| 641 | + ' GROUP BY sosa.majs_gen, root_ancestor'. |
|
| 642 | + ' ) AS stats_by_gen'. |
|
| 643 | + ' INNER JOIN `##maj_sosa` sosa_list ON sosa_list.majs_gedcom_id = stats_by_gen.majs_gedcom_id'. |
|
| 644 | + ' AND sosa_list.majs_user_id = stats_by_gen.majs_user_id'. |
|
| 645 | + ' AND sosa_list.majs_sosa = stats_by_gen.root_ancestor'. |
|
| 646 | + ' GROUP BY stats_by_gen.root_ancestor, sosa_list.majs_i_id'. |
|
| 647 | + ' ORDER BY stats_by_gen.root_ancestor') |
|
| 648 | + ->execute(array( |
|
| 649 | + 'tree_id' => $this->tree->getTreeId(), |
|
| 650 | + 'user_id' => $this->user->getUserId(), |
|
| 651 | + 'gen' => $gen |
|
| 652 | + ))->fetchAll() ?: array(); |
|
| 653 | 653 | |
| 654 | - $gen_depth_stats = array(); |
|
| 655 | - foreach ($gen_depth_stats_raw as $gen_depth_stat) { |
|
| 656 | - $gen_depth_stats[$gen_depth_stat->root_ancestor_sosa] = array( |
|
| 657 | - 'root_ancestor_id' => $gen_depth_stat->root_ancestor_id, |
|
| 658 | - 'mean_gen_depth' => $gen_depth_stat->mean_gen_depth, |
|
| 659 | - 'stddev_gen_depth' => $gen_depth_stat->stddev_gen_depth |
|
| 660 | - ); |
|
| 661 | - } |
|
| 662 | - return $gen_depth_stats; |
|
| 663 | - } |
|
| 664 | - |
|
| 665 | - /** |
|
| 666 | - * Return a computed array of statistics about the dispersion of ancestors across the ancestors |
|
| 667 | - * at a specified generation. |
|
| 668 | - * This statistics cannot be used for generations above 11, as it would cause a out of range in MySQL |
|
| 669 | - * |
|
| 670 | - * Format: |
|
| 671 | - * - key : a base-2 representation of the ancestor at generation G for which exclusive ancestors have been found, |
|
| 672 | - * -1 is used for shared ancestors |
|
| 673 | - * For instance base2(0100) = base10(4) represent the maternal grand father |
|
| 674 | - * - values: number of ancestors exclusively in the ancestors of the ancestor in key |
|
| 675 | - * |
|
| 676 | - * For instance a result at generation 3 could be : |
|
| 677 | - * array ( -1 => 12 -> 12 ancestors are shared by the grand-parents |
|
| 678 | - * base10(1) => 32 -> 32 ancestors are exclusive to the paternal grand-father |
|
| 679 | - * base10(2) => 25 -> 25 ancestors are exclusive to the paternal grand-mother |
|
| 680 | - * base10(4) => 12 -> 12 ancestors are exclusive to the maternal grand-father |
|
| 681 | - * base10(8) => 30 -> 30 ancestors are exclusive to the maternal grand-mother |
|
| 682 | - * ) |
|
| 683 | - * |
|
| 684 | - * @param int $gen Reference generation |
|
| 685 | - * @return array |
|
| 686 | - */ |
|
| 687 | - public function getAncestorDispersionForGen($gen) { |
|
| 688 | - if(!$this->is_setup || $gen > 11) return array(); // Going further than 11 gen will be out of range in the query |
|
| 689 | - return Database::prepare( |
|
| 690 | - 'SELECT branches, count(i_id)'. |
|
| 691 | - ' FROM ('. |
|
| 692 | - ' SELECT i_id,'. |
|
| 693 | - ' CASE'. |
|
| 694 | - ' WHEN CEIL(LOG2(SUM(branch))) = LOG2(SUM(branch)) THEN SUM(branch)'. |
|
| 695 | - ' ELSE -1'. // We put all ancestors shared between some branches in the same bucket |
|
| 696 | - ' END branches'. |
|
| 697 | - ' FROM ('. |
|
| 698 | - ' SELECT DISTINCT majs_i_id i_id,'. |
|
| 699 | - ' POW(2, FLOOR(majs_sosa / POW(2, (majs_gen - :gen))) - POW(2, :gen -1)) branch'. |
|
| 700 | - ' FROM `##maj_sosa`'. |
|
| 701 | - ' WHERE majs_gedcom_id = :tree_id AND majs_user_id = :user_id'. |
|
| 702 | - ' AND majs_gen >= :gen'. |
|
| 703 | - ' ) indistat'. |
|
| 704 | - ' GROUP BY i_id'. |
|
| 705 | - ') grouped'. |
|
| 706 | - ' GROUP BY branches') |
|
| 707 | - ->execute(array( |
|
| 708 | - 'tree_id' => $this->tree->getTreeId(), |
|
| 709 | - 'user_id' => $this->user->getUserId(), |
|
| 710 | - 'gen' => $gen |
|
| 711 | - ))->fetchAssoc() ?: array(); |
|
| 712 | - } |
|
| 713 | - |
|
| 714 | - /** |
|
| 715 | - * Return an array of the most duplicated root Sosa ancestors. |
|
| 716 | - * The number of ancestors to return is limited by the parameter $limit. |
|
| 717 | - * If several individuals are tied when reaching the limit, none of them are returned, |
|
| 718 | - * which means that there can be less individuals returned than requested. |
|
| 719 | - * |
|
| 720 | - * Format: |
|
| 721 | - * - key : root Sosa individual |
|
| 722 | - * - value: number of duplications of the ancestor (e.g. 3 if it appears 3 times) |
|
| 723 | - * |
|
| 724 | - * @param number $limit Maximum number of individuals to return |
|
| 725 | - * @return array |
|
| 726 | - */ |
|
| 727 | - public function getTopMultiSosaAncestorsNoTies($limit) { |
|
| 728 | - if(!$this->is_setup) return array(); |
|
| 729 | - return Database::prepare( |
|
| 730 | - 'SELECT sosa_i_id, sosa_count FROM ('. |
|
| 731 | - ' SELECT'. |
|
| 732 | - ' top_sosa.sosa_i_id, top_sosa.sosa_count, top_sosa.sosa_min,'. |
|
| 733 | - ' @keep := IF(@prev_count = 0 OR sosa_count = @prev_count, @keep, 1) AS keep,'. |
|
| 734 | - ' @prev_count := top_sosa.sosa_count AS prev_count'. |
|
| 735 | - ' FROM ('. |
|
| 736 | - ' SELECT'. |
|
| 737 | - ' sosa.majs_i_id sosa_i_id,'. |
|
| 738 | - ' COUNT(sosa.majs_sosa) sosa_count,'. |
|
| 739 | - ' MIN(sosa.majs_sosa) sosa_min'. |
|
| 740 | - ' FROM ##maj_sosa AS sosa'. |
|
| 741 | - ' LEFT JOIN ##maj_sosa AS sosa_fat ON sosa_fat.majs_sosa = 2 * sosa.majs_sosa'. // Link to sosa's father |
|
| 742 | - ' AND sosa.majs_gedcom_id = sosa_fat.majs_gedcom_id'. |
|
| 743 | - ' AND sosa.majs_user_id = sosa_fat.majs_user_id'. |
|
| 744 | - ' LEFT JOIN ##maj_sosa AS sosa_mot on sosa_mot.majs_sosa = (2 * sosa.majs_sosa + 1)'. // Link to sosa's mother |
|
| 745 | - ' AND sosa.majs_gedcom_id = sosa_fat.majs_gedcom_id'. |
|
| 746 | - ' AND sosa.majs_user_id = sosa_fat.majs_user_id'. |
|
| 747 | - ' WHERE sosa.majs_gedcom_id = :tree_id'. |
|
| 748 | - ' AND sosa.majs_user_id = :user_id'. |
|
| 749 | - ' AND sosa_fat.majs_sosa IS NULL'. // We keep only root individuals, i.e. those with no father or mother |
|
| 750 | - ' AND sosa_mot.majs_sosa IS NULL'. |
|
| 751 | - ' GROUP BY sosa.majs_i_id'. |
|
| 752 | - ' HAVING COUNT(sosa.majs_sosa) > 1'. // Limit to the duplicate sosas. |
|
| 753 | - ' ORDER BY COUNT(sosa.majs_sosa) DESC'. |
|
| 754 | - ' LIMIT ' . ($limit + 1) . // We want to select one more than required |
|
| 755 | - ' ) AS top_sosa,'. |
|
| 756 | - ' (SELECT @prev_count := 0, @keep := 0) x'. |
|
| 757 | - ' ORDER BY top_sosa.sosa_count ASC'. |
|
| 758 | - ' ) top_sosa_list'. |
|
| 759 | - ' WHERE keep = 1'. |
|
| 760 | - ' ORDER BY sosa_count DESC, sosa_min ASC' |
|
| 761 | - )->execute(array( |
|
| 762 | - 'tree_id' => $this->tree->getTreeId(), |
|
| 763 | - 'user_id' => $this->user->getUserId() |
|
| 764 | - ))->fetchAssoc() ?: array(); |
|
| 765 | - } |
|
| 654 | + $gen_depth_stats = array(); |
|
| 655 | + foreach ($gen_depth_stats_raw as $gen_depth_stat) { |
|
| 656 | + $gen_depth_stats[$gen_depth_stat->root_ancestor_sosa] = array( |
|
| 657 | + 'root_ancestor_id' => $gen_depth_stat->root_ancestor_id, |
|
| 658 | + 'mean_gen_depth' => $gen_depth_stat->mean_gen_depth, |
|
| 659 | + 'stddev_gen_depth' => $gen_depth_stat->stddev_gen_depth |
|
| 660 | + ); |
|
| 661 | + } |
|
| 662 | + return $gen_depth_stats; |
|
| 663 | + } |
|
| 664 | + |
|
| 665 | + /** |
|
| 666 | + * Return a computed array of statistics about the dispersion of ancestors across the ancestors |
|
| 667 | + * at a specified generation. |
|
| 668 | + * This statistics cannot be used for generations above 11, as it would cause a out of range in MySQL |
|
| 669 | + * |
|
| 670 | + * Format: |
|
| 671 | + * - key : a base-2 representation of the ancestor at generation G for which exclusive ancestors have been found, |
|
| 672 | + * -1 is used for shared ancestors |
|
| 673 | + * For instance base2(0100) = base10(4) represent the maternal grand father |
|
| 674 | + * - values: number of ancestors exclusively in the ancestors of the ancestor in key |
|
| 675 | + * |
|
| 676 | + * For instance a result at generation 3 could be : |
|
| 677 | + * array ( -1 => 12 -> 12 ancestors are shared by the grand-parents |
|
| 678 | + * base10(1) => 32 -> 32 ancestors are exclusive to the paternal grand-father |
|
| 679 | + * base10(2) => 25 -> 25 ancestors are exclusive to the paternal grand-mother |
|
| 680 | + * base10(4) => 12 -> 12 ancestors are exclusive to the maternal grand-father |
|
| 681 | + * base10(8) => 30 -> 30 ancestors are exclusive to the maternal grand-mother |
|
| 682 | + * ) |
|
| 683 | + * |
|
| 684 | + * @param int $gen Reference generation |
|
| 685 | + * @return array |
|
| 686 | + */ |
|
| 687 | + public function getAncestorDispersionForGen($gen) { |
|
| 688 | + if(!$this->is_setup || $gen > 11) return array(); // Going further than 11 gen will be out of range in the query |
|
| 689 | + return Database::prepare( |
|
| 690 | + 'SELECT branches, count(i_id)'. |
|
| 691 | + ' FROM ('. |
|
| 692 | + ' SELECT i_id,'. |
|
| 693 | + ' CASE'. |
|
| 694 | + ' WHEN CEIL(LOG2(SUM(branch))) = LOG2(SUM(branch)) THEN SUM(branch)'. |
|
| 695 | + ' ELSE -1'. // We put all ancestors shared between some branches in the same bucket |
|
| 696 | + ' END branches'. |
|
| 697 | + ' FROM ('. |
|
| 698 | + ' SELECT DISTINCT majs_i_id i_id,'. |
|
| 699 | + ' POW(2, FLOOR(majs_sosa / POW(2, (majs_gen - :gen))) - POW(2, :gen -1)) branch'. |
|
| 700 | + ' FROM `##maj_sosa`'. |
|
| 701 | + ' WHERE majs_gedcom_id = :tree_id AND majs_user_id = :user_id'. |
|
| 702 | + ' AND majs_gen >= :gen'. |
|
| 703 | + ' ) indistat'. |
|
| 704 | + ' GROUP BY i_id'. |
|
| 705 | + ') grouped'. |
|
| 706 | + ' GROUP BY branches') |
|
| 707 | + ->execute(array( |
|
| 708 | + 'tree_id' => $this->tree->getTreeId(), |
|
| 709 | + 'user_id' => $this->user->getUserId(), |
|
| 710 | + 'gen' => $gen |
|
| 711 | + ))->fetchAssoc() ?: array(); |
|
| 712 | + } |
|
| 713 | + |
|
| 714 | + /** |
|
| 715 | + * Return an array of the most duplicated root Sosa ancestors. |
|
| 716 | + * The number of ancestors to return is limited by the parameter $limit. |
|
| 717 | + * If several individuals are tied when reaching the limit, none of them are returned, |
|
| 718 | + * which means that there can be less individuals returned than requested. |
|
| 719 | + * |
|
| 720 | + * Format: |
|
| 721 | + * - key : root Sosa individual |
|
| 722 | + * - value: number of duplications of the ancestor (e.g. 3 if it appears 3 times) |
|
| 723 | + * |
|
| 724 | + * @param number $limit Maximum number of individuals to return |
|
| 725 | + * @return array |
|
| 726 | + */ |
|
| 727 | + public function getTopMultiSosaAncestorsNoTies($limit) { |
|
| 728 | + if(!$this->is_setup) return array(); |
|
| 729 | + return Database::prepare( |
|
| 730 | + 'SELECT sosa_i_id, sosa_count FROM ('. |
|
| 731 | + ' SELECT'. |
|
| 732 | + ' top_sosa.sosa_i_id, top_sosa.sosa_count, top_sosa.sosa_min,'. |
|
| 733 | + ' @keep := IF(@prev_count = 0 OR sosa_count = @prev_count, @keep, 1) AS keep,'. |
|
| 734 | + ' @prev_count := top_sosa.sosa_count AS prev_count'. |
|
| 735 | + ' FROM ('. |
|
| 736 | + ' SELECT'. |
|
| 737 | + ' sosa.majs_i_id sosa_i_id,'. |
|
| 738 | + ' COUNT(sosa.majs_sosa) sosa_count,'. |
|
| 739 | + ' MIN(sosa.majs_sosa) sosa_min'. |
|
| 740 | + ' FROM ##maj_sosa AS sosa'. |
|
| 741 | + ' LEFT JOIN ##maj_sosa AS sosa_fat ON sosa_fat.majs_sosa = 2 * sosa.majs_sosa'. // Link to sosa's father |
|
| 742 | + ' AND sosa.majs_gedcom_id = sosa_fat.majs_gedcom_id'. |
|
| 743 | + ' AND sosa.majs_user_id = sosa_fat.majs_user_id'. |
|
| 744 | + ' LEFT JOIN ##maj_sosa AS sosa_mot on sosa_mot.majs_sosa = (2 * sosa.majs_sosa + 1)'. // Link to sosa's mother |
|
| 745 | + ' AND sosa.majs_gedcom_id = sosa_fat.majs_gedcom_id'. |
|
| 746 | + ' AND sosa.majs_user_id = sosa_fat.majs_user_id'. |
|
| 747 | + ' WHERE sosa.majs_gedcom_id = :tree_id'. |
|
| 748 | + ' AND sosa.majs_user_id = :user_id'. |
|
| 749 | + ' AND sosa_fat.majs_sosa IS NULL'. // We keep only root individuals, i.e. those with no father or mother |
|
| 750 | + ' AND sosa_mot.majs_sosa IS NULL'. |
|
| 751 | + ' GROUP BY sosa.majs_i_id'. |
|
| 752 | + ' HAVING COUNT(sosa.majs_sosa) > 1'. // Limit to the duplicate sosas. |
|
| 753 | + ' ORDER BY COUNT(sosa.majs_sosa) DESC'. |
|
| 754 | + ' LIMIT ' . ($limit + 1) . // We want to select one more than required |
|
| 755 | + ' ) AS top_sosa,'. |
|
| 756 | + ' (SELECT @prev_count := 0, @keep := 0) x'. |
|
| 757 | + ' ORDER BY top_sosa.sosa_count ASC'. |
|
| 758 | + ' ) top_sosa_list'. |
|
| 759 | + ' WHERE keep = 1'. |
|
| 760 | + ' ORDER BY sosa_count DESC, sosa_min ASC' |
|
| 761 | + )->execute(array( |
|
| 762 | + 'tree_id' => $this->tree->getTreeId(), |
|
| 763 | + 'user_id' => $this->user->getUserId() |
|
| 764 | + ))->fetchAssoc() ?: array(); |
|
| 765 | + } |
|
| 766 | 766 | |
| 767 | 767 | |
| 768 | 768 | } |
@@ -84,21 +84,25 @@ discard block |
||
| 84 | 84 | * @param User $user |
| 85 | 85 | */ |
| 86 | 86 | public function __construct(Tree $tree, User $user = null) { |
| 87 | - if(self::$default_user === null) |
|
| 88 | - self::$default_user = User::find(-1); |
|
| 87 | + if(self::$default_user === null) { |
|
| 88 | + self::$default_user = User::find(-1); |
|
| 89 | + } |
|
| 89 | 90 | |
| 90 | 91 | $this->tree = $tree; |
| 91 | 92 | $this->user = $user; |
| 92 | 93 | $this->is_setup = true; |
| 93 | - if($this->user === null) $this->user = Auth::user(); |
|
| 94 | - if(strlen($this->user->getUserId()) == 0) $this->user = self::$default_user; |
|
| 94 | + if($this->user === null) { |
|
| 95 | + $this->user = Auth::user(); |
|
| 96 | + } |
|
| 97 | + if(strlen($this->user->getUserId()) == 0) { |
|
| 98 | + $this->user = self::$default_user; |
|
| 99 | + } |
|
| 95 | 100 | |
| 96 | 101 | // Check if the user, or the default user, has a root already setup; |
| 97 | 102 | if(empty($this->getRootIndiId())) { |
| 98 | 103 | if($this->user == self::$default_user) { // If the default user is not setup |
| 99 | 104 | $this->is_setup = false; |
| 100 | - } |
|
| 101 | - else { |
|
| 105 | + } else { |
|
| 102 | 106 | $this->user = self::$default_user; |
| 103 | 107 | $this->is_setup = $this->getRootIndiId() === null; |
| 104 | 108 | } |
@@ -159,7 +163,9 @@ discard block |
||
| 159 | 163 | * Remove all Sosa entries related to the gedcom file and user |
| 160 | 164 | */ |
| 161 | 165 | public function deleteAll() { |
| 162 | - if(!$this->is_setup) return; |
|
| 166 | + if(!$this->is_setup) { |
|
| 167 | + return; |
|
| 168 | + } |
|
| 163 | 169 | Database::prepare( |
| 164 | 170 | 'DELETE FROM `##maj_sosa`'. |
| 165 | 171 | ' WHERE majs_gedcom_id= :tree_id and majs_user_id = :user_id ') |
@@ -175,7 +181,9 @@ discard block |
||
| 175 | 181 | * @param int $sosa |
| 176 | 182 | */ |
| 177 | 183 | public function deleteAncestors($sosa) { |
| 178 | - if(!$this->is_setup) return; |
|
| 184 | + if(!$this->is_setup) { |
|
| 185 | + return; |
|
| 186 | + } |
|
| 179 | 187 | $gen = Functions::getGeneration($sosa); |
| 180 | 188 | Database::prepare( |
| 181 | 189 | 'DELETE FROM `##maj_sosa`'. |
@@ -195,7 +203,9 @@ discard block |
||
| 195 | 203 | * @param array $sosa_records |
| 196 | 204 | */ |
| 197 | 205 | public function insertOrUpdate($sosa_records) { |
| 198 | - if(!$this->is_setup) return; |
|
| 206 | + if(!$this->is_setup) { |
|
| 207 | + return; |
|
| 208 | + } |
|
| 199 | 209 | |
| 200 | 210 | $treeid = $this->tree->getTreeId(); |
| 201 | 211 | $userid = $this->user->getUserId(); |
@@ -244,7 +254,9 @@ discard block |
||
| 244 | 254 | * @return array Array of sosa numbers |
| 245 | 255 | */ |
| 246 | 256 | public function getSosaNumbers(Individual $indi) { |
| 247 | - if(!$this->is_setup) return array(); |
|
| 257 | + if(!$this->is_setup) { |
|
| 258 | + return array(); |
|
| 259 | + } |
|
| 248 | 260 | return Database::prepare( |
| 249 | 261 | 'SELECT majs_sosa, majs_gen FROM `##maj_sosa`'. |
| 250 | 262 | ' WHERE majs_i_id=:indi_id AND majs_gedcom_id=:tree_id AND majs_user_id=:user_id' |
@@ -261,7 +273,9 @@ discard block |
||
| 261 | 273 | * @return number Last generation if found, 1 otherwise |
| 262 | 274 | */ |
| 263 | 275 | public function getLastGeneration() { |
| 264 | - if(!$this->is_setup) return; |
|
| 276 | + if(!$this->is_setup) { |
|
| 277 | + return; |
|
| 278 | + } |
|
| 265 | 279 | return Database::prepare( |
| 266 | 280 | 'SELECT MAX(majs_gen) FROM `##maj_sosa`'. |
| 267 | 281 | ' WHERE majs_gedcom_id=:tree_id AND majs_user_id=:user_id' |
@@ -281,7 +295,9 @@ discard block |
||
| 281 | 295 | * @return array Associative array of Sosa ancestors, with their generation, comma separated |
| 282 | 296 | */ |
| 283 | 297 | public function getAllSosaWithGenerations(){ |
| 284 | - if(!$this->is_setup) return array(); |
|
| 298 | + if(!$this->is_setup) { |
|
| 299 | + return array(); |
|
| 300 | + } |
|
| 285 | 301 | return Database::prepare( |
| 286 | 302 | 'SELECT majs_i_id AS indi,' . |
| 287 | 303 | ' GROUP_CONCAT(DISTINCT majs_gen ORDER BY majs_gen ASC SEPARATOR ",") AS generations' . |
@@ -301,9 +317,12 @@ discard block |
||
| 301 | 317 | * @return array Array of Sosa individuals |
| 302 | 318 | */ |
| 303 | 319 | public function getSosaListAtGeneration($gen){ |
| 304 | - if(!$this->is_setup) return array(); |
|
| 305 | - if(!$this->sosa_list_by_gen) |
|
| 306 | - $this->sosa_list_by_gen = array(); |
|
| 320 | + if(!$this->is_setup) { |
|
| 321 | + return array(); |
|
| 322 | + } |
|
| 323 | + if(!$this->sosa_list_by_gen) { |
|
| 324 | + $this->sosa_list_by_gen = array(); |
|
| 325 | + } |
|
| 307 | 326 | |
| 308 | 327 | if($gen){ |
| 309 | 328 | if(!isset($this->sosa_list_by_gen[$gen])){ |
@@ -332,9 +351,12 @@ discard block |
||
| 332 | 351 | * @return array Array of Sosa families |
| 333 | 352 | */ |
| 334 | 353 | public function getFamilySosaListAtGeneration($gen){ |
| 335 | - if(!$this->is_setup) return array(); |
|
| 336 | - if(!$this->sosa_fam_list_by_gen) |
|
| 337 | - $this->sosa_fam_list_by_gen = array(); |
|
| 354 | + if(!$this->is_setup) { |
|
| 355 | + return array(); |
|
| 356 | + } |
|
| 357 | + if(!$this->sosa_fam_list_by_gen) { |
|
| 358 | + $this->sosa_fam_list_by_gen = array(); |
|
| 359 | + } |
|
| 338 | 360 | |
| 339 | 361 | if($gen){ |
| 340 | 362 | if(!isset($this->sosa_fam_list_by_gen[$gen])){ |
@@ -368,7 +390,9 @@ discard block |
||
| 368 | 390 | * @return array Array of Sosa individuals |
| 369 | 391 | */ |
| 370 | 392 | public function getMissingSosaListAtGeneration($gen){ |
| 371 | - if(!$this->is_setup) return array(); |
|
| 393 | + if(!$this->is_setup) { |
|
| 394 | + return array(); |
|
| 395 | + } |
|
| 372 | 396 | if($gen){ |
| 373 | 397 | return $this->sosa_list_by_gen[$gen] = Database::prepare( |
| 374 | 398 | 'SELECT schild.majs_sosa sosa, schild.majs_i_id indi, sfat.majs_sosa IS NOT NULL has_father, smot.majs_sosa IS NOT NULL has_mother'. |
@@ -408,7 +432,9 @@ discard block |
||
| 408 | 432 | * @return array Statistics array |
| 409 | 433 | */ |
| 410 | 434 | public function getStatisticsByGeneration() { |
| 411 | - if(!$this->is_setup) return array(); |
|
| 435 | + if(!$this->is_setup) { |
|
| 436 | + return array(); |
|
| 437 | + } |
|
| 412 | 438 | if(!$this->statistics_tab) { |
| 413 | 439 | $this->statistics_tab = array(); |
| 414 | 440 | if($maxGeneration = $this->getLastGeneration()) { |
@@ -436,7 +462,9 @@ discard block |
||
| 436 | 462 | * @return int |
| 437 | 463 | */ |
| 438 | 464 | public function getTotalIndividuals() { |
| 439 | - if(!$this->is_setup) return 0; |
|
| 465 | + if(!$this->is_setup) { |
|
| 466 | + return 0; |
|
| 467 | + } |
|
| 440 | 468 | return Database::prepare( |
| 441 | 469 | 'SELECT COUNT(*) FROM `##individuals`' . |
| 442 | 470 | ' WHERE i_file = :tree_id') |
@@ -450,7 +478,9 @@ discard block |
||
| 450 | 478 | * @return number Number of Sosas |
| 451 | 479 | */ |
| 452 | 480 | public function getSosaCount(){ |
| 453 | - if(!$this->is_setup) return 0; |
|
| 481 | + if(!$this->is_setup) { |
|
| 482 | + return 0; |
|
| 483 | + } |
|
| 454 | 484 | return Database::prepare( |
| 455 | 485 | 'SELECT COUNT(majs_sosa) FROM `##maj_sosa`' . |
| 456 | 486 | ' WHERE majs_gedcom_id=:tree_id AND majs_user_id=:user_id') |
@@ -467,7 +497,9 @@ discard block |
||
| 467 | 497 | * @return number Number of Sosas in generation |
| 468 | 498 | */ |
| 469 | 499 | public function getSosaCountAtGeneration($gen){ |
| 470 | - if(!$this->is_setup) return 0; |
|
| 500 | + if(!$this->is_setup) { |
|
| 501 | + return 0; |
|
| 502 | + } |
|
| 471 | 503 | return Database::prepare( |
| 472 | 504 | 'SELECT COUNT(majs_sosa) FROM `##maj_sosa`' . |
| 473 | 505 | ' WHERE majs_gedcom_id=:tree_id AND majs_user_id=:user_id'. |
@@ -486,7 +518,9 @@ discard block |
||
| 486 | 518 | * @return number Total number of Sosas up to generation |
| 487 | 519 | */ |
| 488 | 520 | public function getSosaCountUpToGeneration($gen){ |
| 489 | - if(!$this->is_setup) return 0; |
|
| 521 | + if(!$this->is_setup) { |
|
| 522 | + return 0; |
|
| 523 | + } |
|
| 490 | 524 | return Database::prepare( |
| 491 | 525 | 'SELECT COUNT(majs_sosa) FROM `##maj_sosa`' . |
| 492 | 526 | ' WHERE majs_gedcom_id=:tree_id AND majs_user_id=:user_id'. |
@@ -504,7 +538,9 @@ discard block |
||
| 504 | 538 | * @return number Total number of distinct individual |
| 505 | 539 | */ |
| 506 | 540 | public function getDifferentSosaCount(){ |
| 507 | - if(!$this->is_setup) return 0; |
|
| 541 | + if(!$this->is_setup) { |
|
| 542 | + return 0; |
|
| 543 | + } |
|
| 508 | 544 | return Database::prepare( |
| 509 | 545 | 'SELECT COUNT(DISTINCT majs_i_id) FROM `##maj_sosa`' . |
| 510 | 546 | ' WHERE majs_gedcom_id=:tree_id AND majs_user_id=:user_id') |
@@ -521,7 +557,9 @@ discard block |
||
| 521 | 557 | * @return number Number of distinct Sosa individuals up to generation |
| 522 | 558 | */ |
| 523 | 559 | public function getDifferentSosaCountUpToGeneration($gen){ |
| 524 | - if(!$this->is_setup) return 0; |
|
| 560 | + if(!$this->is_setup) { |
|
| 561 | + return 0; |
|
| 562 | + } |
|
| 525 | 563 | return Database::prepare( |
| 526 | 564 | 'SELECT COUNT(DISTINCT majs_i_id) FROM `##maj_sosa`' . |
| 527 | 565 | ' WHERE majs_gedcom_id=:tree_id AND majs_user_id=:user_id'. |
@@ -546,7 +584,9 @@ discard block |
||
| 546 | 584 | * @return array Birth statistics array |
| 547 | 585 | */ |
| 548 | 586 | public function getStatsBirthYearInGeneration($gen){ |
| 549 | - if(!$this->is_setup) return array('first' => 0, 'first_est' => 0, 'avg' => 0, 'last' => 0, 'last_est' => 0); |
|
| 587 | + if(!$this->is_setup) { |
|
| 588 | + return array('first' => 0, 'first_est' => 0, 'avg' => 0, 'last' => 0, 'last_est' => 0); |
|
| 589 | + } |
|
| 550 | 590 | return Database::prepare( |
| 551 | 591 | 'SELECT'. |
| 552 | 592 | ' MIN(majs_birth_year) AS first, MIN(majs_birth_year_est) AS first_est,'. |
@@ -568,7 +608,9 @@ discard block |
||
| 568 | 608 | * @return number|NULL Mean generation time |
| 569 | 609 | */ |
| 570 | 610 | public function getMeanGenerationTime(){ |
| 571 | - if(!$this->is_setup) return; |
|
| 611 | + if(!$this->is_setup) { |
|
| 612 | + return; |
|
| 613 | + } |
|
| 572 | 614 | if(!$this->statistics_tab){ |
| 573 | 615 | $this->getStatisticsByGeneration(); |
| 574 | 616 | } |
@@ -610,7 +652,9 @@ discard block |
||
| 610 | 652 | * @return array |
| 611 | 653 | */ |
| 612 | 654 | public function getGenerationDepthStatsAtGen($gen) { |
| 613 | - if(!$this->is_setup) return array(); |
|
| 655 | + if(!$this->is_setup) { |
|
| 656 | + return array(); |
|
| 657 | + } |
|
| 614 | 658 | $gen_depth_stats_raw = Database::prepare( |
| 615 | 659 | 'SELECT stats_by_gen.root_ancestor AS root_ancestor_sosa,'. |
| 616 | 660 | ' sosa_list.majs_i_id as root_ancestor_id,'. |
@@ -685,7 +729,10 @@ discard block |
||
| 685 | 729 | * @return array |
| 686 | 730 | */ |
| 687 | 731 | public function getAncestorDispersionForGen($gen) { |
| 688 | - if(!$this->is_setup || $gen > 11) return array(); // Going further than 11 gen will be out of range in the query |
|
| 732 | + if(!$this->is_setup || $gen > 11) { |
|
| 733 | + return array(); |
|
| 734 | + } |
|
| 735 | + // Going further than 11 gen will be out of range in the query |
|
| 689 | 736 | return Database::prepare( |
| 690 | 737 | 'SELECT branches, count(i_id)'. |
| 691 | 738 | ' FROM ('. |
@@ -725,7 +772,9 @@ discard block |
||
| 725 | 772 | * @return array |
| 726 | 773 | */ |
| 727 | 774 | public function getTopMultiSosaAncestorsNoTies($limit) { |
| 728 | - if(!$this->is_setup) return array(); |
|
| 775 | + if(!$this->is_setup) { |
|
| 776 | + return array(); |
|
| 777 | + } |
|
| 729 | 778 | return Database::prepare( |
| 730 | 779 | 'SELECT sosa_i_id, sosa_count FROM ('. |
| 731 | 780 | ' SELECT'. |