18c2e8227SGreg Roach<?php 28c2e8227SGreg Roachnamespace Fisharebest\Webtrees; 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 */ 188c2e8227SGreg Roach 198c2e8227SGreg Roach/** 208c2e8227SGreg Roach * Class ReviewChangesModule 218c2e8227SGreg Roach */ 228c2e8227SGreg Roachclass ReviewChangesModule extends Module implements ModuleBlockInterface { 238c2e8227SGreg Roach /** {@inheritdoc} */ 248c2e8227SGreg Roach public function getTitle() { 258c2e8227SGreg Roach return /* I18N: Name of a module */ I18N::translate('Pending changes'); 268c2e8227SGreg Roach } 278c2e8227SGreg Roach 288c2e8227SGreg Roach /** {@inheritdoc} */ 298c2e8227SGreg Roach public function getDescription() { 308c2e8227SGreg Roach return /* I18N: Description of the “Pending changes” module */ I18N::translate('A list of changes that need moderator approval, and email notifications.'); 318c2e8227SGreg Roach } 328c2e8227SGreg Roach 338c2e8227SGreg Roach /** {@inheritdoc} */ 348c2e8227SGreg Roach public function getBlock($block_id, $template = true, $cfg = null) { 358c2e8227SGreg Roach global $ctype, $WT_TREE; 368c2e8227SGreg Roach 378c2e8227SGreg Roach $sendmail = get_block_setting($block_id, 'sendmail', '1'); 388c2e8227SGreg Roach $days = get_block_setting($block_id, 'days', '1'); 398c2e8227SGreg Roach $block = get_block_setting($block_id, 'block', '1'); 408c2e8227SGreg Roach 418c2e8227SGreg Roach if ($cfg) { 428c2e8227SGreg Roach foreach (array('days', 'sendmail', 'block') as $name) { 438c2e8227SGreg Roach if (array_key_exists($name, $cfg)) { 448c2e8227SGreg Roach $$name = $cfg[$name]; 458c2e8227SGreg Roach } 468c2e8227SGreg Roach } 478c2e8227SGreg Roach } 488c2e8227SGreg Roach 498c2e8227SGreg Roach $changes = Database::prepare( 508c2e8227SGreg Roach "SELECT 1" . 518c2e8227SGreg Roach " FROM `##change`" . 528c2e8227SGreg Roach " WHERE status='pending'" . 538c2e8227SGreg Roach " LIMIT 1" 548c2e8227SGreg Roach )->fetchOne(); 558c2e8227SGreg Roach 568c2e8227SGreg Roach if ($changes && $sendmail == 'yes') { 578c2e8227SGreg Roach // There are pending changes - tell moderators/managers/administrators about them. 588c2e8227SGreg Roach if (WT_TIMESTAMP - Site::getPreference('LAST_CHANGE_EMAIL') > (60 * 60 * 24 * $days)) { 598c2e8227SGreg Roach // Which users have pending changes? 608c2e8227SGreg Roach foreach (User::all() as $user) { 618c2e8227SGreg Roach if ($user->getPreference('contactmethod') !== 'none') { 628c2e8227SGreg Roach foreach (Tree::getAll() as $tree) { 638c2e8227SGreg Roach if ($tree->hasPendingEdit() && Auth::isManager($tree, $user)) { 648c2e8227SGreg Roach I18N::init($user->getPreference('language')); 658c2e8227SGreg Roach Mail::systemMessage( 668c2e8227SGreg Roach $tree, 678c2e8227SGreg Roach $user, 688c2e8227SGreg Roach I18N::translate('Pending changes'), 698c2e8227SGreg Roach I18N::translate('There are pending changes for you to moderate.') . 708c2e8227SGreg Roach Mail::EOL . Mail::EOL . 714b9ff166SGreg Roach '<a href="' . WT_BASE_URL . 'index.php?ged=' . $WT_TREE->getNameUrl() . '">' . WT_BASE_URL . 'index.php?ged=' . $WT_TREE->getNameUrl() . '</a>' 728c2e8227SGreg Roach ); 738c2e8227SGreg Roach I18N::init(WT_LOCALE); 748c2e8227SGreg Roach } 758c2e8227SGreg Roach } 768c2e8227SGreg Roach } 778c2e8227SGreg Roach } 788c2e8227SGreg Roach Site::setPreference('LAST_CHANGE_EMAIL', WT_TIMESTAMP); 798c2e8227SGreg Roach } 808c2e8227SGreg Roach } 818c2e8227SGreg Roach if (Auth::isEditor($WT_TREE) && $WT_TREE->hasPendingEdit()) { 828c2e8227SGreg Roach $id = $this->getName() . $block_id; 838c2e8227SGreg Roach $class = $this->getName() . '_block'; 848c2e8227SGreg Roach if ($ctype === 'user' || Auth::isManager($WT_TREE)) { 858c2e8227SGreg Roach $title = '<i class="icon-admin" title="' . I18N::translate('Configure') . '" onclick="modalDialog(\'block_edit.php?block_id=' . $block_id . '\', \'' . $this->getTitle() . '\');"></i>'; 868c2e8227SGreg Roach } else { 878c2e8227SGreg Roach $title = ''; 888c2e8227SGreg Roach } 898c2e8227SGreg Roach $title .= $this->getTitle(); 908c2e8227SGreg Roach 918c2e8227SGreg Roach $content = ''; 928c2e8227SGreg Roach if (Auth::isModerator($WT_TREE)) { 938c2e8227SGreg Roach $content .= "<a href=\"#\" onclick=\"window.open('edit_changes.php','_blank', chan_window_specs); return false;\">" . I18N::translate('There are pending changes for you to moderate.') . "</a><br>"; 948c2e8227SGreg Roach } 958c2e8227SGreg Roach if ($sendmail == "yes") { 968c2e8227SGreg Roach $content .= I18N::translate('Last email reminder was sent ') . format_timestamp(Site::getPreference('LAST_CHANGE_EMAIL')) . "<br>"; 978c2e8227SGreg Roach $content .= I18N::translate('Next email reminder will be sent after ') . format_timestamp(Site::getPreference('LAST_CHANGE_EMAIL') + (60 * 60 * 24 * $days)) . "<br><br>"; 988c2e8227SGreg Roach } 998c2e8227SGreg Roach $content .= '<ul>'; 1008c2e8227SGreg Roach $changes = Database::prepare( 1018c2e8227SGreg Roach "SELECT xref" . 1028c2e8227SGreg Roach " FROM `##change`" . 1038c2e8227SGreg Roach " WHERE status='pending'" . 1048c2e8227SGreg Roach " AND gedcom_id=?" . 1058c2e8227SGreg Roach " GROUP BY xref" 106*24ec66ceSGreg Roach )->execute(array($WT_TREE->getTreeId()))->fetchAll(); 1078c2e8227SGreg Roach foreach ($changes as $change) { 108*24ec66ceSGreg Roach $record = GedcomRecord::getInstance($change->xref, $WT_TREE); 1098c2e8227SGreg Roach if ($record->canShow()) { 1108c2e8227SGreg Roach $content .= '<li><a href="' . $record->getHtmlUrl() . '">' . $record->getFullName() . '</a></li>'; 1118c2e8227SGreg Roach } 1128c2e8227SGreg Roach } 1138c2e8227SGreg Roach $content .= '</ul>'; 1148c2e8227SGreg Roach 1158c2e8227SGreg Roach if ($template) { 1168c2e8227SGreg Roach if ($block) { 1178c2e8227SGreg Roach $class .= ' small_inner_block'; 1188c2e8227SGreg Roach } 1198c2e8227SGreg Roach return Theme::theme()->formatBlock($id, $title, $class, $content); 1208c2e8227SGreg Roach } else { 1218c2e8227SGreg Roach return $content; 1228c2e8227SGreg Roach } 1238c2e8227SGreg Roach } 1248c2e8227SGreg Roach } 1258c2e8227SGreg Roach 1268c2e8227SGreg Roach /** {@inheritdoc} */ 1278c2e8227SGreg Roach public function loadAjax() { 1288c2e8227SGreg Roach return false; 1298c2e8227SGreg Roach } 1308c2e8227SGreg Roach 1318c2e8227SGreg Roach /** {@inheritdoc} */ 1328c2e8227SGreg Roach public function isUserBlock() { 1338c2e8227SGreg Roach return true; 1348c2e8227SGreg Roach } 1358c2e8227SGreg Roach 1368c2e8227SGreg Roach /** {@inheritdoc} */ 1378c2e8227SGreg Roach public function isGedcomBlock() { 1388c2e8227SGreg Roach return true; 1398c2e8227SGreg Roach } 1408c2e8227SGreg Roach 1418c2e8227SGreg Roach /** {@inheritdoc} */ 1428c2e8227SGreg Roach public function configureBlock($block_id) { 1438c2e8227SGreg Roach if (Filter::postBool('save') && Filter::checkCsrf()) { 1448c2e8227SGreg Roach set_block_setting($block_id, 'days', Filter::postInteger('num', 1, 180, 1)); 1458c2e8227SGreg Roach set_block_setting($block_id, 'sendmail', Filter::postBool('sendmail')); 1468c2e8227SGreg Roach set_block_setting($block_id, 'block', Filter::postBool('block')); 1478c2e8227SGreg Roach } 1488c2e8227SGreg Roach 1498c2e8227SGreg Roach $sendmail = get_block_setting($block_id, 'sendmail', '1'); 1508c2e8227SGreg Roach $days = get_block_setting($block_id, 'days', '1'); 1518c2e8227SGreg Roach $block = get_block_setting($block_id, 'block', '1'); 1528c2e8227SGreg Roach 1538c2e8227SGreg Roach ?> 1548c2e8227SGreg Roach <tr> 1558c2e8227SGreg Roach <td colspan="2"> 1568c2e8227SGreg Roach <?php echo I18N::translate('This block will show editors a list of records with pending changes that need to be approved by a moderator. It also generates daily emails to moderators whenever pending changes exist.'); ?> 1578c2e8227SGreg Roach </td> 1588c2e8227SGreg Roach </tr> 1598c2e8227SGreg Roach 1608c2e8227SGreg Roach <?php 1618c2e8227SGreg Roach echo '<tr><td class="descriptionbox wrap width33">'; 1628c2e8227SGreg Roach echo I18N::translate('Send out reminder emails?'); 1638c2e8227SGreg Roach echo '</td><td class="optionbox">'; 1648c2e8227SGreg Roach echo edit_field_yes_no('sendmail', $sendmail); 1658c2e8227SGreg Roach echo '<br>'; 1668c2e8227SGreg Roach echo I18N::translate('Reminder email frequency (days)') . " <input type='text' name='days' value='" . $days . "' size='2'>"; 1678c2e8227SGreg Roach echo '</td></tr>'; 1688c2e8227SGreg Roach 1698c2e8227SGreg Roach echo '<tr><td class="descriptionbox wrap width33">'; 1708c2e8227SGreg Roach echo /* I18N: label for a yes/no option */ I18N::translate('Add a scrollbar when block contents grow'); 1718c2e8227SGreg Roach echo '</td><td class="optionbox">'; 1728c2e8227SGreg Roach echo edit_field_yes_no('block', $block); 1738c2e8227SGreg Roach echo '</td></tr>'; 1748c2e8227SGreg Roach } 1758c2e8227SGreg Roach} 176