mirror of
https://github.com/YunoHost-Apps/webtrees_ynh.git
synced 2024-09-03 18:26:37 +02:00
287 lines
16 KiB
PHP
287 lines
16 KiB
PHP
<?php
|
||
/**
|
||
* webtrees: online genealogy
|
||
* Copyright (C) 2016 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;
|
||
|
||
/**
|
||
* Defined in session.php
|
||
*
|
||
* @global Tree $WT_TREE
|
||
*/
|
||
global $WT_TREE;
|
||
|
||
use Fisharebest\Webtrees\Controller\PageController;
|
||
|
||
define('WT_SCRIPT_NAME', 'admin_trees_renumber.php');
|
||
require './includes/session.php';
|
||
|
||
$controller = new PageController;
|
||
$controller
|
||
->restrictAccess(Auth::isManager($WT_TREE))
|
||
->setPageTitle(I18N::translate(/* I18N: Renumber the records in a family tree */ 'Renumber family tree') . ' — ' . $WT_TREE->getTitleHtml())
|
||
->pageHeader();
|
||
|
||
// Every XREF used by this tree and also used by some other tree
|
||
$xrefs = Database::prepare(
|
||
"SELECT xref, type FROM (" .
|
||
" SELECT i_id AS xref, 'INDI' AS type FROM `##individuals` WHERE i_file = ?" .
|
||
" UNION " .
|
||
" SELECT f_id AS xref, 'FAM' AS type FROM `##families` WHERE f_file = ?" .
|
||
" UNION " .
|
||
" SELECT s_id AS xref, 'SOUR' AS type FROM `##sources` WHERE s_file = ?" .
|
||
" UNION " .
|
||
" SELECT m_id AS xref, 'OBJE' AS type FROM `##media` WHERE m_file = ?" .
|
||
" UNION " .
|
||
" SELECT o_id AS xref, o_type AS type FROM `##other` WHERE o_file = ? AND o_type NOT IN ('HEAD', 'TRLR')" .
|
||
") AS this_tree JOIN (" .
|
||
" SELECT xref FROM `##change` WHERE gedcom_id <> ?" .
|
||
" UNION " .
|
||
" SELECT i_id AS xref FROM `##individuals` WHERE i_file <> ?" .
|
||
" UNION " .
|
||
" SELECT f_id AS xref FROM `##families` WHERE f_file <> ?" .
|
||
" UNION " .
|
||
" SELECT s_id AS xref FROM `##sources` WHERE s_file <> ?" .
|
||
" UNION " .
|
||
" SELECT m_id AS xref FROM `##media` WHERE m_file <> ?" .
|
||
" UNION " .
|
||
" SELECT o_id AS xref FROM `##other` WHERE o_file <> ? AND o_type NOT IN ('HEAD', 'TRLR')" .
|
||
") AS other_trees USING (xref)"
|
||
)->execute(array(
|
||
$WT_TREE->getTreeId(), $WT_TREE->getTreeId(), $WT_TREE->getTreeId(), $WT_TREE->getTreeId(), $WT_TREE->getTreeId(),
|
||
$WT_TREE->getTreeId(), $WT_TREE->getTreeId(), $WT_TREE->getTreeId(), $WT_TREE->getTreeId(), $WT_TREE->getTreeId(), $WT_TREE->getTreeId(),
|
||
))->fetchAssoc();
|
||
|
||
echo '<h1>', $controller->getPageTitle(), '</h1>';
|
||
|
||
if (Filter::get('action') === 'renumber') {
|
||
foreach ($xrefs as $old_xref => $type) {
|
||
Database::beginTransaction();
|
||
Database::exec(
|
||
"LOCK TABLE `##individuals` WRITE," .
|
||
" `##families` WRITE," .
|
||
" `##sources` WRITE," .
|
||
" `##media` WRITE," .
|
||
" `##other` WRITE," .
|
||
" `##name` WRITE," .
|
||
" `##placelinks` WRITE," .
|
||
" `##change` WRITE," .
|
||
" `##next_id` WRITE," .
|
||
" `##dates` WRITE," .
|
||
" `##default_resn` WRITE," .
|
||
" `##hit_counter` WRITE," .
|
||
" `##link` WRITE," .
|
||
" `##user_gedcom_setting` WRITE"
|
||
);
|
||
$new_xref = $WT_TREE->getNewXref($type);
|
||
switch ($type) {
|
||
case 'INDI':
|
||
Database::prepare(
|
||
"UPDATE `##individuals` SET i_id = ?, i_gedcom = REPLACE(i_gedcom, ?, ?) WHERE i_id = ? AND i_file = ?"
|
||
)->execute(array($new_xref, "0 @$old_xref@ INDI\n", "0 @$new_xref@ INDI\n", $old_xref, $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##families` JOIN `##link` ON (l_file = f_file AND l_to = ? AND l_type = 'HUSB') SET f_gedcom = REPLACE(f_gedcom, ?, ?) WHERE f_file = ?"
|
||
)->execute(array($old_xref, " HUSB @$old_xref@", " HUSB @$new_xref@", $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##families` JOIN `##link` ON (l_file = f_file AND l_to = ? AND l_type = 'WIFE') SET f_gedcom = REPLACE(f_gedcom, ?, ?) WHERE f_file = ?"
|
||
)->execute(array($old_xref, " WIFE @$old_xref@", " WIFE @$new_xref@", $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##families` JOIN `##link` ON (l_file = f_file AND l_to = ? AND l_type = 'CHIL') SET f_gedcom = REPLACE(f_gedcom, ?, ?) WHERE f_file = ?"
|
||
)->execute(array($old_xref, " CHIL @$old_xref@", " CHIL @$new_xref@", $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##families` JOIN `##link` ON (l_file = f_file AND l_to = ? AND l_type = 'ASSO') SET f_gedcom = REPLACE(f_gedcom, ?, ?) WHERE f_file = ?"
|
||
)->execute(array($old_xref, " ASSO @$old_xref@", " ASSO @$new_xref@", $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##families` JOIN `##link` ON (l_file = f_file AND l_to = ? AND l_type = '_ASSO') SET f_gedcom = REPLACE(f_gedcom, ?, ?) WHERE f_file = ?"
|
||
)->execute(array($old_xref, " _ASSO @$old_xref@", " _ASSO @$new_xref@", $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##individuals` JOIN `##link` ON (l_file = i_file AND l_to = ? AND l_type = 'ASSO') SET i_gedcom = REPLACE(i_gedcom, ?, ?) WHERE i_file = ?"
|
||
)->execute(array($old_xref, " ASSO @$old_xref@", " ASSO @$new_xref@", $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##individuals` JOIN `##link` ON (l_file = i_file AND l_to = ? AND l_type = '_ASSO') SET i_gedcom = REPLACE(i_gedcom, ?, ?) WHERE i_file = ?"
|
||
)->execute(array($old_xref, " _ASSO @$old_xref@", " _ASSO @$new_xref@", $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##placelinks` SET pl_gid = ? WHERE pl_gid = ? AND pl_file = ?"
|
||
)->execute(array($new_xref, $old_xref, $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##dates` SET d_gid = ? WHERE d_gid = ? AND d_file = ?"
|
||
)->execute(array($new_xref, $old_xref, $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##user_gedcom_setting` SET setting_value = ? WHERE setting_value = ? AND gedcom_id = ? AND setting_name IN ('gedcomid', 'rootid')"
|
||
)->execute(array($new_xref, $old_xref, $WT_TREE->getTreeId()));
|
||
break;
|
||
case 'FAM':
|
||
Database::prepare(
|
||
"UPDATE `##families` SET f_id = ?, f_gedcom = REPLACE(f_gedcom, ?, ?) WHERE f_id = ? AND f_file = ?"
|
||
)->execute(array($new_xref, "0 @$old_xref@ FAM\n", "0 @$new_xref@ FAM\n", $old_xref, $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##individuals` JOIN `##link` ON (l_file = i_file AND l_to = ? AND l_type = 'FAMC') SET i_gedcom = REPLACE(i_gedcom, ?, ?) WHERE i_file = ?"
|
||
)->execute(array($old_xref, " FAMC @$old_xref@", " FAMC @$new_xref@", $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##individuals` JOIN `##link` ON (l_file = i_file AND l_to = ? AND l_type = 'FAMS') SET i_gedcom = REPLACE(i_gedcom, ?, ?) WHERE i_file = ?"
|
||
)->execute(array($old_xref, " FAMS @$old_xref@", " FAMS @$new_xref@", $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##placelinks` SET pl_gid = ? WHERE pl_gid = ? AND pl_file = ?"
|
||
)->execute(array($new_xref, $old_xref, $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##dates` SET d_gid = ? WHERE d_gid = ? AND d_file = ?"
|
||
)->execute(array($new_xref, $old_xref, $WT_TREE->getTreeId()));
|
||
break;
|
||
case 'SOUR':
|
||
Database::prepare(
|
||
"UPDATE `##sources` SET s_id = ?, s_gedcom = REPLACE(s_gedcom, ?, ?) WHERE s_id = ? AND s_file = ?"
|
||
)->execute(array($new_xref, "0 @$old_xref@ SOUR\n", "0 @$new_xref@ SOUR\n", $old_xref, $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##individuals` JOIN `##link` ON (l_file = i_file AND l_to = ? AND l_type = 'SOUR') SET i_gedcom = REPLACE(i_gedcom, ?, ?) WHERE i_file = ?"
|
||
)->execute(array($old_xref, " SOUR @$old_xref@", " SOUR @$new_xref@", $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##families` JOIN `##link` ON (l_file = f_file AND l_to = ? AND l_type = 'SOUR') SET f_gedcom = REPLACE(f_gedcom, ?, ?) WHERE f_file = ?"
|
||
)->execute(array($old_xref, " SOUR @$old_xref@", " SOUR @$new_xref@", $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##media` JOIN `##link` ON (l_file = m_file AND l_to = ? AND l_type = 'SOUR') SET m_gedcom = REPLACE(m_gedcom, ?, ?) WHERE m_file = ?"
|
||
)->execute(array($old_xref, " SOUR @$old_xref@", " SOUR @$new_xref@", $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##other` JOIN `##link` ON (l_file = o_file AND l_to = ? AND l_type = 'SOUR') SET o_gedcom = REPLACE(o_gedcom, ?, ?) WHERE o_file = ?"
|
||
)->execute(array($old_xref, " SOUR @$old_xref@", " SOUR @$new_xref@", $WT_TREE->getTreeId()));
|
||
break;
|
||
case 'REPO':
|
||
Database::prepare(
|
||
"UPDATE `##other` SET o_id = ?, o_gedcom = REPLACE(o_gedcom, ?, ?) WHERE o_id = ? AND o_file = ?"
|
||
)->execute(array($new_xref, "0 @$old_xref@ REPO\n", "0 @$new_xref@ REPO\n", $old_xref, $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##sources` JOIN `##link` ON (l_file = s_file AND l_to = ? AND l_type = 'REPO') SET s_gedcom = REPLACE(s_gedcom, ?, ?) WHERE s_file = ?"
|
||
)->execute(array($old_xref, " REPO @$old_xref@", " REPO @$new_xref@", $WT_TREE->getTreeId()));
|
||
break;
|
||
case 'NOTE':
|
||
Database::prepare(
|
||
"UPDATE `##other` SET o_id = ?, o_gedcom = REPLACE(REPLACE(o_gedcom, ?, ?), ?, ?) WHERE o_id = ? AND o_file = ?"
|
||
)->execute(array($new_xref, "0 @$old_xref@ NOTE\n", "0 @$new_xref@ NOTE\n", "0 @$old_xref@ NOTE ", "0 @$new_xref@ NOTE ", $old_xref, $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##individuals` JOIN `##link` ON (l_file = i_file AND l_to = ? AND l_type = 'NOTE') SET i_gedcom = REPLACE(i_gedcom, ?, ?) WHERE i_file = ?"
|
||
)->execute(array($old_xref, " NOTE @$old_xref@", " NOTE @$new_xref@", $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##families` JOIN `##link` ON (l_file = f_file AND l_to = ? AND l_type = 'NOTE') SET f_gedcom = REPLACE(f_gedcom, ?, ?) WHERE f_file = ?"
|
||
)->execute(array($old_xref, " NOTE @$old_xref@", " NOTE @$new_xref@", $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##media` JOIN `##link` ON (l_file = m_file AND l_to = ? AND l_type = 'NOTE') SET m_gedcom = REPLACE(m_gedcom, ?, ?) WHERE m_file = ?"
|
||
)->execute(array($old_xref, " NOTE @$old_xref@", " NOTE @$new_xref@", $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##sources` JOIN `##link` ON (l_file = s_file AND l_to = ? AND l_type = 'NOTE') SET s_gedcom = REPLACE(s_gedcom, ?, ?) WHERE s_file = ?"
|
||
)->execute(array($old_xref, " NOTE @$old_xref@", " NOTE @$new_xref@", $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##other` JOIN `##link` ON (l_file = o_file AND l_to = ? AND l_type = 'NOTE') SET o_gedcom = REPLACE(o_gedcom, ?, ?) WHERE o_file = ?"
|
||
)->execute(array($old_xref, " NOTE @$old_xref@", " NOTE @$new_xref@", $WT_TREE->getTreeId()));
|
||
break;
|
||
case 'OBJE':
|
||
Database::prepare(
|
||
"UPDATE `##media` SET m_id = ?, m_gedcom = REPLACE(m_gedcom, ?, ?) WHERE m_id = ? AND m_file = ?"
|
||
)->execute(array($new_xref, "0 @$old_xref@ OBJE\n", "0 @$new_xref@ OBJE\n", $old_xref, $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##individuals` JOIN `##link` ON (l_file = i_file AND l_to = ? AND l_type = 'OBJE') SET i_gedcom = REPLACE(i_gedcom, ?, ?) WHERE i_file = ?"
|
||
)->execute(array($old_xref, " OBJE @$old_xref@", " OBJE @$new_xref@", $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##families` JOIN `##link` ON (l_file = f_file AND l_to = ? AND l_type = 'OBJE') SET f_gedcom = REPLACE(f_gedcom, ?, ?) WHERE f_file = ?"
|
||
)->execute(array($old_xref, " OBJE @$old_xref@", " OBJE @$new_xref@", $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##media` JOIN `##link` ON (l_file = m_file AND l_to = ? AND l_type = 'OBJE') SET m_gedcom = REPLACE(m_gedcom, ?, ?) WHERE m_file = ?"
|
||
)->execute(array($old_xref, " OBJE @$old_xref@", " OBJE @$new_xref@", $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##sources` JOIN `##link` ON (l_file = s_file AND l_to = ? AND l_type = 'OBJE') SET s_gedcom = REPLACE(s_gedcom, ?, ?) WHERE s_file = ?"
|
||
)->execute(array($old_xref, " OBJE @$old_xref@", " OBJE @$new_xref@", $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##other` JOIN `##link` ON (l_file = o_file AND l_to = ? AND l_type = 'OBJE') SET o_gedcom = REPLACE(o_gedcom, ?, ?) WHERE o_file = ?"
|
||
)->execute(array($old_xref, " OBJE @$old_xref@", " OBJE @$new_xref@", $WT_TREE->getTreeId()));
|
||
break;
|
||
default:
|
||
Database::prepare(
|
||
"UPDATE `##other` SET o_id = ?, o_gedcom = REPLACE(o_gedcom, ?, ?) WHERE o_id = ? AND o_file = ?"
|
||
)->execute(array($new_xref, "0 @$old_xref@ $type\n", "0 @$new_xref@ $type\n", $old_xref, $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##individuals` JOIN `##link` ON (l_file = i_file AND l_to = ?) SET i_gedcom = REPLACE(i_gedcom, ?, ?) WHERE i_file = ?"
|
||
)->execute(array($old_xref, " @$old_xref@", " @$new_xref@", $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##families` JOIN `##link` ON (l_file = f_file AND l_to = ?) SET f_gedcom = REPLACE(f_gedcom, ?, ?) WHERE f_file = ?"
|
||
)->execute(array($old_xref, " @$old_xref@", " @$new_xref@", $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##media` JOIN `##link` ON (l_file = m_file AND l_to = ?) SET m_gedcom = REPLACE(m_gedcom, ?, ?) WHERE m_file = ?"
|
||
)->execute(array($old_xref, " @$old_xref@", " @$new_xref@", $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##sources` JOIN `##link` ON (l_file = s_file AND l_to = ?) SET s_gedcom = REPLACE(s_gedcom, ?, ?) WHERE s_file = ?"
|
||
)->execute(array($old_xref, " @$old_xref@", " @$new_xref@", $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##other` JOIN `##link` ON (l_file = o_file AND l_to = ?) SET o_gedcom = REPLACE(o_gedcom, ?, ?) WHERE o_file = ?"
|
||
)->execute(array($old_xref, " @$old_xref@", " @$new_xref@", $WT_TREE->getTreeId()));
|
||
break;
|
||
}
|
||
Database::prepare(
|
||
"UPDATE `##name` SET n_id = ? WHERE n_id = ? AND n_file = ?"
|
||
)->execute(array($new_xref, $old_xref, $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##default_resn` SET xref = ? WHERE xref = ? AND gedcom_id = ?"
|
||
)->execute(array($new_xref, $old_xref, $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##hit_counter` SET page_parameter = ? WHERE page_parameter = ? AND gedcom_id = ?"
|
||
)->execute(array($new_xref, $old_xref, $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##link` SET l_from = ? WHERE l_from = ? AND l_file = ?"
|
||
)->execute(array($new_xref, $old_xref, $WT_TREE->getTreeId()));
|
||
Database::prepare(
|
||
"UPDATE `##link` SET l_to = ? WHERE l_to = ? AND l_file = ?"
|
||
)->execute(array($new_xref, $old_xref, $WT_TREE->getTreeId()));
|
||
echo '<p>', I18N::translate('The record %1$s has been renamed to %2$s.', $old_xref, $new_xref), '</p>';
|
||
unset($xrefs[$old_xref]);
|
||
Database::exec("UNLOCK TABLES");
|
||
Database::commit();
|
||
|
||
try {
|
||
Database::prepare(
|
||
"UPDATE `##favorite` SET xref = ? WHERE xref = ? AND gedcom_id = ?"
|
||
)->execute(array($new_xref, $old_xref, $WT_TREE->getTreeId()));
|
||
} catch (\Exception $ex) {
|
||
// Perhaps the favorites module was not installed?
|
||
}
|
||
|
||
// How much time do we have left?
|
||
if (microtime(true) - WT_START_TIME > ini_get('max_execution_time') - 2) {
|
||
echo '<p>', I18N::translate('The server’s time limit has been reached.'), '</p>';
|
||
break;
|
||
}
|
||
}
|
||
if ($xrefs) {
|
||
|
||
}
|
||
} else {
|
||
echo '<p>', I18N::translate('In a family tree, each record has an internal reference number (called an “XREF”) such as “F123” or “R14”.'), '</p>';
|
||
echo '<p>', I18N::translate('You can renumber the records in a family tree, so that these internal reference numbers are not duplicated in any other family tree.'), '</p>';
|
||
}
|
||
|
||
echo '<p>', I18N::plural(
|
||
'This family tree has %s record which uses the same “XREF” as another family tree.',
|
||
'This family tree has %s records which use the same “XREF” as another family tree.',
|
||
count($xrefs), count($xrefs)
|
||
), '</p>';
|
||
|
||
if ($xrefs) {
|
||
// We use GET (not POST) for this update operation - because we want the user to
|
||
// be able to press F5 to continue after a timeout.
|
||
echo '<form>';
|
||
echo '<p>', I18N::translate('You can renumber this family tree.'), '</p>';
|
||
echo '<button type="submit" class="btn btn-primary">';
|
||
echo '<i class="fa fa-check"></i> ', /* I18N: A button label. */ I18N::translate('continue');
|
||
echo '</button>';
|
||
echo '<input type="hidden" name="action" value="renumber">';
|
||
echo '<input type="hidden" name="ged" value="', $WT_TREE->getNameHtml(), '">';
|
||
echo '</form>';
|
||
echo '<p>', I18N::translate('Caution! This may take a long time. Be patient.'), '</p>';
|
||
}
|