xref: /webtrees/app/Module/ReviewChangesModule.php (revision 9353052e08ef3eb4cf05871a926f9ec2c45ba53b)
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 */
22e2a378d3SGreg Roachclass ReviewChangesModule extends AbstractModule 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
37e2a378d3SGreg Roach		$sendmail = $this->getBlockSetting($block_id, 'sendmail', '1');
38e2a378d3SGreg Roach		$days     = $this->getBlockSetting($block_id, 'days', '1');
39e2a378d3SGreg Roach		$block    = $this->getBlockSetting($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)) {
85*9353052eSGreg Roach				$title = '<a class="icon-admin" title="' . I18N::translate('Configure') . '" href="block_edit.php?block_id=' . $block_id . '&amp;ged=' . $WT_TREE->getNameHtml() . '&amp;ctype=' . $ctype . '"></a>';
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"
10624ec66ceSGreg Roach			)->execute(array($WT_TREE->getTreeId()))->fetchAll();
1078c2e8227SGreg Roach			foreach ($changes as $change) {
10824ec66ceSGreg 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()) {
144e2a378d3SGreg Roach			$this->setBlockSetting($block_id, 'days', Filter::postInteger('num', 1, 180, 1));
145e2a378d3SGreg Roach			$this->setBlockSetting($block_id, 'sendmail', Filter::postBool('sendmail'));
146e2a378d3SGreg Roach			$this->setBlockSetting($block_id, 'block', Filter::postBool('block'));
1478c2e8227SGreg Roach		}
1488c2e8227SGreg Roach
149e2a378d3SGreg Roach		$sendmail = $this->getBlockSetting($block_id, 'sendmail', '1');
150e2a378d3SGreg Roach		$days     = $this->getBlockSetting($block_id, 'days', '1');
151e2a378d3SGreg Roach		$block    = $this->getBlockSetting($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)') . "&nbsp;<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