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
|
<?php
/**
* webtrees: online genealogy
* Copyright (C) 2017 webtrees development team
* 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 3 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, see <http://www.gnu.org/licenses/>.
*/
namespace Fisharebest\Webtrees;
use Fisharebest\Webtrees\Controller\PageController;
/** @global Tree $WT_TREE */
global $WT_TREE;
require 'includes/session.php';
$search = Filter::post('search', null, Filter::get('search'));
$replace = Filter::post('replace');
$confirm = Filter::post('confirm');
$changes = [];
if ($search && $replace) {
$rows = Database::prepare(
"SELECT i_id AS xref, i_gedcom AS gedcom" .
" FROM `##individuals`" .
" LEFT JOIN `##change` ON (i_id = xref AND i_file=gedcom_id AND status='pending')" .
" WHERE i_file = ?" .
" AND COALESCE(new_gedcom, i_gedcom) REGEXP CONCAT('\n2 PLAC ([^\n]*, )*', ?, '(\n|$)')"
)->execute([$WT_TREE->getTreeId(), preg_quote($search)])->fetchAll();
foreach ($rows as $row) {
$record = Individual::getInstance($row->xref, $WT_TREE, $row->gedcom);
foreach ($record->getFacts() as $fact) {
$old_place = $fact->getAttribute('PLAC');
if (preg_match('/(^|, )' . preg_quote($search, '/') . '$/i', $old_place)) {
$new_place = preg_replace('/(^|, )' . preg_quote($search, '/') . '$/i', '$1' . $replace, $old_place);
$changes[$old_place] = $new_place;
if ($confirm == 'update') {
$gedcom = preg_replace('/(\n2 PLAC (?:.*, )*)' . preg_quote($search, '/') . '(\n|$)/i', '$1' . $replace . '$2', $fact->getGedcom());
$record->updateFact($fact->getFactId(), $gedcom, false);
}
}
}
}
$rows = Database::prepare(
"SELECT f_id AS xref, f_gedcom AS gedcom" .
" FROM `##families`" .
" LEFT JOIN `##change` ON (f_id = xref AND f_file=gedcom_id AND status='pending')" .
" WHERE f_file = ?" .
" AND COALESCE(new_gedcom, f_gedcom) REGEXP CONCAT('\n2 PLAC ([^\n]*, )*', ?, '(\n|$)')"
)->execute([$WT_TREE->getTreeId(), preg_quote($search)])->fetchAll();
foreach ($rows as $row) {
$record = Family::getInstance($row->xref, $WT_TREE, $row->gedcom);
foreach ($record->getFacts() as $fact) {
$old_place = $fact->getAttribute('PLAC');
if (preg_match('/(^|, )' . preg_quote($search, '/') . '$/i', $old_place)) {
$new_place = preg_replace('/(^|, )' . preg_quote($search, '/') . '$/i', '$1' . $replace, $old_place);
$changes[$old_place] = $new_place;
if ($confirm == 'update') {
$gedcom = preg_replace('/(\n2 PLAC (?:.*, )*)' . preg_quote($search, '/') . '(\n|$)/i', '$1' . $replace . '$2', $fact->getGedcom());
$record->updateFact($fact->getFactId(), $gedcom, false);
}
}
}
}
}
$controller = new PageController;
$controller
->restrictAccess(Auth::isManager($WT_TREE))
->setPageTitle(I18N::translate('Update all the place names in a family tree') . ' — ' . $WT_TREE->getTitleHtml())
->pageHeader();
echo Bootstrap4::breadcrumbs([
'admin.php' => I18N::translate('Control panel'),
'admin_trees_manage.php' => I18N::translate('Manage family trees'),
], $controller->getPageTitle());
?>
<h1><?= $controller->getPageTitle() ?></h1>
<p>
<?= I18N::translate('This will update the highest-level part or parts of the place name. For example, “Mexico” will match “Quintana Roo, Mexico”, but not “Santa Fe, New Mexico”.') ?>
</p>
<form method="post">
<dl>
<dt><label for="search"><?= I18N::translate('Search for') ?></label></dt>
<dd><input name="search" id="search" type="text" size="60" value="<?= Html::escape($search) ?>" data-autocomplete-type="PLAC" required autofocus></dd>
<dt><label for="replace"><?= I18N::translate('Replace with') ?></label></dt>
<dd><input name="replace" id="replace" type="text" size="60" value="<?= Html::escape($replace) ?>" data-autocomplete-type="PLAC" required></dd>
</dl>
<button type="submit" value="preview"><?= /* I18N: A button label. */ I18N::translate('preview') ?></button>
<button type="submit" value="update" name="confirm"><?= /* I18N: A button label. */ I18N::translate('update') ?></button>
</form>
<?php if ($search && $replace) { ?>
<?php if (!empty($changes)) { ?>
<p>
<?= $confirm ? I18N::translate('The following places have been changed:') : I18N::translate('The following places would be changed:') ?>
</p>
<ul>
<?php foreach ($changes as $old_place => $new_place) { ?>
<li>
<?= Html::escape($old_place) ?>
→
<?= Html::escape($new_place) ?>
</li>
<?php } ?>
</ul>
<?php } else { ?>
<p>
<?= I18N::translate('No places have been found.') ?>
</p>
<?php } ?>
<?php } ?>
|
