18c2e8227SGreg Roach<?php 20e62c4b8SGreg Roachnamespace Fisharebest\Webtrees\Module; 38c2e8227SGreg Roach 48c2e8227SGreg Roach/** 58c2e8227SGreg Roach * webtrees: online genealogy 68c2e8227SGreg Roach * Copyright (C) 2015 webtrees development team 78c2e8227SGreg Roach * This program is free software: you can redistribute it and/or modify 88c2e8227SGreg Roach * it under the terms of the GNU General Public License as published by 98c2e8227SGreg Roach * the Free Software Foundation, either version 3 of the License, or 108c2e8227SGreg Roach * (at your option) any later version. 118c2e8227SGreg Roach * This program is distributed in the hope that it will be useful, 128c2e8227SGreg Roach * but WITHOUT ANY WARRANTY; without even the implied warranty of 138c2e8227SGreg Roach * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 148c2e8227SGreg Roach * GNU General Public License for more details. 158c2e8227SGreg Roach * You should have received a copy of the GNU General Public License 168c2e8227SGreg Roach * along with this program. If not, see <http://www.gnu.org/licenses/>. 178c2e8227SGreg Roach */ 180e62c4b8SGreg Roachuse Fisharebest\Webtrees\Auth; 190e62c4b8SGreg Roachuse Fisharebest\Webtrees\Controller\HourglassController; 200e62c4b8SGreg Roachuse Fisharebest\Webtrees\Filter; 21*3d7a8a4cSGreg Roachuse Fisharebest\Webtrees\Functions\FunctionsEdit; 22*3d7a8a4cSGreg Roachuse Fisharebest\Webtrees\Functions\FunctionsPrint; 230e62c4b8SGreg Roachuse Fisharebest\Webtrees\I18N; 240e62c4b8SGreg Roachuse Fisharebest\Webtrees\Individual; 250e62c4b8SGreg Roachuse Fisharebest\Webtrees\Module\InteractiveTree\TreeView; 260e62c4b8SGreg Roachuse Fisharebest\Webtrees\Theme; 278c2e8227SGreg Roach 288c2e8227SGreg Roach/** 298c2e8227SGreg Roach * Class ChartsBlockModule 308c2e8227SGreg Roach */ 31e2a378d3SGreg Roachclass ChartsBlockModule extends AbstractModule implements ModuleBlockInterface { 328c2e8227SGreg Roach /** {@inheritdoc} */ 338c2e8227SGreg Roach public function getTitle() { 348c2e8227SGreg Roach return /* I18N: Name of a module/block */ I18N::translate('Charts'); 358c2e8227SGreg Roach } 368c2e8227SGreg Roach 378c2e8227SGreg Roach /** {@inheritdoc} */ 388c2e8227SGreg Roach public function getDescription() { 398c2e8227SGreg Roach return /* I18N: Description of the “Charts” module */ I18N::translate('An alternative way to display charts.'); 408c2e8227SGreg Roach } 418c2e8227SGreg Roach 428c2e8227SGreg Roach /** {@inheritdoc} */ 438c2e8227SGreg Roach public function getBlock($block_id, $template = true, $cfg = null) { 448c2e8227SGreg Roach global $WT_TREE, $ctype, $controller; 458c2e8227SGreg Roach 468c2e8227SGreg Roach $PEDIGREE_ROOT_ID = $WT_TREE->getPreference('PEDIGREE_ROOT_ID'); 474b9ff166SGreg Roach $gedcomid = $WT_TREE->getUserPreference(Auth::user(), 'gedcomid'); 488c2e8227SGreg Roach 49e2a378d3SGreg Roach $details = $this->getBlockSetting($block_id, 'details', '0'); 50e2a378d3SGreg Roach $type = $this->getBlockSetting($block_id, 'type', 'pedigree'); 51e2a378d3SGreg Roach $pid = $this->getBlockSetting($block_id, 'pid', Auth::check() ? ($gedcomid ? $gedcomid : $PEDIGREE_ROOT_ID) : $PEDIGREE_ROOT_ID); 528c2e8227SGreg Roach 538c2e8227SGreg Roach if ($cfg) { 548c2e8227SGreg Roach foreach (array('details', 'type', 'pid', 'block') as $name) { 558c2e8227SGreg Roach if (array_key_exists($name, $cfg)) { 568c2e8227SGreg Roach $$name = $cfg[$name]; 578c2e8227SGreg Roach } 588c2e8227SGreg Roach } 598c2e8227SGreg Roach } 608c2e8227SGreg Roach 6124ec66ceSGreg Roach $person = Individual::getInstance($pid, $WT_TREE); 628c2e8227SGreg Roach if (!$person) { 638c2e8227SGreg Roach $pid = $PEDIGREE_ROOT_ID; 64e2a378d3SGreg Roach $this->setBlockSetting($block_id, 'pid', $pid); 6524ec66ceSGreg Roach $person = Individual::getInstance($pid, $WT_TREE); 668c2e8227SGreg Roach } 678c2e8227SGreg Roach 688c2e8227SGreg Roach $id = $this->getName() . $block_id; 698c2e8227SGreg Roach $class = $this->getName() . '_block'; 704b9ff166SGreg Roach if ($ctype == 'gedcom' && Auth::isManager($WT_TREE) || $ctype == 'user' && Auth::check()) { 719353052eSGreg Roach $title = '<a class="icon-admin" title="' . I18N::translate('Configure') . '" href="block_edit.php?block_id=' . $block_id . '&ged=' . $WT_TREE->getNameHtml() . '&ctype=' . $ctype . '"></a>'; 728c2e8227SGreg Roach } else { 738c2e8227SGreg Roach $title = ''; 748c2e8227SGreg Roach } 758c2e8227SGreg Roach 768c2e8227SGreg Roach if ($person) { 778c2e8227SGreg Roach $content = '<table cellspacing="0" cellpadding="0" border="0"><tr>'; 788c2e8227SGreg Roach switch ($type) { 798c2e8227SGreg Roach case 'pedigree': 808c2e8227SGreg Roach $title .= I18N::translate('Pedigree of %s', $person->getFullName()); 818c2e8227SGreg Roach $chartController = new HourglassController($person->getXref(), $details, false); 828c2e8227SGreg Roach $controller->addInlineJavascript($chartController->setupJavascript()); 838c2e8227SGreg Roach $content .= '<td valign="middle">'; 848c2e8227SGreg Roach ob_start(); 85*3d7a8a4cSGreg Roach FunctionsPrint::printPedigreePerson($person, $details); 868c2e8227SGreg Roach $content .= ob_get_clean(); 878c2e8227SGreg Roach $content .= '</td>'; 888c2e8227SGreg Roach $content .= '<td valign="middle">'; 898c2e8227SGreg Roach ob_start(); 908c2e8227SGreg Roach $chartController->printPersonPedigree($person, 1); 918c2e8227SGreg Roach $content .= ob_get_clean(); 928c2e8227SGreg Roach $content .= '</td>'; 938c2e8227SGreg Roach break; 948c2e8227SGreg Roach case 'descendants': 958c2e8227SGreg Roach $title .= I18N::translate('Descendants of %s', $person->getFullName()); 968c2e8227SGreg Roach $chartController = new HourglassController($person->getXref(), $details, false); 978c2e8227SGreg Roach $controller->addInlineJavascript($chartController->setupJavascript()); 988c2e8227SGreg Roach $content .= '<td valign="middle">'; 998c2e8227SGreg Roach ob_start(); 1008c2e8227SGreg Roach $chartController->printDescendency($person, 1, false); 1018c2e8227SGreg Roach $content .= ob_get_clean(); 1028c2e8227SGreg Roach $content .= '</td>'; 1038c2e8227SGreg Roach break; 1048c2e8227SGreg Roach case 'hourglass': 1058c2e8227SGreg Roach $title .= I18N::translate('Hourglass chart of %s', $person->getFullName()); 1068c2e8227SGreg Roach $chartController = new HourglassController($person->getXref(), $details, false); 1078c2e8227SGreg Roach $controller->addInlineJavascript($chartController->setupJavascript()); 1088c2e8227SGreg Roach $content .= '<td valign="middle">'; 1098c2e8227SGreg Roach ob_start(); 1108c2e8227SGreg Roach $chartController->printDescendency($person, 1, false); 1118c2e8227SGreg Roach $content .= ob_get_clean(); 1128c2e8227SGreg Roach $content .= '</td>'; 1138c2e8227SGreg Roach $content .= '<td valign="middle">'; 1148c2e8227SGreg Roach ob_start(); 1158c2e8227SGreg Roach $chartController->printPersonPedigree($person, 1); 1168c2e8227SGreg Roach $content .= ob_get_clean(); 1178c2e8227SGreg Roach $content .= '</td>'; 1188c2e8227SGreg Roach break; 1198c2e8227SGreg Roach case 'treenav': 1208c2e8227SGreg Roach $title .= I18N::translate('Interactive tree of %s', $person->getFullName()); 1218c2e8227SGreg Roach $mod = new InteractiveTreeModule(WT_MODULES_DIR . 'tree'); 1228c2e8227SGreg Roach $tv = new TreeView; 1238c2e8227SGreg Roach $content .= '<td>'; 1248c2e8227SGreg Roach $content .= '<script>jQuery("head").append(\'<link rel="stylesheet" href="' . $mod->css() . '" type="text/css" />\');</script>'; 1258c2e8227SGreg Roach $content .= '<script src="' . $mod->js() . '"></script>'; 1268c2e8227SGreg Roach list($html, $js) = $tv->drawViewport($person, 2); 1278c2e8227SGreg Roach $content .= $html . '<script>' . $js . '</script>'; 1288c2e8227SGreg Roach $content .= '</td>'; 1298c2e8227SGreg Roach break; 1308c2e8227SGreg Roach } 1318c2e8227SGreg Roach $content .= '</tr></table>'; 1328c2e8227SGreg Roach } else { 1338c2e8227SGreg Roach $content = I18N::translate('You must select an individual and chart type in the block configuration settings.'); 1348c2e8227SGreg Roach } 1358c2e8227SGreg Roach 1368c2e8227SGreg Roach if ($template) { 1378c2e8227SGreg Roach return Theme::theme()->formatBlock($id, $title, $class, $content); 1388c2e8227SGreg Roach } else { 1398c2e8227SGreg Roach return $content; 1408c2e8227SGreg Roach } 1418c2e8227SGreg Roach } 1428c2e8227SGreg Roach 1438c2e8227SGreg Roach /** {@inheritdoc} */ 1448c2e8227SGreg Roach public function loadAjax() { 1458c2e8227SGreg Roach return true; 1468c2e8227SGreg Roach } 1478c2e8227SGreg Roach 1488c2e8227SGreg Roach /** {@inheritdoc} */ 1498c2e8227SGreg Roach public function isUserBlock() { 1508c2e8227SGreg Roach return true; 1518c2e8227SGreg Roach } 1528c2e8227SGreg Roach 1538c2e8227SGreg Roach /** {@inheritdoc} */ 1548c2e8227SGreg Roach public function isGedcomBlock() { 1558c2e8227SGreg Roach return true; 1568c2e8227SGreg Roach } 1578c2e8227SGreg Roach 1588c2e8227SGreg Roach /** {@inheritdoc} */ 1598c2e8227SGreg Roach public function configureBlock($block_id) { 1608c2e8227SGreg Roach global $WT_TREE, $controller; 1618c2e8227SGreg Roach 1628c2e8227SGreg Roach $PEDIGREE_ROOT_ID = $WT_TREE->getPreference('PEDIGREE_ROOT_ID'); 1634b9ff166SGreg Roach $gedcomid = $WT_TREE->getUserPreference(Auth::user(), 'gedcomid'); 1648c2e8227SGreg Roach 1658c2e8227SGreg Roach if (Filter::postBool('save') && Filter::checkCsrf()) { 166e2a378d3SGreg Roach $this->setBlockSetting($block_id, 'details', Filter::postBool('details')); 167e2a378d3SGreg Roach $this->setBlockSetting($block_id, 'type', Filter::post('type', 'pedigree|descendants|hourglass|treenav', 'pedigree')); 168e2a378d3SGreg Roach $this->setBlockSetting($block_id, 'pid', Filter::post('pid', WT_REGEX_XREF)); 1698c2e8227SGreg Roach } 1708c2e8227SGreg Roach 171e2a378d3SGreg Roach $details = $this->getBlockSetting($block_id, 'details', '0'); 172e2a378d3SGreg Roach $type = $this->getBlockSetting($block_id, 'type', 'pedigree'); 173e2a378d3SGreg Roach $pid = $this->getBlockSetting($block_id, 'pid', Auth::check() ? ($gedcomid ? $gedcomid : $PEDIGREE_ROOT_ID) : $PEDIGREE_ROOT_ID); 1748c2e8227SGreg Roach 1758c2e8227SGreg Roach $controller 1768c2e8227SGreg Roach ->addExternalJavascript(WT_AUTOCOMPLETE_JS_URL) 1778c2e8227SGreg Roach ->addInlineJavascript('autocomplete();'); 1788c2e8227SGreg Roach ?> 1798c2e8227SGreg Roach <tr> 1808c2e8227SGreg Roach <td class="descriptionbox wrap width33"><?php echo I18N::translate('Chart type'); ?></td> 1818c2e8227SGreg Roach <td class="optionbox"> 182*3d7a8a4cSGreg Roach <?php echo FunctionsEdit::selectEditControl('type', 1838c2e8227SGreg Roach array( 1848c2e8227SGreg Roach 'pedigree' => I18N::translate('Pedigree'), 1858c2e8227SGreg Roach 'descendants' => I18N::translate('Descendants'), 1868c2e8227SGreg Roach 'hourglass' => I18N::translate('Hourglass chart'), 187cbc1590aSGreg Roach 'treenav' => I18N::translate('Interactive tree'), 188cbc1590aSGreg Roach ), 1898c2e8227SGreg Roach null, $type); ?> 1908c2e8227SGreg Roach </td> 1918c2e8227SGreg Roach </tr> 1928c2e8227SGreg Roach <tr> 1938c2e8227SGreg Roach <td class="descriptionbox wrap width33"><?php echo I18N::translate('Show details'); ?></td> 1948c2e8227SGreg Roach <td class="optionbox"> 195*3d7a8a4cSGreg Roach <?php echo FunctionsEdit::editFieldYesNo('details', $details); ?> 1968c2e8227SGreg Roach </td> 1978c2e8227SGreg Roach </tr> 1988c2e8227SGreg Roach <tr> 1998c2e8227SGreg Roach <td class="descriptionbox wrap width33"><?php echo I18N::translate('Individual'); ?></td> 2008c2e8227SGreg Roach <td class="optionbox"> 2018c2e8227SGreg Roach <input data-autocomplete-type="INDI" type="text" name="pid" id="pid" value="<?php echo $pid; ?>" size="5"> 2028c2e8227SGreg Roach <?php 203*3d7a8a4cSGreg Roach echo FunctionsPrint::printFindIndividualLink('pid'); 20424ec66ceSGreg Roach $root = Individual::getInstance($pid, $WT_TREE); 2058c2e8227SGreg Roach if ($root) { 20618f3ef81SGreg Roach echo ' <span class="list_item">', $root->getFullName(), $root->formatFirstMajorFact(WT_EVENTS_BIRT, 1), '</span>'; 2078c2e8227SGreg Roach } 2088c2e8227SGreg Roach ?> 2098c2e8227SGreg Roach </td> 2108c2e8227SGreg Roach </tr> 2118c2e8227SGreg Roach <?php 2128c2e8227SGreg Roach } 2138c2e8227SGreg Roach} 214