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
|
<?php
/**
* webtrees: online genealogy
* Copyright (C) 2026 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 <https://www.gnu.org/licenses/>.
*/
declare(strict_types=1);
namespace Fisharebest\Webtrees\Services;
use Fisharebest\Algorithm\MyersDiff;
use Fisharebest\Webtrees\Family;
use Fisharebest\Webtrees\Gedcom;
use Fisharebest\Webtrees\GedcomRecord;
use Fisharebest\Webtrees\Individual;
use Fisharebest\Webtrees\Media;
use Fisharebest\Webtrees\Note;
use Fisharebest\Webtrees\Registry;
use Fisharebest\Webtrees\Repository;
use Fisharebest\Webtrees\Source;
use Fisharebest\Webtrees\Submitter;
use Fisharebest\Webtrees\Tree;
use function e;
use function explode;
use function implode;
use function preg_replace_callback;
use function strip_tags;
/**
* Bulk updates on genealogy data
*/
class DataFixService
{
/**
* Since we know the type, this is quicker than calling Registry::gedcomRecordFactory()->make().
*/
public function getRecordByType(string $xref, Tree $tree, string $type): GedcomRecord|null
{
switch ($type) {
case Family::RECORD_TYPE:
return Registry::familyFactory()->make($xref, $tree);
case Individual::RECORD_TYPE:
return Registry::individualFactory()->make($xref, $tree);
case Note::RECORD_TYPE:
return Registry::noteFactory()->make($xref, $tree);
case Media::RECORD_TYPE:
return Registry::mediaFactory()->make($xref, $tree);
case Repository::RECORD_TYPE:
return Registry::repositoryFactory()->make($xref, $tree);
case Source::RECORD_TYPE:
return Registry::sourceFactory()->make($xref, $tree);
case Submitter::RECORD_TYPE:
return Registry::submitterFactory()->make($xref, $tree);
default:
return Registry::gedcomRecordFactory()->make($xref, $tree);
}
}
/**
* Default preview generator.
*
* @param Tree $tree
* @param string $old_gedcom
* @param string $new_gedcom
*
* @return string
*/
public function gedcomDiff(Tree $tree, string $old_gedcom, string $new_gedcom): string
{
$old_lines = explode("\n", $old_gedcom);
$new_lines = explode("\n", $new_gedcom);
$algorithm = new MyersDiff();
$differences = $algorithm->calculate($old_lines, $new_lines);
$diff_lines = [];
foreach ($differences as $difference) {
switch ($difference[1]) {
case MyersDiff::DELETE:
$diff_lines[] = '<del>' . e($difference[0]) . '</del><br>';
break;
case MyersDiff::INSERT:
$diff_lines[] = '<ins>' . e($difference[0]) . '</ins><br>';
break;
case MyersDiff::KEEP:
$diff_lines[] = e($difference[0]) . '<br>';
break;
}
}
$html = implode('', $diff_lines);
$html = preg_replace_callback('/@(' . Gedcom::REGEX_XREF . ')@/', static function (array $match) use ($tree): string {
$record = Registry::gedcomRecordFactory()->make($match[0], $tree);
if ($record instanceof GedcomRecord) {
$title = strip_tags($record->fullName());
$href = e($record->url());
return '<a href="' . $href . '" title="' . $title . '">' . $match[0] . '</a>';
}
return $match[0];
}, $html);
return '<pre class="gedcom-data">' . $html . '</pre>';
}
}
|
