1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
|
<?php
/**
* Review Changes Block
*
* This block prints the changes that still need to be reviewed and accepted by an administrator
*
* webtrees: Web based Family History software
* Copyright (C) 2010 webtrees development team.
*
* Derived from PhpGedView
* Copyright (C) 2002 to 2009 PGV Development Team. All rights reserved.
*
* Modifications Copyright (c) 2010 Greg Roach
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*
* @ersion $Id$
* @package webtrees
* @subpackage Blocks
* @todo add a time configuration option
*/
if (!defined('WT_WEBTREES')) {
header('HTTP/1.0 403 Forbidden');
exit;
}
define('WT_REVIEW_CHANGES_PHP', '');
$WT_BLOCKS['review_changes_block']=array(
'name'=>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.<br /><br />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 .= "<a href=\"javascript: configure block\" onclick=\"window.open('".encode_url("index_edit.php?name={$name}&ctype={$ctype}&action=configure&side={$side}&index={$index}")."', '_blank', 'top=50,left=50,width=600,height=350,scrollbars=1,resizable=1'); return false;\">";
$title .= "<img class=\"adminicon\" src=\"$WT_IMAGE_DIR/".$WT_IMAGES["admin"]["small"]."\" width=\"15\" height=\"15\" border=\"0\" alt=\"".i18n::translate('Configure')."\" /></a>";
}
}
$title.=i18n::translate('Review GEDCOM Changes').help_link('review_changes');
$content = "";
if (WT_USER_CAN_ACCEPT) {
$content .= "<a href=\"javascript:;\" onclick=\"window.open('edit_changes.php','_blank','width=600,height=500,resizable=1,scrollbars=1'); return false;\">".i18n::translate('Accept / Reject Changes')."</a><br />";
}
if ($config["sendmail"]=="yes") {
$content .= i18n::translate('Last email reminder was sent ').format_timestamp($LAST_CHANGE_EMAIL)."<br />";
$content .= i18n::translate('Next email reminder will be sent after ').format_timestamp($LAST_CHANGE_EMAIL+(60*60*24*$config["days"]))."<br /><br />";
}
$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.='<b>'.PrintReady($record->getFullName()).'</b> '.getLRM().'('.$record->getXref().')'.getLRM();
switch ($record->getType()) {
case 'INDI':
case 'FAM':
case 'SOUR':
case 'OBJE':
$content.=$block ? '<br />' : ' ';
$content.='<a href="'.encode_url($record->getLinkUrl().'&show_changes=yes').'">'.i18n::translate('View Change Diff').'</a>';
break;
}
$content.='<br />';
}
}
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 " <select name='sendmail'>";
print "<option value='yes'";
if ($config["sendmail"]=="yes") print " selected='selected'";
print ">".i18n::translate('Yes')."</option>";
print "<option value='no'";
if ($config["sendmail"]=="no") print " selected='selected'";
print ">".i18n::translate('No')."</option>";
print "</select><br /><br />";
print i18n::translate('Reminder email frequency (days)')." <input type='text' name='days' value='".$config["days"]."' size='2' />";
// Cache file life
if ($ctype=="gedcom") {
echo "<tr><td class=\"descriptionbox wrap width33\">";
echo i18n::translate('Cache file life'), help_link('cache_life');
echo "</td><td class=\"optionbox\">";
echo "<input type=\"text\" name=\"cache\" size=\"2\" value=\"".$config["cache"]."\" />";
echo "</td></tr>";
}
// Cache file life is not configurable by user: anything other than "no cache" doesn't make sense
print "<input type=\"hidden\" name=\"cache\" value=\"0\" />";
}
?>
|
