i18n::translate('Pending Changes'),
'type'=>'both',
'descr'=>i18n::translate('The Pending Changes block will give users with Edit rights a list of the records that have been changed online and that still need to be reviewed and accepted. These changes are pending acceptance or rejection.
If this block is enabled, users with Accept rights will receive an email once a day notifying them that changes need to be reviewed.'),
'canconfig'=>false,
'config'=>array(
'cache'=>0,
'days'=>1,
'sendmail'=>'yes'
)
);
/**
* Print Review Changes Block
*
* Prints a block allowing the user review all changes pending approval
*/
function review_changes_block($block = true, $config="", $side, $index) {
global $ctype, $QUERY_STRING, $WT_IMAGE_DIR, $WT_IMAGES;
global $TEXT_DIRECTION, $SHOW_SOURCES, $WT_BLOCKS;
global $WEBTREES_EMAIL;
global $TBLPREFIX;
if (empty($config)) $config = $WT_BLOCKS["review_changes_block"]["config"];
$changes=WT_DB::prepare(
"SELECT 1".
" FROM {$TBLPREFIX}change".
" WHERE status='pending'".
" LIMIT 1"
)->fetchOne();
if ($changes) {
//-- if the time difference from the last email is greater than 24 hours then send out another email
$LAST_CHANGE_EMAIL=get_site_setting('LAST_CHANGE_EMAIL');
if (time()-$LAST_CHANGE_EMAIL > (60*60*24*$config["days"])) {
$LAST_CHANGE_EMAIL = time();
set_site_setting('LAST_CHANGE_EMAIL', $LAST_CHANGE_EMAIL);
if ($config["sendmail"]=="yes") {
// Which users have pending changes?
$users_with_changes=array();
foreach (get_all_users() as $user_id=>$user_name) {
foreach (get_all_gedcoms() as $ged_id=>$ged_name) {
if (exists_pending_change($user_id, $ged_id)) {
$users_with_changes[$user_id]=$user_name;
break;
}
}
}
foreach ($users_with_changes as $user_id=>$user_name) {
//-- send message
$message = array();
$message["to"]=$user_name;
$message["from"] = $WEBTREES_EMAIL;
$message["subject"] = i18n::translate('webtrees - Review changes');
$message["body"] = i18n::translate('Online changes have been made to a genealogical database. These changes need to be reviewed and accepted before they will appear to all users. Please use the URL below to enter that webtrees site and login to review the changes.');
$message["method"] = get_user_setting($user_id, 'contactmethod');
$message["url"] = WT_SERVER_NAME.WT_SCRIPT_PATH;
$message["no_from"] = true;
addMessage($message);
}
}
}
if (WT_USER_CAN_EDIT) {
$id="review_changes_block";
$title='';
if ($WT_BLOCKS["review_changes_block"]["canconfig"]) {
if ($ctype=="gedcom" && WT_USER_GEDCOM_ADMIN || $ctype=="user" && WT_USER_ID) {
if ($ctype=="gedcom") {
$name = WT_GEDCOM;
} else {
$name = WT_USER_NAME;
}
$title .= "";
$title .= "";
}
}
$title.=i18n::translate('Review GEDCOM Changes').help_link('review_changes');
$content = "";
if (WT_USER_CAN_ACCEPT) {
$content .= "".i18n::translate('Accept / Reject Changes')." ";
}
if ($config["sendmail"]=="yes") {
$content .= i18n::translate('Last email reminder was sent ').format_timestamp($LAST_CHANGE_EMAIL)." ";
$content .= i18n::translate('Next email reminder will be sent after ').format_timestamp($LAST_CHANGE_EMAIL+(60*60*24*$config["days"]))."
";
}
$changes=WT_DB::prepare(
"SELECT xref".
" FROM {$TBLPREFIX}change".
" WHERE status='pending'".
" AND gedcom_id=?".
" GROUP BY xref"
)->execute(array(WT_GED_ID))->fetchAll();
foreach ($changes as $change) {
$record=GedcomRecord::getInstance($change->xref);
if ($record->getType()!='SOUR' || $SHOW_SOURCES>=WT_USER_ACCESS_LEVEL) {
$content.=''.PrintReady($record->getFullName()).' '.getLRM().'('.$record->getXref().')'.getLRM();
switch ($record->getType()) {
case 'INDI':
case 'FAM':
case 'SOUR':
case 'OBJE':
$content.=$block ? ' ' : ' ';
$content.=''.i18n::translate('View Change Diff').'';
break;
}
$content.=' ';
}
}
global $THEME_DIR;
if ($block) {
require $THEME_DIR.'templates/block_small_temp.php';
} else {
require $THEME_DIR.'templates/block_main_temp.php';
}
}
}
}
function review_changes_block_config($config) {
global $WT_BLOCKS;
if (empty($config)) $config = $WT_BLOCKS["review_changes_block"]["config"];
print i18n::translate('Send out reminder emails?');
print "
";
print i18n::translate('Reminder email frequency (days)')." ";
// Cache file life
if ($ctype=="gedcom") {
echo "