1<?php 2namespace Fisharebest\Webtrees; 3 4/** 5 * webtrees: online genealogy 6 * Copyright (C) 2015 webtrees development team 7 * This program is free software: you can redistribute it and/or modify 8 * it under the terms of the GNU General Public License as published by 9 * the Free Software Foundation, either version 3 of the License, or 10 * (at your option) any later version. 11 * This program is distributed in the hope that it will be useful, 12 * but WITHOUT ANY WARRANTY; without even the implied warranty of 13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 * GNU General Public License for more details. 15 * You should have received a copy of the GNU General Public License 16 * along with this program. If not, see <http://www.gnu.org/licenses/>. 17 */ 18 19/** 20 * Class ReviewChangesModule 21 */ 22class ReviewChangesModule extends Module implements ModuleBlockInterface { 23 /** {@inheritdoc} */ 24 public function getTitle() { 25 return /* I18N: Name of a module */ I18N::translate('Pending changes'); 26 } 27 28 /** {@inheritdoc} */ 29 public function getDescription() { 30 return /* I18N: Description of the “Pending changes” module */ I18N::translate('A list of changes that need moderator approval, and email notifications.'); 31 } 32 33 /** {@inheritdoc} */ 34 public function getBlock($block_id, $template = true, $cfg = null) { 35 global $ctype, $WT_TREE; 36 37 $sendmail = get_block_setting($block_id, 'sendmail', '1'); 38 $days = get_block_setting($block_id, 'days', '1'); 39 $block = get_block_setting($block_id, 'block', '1'); 40 41 if ($cfg) { 42 foreach (array('days', 'sendmail', 'block') as $name) { 43 if (array_key_exists($name, $cfg)) { 44 $$name = $cfg[$name]; 45 } 46 } 47 } 48 49 $changes = Database::prepare( 50 "SELECT 1" . 51 " FROM `##change`" . 52 " WHERE status='pending'" . 53 " LIMIT 1" 54 )->fetchOne(); 55 56 if ($changes && $sendmail == 'yes') { 57 // There are pending changes - tell moderators/managers/administrators about them. 58 if (WT_TIMESTAMP - Site::getPreference('LAST_CHANGE_EMAIL') > (60 * 60 * 24 * $days)) { 59 // Which users have pending changes? 60 foreach (User::all() as $user) { 61 if ($user->getPreference('contactmethod') !== 'none') { 62 foreach (Tree::getAll() as $tree) { 63 if ($tree->hasPendingEdit() && Auth::isManager($tree, $user)) { 64 I18N::init($user->getPreference('language')); 65 Mail::systemMessage( 66 $tree, 67 $user, 68 I18N::translate('Pending changes'), 69 I18N::translate('There are pending changes for you to moderate.') . 70 Mail::EOL . Mail::EOL . 71 '<a href="' . WT_BASE_URL . 'index.php?ged=' . $WT_TREE->getNameUrl() . '">' . WT_BASE_URL . 'index.php?ged=' . $WT_TREE->getNameUrl() . '</a>' 72 ); 73 I18N::init(WT_LOCALE); 74 } 75 } 76 } 77 } 78 Site::setPreference('LAST_CHANGE_EMAIL', WT_TIMESTAMP); 79 } 80 } 81 if (Auth::isEditor($WT_TREE) && $WT_TREE->hasPendingEdit()) { 82 $id = $this->getName() . $block_id; 83 $class = $this->getName() . '_block'; 84 if ($ctype === 'user' || Auth::isManager($WT_TREE)) { 85 $title = '<i class="icon-admin" title="' . I18N::translate('Configure') . '" onclick="modalDialog(\'block_edit.php?block_id=' . $block_id . '\', \'' . $this->getTitle() . '\');"></i>'; 86 } else { 87 $title = ''; 88 } 89 $title .= $this->getTitle(); 90 91 $content = ''; 92 if (Auth::isModerator($WT_TREE)) { 93 $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>"; 94 } 95 if ($sendmail == "yes") { 96 $content .= I18N::translate('Last email reminder was sent ') . format_timestamp(Site::getPreference('LAST_CHANGE_EMAIL')) . "<br>"; 97 $content .= I18N::translate('Next email reminder will be sent after ') . format_timestamp(Site::getPreference('LAST_CHANGE_EMAIL') + (60 * 60 * 24 * $days)) . "<br><br>"; 98 } 99 $content .= '<ul>'; 100 $changes = Database::prepare( 101 "SELECT xref" . 102 " FROM `##change`" . 103 " WHERE status='pending'" . 104 " AND gedcom_id=?" . 105 " GROUP BY xref" 106 )->execute(array($WT_TREE->getTreeId()))->fetchAll(); 107 foreach ($changes as $change) { 108 $record = GedcomRecord::getInstance($change->xref, $WT_TREE); 109 if ($record->canShow()) { 110 $content .= '<li><a href="' . $record->getHtmlUrl() . '">' . $record->getFullName() . '</a></li>'; 111 } 112 } 113 $content .= '</ul>'; 114 115 if ($template) { 116 if ($block) { 117 $class .= ' small_inner_block'; 118 } 119 return Theme::theme()->formatBlock($id, $title, $class, $content); 120 } else { 121 return $content; 122 } 123 } 124 } 125 126 /** {@inheritdoc} */ 127 public function loadAjax() { 128 return false; 129 } 130 131 /** {@inheritdoc} */ 132 public function isUserBlock() { 133 return true; 134 } 135 136 /** {@inheritdoc} */ 137 public function isGedcomBlock() { 138 return true; 139 } 140 141 /** {@inheritdoc} */ 142 public function configureBlock($block_id) { 143 if (Filter::postBool('save') && Filter::checkCsrf()) { 144 set_block_setting($block_id, 'days', Filter::postInteger('num', 1, 180, 1)); 145 set_block_setting($block_id, 'sendmail', Filter::postBool('sendmail')); 146 set_block_setting($block_id, 'block', Filter::postBool('block')); 147 } 148 149 $sendmail = get_block_setting($block_id, 'sendmail', '1'); 150 $days = get_block_setting($block_id, 'days', '1'); 151 $block = get_block_setting($block_id, 'block', '1'); 152 153 ?> 154 <tr> 155 <td colspan="2"> 156 <?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.'); ?> 157 </td> 158 </tr> 159 160 <?php 161 echo '<tr><td class="descriptionbox wrap width33">'; 162 echo I18N::translate('Send out reminder emails?'); 163 echo '</td><td class="optionbox">'; 164 echo edit_field_yes_no('sendmail', $sendmail); 165 echo '<br>'; 166 echo I18N::translate('Reminder email frequency (days)') . " <input type='text' name='days' value='" . $days . "' size='2'>"; 167 echo '</td></tr>'; 168 169 echo '<tr><td class="descriptionbox wrap width33">'; 170 echo /* I18N: label for a yes/no option */ I18N::translate('Add a scrollbar when block contents grow'); 171 echo '</td><td class="optionbox">'; 172 echo edit_field_yes_no('block', $block); 173 echo '</td></tr>'; 174 } 175} 176