<?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 ErrorException;
use Fisharebest\Webtrees\Controller\PageController;
use Fisharebest\Webtrees\Functions\Functions;
use Fisharebest\Webtrees\Functions\FunctionsDb;
use Fisharebest\Webtrees\Functions\FunctionsEdit;
use Fisharebest\Webtrees\Functions\FunctionsImport;
use Fisharebest\Webtrees\Functions\FunctionsPrint;
use Fisharebest\Webtrees\GedcomCode\GedcomCodePedi;
use Fisharebest\Webtrees\Module\CensusAssistantModule;

require 'includes/session.php';

$action = Filter::post('action', null, Filter::get('action'));

$controller  = new PageController;
$controller
	->restrictAccess(Auth::isEditor($controller->tree()))
	->addInlineJavascript('var locale_date_format="' . preg_replace('/[^DMY]/', '', str_replace(['j', 'F'], ['D', 'M'], I18N::dateFormat())) . '";');

switch ($action) {
	////////////////////////////////////////////////////////////////////////////////
	case 'editraw':
		$xref = Filter::get('xref', WT_REGEX_XREF);

		$record = GedcomRecord::getInstance($xref, $controller->tree());
		check_record_access($record);

		$controller
			->setPageTitle($record->getFullName() . ' - ' . I18N::translate('Edit the raw GEDCOM'))
			->pageHeader()
			->addInlineJavascript('$("#raw-gedcom-list").sortable({opacity: 0.7, cursor: "move", axis: "y"});');

		?>
		<h2><?= $controller->getPageTitle() ?></h2>

		<form method="post">
			<input type="hidden" name="ged" value="<?= $controller->tree()->getNameHtml() ?>">
			<input type="hidden" name="action" value="updateraw">
			<input type="hidden" name="xref" value="<?= $xref ?>">
			<?= Filter::getCsrf() ?>
			<p class="text-muted small">
				<?= I18N::translate('This page allows you to bypass the usual forms, and edit the underlying data directly. It is an advanced option, and you should not use it unless you understand the GEDCOM format. If you make a mistake here, it can be difficult to fix.') ?>
				<?= /* I18N: %s is a URL */
				I18N::translate('You can download a copy of the GEDCOM specification from %s.', '<a href="https://wiki.webtrees.net/w/images-en/Ged551-5.pdf">https://wiki.webtrees.net/w/images-en/Ged551-5.pdf</a>') ?>
			</p>
			<ul id="raw-gedcom-list">
				<li><textarea class="form-control" readonly
				              rows="1"><?= '0 @' . $record->getXref() . '@ ' . $record::RECORD_TYPE ?></textarea></li>
				<?php foreach ($record->getFacts() as $fact) { ?>
					<?php if (!$fact->isPendingDeletion()) { ?>
						<li>
							<div style="cursor:move;">
								<?= $fact->summary() ?>
							</div>
							<input type="hidden" name="fact_id[]" value="<?= $fact->getFactId() ?>">
							<textarea name="fact[]" dir="ltr" rows="<?= preg_match_all('/\n/', $fact->getGedcom()) ?>"
							          style="width:100%;"><?= Html::escape($fact->getGedcom()) ?></textarea>
						</li>
					<?php } ?>
				<?php } ?>
				<li>
					<div style="cursor:move;">
						<b><i><?= I18N::translate('Add a fact') ?></i></b>
					</div>
					<input type="hidden" name="fact_id[]" value="">
					<textarea name="fact[]" dir="ltr" rows="2" style="width:100%;"></textarea>
				</li>
			</ul>
			<div class="row form-group">
				<div class="col-sm-9 offset-sm-3">
					<button class="btn btn-primary" type="submit">
						<?= FontAwesome::decorativeIcon('save') ?>
						<?= /* I18N: A button label. */
						I18N::translate('save') ?>
					</button>
					<a class="btn btn-secondary" href="<?= $record->getHtmlUrl() ?>">
						<?= FontAwesome::decorativeIcon('cancel') ?>
						<?= /* I18N: A button label. */
						I18N::translate('cancel') ?>
					</a>
				</div>
			</div>
		</form>
		<?php
		break;

	////////////////////////////////////////////////////////////////////////////////
	case 'updateraw':
		$xref     = Filter::post('xref', WT_REGEX_XREF);
		$facts    = Filter::postArray('fact');
		$fact_ids = Filter::postArray('fact_id');

		if (!Filter::checkCsrf()) {
			header('Location: edit_interface.php?action=editraw&xref=' . $xref);
			break;
		}

		$record = GedcomRecord::getInstance($xref, $controller->tree());
		check_record_access($record);

		$gedcom = '0 @' . $record->getXref() . '@ ' . $record::RECORD_TYPE;

		// Retain any private facts
		foreach ($record->getFacts(null, false, Auth::PRIV_HIDE) as $fact) {
			if (!in_array($fact->getFactId(), $fact_ids) && !$fact->isPendingDeletion()) {
				$gedcom .= "\n" . $fact->getGedcom();
			}
		}
		// Append the new facts
		foreach ($facts as $fact) {
			$gedcom .= "\n" . $fact;
		}

		// Cleanup the client’s bad editing?
		$gedcom = preg_replace('/[\r\n]+/', "\n", $gedcom); // Empty lines
		$gedcom = trim($gedcom); // Leading/trailing spaces

		$record->updateRecord($gedcom, false);

		header('Location: ' . $record->getRawUrl());
		break;

	////////////////////////////////////////////////////////////////////////////////
	case 'editrawfact':
		$xref = Filter::get('xref', WT_REGEX_XREF);
		$fact_id = Filter::get('fact_id');

		$record = GedcomRecord::getInstance($xref, $controller->tree());
		check_record_access($record);

		// Find the fact to edit
		$edit_fact = null;
		foreach ($record->getFacts() as $fact) {
			if ($fact->getFactId() === $fact_id && $fact->canEdit()) {
				$edit_fact = $fact;
				break;
			}
		}
		if (!$edit_fact) {
			header('Location: ' . $record->getRawUrl());
			break;
		}

		$controller
			->setPageTitle($record->getFullName() . ' - ' . I18N::translate('Edit the raw GEDCOM'))
			->pageHeader();

		// How many lines to use in the edit control?
		$rows = count(explode("\n", $edit_fact->getGedcom())) + 2;

		?>
		<h2><?= $controller->getPageTitle() ?></h2>

		<form method="post">
			<input type="hidden" name="ged" value="<?= $controller->tree()->getNameHtml() ?>">
			<input type="hidden" name="action" value="updaterawfact">
			<input type="hidden" name="xref" value="<?= $xref ?>">
			<input type="hidden" name="fact_id" value="<?= $fact_id ?>">
			<?= Filter::getCsrf() ?>
			<p class="text-muted small">
				<?= I18N::translate('This page allows you to bypass the usual forms, and edit the underlying data directly. It is an advanced option, and you should not use it unless you understand the GEDCOM format. If you make a mistake here, it can be difficult to fix.') ?>
				<?= /* I18N: %s is a URL */
				I18N::translate('You can download a copy of the GEDCOM specification from %s.', '<a href="https://wiki.webtrees.net/w/images-en/Ged551-5.pdf">https://wiki.webtrees.net/w/images-en/Ged551-5.pdf</a>') ?>
			</p>
			<div class="row form-group">
				<label class="col-sm-3 col-form-label" for="gedcom">
					<?= GedcomTag::getLabel($edit_fact->getTag()) ?>
				</label>
				<div class="col-sm-9">
					<textarea autofocus class="form-control" rows="<?= $rows ?>" name="gedcom" id="gedcom"
					          dir="ltr"><?= Html::escape($edit_fact->getGedcom()) ?></textarea>
				</div>
			</div>
			<?= keep_chan($record) ?>
			<div class="row form-group">
				<div class="col-sm-9 offset-sm-3">
					<button class="btn btn-primary" type="submit">
						<?= FontAwesome::decorativeIcon('save') ?>
						<?= /* I18N: A button label. */
						I18N::translate('save') ?>
					</button>
					<a class="btn btn-secondary" href="<?= $record->getHtmlUrl() ?>">
						<?= FontAwesome::decorativeIcon('cancel') ?>
						<?= /* I18N: A button label. */
						I18N::translate('cancel') ?>
					</a>
				</div>
			</div>
		</form>
		<?php
		break;

	////////////////////////////////////////////////////////////////////////////////
	case 'updaterawfact':
		$xref      = Filter::post('xref', WT_REGEX_XREF);
		$fact_id   = Filter::post('fact_id');
		$gedcom    = Filter::post('gedcom');
		$keep_chan = Filter::postBool('keep_chan');

		if (!Filter::checkCsrf()) {
			header('Location: edit_interface.php?action=editrawfact&xref=' . $xref . '&fact_id=' . $fact_id);
			break;
		}

		$record = GedcomRecord::getInstance($xref, $controller->tree());
		check_record_access($record);

		// Find the fact to edit
		foreach ($record->getFacts() as $fact) {
			if ($fact->getFactId() === $fact_id && $fact->canEdit()) {
				// Cleanup the client’s bad editing?
				$gedcom = preg_replace('/[\r\n]+/', "\n", $gedcom); // Empty lines
				$gedcom = trim($gedcom); // Leading/trailing spaces

				$record->updateFact($fact_id, $gedcom, !$keep_chan);
				break;
			}
		}

		header('Location: ' . $record->getRawUrl());
		break;

	////////////////////////////////////////////////////////////////////////////////
	case 'edit':
		$xref = Filter::get('xref', WT_REGEX_XREF);
		$fact_id = Filter::get('fact_id');

		$record = GedcomRecord::getInstance($xref, $controller->tree());
		check_record_access($record);

		// Find the fact to edit
		$edit_fact = null;
		foreach ($record->getFacts() as $fact) {
			if ($fact->getFactId() === $fact_id && $fact->canEdit()) {
				$edit_fact = $fact;
				break;
			}
		}
		if (!$edit_fact) {
			header('Location: ' . $record->getRawUrl());
			break;
		}

		$controller
			->setPageTitle($record->getFullName() . ' - ' . GedcomTag::getLabel($edit_fact->getTag()))
			->pageHeader();

		echo '<h2>', $controller->getPageTitle(), '</h2>';
		FunctionsPrint::initializeCalendarPopup();
		echo '<form name="editform" method="post" enctype="multipart/form-data">';
		echo '<input type="hidden" name="ged" value="', $controller->tree()->getNameHtml(), '">';
		echo '<input type="hidden" name="action" value="update">';
		echo '<input type="hidden" name="fact_id" value="', $fact_id, '">';
		echo '<input type="hidden" name="xref" value="', $xref, '">';
		echo '<input type="hidden" name="prev_action" value="edit">';
		echo Filter::getCsrf();
		FunctionsEdit::createEditForm($edit_fact);
		echo keep_chan($record);

		$level1type = $edit_fact->getTag();
		switch ($record::RECORD_TYPE) {
			case 'REPO':
				// REPO:NAME facts may take a NOTE (but the REPO record may not).
				if ($level1type === 'NAME') {
					FunctionsEdit::printAddLayer('NOTE');
					FunctionsEdit::printAddLayer('SHARED_NOTE');
				}
				break;
			case 'FAM':
			case 'INDI':
				// FAM and INDI records have real facts. They can take NOTE/SOUR/OBJE/etc.
				if ($level1type !== 'SEX' && $level1type !== 'NOTE' && $level1type !== 'ALIA') {
					if ($level1type !== 'SOUR') {
						FunctionsEdit::printAddLayer('SOUR');
					}
					if ($level1type !== 'OBJE') {
						FunctionsEdit::printAddLayer('OBJE');
					}
					FunctionsEdit::printAddLayer('NOTE');
					FunctionsEdit::printAddLayer('SHARED_NOTE', 2, $level1type);
					if ($level1type !== 'ASSO' && $level1type !== 'NOTE' && $level1type !== 'SOUR') {
						FunctionsEdit::printAddLayer('ASSO');
					}
					// allow to add godfather and godmother for CHR fact or best man and bridesmaid  for MARR fact in one window
					if (in_array($level1type, Config::twoAssociates())) {
						FunctionsEdit::printAddLayer('ASSO2');
					}
					if ($level1type !== 'SOUR') {
						FunctionsEdit::printAddLayer('RESN');
					}
				}
				break;
			default:
				// Other types of record do not have these lower-level records
				break;
		}

		?>
		<div class="row form-group">
			<div class="col-sm-9 offset-sm-3">
				<button class="btn btn-primary" type="submit">
					<?= FontAwesome::decorativeIcon('save') ?>
					<?= /* I18N: A button label. */
					I18N::translate('save') ?>
				</button>
				<a class="btn btn-secondary" href="<?= $record->getHtmlUrl() ?>">
					<?= FontAwesome::decorativeIcon('cancel') ?>
					<?= /* I18N: A button label. */
					I18N::translate('cancel') ?>
				</a>
				<?php if (Auth::isAdmin() || $controller->tree()->getPreference('SHOW_GEDCOM_RECORD')): ?>
					<a class="btn btn-link"
					   href="edit_interface.php?action=editrawfact&amp;xref=<?= $xref ?>&amp;fact_id=<?= $fact_id ?>&amp;ged=<?= $controller->tree()->getNameUrl() ?>">
						<?= I18N::translate('Edit the raw GEDCOM') ?>
					</a>
				<?php endif; ?>
			</div>
		</div>

		</form>
		<?php
		echo FunctionsEdit::createRecordFormModals($controller->tree());
		break;

	////////////////////////////////////////////////////////////////////////////////
	case 'add':
		$xref = Filter::get('xref', WT_REGEX_XREF);
		$fact    = Filter::get('fact', WT_REGEX_TAG);

		$record = GedcomRecord::getInstance($xref, $controller->tree());
		check_record_access($record);

		$controller
			->setPageTitle($record->getFullName() . ' - ' . GedcomTag::getLabel($fact, $record))
			->pageHeader();

		$level0type = $record::RECORD_TYPE;

		echo '<h2>', $controller->getPageTitle(), '</h2>';

		FunctionsPrint::initializeCalendarPopup();
		echo '<form name="addform" method="post" enctype="multipart/form-data">';
		echo '<input type="hidden" name="ged" value="', $controller->tree()->getNameHtml(), '">';
		echo '<input type="hidden" name="action" value="update">';
		echo '<input type="hidden" name="xref" value="', $xref, '">';
		echo '<input type="hidden" name="prev_action" value="add">';
		echo '<input type="hidden" name="fact_type" value="' . $fact . '">';
		echo Filter::getCsrf();
		FunctionsEdit::createAddForm($fact);
		echo keep_chan($record);

		// Genealogical facts (e.g. for INDI and FAM records) can have 2 SOUR/NOTE/OBJE/ASSO/RESN ...
		if ($level0type === 'INDI' || $level0type === 'FAM') {
			// ... but not facts which are simply links to other records
			if ($fact !== 'OBJE' && $fact !== 'NOTE' && $fact !== 'SHARED_NOTE' && $fact !== 'REPO' && $fact !== 'SOUR' && $fact !== 'SUBM' && $fact !== 'ASSO' && $fact !== 'ALIA') {
				FunctionsEdit::printAddLayer('SOUR');
				FunctionsEdit::printAddLayer('OBJE');
				// Don’t add notes to notes!
				if ($fact !== 'NOTE') {
					FunctionsEdit::printAddLayer('NOTE');
					FunctionsEdit::printAddLayer('SHARED_NOTE', 2, $fact);
				}
				FunctionsEdit::printAddLayer('ASSO');
				// allow to add godfather and godmother for CHR fact or best man and bridesmaid  for MARR fact in one window
				if (in_array($fact, Config::twoAssociates())) {
					FunctionsEdit::printAddLayer('ASSO2');
				}
				FunctionsEdit::printAddLayer('RESN');
			}
		}
		?>
		<div class="row form-group">
			<div class="col-sm-9 offset-sm-3">
				<button class="btn btn-primary" type="submit">
					<?= FontAwesome::decorativeIcon('save') ?>
					<?= /* I18N: A button label. */
					I18N::translate('save') ?>
				</button>
				<a class="btn btn-secondary" href="<?= $record->getHtmlUrl() ?>">
					<?= FontAwesome::decorativeIcon('cancel') ?>
					<?= /* I18N: A button label. */
					I18N::translate('cancel') ?>
				</a>
			</div>
		</div>
		</form>
		<?php
		echo FunctionsEdit::createRecordFormModals($controller->tree());

		break;

	////////////////////////////////////////////////////////////////////////////////
	case 'update':
		// Create/update a fact
		$xref      = Filter::post('xref', WT_REGEX_XREF);
		$fact_id   = Filter::post('fact_id');
		$keep_chan = Filter::postBool('keep_chan');

		if (!Filter::checkCsrf()) {
			$prev_action = Filter::post('prev_action', 'add|edit|addname|editname');
			$fact_type   = Filter::post('fact_type', WT_REGEX_TAG);
			header('Location: edit_interface.php?action=' . $prev_action . '&xref=' . $xref . '&fact_id=' . $fact_id . '&fact=' . $fact_type);
			break;
		}

		$record = GedcomRecord::getInstance($xref, $controller->tree());
		check_record_access($record);

		// Arrays for each GEDCOM line
		$glevels = Filter::postArray('glevels', '[0-9]');
		$tag     = Filter::postArray('tag', WT_REGEX_TAG);
		$text    = Filter::postArray('text');
		$islink  = Filter::postArray('islink', '[01]');

		// If the fact has a DATE or PLAC, then delete any value of Y
		if ($text[0] === 'Y') {
			foreach ($tag as $n => $value) {
				if ($glevels[$n] == 2 && ($value === 'DATE' || $value === 'PLAC') && $text[$n] !== '') {
					$text[0] = '';
					break;
				}
			}
		}

		$newged = '';
		if (!empty($_POST['NAME'])) {
			$newged     .= "\n1 NAME " . $_POST['NAME'];
			$name_facts = ['TYPE', 'NPFX', 'GIVN', 'NICK', 'SPFX', 'SURN', 'NSFX'];
			foreach ($name_facts as $name_fact) {
				if (!empty($_POST[$name_fact])) {
					$newged .= "\n2 " . $name_fact . ' ' . $_POST[$name_fact];
				}
			}
		}

		if (isset($_POST['NOTE'])) {
			$NOTE = $_POST['NOTE'];
		}
		if (!empty($NOTE)) {
			$tempnote = preg_split('/\r?\n/', trim($NOTE) . "\n"); // make sure only one line ending on the end
			$title[]  = '0 @' . $xref . '@ NOTE ' . array_shift($tempnote);
			foreach ($tempnote as &$line) {
				$line = trim('1 CONT ' . $line, ' ');
			}
		}

		$newged = FunctionsEdit::handleUpdates($newged);

		// Add new names after existing names
		if (!empty($_POST['NAME'])) {
			preg_match_all('/[_0-9A-Z]+/', $controller->tree()->getPreference('ADVANCED_NAME_FACTS'), $match);
			$name_facts = array_unique(array_merge(['_MARNM'], $match[0]));
			foreach ($name_facts as $name_fact) {
				if (!empty($_POST[$name_fact])) {
					$newged .= "\n2 " . $name_fact . ' ' . $_POST[$name_fact];
				}
			}
		}

		$newged = substr($newged, 1); // Remove leading newline

		/** @var CensusAssistantModule $census_assistant */
		$census_assistant = Module::getModuleByName('GEDFact_assistant');
		if ($census_assistant !== null && $record instanceof Individual) {
			$newged = $census_assistant->updateCensusAssistant($record, $fact_id, $newged, $keep_chan);
		}

		$record->updateFact($fact_id, $newged, !$keep_chan);

		// For the GEDFact_assistant module
		$pid_array = Filter::post('pid_array');
		if ($pid_array) {
			foreach (explode(',', $pid_array) as $pid) {
				if ($pid !== $xref) {
					$indi = Individual::getInstance($pid, $controller->tree());
					if ($indi && $indi->canEdit()) {
						$indi->updateFact($fact_id, $newged, !$keep_chan);
					}
				}
			}
		}

		header('Location: ' . $record->getRawUrl());
		break;

////////////////////////////////////////////////////////////////////////////////
// Edit a media object
////////////////////////////////////////////////////////////////////////////////
	case 'media-edit':
		$xref = Filter::get('xref', WT_REGEX_XREF);
		$fact_id = Filter::get('fact_id');

		$record = GedcomRecord::getInstance($xref, $controller->tree());
		check_record_access($record);

		// Find the fact to edit
		$edit_fact = null;
		foreach ($record->getFacts() as $fact) {
			if ($fact->getFactId() === $fact_id && $fact->canEdit()) {
				$edit_fact = $fact;
				break;
			}
		}
		if (!$edit_fact) {
			header('Location: ' . $record->getRawUrl());
			break;
		}

		$controller
			->setPageTitle($record->getFullName() . ' - ' . I18N::translate('edit'))
			->pageHeader();

		// Other systems generate various structures for media objects...
		// Extract them from wherever they might be
		$FILE = '';
		$TITL = '';
		$TYPE = '';
		if (preg_match('/^\d FILE (.+)/m', $edit_fact->getGedcom(), $match)) {
			$FILE = $match[1];
		}
		if (preg_match('/^\d TITL (.+)/m', $edit_fact->getGedcom(), $match)) {
			$TITL = $match[1];
		}
		if (preg_match('/^\d TYPE (.+)/m', $edit_fact->getGedcom(), $match)) {
			$TYPE = $match[1];
		}

		$auto_file = '';
		$old_file  = $record->getServerFilename('main');
		if (file_exists($old_file)) {
			$old_base   = strtolower(pathinfo($old_file, PATHINFO_BASENAME));
			$old_format = strtolower(pathinfo($old_file, PATHINFO_EXTENSION));
			$old_format = strtr($old_format, ['jpg' => 'jpeg']);

			$sha1 = sha1_file($old_file);
			if ($old_base !== $sha1 . '.' . $old_format) {
				$auto_file = $sha1 . '.' . $old_format;
			}
		}


		?>
		<h2><?= $controller->getPageTitle() ?></h2>
		<form method="post" enctype="multipart/form-data">
			<input type="hidden" name="ged" value="<?= $controller->tree()->getNameHtml() ?>">
			<input type="hidden" name="action" value="media-save">
			<input type="hidden" name="xref" value="<?= $xref ?>">
			<input type="hidden" name="fact_id" value="<?= $edit_fact->getFactId() ?>">
			<?= Filter::getCsrf() ?>

			<div class="row form-group">
				<div class="col-sm-9 offset-sm-3">
					<?= $record->displayImage(400, 200, '', []) ?>
				</div>
			</div>

			<div class="form-group row">
				<label class="col-form-label col-sm-3" for="file">
					<?= I18N::translate('Media file to upload') ?>
				</label>
				<div class="col-sm-9">
					<input type="file" class="form-control" id="file" name="file">
				</div>
			</div>

			<div class="form-group row">
				<label class="col-form-label col-sm-3" for="thumbnail">
					<?= I18N::translate('Thumbnail to upload') ?>
				</label>
				<div class="col-sm-9">
					<input type="file" class="form-control" id="thumbnail" name="thumbnail">
				</div>
			</div>

			<div class="form-group row">
				<label class="col-sm-3 col-form-label" for="TITL">
					<?= I18N::translate('Title') ?>
				</label>
				<div class="col-sm-9">
					<input type="text" id="TITL" name="TITL" class="form-control" value="<?= Html::escape($TITL) ?>" required>
				</div>
 			</div>

			<div class="form-group row">
				<label class="col-sm-3 col-form-label" for="FILE">
					<?= I18N::translate('Filename on server') ?>
				</label>
				<div class="col-sm-9">
					<input type="text" id="FILE" name="FILE" class="form-control" value="<?= Html::escape($FILE) ?>" required>

					<?php if ($auto_file !== ''): ?>
					<a href="#" class="btn btn-link" title="<?= Html::escape($auto_file) ?>" onclick="document.querySelector('#FILE').value='<?= Html::escape($auto_file) ?>'; document.querySelector('#FILE').focus(); return false;">
						<?= I18N::translate('Create a unique filename') ?>
					</a>
					<?php endif ?>
				</div>
			</div>

			<div class="form-group row">
				<label class="col-sm-3 col-form-label" for="TYPE">
					<?= I18N::translate('Type') ?>
				</label>
				<div class="col-sm-9">
					<?= Bootstrap4::select(GedcomTag::getFileFormTypes(), $TYPE, ['id' => 'TYPE', 'name' => 'TYPE']) ?>
				</div>
			</div>

			<?= keep_chan($record) ?>

			<div class="row form-group">
				<div class="col-sm-9 offset-sm-3">
					<button class="btn btn-primary" type="submit">
						<?= FontAwesome::decorativeIcon('save') ?>
						<?= /* I18N: A button label. */
						I18N::translate('save') ?>
					</button>
					<a class="btn btn-secondary" href="<?= $record->getHtmlUrl() ?>">
						<?= FontAwesome::decorativeIcon('cancel') ?>
						<?= /* I18N: A button label. */
						I18N::translate('cancel') ?>
					</a>
				</div>
			</div>
		</form>
		<?php

		break;

	case 'media-save':
		$xref      = Filter::post('xref', WT_REGEX_XREF);
		$fact_id   = Filter::post('fact_id');
		$keep_chan = Filter::postBool('keep_chan');
		$FILE      = Filter::post('FILE');
		$TITL      = Filter::post('TITL');
		$TYPE      = Filter::post('TYPE');

		$FILE = str_replace('\\', '/', $FILE);

		$record = GedcomRecord::getInstance($xref, $controller->tree());
		check_record_access($record);

		// Find the fact to edit
		$edit_fact = null;
		foreach ($record->getFacts() as $fact) {
			if ($fact->getFactId() === $fact_id && $fact->canEdit()) {
				$edit_fact = $fact;
				break;
			}
		}
		if ($edit_fact === null) {
			header('Location: ' . $record->getRawUrl());
			break;
		}

		// Find the old filename.  If this has changed, we need to move it.
		// Other systems generate various structures for media objects...
		// Extract them from wherever they might be
		if (preg_match('/^\d FILE (.+)/m', $edit_fact->getGedcom(), $match)) {
			$OLD_FILE = $match[1];
		} else {
			header('Location: ' . $record->getRawUrl());
			break;
		}

		$FORM = strtolower(pathinfo($FILE, PATHINFO_EXTENSION));
		$FORM = strtr($FORM, ['jpg' => 'jpeg']);

		$gedcom = '1 FILE ' . $FILE . "\n2 FORM " . $FORM;
		if ($TYPE !== '') {
			$gedcom .= "\n3 TYPE " . $TYPE;
		}
		if ($TITL !== '') {
			$gedcom .= "\n2 TITL " . $TITL;
		}

		$old_server_file  = $record->getServerFilename('main');
		$old_server_thumb = $record->getServerFilename('thumb');
		$old_external     = $record->isExternal();

		// Replacement files?
		if (!empty($_FILES['file']) && is_uploaded_file($_FILES['file']['tmp_name'])) {
			if (move_uploaded_file($_FILES['file']['tmp_name'], $old_server_file)) {
				File::delete($old_server_thumb);
				$old_external = false;
			} else {
				FlashMessages::addMessage(
					I18N::translate('There was an error uploading your file.') .
					'<br>' .
					Functions::fileUploadErrorText($_FILES['file']['error'])
				);
			}
		}

		// Replacement files?
		if (!empty($_FILES['thumbnail']) && is_uploaded_file($_FILES['thumbnail']['tmp_name'])) {
			if (!move_uploaded_file($_FILES['thumbnail']['tmp_name'], $old_server_thumb)) {
				FlashMessages::addMessage(
					I18N::translate('There was an error uploading your file.') .
					'<br>' .
					Functions::fileUploadErrorText($_FILES['thumbnail']['error'])
				);
			}
		}

		$tmp_record = new Media('xxx', "0 @xxx@ OBJE\n1 FILE " . $FILE, null, $record->getTree());

		$new_server_file  = $tmp_record->getServerFilename('main');
		$new_server_thumb = $tmp_record->getServerFilename('thumb');
		$new_external     = $tmp_record->isExternal();

		// External URLs cannot be renamed to local files, and vice versa.
		if ($old_external !== $new_external) {
			FlashMessages::addMessage(I18N::translate('This file is linked to another family tree on this server. It cannot be deleted, moved, or renamed until these links have been removed.'), 'danger');

			header('Location: ' . $record->getRawUrl());
			break;
		}

		if (!$record->isExternal() && strpos($FILE, '../') !== false) {
			FlashMessages::addMessage('Folder names are not allowed to include “../”', 'danger');

			header('Location: ' . $record->getRawUrl());
			break;
		}

		if (!$record->isExternal() && FunctionsDb::isMediaUsedInOtherTree($record->getFilename(), $record->getTree()->getTreeId())) {
			FlashMessages::addMessage(I18N::translate('This file is linked to another family tree on this server. It cannot be deleted, moved, or renamed until these links have been removed.'), 'danger');

			header('Location: ' . $record->getRawUrl());
			break;
		}

		// If we have renamed a local file, then also move the files on disk (if we can).
		if ($OLD_FILE !== $FILE) {
			// Managers can create new media paths (subfolders). Users must use existing folders.
			foreach ([dirname($new_server_file)] as $dir) {
				if (!is_dir($dir)) {
					if (Auth::isManager($record->getTree()) && File::mkdir($dir)) {
						FlashMessages::addMessage(I18N::translate('The folder %s has been created.', Html::filename($dir)), 'info');
					} else {
						FlashMessages::addMessage(I18N::translate('The folder %s does not exist, and it could not be created.', Html::filename($dir)), 'danger');

						header('Location: ' . $record->getRawUrl());
					}
				}
			}

			if (!file_exists($old_server_file)) {
				FlashMessages::addMessage(I18N::translate('The media file %s does not exist.', Html::filename($OLD_FILE)), 'warning');
			}
			if (!file_exists($new_server_file) || sha1_file($old_server_file) === sha1_file($new_server_file)) {
				try {
					rename($old_server_file, $new_server_file);
					FlashMessages::addMessage(I18N::translate('The media file %1$s has been renamed to %2$s.', Html::filename($OLD_FILE), Html::filename($FILE)), 'info');
				} catch (ErrorException $ex) {
					FlashMessages::addMessage(I18N::translate('The media file %1$s could not be renamed to %2$s.', Html::filename($OLD_FILE), Html::filename($FILE)), 'danger');
				}
			}
			if (!file_exists($new_server_file)) {
				FlashMessages::addMessage(I18N::translate('The media file %s does not exist.', Html::filename($FILE)), 'warning');
			}

			if (!file_exists($new_server_thumb) || sha1_file($old_server_thumb) === sha1_file($new_server_thumb)) {
				try {
					rename($old_server_thumb, $new_server_thumb);
				} catch (ErrorException $ex) {
				}
			}
		}

		$record->updateFact($fact_id, $gedcom, !$keep_chan);

		if ($OLD_FILE !== $FILE) {
			// Accept the change, to avoid breaking links, etc.
			FunctionsImport::acceptAllChanges($record->getXref(), $record->getTree()->getTreeId());
		}

		header('Location: ' . $record->getRawUrl());
		break;

	////////////////////////////////////////////////////////////////////////////////
	// Add a child to an existing family
	////////////////////////////////////////////////////////////////////////////////
	case 'add_child_to_family':
		$xref   = Filter::get('xref', WT_REGEX_XREF);
		$gender = Filter::get('gender', '[MFU]', 'U');

		$family = Family::getInstance($xref, $controller->tree());
		check_record_access($family);

		$controller
			->setPageTitle($family->getFullName() . ' - ' . I18N::translate('Add a child'))
			->pageHeader();

		print_indi_form('add_child_to_family_action', null, $family, null, 'CHIL', $gender);
		break;

	case 'add_child_to_family_action':
		$xref      = Filter::post('xref', WT_REGEX_XREF);
		$PEDI      = Filter::post('PEDI');
		$keep_chan = Filter::postBool('keep_chan');
		$glevels   = Filter::postArray('glevels', '[0-9]');
		$tag       = Filter::postArray('tag', WT_REGEX_TAG);
		$text      = Filter::postArray('text');
		$islink    = Filter::postArray('islink', '[01]');

		if (!Filter::checkCsrf()) {
			$gender = Filter::get('gender', '[MFU]', 'U');
			header('Location: edit_interface.php?action=add_child_to_family&xref=' . $xref . '&gender=' . $gender);
			break;
		}

		$family = Family::getInstance($xref, $controller->tree());
		check_record_access($family);

		FunctionsEdit::splitSource();
		$gedrec = '0 @REF@ INDI';
		$gedrec .= FunctionsEdit::addNewName();
		$gedrec .= FunctionsEdit::addNewSex();
		if (preg_match_all('/([A-Z0-9_]+)/', $controller->tree()->getPreference('QUICK_REQUIRED_FACTS'), $matches)) {
			foreach ($matches[1] as $match) {
				$gedrec .= FunctionsEdit::addNewFact($match);
			}
		}
		$gedrec .= "\n" . GedcomCodePedi::createNewFamcPedi($PEDI, $xref);
		if (Filter::postBool('SOUR_INDI')) {
			$gedrec = FunctionsEdit::handleUpdates($gedrec);
		} else {
			$gedrec = FunctionsEdit::updateRest($gedrec);
		}

		// Create the new child
		$new_child = $family->getTree()->createRecord($gedrec);

		// Insert new child at the right place
		$done = false;
		foreach ($family->getFacts('CHIL') as $fact) {
			$old_child = $fact->getTarget();
			if ($old_child && Date::compare($new_child->getEstimatedBirthDate(), $old_child->getEstimatedBirthDate()) < 0) {
				// Insert before this child
				$family->updateFact($fact->getFactId(), '1 CHIL @' . $new_child->getXref() . "@\n" . $fact->getGedcom(), !$keep_chan);
				$done = true;
				break;
			}
		}
		if (!$done) {
			// Append child at end
			$family->createFact('1 CHIL @' . $new_child->getXref() . '@', !$keep_chan);
		}

		if (Filter::post('goto') === 'new') {
			header('Location: ' . $new_child->getRawUrl());
		} else {
			header('Location: ' . $family->getRawUrl());
		}
		break;

	////////////////////////////////////////////////////////////////////////////////
	// Add a child to an existing individual (creating a one-parent family)
	////////////////////////////////////////////////////////////////////////////////
	case 'add_child_to_individual':
		$xref = Filter::get('xref', WT_REGEX_XREF);

		$person = Individual::getInstance($xref, $controller->tree());
		check_record_access($person);

		$controller
			->setPageTitle($person->getFullName() . ' - ' . I18N::translate('Add a child to create a one-parent family'))
			->pageHeader();

		print_indi_form('add_child_to_individual_action', $person, null, null, 'CHIL', $person->getSex());
		break;

	case 'add_child_to_individual_action':
		$xref    = Filter::post('xref', WT_REGEX_XREF);
		$PEDI    = Filter::post('PEDI');
		$glevels = Filter::postArray('glevels', '[0-9]');
		$tag     = Filter::postArray('tag', WT_REGEX_TAG);
		$text    = Filter::postArray('text');
		$islink  = Filter::postArray('islink', '[01]');

		if (!Filter::checkCsrf()) {
			header('Location: edit_interface.php?action=add_child_to_individual&xref=' . $xref);
			break;
		}

		$person = Individual::getInstance($xref, $controller->tree());
		check_record_access($person);

		// Create a family
		if ($person->getSex() === 'F') {
			$gedcom = "0 @NEW@ FAM\n1 WIFE @" . $person->getXref() . '@';
		} else {
			$gedcom = "0 @NEW@ FAM\n1 HUSB @" . $person->getXref() . '@';
		}
		$family = $person->getTree()->createRecord($gedcom);

		// Link the parent to the family
		$person->createFact('1 FAMS @' . $family->getXref() . '@', true);

		// Create a child
		FunctionsEdit::splitSource(); // separate SOUR record from the rest

		$gedcom = '0 @NEW@ INDI';
		$gedcom .= FunctionsEdit::addNewName();
		$gedcom .= FunctionsEdit::addNewSex();
		$gedcom .= "\n" . GedcomCodePedi::createNewFamcPedi($PEDI, $family->getXref());
		if (preg_match_all('/([A-Z0-9_]+)/', $controller->tree()->getPreference('QUICK_REQUIRED_FACTS'), $matches)) {
			foreach ($matches[1] as $match) {
				$gedcom .= FunctionsEdit::addNewFact($match);
			}
		}
		if (Filter::postBool('SOUR_INDI')) {
			$gedcom = FunctionsEdit::handleUpdates($gedcom);
		} else {
			$gedcom = FunctionsEdit::updateRest($gedcom);
		}

		$child = $person->getTree()->createRecord($gedcom);

		// Link the family to the child
		$family->createFact('1 CHIL @' . $child->getXref() . '@', true);

		if (Filter::post('goto') === 'new') {
			header('Location: ' . $child->getRawUrl());
		} else {
			header('Location: ' . $person->getRawUrl());
		}
		break;

	////////////////////////////////////////////////////////////////////////////////
	// Add a new parent to an existing individual (creating a one-parent family)
	////////////////////////////////////////////////////////////////////////////////
	case 'add_parent_to_individual':
		$xref   = Filter::get('xref', WT_REGEX_XREF);
		$gender = Filter::get('gender', '[MF]', 'U');

		$individual = Individual::getInstance($xref, $controller->tree());
		check_record_access($individual);

		if ($gender === 'F') {
			$controller->setPageTitle(I18N::translate('Add a mother'));
			$famtag = 'WIFE';
		} else {
			$controller->setPageTitle(I18N::translate('Add a father'));
			$famtag = 'HUSB';
		}
		$controller->pageHeader();

		print_indi_form('add_parent_to_individual_action', $individual, null, null, $famtag, $gender);
		break;

	case 'add_parent_to_individual_action':
		$xref    = Filter::post('xref', WT_REGEX_XREF);
		$PEDI    = Filter::post('PEDI');
		$glevels = Filter::postArray('glevels', '[0-9]');
		$tag     = Filter::postArray('tag', WT_REGEX_TAG);
		$text    = Filter::postArray('text');
		$islink  = Filter::postArray('islink', '[01]');

		if (!Filter::checkCsrf()) {
			$gender = Filter::get('gender', '[MFU]', 'U');
			header('Location: edit_interface.php?action=add_parent_to_individual&xref=' . $xref . '&gender=' . $gender);
			break;
		}

		$person = Individual::getInstance($xref, $controller->tree());
		check_record_access($person);

		// Create a new family
		$gedcom = "0 @NEW@ FAM\n1 CHIL @" . $person->getXref() . '@';
		$family = $person->getTree()->createRecord($gedcom);

		// Link the child to the family
		$person->createFact('1 FAMC @' . $family->getXref() . '@', true);

		// Create a child
		FunctionsEdit::splitSource(); // separate SOUR record from the rest

		$gedcom = '0 @NEW@ INDI';
		$gedcom .= FunctionsEdit::addNewName();
		$gedcom .= FunctionsEdit::addNewSex();
		if (preg_match_all('/([A-Z0-9_]+)/', $controller->tree()->getPreference('QUICK_REQUIRED_FACTS'), $matches)) {
			foreach ($matches[1] as $match) {
				$gedcom .= FunctionsEdit::addNewFact($match);
			}
		}
		if (Filter::postBool('SOUR_INDI')) {
			$gedcom = FunctionsEdit::handleUpdates($gedcom);
		} else {
			$gedcom = FunctionsEdit::updateRest($gedcom);
		}
		$gedcom .= "\n1 FAMS @" . $family->getXref() . '@';

		$parent = $person->getTree()->createRecord($gedcom);

		// Link the family to the child
		if ($parent->getSex() === 'F') {
			$family->createFact('1 WIFE @' . $parent->getXref() . '@', true);
		} else {
			$family->createFact('1 HUSB @' . $parent->getXref() . '@', true);
		}

		if (Filter::post('goto') === 'new') {
			header('Location: ' . $parent->getRawUrl());
		} else {
			header('Location: ' . $person->getRawUrl());
		}
		break;

	////////////////////////////////////////////////////////////////////////////////
	// Add a new, unlinked individual
	////////////////////////////////////////////////////////////////////////////////
	case 'add_unlinked_indi':
		$controller
			->restrictAccess(Auth::isManager($controller->tree()))
			->setPageTitle(I18N::translate('Create an individual'))
			->pageHeader();

		print_indi_form('add_unlinked_indi_action', null, null, null, null, null);
		break;

	case 'add_unlinked_indi_action':
		$glevels = Filter::postArray('glevels', '[0-9]');
		$tag     = Filter::postArray('tag', WT_REGEX_TAG);
		$text    = Filter::postArray('text');
		$islink  = Filter::postArray('islink', '[01]');

		if (!Filter::checkCsrf()) {
			header('Location: edit_interface.php?action=add_unlinked_indi');
			break;
		}

		$controller->restrictAccess(Auth::isManager($controller->tree()));

		FunctionsEdit::splitSource();
		$gedrec = '0 @REF@ INDI';
		$gedrec .= FunctionsEdit::addNewName();
		$gedrec .= FunctionsEdit::addNewSex();
		if (preg_match_all('/([A-Z0-9_]+)/', $controller->tree()->getPreference('QUICK_REQUIRED_FACTS'), $matches)) {
			foreach ($matches[1] as $match) {
				$gedrec .= FunctionsEdit::addNewFact($match);
			}
		}
		if (Filter::postBool('SOUR_INDI')) {
			$gedrec = FunctionsEdit::handleUpdates($gedrec);
		} else {
			$gedrec = FunctionsEdit::updateRest($gedrec);
		}

		$new_indi = $controller->tree()->createRecord($gedrec);

		if (Filter::post('goto') === 'new') {
			header('Location: ' . $new_indi->getRawUrl());
		} else {
			header('Location: admin_trees_manage.php');
		}
		break;

	////////////////////////////////////////////////////////////////////////////////
	// Add a spouse to an existing individual (creating a new family)
	////////////////////////////////////////////////////////////////////////////////
	case 'add_spouse_to_individual':
		$sex  = Filter::get('sex', 'M|F', 'F');
		$xref = Filter::get('xref', WT_REGEX_XREF);

		$individual = Individual::getInstance($xref, $controller->tree());
		check_record_access($individual);

		if ($sex === 'F') {
			$controller->setPageTitle(I18N::translate('Add a wife'));
			$famtag = 'WIFE';
		} else {
			$controller->setPageTitle(I18N::translate('Add a husband'));
			$famtag = 'HUSB';
		}
		$controller->pageHeader();

		print_indi_form('add_spouse_to_individual_action', $individual, null, null, $famtag, $sex);
		break;

	case 'add_spouse_to_individual_action':
		$xref    = Filter::post('xref'); // Add a spouse to this individual
		$sex     = Filter::post('SEX', '[MFU]', 'U');
		$glevels = Filter::postArray('glevels', '[0-9]');
		$tag     = Filter::postArray('tag', WT_REGEX_TAG);
		$text    = Filter::postArray('text');
		$islink  = Filter::postArray('islink', '[01]');

		if (!Filter::checkCsrf()) {
			header('Location: edit_interface.php?action=add_spouse_to_individual&xref=' . $xref . '&sex=' . $sex);

			break;
		}

		$person = Individual::getInstance($xref, $controller->tree());
		check_record_access($person);

		FunctionsEdit::splitSource();
		$indi_gedcom = '0 @REF@ INDI';
		$indi_gedcom .= FunctionsEdit::addNewName();
		$indi_gedcom .= FunctionsEdit::addNewSex();
		if (preg_match_all('/([A-Z0-9_]+)/', $controller->tree()->getPreference('QUICK_REQUIRED_FACTS'), $matches)) {
			foreach ($matches[1] as $match) {
				$indi_gedcom .= FunctionsEdit::addNewFact($match);
			}
		}
		if (Filter::postBool('SOUR_INDI')) {
			$indi_gedcom = FunctionsEdit::handleUpdates($indi_gedcom);
		} else {
			$indi_gedcom = FunctionsEdit::updateRest($indi_gedcom);
		}

		$fam_gedcom = '';
		if (preg_match_all('/([A-Z0-9_]+)/', $controller->tree()->getPreference('QUICK_REQUIRED_FAMFACTS'), $matches)) {
			foreach ($matches[1] as $match) {
				$fam_gedcom .= FunctionsEdit::addNewFact($match);
			}
		}
		if (Filter::postBool('SOUR_FAM')) {
			$fam_gedcom = FunctionsEdit::handleUpdates($fam_gedcom);
		} else {
			$fam_gedcom = FunctionsEdit::updateRest($fam_gedcom);
		}

		// Create the new spouse
		$spouse = $person->getTree()->createRecord($indi_gedcom);
		// Create a new family
		if ($sex === 'F') {
			$family = $spouse->getTree()->createRecord("0 @NEW@ FAM\n1 WIFE @" . $spouse->getXref() . "@\n1 HUSB @" . $person->getXref() . '@' . $fam_gedcom);
		} else {
			$family = $spouse->getTree()->createRecord("0 @NEW@ FAM\n1 HUSB @" . $spouse->getXref() . "@\n1 WIFE @" . $person->getXref() . '@' . $fam_gedcom);
		}
		// Link the spouses to the family
		$spouse->createFact('1 FAMS @' . $family->getXref() . '@', true);
		$person->createFact('1 FAMS @' . $family->getXref() . '@', true);

		if (Filter::post('goto') === 'new') {
			header('Location: ' . $spouse->getRawUrl());
		} else {
			header('Location: ' . $person->getRawUrl());
		}
		break;

	////////////////////////////////////////////////////////////////////////////////
	// Add a spouse to an existing family
	////////////////////////////////////////////////////////////////////////////////
	case 'add_spouse_to_family':
		$xref   = Filter::get('xref', WT_REGEX_XREF);
		$famtag = Filter::get('famtag', 'HUSB|WIFE');

		$family = Family::getInstance($xref, $controller->tree());
		check_record_access($family);

		if ($famtag === 'WIFE') {
			$controller->setPageTitle(I18N::translate('Add a wife'));
			$sex = 'F';
		} else {
			$controller->setPageTitle(I18N::translate('Add a husband'));
			$sex = 'M';
		}
		$controller->pageHeader();

		print_indi_form('add_spouse_to_family_action', null, $family, null, $famtag, $sex);
		break;

	case 'add_spouse_to_family_action':
		$xref    = Filter::post('xref', WT_REGEX_XREF);
		$glevels = Filter::postArray('glevels', '[0-9]');
		$tag     = Filter::postArray('tag', WT_REGEX_TAG);
		$text    = Filter::postArray('text');
		$islink  = Filter::postArray('islink', '[01]');

		$family = Family::getInstance($xref, $controller->tree());
		check_record_access($family);

		if (!Filter::checkCsrf()) {
			$famtag = Filter::get('famtag', 'HUSB|WIFE');
			header('Location: edit_interface.php?action=add_spouse_to_family&xref=' . $xref . '&famtag=' . $famtag);

			break;
		}

		// Create the new spouse
		FunctionsEdit::splitSource(); // separate SOUR record from the rest

		$gedrec = '0 @REF@ INDI';
		$gedrec .= FunctionsEdit::addNewName();
		$gedrec .= FunctionsEdit::addNewSex();
		if (preg_match_all('/([A-Z0-9_]+)/', $controller->tree()->getPreference('QUICK_REQUIRED_FACTS'), $matches)) {
			foreach ($matches[1] as $match) {
				$gedrec .= FunctionsEdit::addNewFact($match);
			}
		}

		if (Filter::postBool('SOUR_INDI')) {
			$gedrec = FunctionsEdit::handleUpdates($gedrec);
		} else {
			$gedrec = FunctionsEdit::updateRest($gedrec);
		}
		$gedrec .= "\n1 FAMS @" . $family->getXref() . '@';
		$spouse = $family->getTree()->createRecord($gedrec);

		// Update the existing family - add marriage, etc
		if ($family->getFirstFact('HUSB')) {
			$family->createFact('1 WIFE @' . $spouse->getXref() . '@', true);
		} else {
			$family->createFact('1 HUSB @' . $spouse->getXref() . '@', true);
		}
		$famrec = '';
		if (preg_match_all('/([A-Z0-9_]+)/', $controller->tree()->getPreference('QUICK_REQUIRED_FAMFACTS'), $matches)) {
			foreach ($matches[1] as $match) {
				$famrec .= FunctionsEdit::addNewFact($match);
			}
		}
		if (Filter::postBool('SOUR_FAM')) {
			$famrec = FunctionsEdit::handleUpdates($famrec);
		} else {
			$famrec = FunctionsEdit::updateRest($famrec);
		}
		$family->createFact(trim($famrec), true); // trim leading \n

		if (Filter::post('goto') === 'new') {
			header('Location: ' . $spouse->getRawUrl());
		} else {
			header('Location: ' . $family->getRawUrl());
		}
		break;

	////////////////////////////////////////////////////////////////////////////////
	// Link an individual to an existing family, as a child
	////////////////////////////////////////////////////////////////////////////////
	case 'addfamlink':
		$xref = Filter::get('xref', WT_REGEX_XREF);

		$person = Individual::getInstance($xref, $controller->tree());
		check_record_access($person);

		$controller
			->setPageTitle($person->getFullName() . ' - ' . I18N::translate('Link this individual to an existing family as a child'))
			->pageHeader();

		?>
		<h2><?= $controller->getPageTitle() ?></h2>
		<form method="post" name="addchildform">
			<input type="hidden" name="ged" value="<?= $controller->tree()->getNameHtml() ?>">
			<input type="hidden" name="action" value="linkfamaction">
			<input type="hidden" name="xref" value="<?= $person->getXref() ?>">
			<?= Filter::getCsrf() ?>

			<div class="row form-group">
				<label class="col-sm-3 col-form-label" for="famid">
					<?= I18N::translate('Family') ?>
				</label>
				<div class="col-sm-9">
					<?= FunctionsEdit::formControlFamily(null, $attributes = ['id' => 'famid', 'name' => 'famid']) ?>
				</div>
			</div>

			<div class="row form-group">
				<label class="col-sm-3 col-form-label" for="PEDI">
					<?= I18N::translate('Pedigree') ?>
				</label>
				<div class="col-sm-9">
					<?= Bootstrap4::select(GedcomCodePedi::getValues($person), '', ['id' => 'PEDI', 'name' => 'PEDI']) ?>
					<p class="small text-muted">
						<?= I18N::translate('A child may have more than one set of parents. The relationship between the child and the parents can be biological, legal, or based on local culture and tradition. If no pedigree is specified, then a biological relationship will be assumed.') ?>
					</p>
				</div>
			</div>

			<?= keep_chan($person) ?>

			<div class="row form-group">
				<div class="col-sm-9 offset-sm-3">
					<button class="btn btn-primary" type="submit">
						<?= FontAwesome::decorativeIcon('save') ?>
						<?= /* I18N: A button label. */
						I18N::translate('save') ?>
					</button>
					<a class="btn btn-secondary" href="<?= $person->getHtmlUrl() ?>">
						<?= FontAwesome::decorativeIcon('cancel') ?>
						<?= /* I18N: A button label. */
						I18N::translate('cancel') ?>
					</a>
				</div>
			</div>
		</form>
		<?php
		break;

	case 'linkfamaction':
		$xref  = Filter::post('xref', WT_REGEX_XREF);
		$famid = Filter::post('famid', WT_REGEX_XREF);
		$PEDI  = Filter::post('PEDI');

		if (!Filter::checkCsrf()) {
			header('Location: edit_interface.php?action=addfamlink&xref=' . $xref);
			break;
		}

		$person = Individual::getInstance($xref, $controller->tree());
		$family = Family::getInstance($famid, $controller->tree());
		check_record_access($person);
		check_record_access($family);

		// Replace any existing child->family link (we may be changing the PEDI);
		$fact_id = null;
		foreach ($person->getFacts('FAMC') as $fact) {
			if ($family === $fact->getTarget()) {
				$fact_id = $fact->getFactId();
				break;
			}
		}

		$gedcom = GedcomCodePedi::createNewFamcPedi($PEDI, $famid);
		$person->updateFact($fact_id, $gedcom, true);

		// Only set the family->child link if it does not already exist
		$edit_fact = null;
		foreach ($family->getFacts('CHIL') as $fact) {
			if ($person === $fact->getTarget()) {
				$edit_fact = $fact;
				break;
			}
		}
		if (!$edit_fact) {
			$family->createFact('1 CHIL @' . $person->getXref() . '@', true);
		}

		header('Location: ' . $person->getRawUrl());
		break;

	////////////////////////////////////////////////////////////////////////////////
	// Link and individual to an existing individual as a spouse
	////////////////////////////////////////////////////////////////////////////////
	case 'linkspouse':
		$famtag = Filter::get('famtag', 'HUSB|WIFE');
		$xref    = Filter::get('xref', WT_REGEX_XREF);

		$person = Individual::getInstance($xref, $controller->tree());
		check_record_access($person);

		if ($person->getSex() === 'F') {
			$controller->setPageTitle($person->getFullName() . ' - ' . I18N::translate('Add a husband using an existing individual'));
			$label = I18N::translate('Husband');
		} else {
			$controller->setPageTitle($person->getFullName() . ' - ' . I18N::translate('Add a wife using an existing individual'));
			$label = I18N::translate('Wife');
		}

		$controller->pageHeader();
		FunctionsPrint::initializeCalendarPopup();

		?>
		<h2><?= $controller->getPageTitle() ?></h2>

		<form method="post" name="addchildform">
			<input type="hidden" name="ged" value="<?= $controller->tree()->getNameHtml() ?>">
			<input type="hidden" name="action" value="linkspouseaction">
			<input type="hidden" name="xref" value="<?= $person->getXref() ?>">
			<input type="hidden" name="famtag" value="<?= $famtag ?>">
			<?= Filter::getCsrf() ?>
			<table class="facts_table">
				<tr>
					<td class="facts_label">
						<?= $label ?>
					</td>
					<td class="facts_value">
						<input data-autocomplete-type="INDI" id="spouseid" type="text" name="spid" size="8">
					</td>
				</tr>
				<?php FunctionsEdit::addSimpleTag('0 MARR Y') ?>
				<?php FunctionsEdit::addSimpleTag('0 DATE', 'MARR') ?>
				<?php FunctionsEdit::addSimpleTag('0 PLAC', 'MARR') ?>
				<?= keep_chan($person) ?>
			</table>
			<?php FunctionsEdit::printAddLayer('SOUR') ?>
			<?php FunctionsEdit::printAddLayer('OBJE') ?>
			<?php FunctionsEdit::printAddLayer('NOTE') ?>
			<?php FunctionsEdit::printAddLayer('SHARED_NOTE') ?>
			<?php FunctionsEdit::printAddLayer('ASSO') ?>
			<?php FunctionsEdit::printAddLayer('ASSO2') ?>
			<?php FunctionsEdit::printAddLayer('RESN') ?>
			<div class="row form-group">
				<div class="col-sm-9 offset-sm-3">
					<button class="btn btn-primary" type="submit">
						<?= FontAwesome::decorativeIcon('save') ?>
						<?= /* I18N: A button label. */
						I18N::translate('save') ?>
					</button>
					<a class="btn btn-secondary" href="<?= $person->getHtmlUrl() ?>">
						<?= FontAwesome::decorativeIcon('cancel') ?>
						<?= /* I18N: A button label. */
						I18N::translate('cancel') ?>
					</a>
				</div>
			</div>
		</form>
		<?php
		break;

	case 'linkspouseaction':
		$xref    = Filter::post('xref', WT_REGEX_XREF);
		$spid    = Filter::post('spid', WT_REGEX_XREF);
		$famtag  = Filter::post('famtag', 'HUSB|WIFE');
		$glevels = Filter::postArray('glevels', '[0-9]');
		$tag     = Filter::postArray('tag', WT_REGEX_TAG);
		$text    = Filter::postArray('text');
		$islink  = Filter::postArray('islink', '[01]');

		if (!Filter::checkCsrf()) {
			$famtag = Filter::get('famtag', 'HUSB|WIFE');
			header('Location: edit_interface.php?action=linkspouse&xref=' . $xref . '&famtag=' . $famtag);

			break;
		}

		$person = Individual::getInstance($xref, $controller->tree());
		$spouse = Individual::getInstance($spid, $controller->tree());
		check_record_access($person);
		check_record_access($spouse);

		if ($person->getSex() === 'F') {
			$controller->setPageTitle($person->getFullName() . ' - ' . I18N::translate('Add a husband using an existing individual'));
		} else {
			$controller->setPageTitle($person->getFullName() . ' - ' . I18N::translate('Add a wife using an existing individual'));
		}

		if ($person->getSex() === 'M') {
			$gedcom = "0 @new@ FAM\n1 HUSB @" . $person->getXref() . "@\n1 WIFE @" . $spouse->getXref() . '@';
		} else {
			$gedcom = "0 @new@ FAM\n1 HUSB @" . $spouse->getXref() . "@\n1 WIFE @" . $person->getXref() . '@';
		}
		FunctionsEdit::splitSource();
		$gedcom .= FunctionsEdit::addNewFact('MARR');

		if (Filter::postBool('SOUR_FAM') || count($tagSOUR) > 0) {
			// before adding 2 SOUR it needs to add 1 MARR Y first
			if (FunctionsEdit::addNewFact('MARR') === '') {
				$gedcom .= "\n1 MARR Y";
			}
			$gedcom = FunctionsEdit::handleUpdates($gedcom);
		} else {
			// before adding level 2 facts it needs to add 1 MARR Y first
			if (FunctionsEdit::addNewFact('MARR') === '') {
				$gedcom .= "\n1 MARR Y";
			}
			$gedcom = FunctionsEdit::updateRest($gedcom);
		}

		$family = $person->getTree()->createRecord($gedcom);
		$person->createFact('1 FAMS @' . $family->getXref() . '@', true);
		$spouse->createFact('1 FAMS @' . $family->getXref() . '@', true);

		header('Location: ' . $person->getRawUrl());
		break;

	////////////////////////////////////////////////////////////////////////////////
	// Create a new source record
	////////////////////////////////////////////////////////////////////////////////
	case 'addnewsource':
		$controller
			->setPageTitle(I18N::translate('Create a source'))
			->pageHeader();

		?>
		<h2><?= $controller->getPageTitle() ?></h2>
		<form method="post">
			<input type="hidden" name="ged" value="<?= $controller->tree()->getNameHtml() ?>">
			<input type="hidden" name="action" value="addsourceaction">
			<?= Filter::getCsrf() ?>
			<table class="facts_table">
				<tr>
					<td class="descriptionbox wrap width25"><?= I18N::translate('Title') ?></td>
					<td class="optionbox wrap"><input type="text" data-autocomplete-type="SOUR_TITL" name="TITL" id="TITL"
					                                  required> <?= FunctionsPrint::printSpecialCharacterLink('TITL') ?></td>
				</tr>
				<tr>
					<td class="descriptionbox wrap width25"><?= I18N::translate('Abbreviation') ?></td>
					<td class="optionbox wrap"><input type="text" name="ABBR" id="ABBR"
					                                  maxlength="255"> <?= FunctionsPrint::printSpecialCharacterLink('ABBR') ?>
					</td>
				</tr>
				<?php if (strstr($controller->tree()->getPreference('ADVANCED_NAME_FACTS'), '_HEB') !== false) { ?>
					<tr>
						<td class="descriptionbox wrap width25"><?= GedcomTag::getLabel('_HEB') ?></td>
						<td class="optionbox wrap"><input type="text" name="_HEB" id="_HEB" value="" size="60">
							<?= FunctionsPrint::printSpecialCharacterLink('_HEB') ?></td>
					</tr>
				<?php } ?>
				<?php if (strstr($controller->tree()->getPreference('ADVANCED_NAME_FACTS'), 'ROMN') !== false) { ?>
					<tr>
						<td class="descriptionbox wrap width25">
							<?= GedcomTag::getLabel('ROMN') ?></td>
						<td class="optionbox wrap"><input type="text" name="ROMN" id="ROMN" value=""
						                                  size="60"> <?= FunctionsPrint::printSpecialCharacterLink('ROMN') ?></td>
					</tr>
				<?php } ?>
				<tr>
					<td class="descriptionbox wrap width25"><?= I18N::translate('Author') ?></td>
					<td class="optionbox wrap"><input type="text" name="AUTH" id="AUTH" value="" size="40"
					                                  maxlength="255"> <?= FunctionsPrint::printSpecialCharacterLink('AUTH') ?>
					</td>
				</tr>
				<tr>
					<td class="descriptionbox wrap width25"><?= GedcomTag::getLabel('PUBL') ?></td>
					<td class="optionbox wrap"><textarea name="PUBL" id="PUBL" rows="5"
					                                     cols="60"></textarea><br><?= FunctionsPrint::printSpecialCharacterLink('PUBL') ?>
					</td>
				</tr>
				<tr>
					<td class="descriptionbox wrap width25"><?= I18N::translate('Repository') ?></td>
					<td class="optionbox wrap"><input type="text" data-autocomplete-type="REPO" name="REPO" id="REPO" value=""
					                                  size="10"></td>
				</tr>
				<tr>
					<td class="descriptionbox wrap width25"><?= I18N::translate('Call number') ?></td>
					<td class="optionbox wrap"><input type="text" name="CALN" id="CALN" value=""></td>
				</tr>
				<?= keep_chan() ?>
			</table>
			<a href="#" onclick="return expand_layer('events');"><i id="events_img" class="icon-plus"></i>
				<?= I18N::translate('Associate events with this source') ?></a>
			<div id="events" style="display: none;">
				<table class="facts_table">
					<tr>
						<td
							class="descriptionbox wrap width25"><?= I18N::translate('Select events'), FunctionsPrint::helpLink('edit_SOUR_EVEN') ?></td>
						<td class="optionbox wrap"><select name="EVEN[]" multiple="multiple" size="5">
								<?php
								$parts = explode(',', $controller->tree()->getPreference('INDI_FACTS_ADD'));
								foreach ($parts as $key) {
									?>
									<option value="<?= $key ?>"><?= GedcomTag::getLabel($key) ?></option>
									<?php
								}
								$parts = explode(',', $controller->tree()->getPreference('FAM_FACTS_ADD'));
								foreach ($parts as $key) {
									?>
									<option value="<?= $key ?>"><?= GedcomTag::getLabel($key) ?></option>
									<?php
								}
								?>
							</select></td>
					</tr>
					<?php
					FunctionsEdit::addSimpleTag('0 DATE', 'EVEN');
					FunctionsEdit::addSimpleTag('0 PLAC', 'EVEN');
					FunctionsEdit::addSimpleTag('0 AGNC');
					?>
				</table>
			</div>

			<div class="row form-group">
				<div class="col-sm-9 offset-sm-3">
					<button class="btn btn-primary" type="submit">
						<?= FontAwesome::decorativeIcon('save') ?>
						<?= /* I18N: A button label. */
						I18N::translate('save') ?>
					</button>
					<a class="btn btn-secondary" href="sourcelist.php?ged=<?= $controller->tree()->getNameHtml() ?>">
						<?= FontAwesome::decorativeIcon('cancel') ?>
						<?= /* I18N: A button label. */
						I18N::translate('cancel') ?>
					</a>
				</div>
			</div>
		</form>
		<?php
		break;

	case 'addsourceaction':
		if (!Filter::checkCsrf()) {
			header('Location: edit_interface.php?action=addnewsource&ged=' . $controller->tree()->getNameUrl());
			break;
		}

		$newgedrec = '0 @XREF@ SOUR';
		$ABBR      = Filter::post('ABBR');
		if ($ABBR) {
			$newgedrec .= "\n1 ABBR " . $ABBR;
		}
		$TITL = Filter::post('TITL');
		if ($TITL) {
			$newgedrec .= "\n1 TITL " . $TITL;
			$_HEB      = Filter::post('_HEB');
			if ($_HEB) {
				$newgedrec .= "\n2 _HEB " . $_HEB;
			}
			$ROMN = Filter::post('ROMN');
			if ($ROMN) {
				$newgedrec .= "\n2 ROMN " . $ROMN;
			}
		}
		$AUTH = Filter::post('AUTH');
		if ($AUTH) {
			$newgedrec .= "\n1 AUTH " . $AUTH;
		}
		$PUBL = Filter::post('PUBL');
		if ($PUBL) {
			$newgedrec .= "\n1 PUBL " . preg_replace('/\r?\n/', "\n2 CONT ", $PUBL);
		}
		$REPO = Filter::post('REPO', WT_REGEX_XREF);
		if ($REPO) {
			$newgedrec .= "\n1 REPO @" . $REPO . '@';
			$CALN      = Filter::post('CALN');
			if ($CALN) {
				$newgedrec .= "\n2 CALN " . $CALN;
			}
		}
		$EVEN = Filter::postArray('EVEN', WT_REGEX_TAG);
		if ($EVEN) {
			$newgedrec .= "\n1 DATA";
			$newgedrec .= "\n2 EVEN " . implode(',', $EVEN);
			$EVEN_DATE = Filter::post('EVEN_DATE');
			if ($EVEN_DATE) {
				$newgedrec .= "\n3 EVEN_DATE " . $EVEN_DATE;
			}
			$EVEN_PLAC = Filter::post('EVEN_PLAC');
			if ($EVEN_PLAC) {
				$newgedrec .= "\n3 EVEN_PLAC " . $EVEN_PLAC;
			}
			$AGNC = Filter::post('AGNC');
			if ($AGNC) {
				$newgedrec .= "\n2 AGNC " . $AGNC;
			}
		}

		$record = $controller->tree()->createRecord($newgedrec);

		header('Location: ' . $record->getRawUrl());
		break;

	////////////////////////////////////////////////////////////////////////////////
	// Create a new note record
	////////////////////////////////////////////////////////////////////////////////
	case 'addnewnote':
		$controller
			->setPageTitle(I18N::translate('Create a shared note'))
			->pageHeader();

		?>
		<h2><?= $controller->getPageTitle() ?></h2>

		<form method="post">
			<input type="hidden" name="ged" value="<?= $controller->tree()->getNameHtml() ?>">
			<input type="hidden" name="action" value="addnoteaction">
			<input type="hidden" name="noteid" value="newnote">
			<?= Filter::getCsrf() ?>
			<?php
			echo '<table class="facts_table">';
			echo '<tr>';
			echo '<td class="descriptionbox nowrap">';
			echo I18N::translate('Shared note');
			echo '</td>';
			echo '<td class="optionbox wrap"><textarea name="NOTE" id="NOTE" rows="10" required></textarea>';
			echo FunctionsPrint::printSpecialCharacterLink('NOTE');
			echo '</td>';
			echo '</tr>';
			echo keep_chan();
			echo '</table>';
			?>
			<div class="row form-group">
				<div class="col-sm-9 offset-sm-3">
					<button class="btn btn-primary" type="submit">
						<?= FontAwesome::decorativeIcon('save') ?>
						<?= /* I18N: A button label. */
						I18N::translate('save') ?>
					</button>
					<a class="btn btn-secondary" href="index.php?ctype=ged&amp;ged=<?= $controller->tree()->getNameHtml() ?>">
						<?= FontAwesome::decorativeIcon('cancel') ?>
						<?= /* I18N: A button label. */
						I18N::translate('cancel') ?>
					</a>
				</div>
			</div>
		</form>
		<?php
		break;

	case 'addnoteaction':
		if (!Filter::checkCsrf()) {
			header('Location: edit_interface.php?action=addnewnote');
			break;
		}

		$gedrec = '0 @XREF@ NOTE ' . preg_replace("/\r?\n/", "\n1 CONT ", Filter::post('NOTE'));

		$record = $controller->tree()->createRecord($gedrec);
		break;

	////////////////////////////////////////////////////////////////////////////////
	case 'addmedia_links':
		$pid = Filter::get('pid', WT_REGEX_XREF);

		$person = Individual::getInstance($pid, $controller->tree());
		check_record_access($person);

		$controller
			->setPageTitle(I18N::translate('Family navigator') . ' — ' . $person->getFullName())
			->pageHeader();

		?>
		<h2><?= $controller->getPageTitle() ?></h2>

		<form method="post" action="edit_interface.php?xref=<?= $person->getXref() ?>" onsubmit="findindi()">
			<input type="hidden" name="ged" value="<?= $controller->tree()->getNameHtml() ?>">
			<input type="hidden" name="action" value="addmedia_links">
			<input type="hidden" name="noteid" value="newnote">
			<?= Filter::getCsrf() ?>
			<?php require WT_ROOT . WT_MODULES_DIR . 'GEDFact_assistant/MEDIA_ctrl.php' ?>
		</form>
		<?php
		break;

	////////////////////////////////////////////////////////////////////////////////
	// Edit a note record
	////////////////////////////////////////////////////////////////////////////////
	case 'editnote':
		$xref = Filter::get('xref', WT_REGEX_XREF);

		$note = Note::getInstance($xref, $controller->tree());
		check_record_access($note);

		$controller
			->setPageTitle(I18N::translate('Edit the shared note'))
			->pageHeader();

		?>
		<h2><?= $controller->getPageTitle() ?></h2>

		<form method="post">
			<input type="hidden" name="ged" value="<?= $controller->tree()->getNameHtml() ?>">
			<input type="hidden" name="action" value="editnoteaction">
			<input type="hidden" name="xref" value="<?= $xref ?>">
			<?= Filter::getCsrf() ?>
			<table class="facts_table">
				<tr>
					<td class="descriptionbox wrap width25"><?= I18N::translate('Shared note') ?></td>
					<td class="optionbox wrap">
						<textarea name="NOTE" id="NOTE" rows="15" cols="90"><?= Html::escape($note->getNote()) ?></textarea>
						<br>
						<?= FunctionsPrint::printSpecialCharacterLink('NOTE') ?>
					</td>
				</tr>
				<?= keep_chan($note) ?>
			</table>
			<div class="row form-group">
				<div class="col-sm-9 offset-sm-3">
					<button class="btn btn-primary" type="submit">
						<?= FontAwesome::decorativeIcon('save') ?>
						<?= /* I18N: A button label. */
						I18N::translate('save') ?>
					</button>
					<a class="btn btn-secondary" href="<?= $note->getHtmlUrl() ?>">
						<?= FontAwesome::decorativeIcon('cancel') ?>
						<?= /* I18N: A button label. */
						I18N::translate('cancel') ?>
					</a>
				</div>
			</div>
		</form>
		<?php
		break;

	case 'editnoteaction':
		$xref      = Filter::post('xref', WT_REGEX_XREF);
		$keep_chan = Filter::postBool('keep_chan');
		$note      = Filter::post('NOTE');

		if (!Filter::checkCsrf()) {
			header('Location: edit_interface.php?action=editnote&xref=' . $xref);
			break;
		}

		$record = Note::getInstance($xref, $controller->tree());
		check_record_access($record);

		// We have user-supplied data in a replacement string - escape it against backreferences
		$note = str_replace(['\\', '$'], ['\\\\', '\\$'], $note);

		$gedrec = preg_replace(
			'/^0 @' . $record->getXref() . '@ NOTE.*(\n1 CONT.*)*/',
			'0 @' . $record->getXref() . '@ NOTE ' . preg_replace("/\r?\n/", "\n1 CONT ", $note),
			$record->getGedcom()
		);

		$record->updateRecord($gedrec, !$keep_chan);

		header('Location: ' . $record->getRawUrl());
		break;

	////////////////////////////////////////////////////////////////////////////////
	// Create a new repository
	////////////////////////////////////////////////////////////////////////////////
	case 'addnewrepository':
		$controller
			->setPageTitle(I18N::translate('Create a repository'))
			->pageHeader();

		?>
		<h2><?= $controller->getPageTitle() ?></h2>

		<form method="post">
			<input type="hidden" name="ged" value="<?= $controller->tree()->getNameHtml() ?>">
			<input type="hidden" name="action" value="addrepoaction">
			<input type="hidden" name="xref" value="newrepo">
			<?= Filter::getCsrf() ?>
			<table class="facts_table">
				<tr>
					<td class="descriptionbox wrap width25"><?= I18N::translate('Repository name') ?></td>
					<td class="optionbox wrap"><input type="text" name="REPO_NAME" id="REPO_NAME" required
					                                  maxlength="255"> <?= FunctionsPrint::printSpecialCharacterLink('REPO_NAME') ?>
					</td>
				</tr>
				<?php if (strstr($controller->tree()->getPreference('ADVANCED_NAME_FACTS'), '_HEB') !== false) { ?>
					<tr>
						<td class="descriptionbox wrap width25"><?= GedcomTag::getLabel('_HEB') ?></td>
						<td class="optionbox wrap"><input type="text" name="_HEB" id="_HEB" value="" size="40"
						                                  maxlength="255"> <?= FunctionsPrint::printSpecialCharacterLink('_HEB') ?>
						</td>
					</tr>
				<?php } ?>
				<?php if (strstr($controller->tree()->getPreference('ADVANCED_NAME_FACTS'), 'ROMN') !== false) { ?>
					<tr>
						<td class="descriptionbox wrap width25"><?= GedcomTag::getLabel('ROMN') ?></td>
						<td class="optionbox wrap"><input type="text" name="ROMN" id="ROMN" value="" size="40"
						                                  maxlength="255"> <?= FunctionsPrint::printSpecialCharacterLink('ROMN') ?>
						</td>
					</tr>
				<?php } ?>
				<tr>
					<td class="descriptionbox wrap width25"><?= GedcomTag::getLabel('ADDR') ?></td>
					<td class="optionbox wrap"><textarea name="ADDR" id="ADDR" rows="5"
					                                     cols="60"></textarea><?= FunctionsPrint::printSpecialCharacterLink('ADDR') ?>
					</td>
				</tr>
				<tr>
					<td class="descriptionbox wrap width25"><?= GedcomTag::getLabel('PHON') ?></td>
					<td class="optionbox wrap"><input type="text" name="PHON" id="PHON" value="" size="40" maxlength="255"></td>
				</tr>
				<tr>
					<td class="descriptionbox wrap width25"><?= GedcomTag::getLabel('EMAIL') ?></td>
					<td class="optionbox wrap"><input type="text" name="EMAIL" id="EMAIL" value="" size="40" maxlength="255"></td>
				</tr>
				<tr>
					<td class="descriptionbox wrap width25"><?= GedcomTag::getLabel('WWW') ?></td>
					<td class="optionbox wrap"><input type="text" name="WWW" id="WWW" value="" size="40" maxlength="255"></td>
				</tr>
			</table>

			<div class="row form-group">
				<div class="col-sm-9 offset-sm-3">
					<button class="btn btn-primary" type="submit">
						<?= FontAwesome::decorativeIcon('save') ?>
						<?= /* I18N: A button label. */
						I18N::translate('save') ?>
					</button>
					<a class="btn btn-secondary" href="sourcelist.php?ged=<?= $controller->tree()->getNameHtml() ?>">
						<?= FontAwesome::decorativeIcon('cancel') ?>
						<?= /* I18N: A button label. */
						I18N::translate('cancel') ?>
					</a>
				</div>
			</div>
		</form>
		<?php
		break;

	case 'addrepoaction':
		if (!Filter::checkCsrf()) {
			header('Location: edit_interface.php?action=addnewrepository&ged=' . $controller->tree()->getNameUrl());
			break;
		}

		$gedrec    = '0 @XREF@ REPO';
		$REPO_NAME = Filter::post('REPO_NAME');
		if ($REPO_NAME) {
			$gedrec .= "\n1 NAME " . $REPO_NAME;
			$_HEB   = Filter::post('_HEB');
			if ($_HEB) {
				$gedrec .= "\n2 _HEB " . $_HEB;
			}
			$ROMN = Filter::post('ROMN');
			if ($ROMN) {
				$gedrec .= "\n2 ROMN " . $ROMN;
			}
		}
		$ADDR = Filter::post('ADDR');
		if ($ADDR) {
			$gedrec .= "\n1 ADDR " . preg_replace('/\r?\n/', "\n2 CONT ", $ADDR);
		}
		$PHON = Filter::post('PHON');
		if ($PHON) {
			$gedrec .= "\n1 PHON " . $PHON;
		}
		$FAX = Filter::post('FAX');
		if ($FAX) {
			$gedrec .= "\n1 FAX " . $FAX;
		}
		$EMAIL = Filter::post('EMAIL');
		if ($EMAIL) {
			$gedrec .= "\n1 EMAIL " . $EMAIL;
		}
		$WWW = Filter::post('WWW');
		if ($WWW) {
			$gedrec .= "\n1 WWW " . $WWW;
		}

		$record = $controller->tree()->createRecord($gedrec);
		header('Location: ' . $record->getRawUrl());
		break;

	////////////////////////////////////////////////////////////////////////////////
	case 'editname':
		$xref    = Filter::get('xref', WT_REGEX_XREF);
		$fact_id = Filter::get('fact_id');

		$person = Individual::getInstance($xref, $controller->tree());
		check_record_access($person);

		// Find the fact to edit
		$name_fact = null;
		foreach ($person->getFacts() as $fact) {
			if ($fact->getFactId() === $fact_id && $fact->canEdit()) {
				$name_fact = $fact;
			}
		}
		if (!$name_fact) {
			header('Location: ' . $person->getRawUrl());
			break;
		}

		$controller
			->setPageTitle(I18N::translate('Edit the name'))
			->pageHeader();

		print_indi_form('update', $person, null, $name_fact, '', $person->getSex());
		break;

	////////////////////////////////////////////////////////////////////////////////
	case 'addname':
		$xref = Filter::get('xref', WT_REGEX_XREF);

		$individual = Individual::getInstance($xref, $controller->tree());
		check_record_access($individual);

		$controller
			->setPageTitle($individual->getFullName() . ' — ' . I18N::translate('Add a name'))
			->pageHeader();

		print_indi_form('update', $individual, null, null, '', $individual->getSex());
		break;

	////////////////////////////////////////////////////////////////////////////////
	// Change the order of media objects
	////////////////////////////////////////////////////////////////////////////////
	case 'reorder_media':
		$xref = Filter::get('xref', WT_REGEX_XREF);

		$person = Individual::getInstance($xref, $controller->tree());
		check_record_access($person);

		$controller
			->setPageTitle(I18N::translate('Re-order media'))
			->pageHeader()
			->addInlineJavascript('
			$("#reorder_media_list").sortable({forceHelperSize: true, forcePlaceholderSize: true, opacity: 0.7, cursor: "move", axis: "y"});

			//-- update the order numbers after drag-n-drop sorting is complete
			$("#reorder_media_list").bind("sortupdate", function(event, ui) {
					$("#"+$(this).attr("id")+" input").each(
						function (index, value) {
							value.value = index+1;
						}
					);
				});
		');

		// Get the current sort order
		$sort_obje = [];
		foreach ($person->getFacts('_WT_OBJE_SORT') as $fact) {
			$media = $fact->getTarget();
			if ($media && $media->canShow()) {
				$sort_obje[] = $media;
			}
		}

		// Add other media objects from the individual and any spouse-families
		$record_list = [$person];
		foreach ($person->getSpouseFamilies() as $family) {
			$record_list[] = $family;
		}
		foreach ($record_list as $record) {
			if ($record->canShow()) {
				foreach ($record->getFacts() as $fact) {
					if (!$fact->isPendingDeletion()) {
						preg_match_all('/(?:^1|\n\d) OBJE @(' . WT_REGEX_XREF . ')@/', $fact->getGedcom(), $matches);
						foreach ($matches[1] as $match) {
							$media = Media::getInstance($match, $controller->tree());
							if (!in_array($media, $sort_obje)) {
								$sort_obje[] = $media;
							}
						}
					}
				}
			}
		}

		?>
		<h2><?= I18N::translate('Re-order media') ?></h2>

		<form name="reorder_form" method="post">
			<input type="hidden" name="ged" value="<?= $controller->tree()->getNameHtml() ?>">
			<input type="hidden" name="action" value="reorder_media_update">
			<input type="hidden" name="xref" value="<?= $xref ?>">
			<?= Filter::getCsrf() ?>
			<ul id="reorder_media_list">
				<?php foreach ($sort_obje as $n => $obje) { ?>
					<li class="facts_value" style="list-style:none;cursor:move;margin-bottom:2px;"
					    id="li_<?= $obje->getXref() ?>">
						<table class="pic">
							<tr>
								<td>
									<?= $obje->displayImage(40, 50, 'crop', []) ?>
								</td>
								<td>
									<?= $obje->getFullName() ?>
								</td>
							</tr>
						</table>
						<input type="hidden" name="order1[<?= $obje->getXref() ?>]" value="<?= $n ?>">
					</li>
				<?php } ?>
			</ul>
			<div class="row form-group">
				<div class="col-sm-9 offset-sm-3">
					<button class="btn btn-primary" type="submit">
						<?= FontAwesome::decorativeIcon('save') ?>
						<?= /* I18N: A button label. */
						I18N::translate('save') ?>
					</button>
					<a class="btn btn-secondary" href="<?= $person->getHtmlUrl() ?>">
						<?= FontAwesome::decorativeIcon('cancel') ?>
						<?= /* I18N: A button label. */
						I18N::translate('cancel') ?>
					</a>
				</div>
			</div>
		</form>
		<?php
		break;

	case 'reorder_media_update':
		$xref   = Filter::post('xref', WT_REGEX_XREF);
		$order1 = Filter::post('order1');

		if (!Filter::checkCsrf()) {
			header('Location: edit_interface.php?action=reorder_media_&xref=' . $xref);
			break;
		}

		$person = Individual::getInstance($xref, $controller->tree());
		check_record_access($person);

		// Delete any existing _WT_OBJE_SORT records
		$facts = ['0 @' . $person->getXref() . '@ INDI'];
		foreach ($person->getFacts() as $fact) {
			if ($fact->getTag() !== '_WT_OBJE_SORT') {
				$facts[] = $fact->getGedcom();
			}
		}
		if (is_array($order1)) {
			// Add new _WT_OBJE_SORT records
			foreach ($order1 as $xref => $n) {
				$facts[] = '1 _WT_OBJE_SORT @' . $xref . '@';
			}
		}

		$person->updateRecord(implode("\n", $facts), false);

		header('Location: ' . $person->getRawUrl());
		break;

	////////////////////////////////////////////////////////////////////////////////
	// Change the order of children within a family record
	////////////////////////////////////////////////////////////////////////////////
	case 'reorder_children':
		$xref = Filter::post('xref', WT_REGEX_XREF, Filter::get('xref', WT_REGEX_XREF));
		$option  = Filter::post('option');

		$family = Family::getInstance($xref, $controller->tree());
		check_record_access($family);

		$controller
			->addInlineJavascript('$("#reorder_list").sortable({forceHelperSize: true, forcePlaceholderSize: true, opacity: 0.7, cursor: "move", axis: "y"});')
			->addInlineJavascript('$("#reorder_list").bind("sortupdate", function(event, ui) { $("#"+$(this).attr("id")+" input").each( function (index, value) { value.value = index+1; }); });')
			->setPageTitle(I18N::translate('Re-order children'))
			->pageHeader();

		?>
		<h2><?= $controller->getPageTitle() ?></h2>

		<form name="reorder_form" method="post">
			<input type="hidden" name="ged" value="<?= $controller->tree()->getNameHtml() ?>">
			<input type="hidden" name="action" value="reorder_update">
			<input type="hidden" name="xref" value="<?= $xref ?>">
			<input type="hidden" name="option" value="bybirth">
			<?= Filter::getCsrf() ?>
			<ul id="reorder_list">
				<?php
				// reorder children in modified families
				$ids = [];
				foreach ($family->getChildren() as $child) {
					$ids[] = $child->getXref();
				}
				$children = [];
				foreach ($family->getChildren() as $k => $child) {
					$bdate = $child->getEstimatedBirthDate();
					if ($bdate->isOK()) {
						$sortkey = $bdate->julianDay();
					} else {
						$sortkey = 1e8; // birth date missing => sort last
					}
					$children[$child->getXref()] = $sortkey;
				}
				if ($option === 'bybirth') {
					asort($children);
				}
				$i = 0;
				foreach ($children as $id => $child) {
					echo '<li style="cursor:move; margin-bottom:2px; position:relative;"';
					if (!in_array($id, $ids)) {
						echo ' class="facts_value new"';
					}
					echo ' id="li_', $id, '">';
					echo Theme::theme()->individualBoxLarge(Individual::getInstance($id, $controller->tree()));
					echo '<input type="hidden" name="order[', $id, ']" value="', $i, '">';
					echo '</li>';
					$i++;
				}
				?>
			</ul>
			<div class="row form-group">
				<div class="col-sm-9 offset-sm-3">
					<button class="btn btn-primary" type="submit">
						<?= FontAwesome::decorativeIcon('save') ?>
						<?= /* I18N: A button label. */
						I18N::translate('save') ?>
					</button>
					<button class="btn btn-secondary" type="submit"
					        onclick="document.reorder_form.action.value='reorder_children'; document.reorder_form.submit();">
						<?= /* I18N: A button label. */
						I18N::translate('sort by date of birth') ?>
					</button>
					<a class="btn btn-secondary" href="<?= $family->getHtmlUrl() ?>">
						<?= FontAwesome::decorativeIcon('cancel') ?>
						<?= /* I18N: A button label. */
						I18N::translate('cancel') ?>
					</a>
				</div>
			</div>
		</form>
		<?php
		break;

	case 'reorder_update':
		$xref  = Filter::post('xref', WT_REGEX_XREF);
		$order = Filter::post('order');

		if (!Filter::checkCsrf()) {
			header('Location: edit_interface.php?action=reorder_children&xref=' . $xref);
			break;
		}

		$family = Family::getInstance($xref, $controller->tree());
		check_record_access($family);

		if (is_array($order)) {
			$gedcom = ['0 @' . $family->getXref() . '@ FAM'];
			$facts  = $family->getFacts();

			// Move children to the end of the record
			foreach ($order as $child => $num) {
				foreach ($facts as $n => $fact) {
					if ($fact->getValue() === '@' . $child . '@') {
						$facts[] = $fact;
						unset($facts[$n]);
						break;
					}
				}
			}
			foreach ($facts as $fact) {
				$gedcom[] = $fact->getGedcom();
			}

			$family->updateRecord(implode("\n", $gedcom), false);
		}

		header('Location: ' . $family->getRawUrl());
		break;

	////////////////////////////////////////////////////////////////////////////////
	// Change the members of a family record
	////////////////////////////////////////////////////////////////////////////////
	case 'changefamily':
		$xref = Filter::get('xref', WT_REGEX_XREF);

		$family = Family::getInstance($xref, $controller->tree());
		check_record_access($family);

		$controller
			->setPageTitle(I18N::translate('Change family members') . ' – ' . $family->getFullName())
			->pageHeader();

		$father   = $family->getHusband();
		$mother   = $family->getWife();
		$children = $family->getChildren();
		?>
		<h2><?= $controller->getPageTitle() ?></h2>

		<div id="changefam">
			<form name="changefamform" method="post">
				<input type="hidden" name="ged" value="<?= $controller->tree()->getNameHtml() ?>">
				<input type="hidden" name="action" value="changefamily_update">
				<input type="hidden" name="xref" value="<?= $xref ?>">
				<?= Filter::getCsrf() ?>
				<table>
					<tr>
						<?php if ($father) { ?>
							<td class="descriptionbox">
								<b>
									<?php
									switch ($father->getSex()) {
										case 'M':
											echo I18N::translate('husband');
											break;
										case 'F':
											echo I18N::translate('wife');
											break;
										default:
											echo I18N::translate('spouse');
											break;
									}
									?>
								</b>
								<input type="hidden" name="HUSB" value="<?= $father->getXref() ?>">
							</td>
							<td id="HUSBName" class="optionbox"><?= $father->getFullName() ?>
							</td>
						<?php } else { ?>
							<td class="descriptionbox">
								<b><?= I18N::translate('spouse') ?></b>
								<input type="hidden" name="HUSB" value="">
							</td>
							<td id="HUSBName" class="optionbox">
							</td>
						<?php } ?>
						<td class="optionbox">
							<a href="#" id="husbrem" style="display: <?= is_null($father) ? 'none' : 'block' ?>;"
							   onclick="document.changefamform.HUSB.value=''; document.getElementById('HUSBName').innerHTML=''; this.style.display='none'; return false;">
								<?= I18N::translate('Remove') ?>
							</a>
						</td>
						<td class="optionbox">
						</td>
					</tr>
					<tr>
						<?php if ($mother) { ?>
							<td class="descriptionbox">
								<b>
									<?php
									switch ($mother->getSex()) {
										case 'M':
											echo I18N::translate('husband');
											break;
										case 'F':
											echo I18N::translate('wife');
											break;
										default:
											echo I18N::translate('spouse');
											break;
									}
									?>
								</b>
								<input type="hidden" name="WIFE" value="<?= $mother->getXref() ?>">
							</td>
							<td id="WIFEName" class="optionbox">
								<?= $mother->getFullName() ?>
							</td>
						<?php } else { ?>
							<td class="descriptionbox">
								<b><?= I18N::translate('spouse') ?></b>
								<input type="hidden" name="WIFE" value="">
							</td>
							<td id="WIFEName" class="optionbox">
							</td>
						<?php } ?>
						<td class="optionbox">
							<a href="#" id="wiferem" style="display: <?= is_null($mother) ? 'none' : 'block' ?>;"
							   onclick="document.changefamform.WIFE.value=''; document.getElementById('WIFEName').innerHTML=''; this.style.display='none'; return false;">
								<?= I18N::translate('Remove') ?>
							</a>
						</td>
						<td class="optionbox">
						</td>
					</tr>
					<?php $i = 0;
					foreach ($children as $child) { ?>
						<tr>
							<td class="descriptionbox">
								<b>
									<?php
									switch ($child->getSex()) {
										case 'M':
											echo I18N::translate('son');
											break;
										case 'F':
											echo I18N::translate('daughter');
											break;
										default:
											echo I18N::translate('child');
											break;
									}
									?>
								</b>
								<input type="hidden" name="CHIL<?= $i ?>" value="<?= $child->getXref() ?>">
							</td>
							<td id="CHILName<?= $i ?>" class="optionbox"><?= $child->getFullName() ?>
							</td>
							<td class="optionbox">
								<a href="#" id="childrem<?= $i ?>" style="display: block;"
								   onclick="document.changefamform.CHIL<?= $i ?>.value=''; document.getElementById('CHILName<?= $i ?>').innerHTML=''; this.style.display='none'; return false;">
									<?= I18N::translate('Remove') ?>
								</a>
							</td>
							<td class="optionbox">
							</td>
						</tr>
						<?php $i++;
					} ?>
					<tr>
						<td class="descriptionbox">
							<b><?= I18N::translate('child') ?></b>
							<input type="hidden" name="CHIL<?= $i ?>" value="">
						</td>
						<td id="CHILName<?= $i ?>" class="optionbox">
						</td>
						<td colspan="2" class="optionbox child">
							<a href="#" id="childrem<?= $i ?>" style="display: none;"
							   onclick="document.changefamform.CHIL<?= $i ?>.value=''; document.getElementById('CHILName<?= $i ?>').innerHTML=''; this.style.display='none'; return false;">
								<?= I18N::translate('Remove') ?>
							</a>
						</td>
					</tr>
				</table>
				<div class="row form-group">
					<div class="col-sm-9 offset-sm-3">
						<button class="btn btn-primary" type="submit">
							<?= FontAwesome::decorativeIcon('save') ?>
							<?= /* I18N: A button label. */
							I18N::translate('save') ?>
						</button>
						<a class="btn btn-secondary" href="<?= $family->getHtmlUrl() ?>">
							<?= FontAwesome::decorativeIcon('cancel') ?>
							<?= /* I18N: A button label. */
							I18N::translate('cancel') ?>
						</a>
					</div>
				</div>
			</form>
		</div>
		<?php
		break;

	case 'changefamily_update':
		$xref      = Filter::post('xref', WT_REGEX_XREF);
		$HUSB      = Filter::post('HUSB', WT_REGEX_XREF);
		$WIFE      = Filter::post('WIFE', WT_REGEX_XREF);
		$keep_chan = Filter::postBool('keep_chan');

		if (!Filter::checkCsrf()) {
			header('Location: edit_interface.php?action=changefamily&xref=' . $xref);
			break;
		}

		$CHIL = [];
		for ($i = 0; isset($_POST['CHIL' . $i]); ++$i) {
			$CHIL[] = Filter::post('CHIL' . $i, WT_REGEX_XREF);
		}

		$family = Family::getInstance($xref, $controller->tree());
		check_record_access($family);

		// Current family members
		$old_father   = $family->getHusband();
		$old_mother   = $family->getWife();
		$old_children = $family->getChildren();

		// New family members
		$new_father   = Individual::getInstance($HUSB, $controller->tree());
		$new_mother   = Individual::getInstance($WIFE, $controller->tree());
		$new_children = [];
		foreach ($CHIL as $child) {
			$new_children[] = Individual::getInstance($child, $controller->tree());
		}

		if ($old_father !== $new_father) {
			if ($old_father) {
				// Remove old FAMS link
				foreach ($old_father->getFacts('FAMS') as $fact) {
					if ($fact->getTarget() === $family) {
						$old_father->deleteFact($fact->getFactId(), !$keep_chan);
					}
				}
				// Remove old HUSB link
				foreach ($family->getFacts('HUSB|WIFE') as $fact) {
					if ($fact->getTarget() === $old_father) {
						$family->deleteFact($fact->getFactId(), !$keep_chan);
					}
				}
			}
			if ($new_father) {
				// Add new FAMS link
				$new_father->createFact('1 FAMS @' . $family->getXref() . '@', !$keep_chan);
				// Add new HUSB link
				$family->createFact('1 HUSB @' . $new_father->getXref() . '@', !$keep_chan);
			}
		}

		if ($old_mother !== $new_mother) {
			if ($old_mother) {
				// Remove old FAMS link
				foreach ($old_mother->getFacts('FAMS') as $fact) {
					if ($fact->getTarget() === $family) {
						$old_mother->deleteFact($fact->getFactId(), !$keep_chan);
					}
				}
				// Remove old WIFE link
				foreach ($family->getFacts('HUSB|WIFE') as $fact) {
					if ($fact->getTarget() === $old_mother) {
						$family->deleteFact($fact->getFactId(), !$keep_chan);
					}
				}
			}
			if ($new_mother) {
				// Add new FAMS link
				$new_mother->createFact('1 FAMS @' . $family->getXref() . '@', !$keep_chan);
				// Add new WIFE link
				$family->createFact('1 WIFE @' . $new_mother->getXref() . '@', !$keep_chan);
			}
		}

		foreach ($old_children as $old_child) {
			if ($old_child && !in_array($old_child, $new_children)) {
				// Remove old FAMC link
				foreach ($old_child->getFacts('FAMC') as $fact) {
					if ($fact->getTarget() === $family) {
						$old_child->deleteFact($fact->getFactId(), !$keep_chan);
					}
				}
				// Remove old CHIL link
				foreach ($family->getFacts('CHIL') as $fact) {
					if ($fact->getTarget() === $old_child) {
						$family->deleteFact($fact->getFactId(), !$keep_chan);
					}
				}
			}
		}

		foreach ($new_children as $new_child) {
			if ($new_child && !in_array($new_child, $old_children)) {
				// Add new FAMC link
				$new_child->createFact('1 FAMC @' . $family->getXref() . '@', !$keep_chan);
				// Add new CHIL link
				$family->createFact('1 CHIL @' . $new_child->getXref() . '@', !$keep_chan);
			}
		}

		header('Location: ' . $family->getRawUrl());
		break;

	////////////////////////////////////////////////////////////////////////////////
	// Change the order of FAMS records within an INDI record
	////////////////////////////////////////////////////////////////////////////////
	case 'reorder_fams':
		$xref = Filter::post('xref', WT_REGEX_XREF, Filter::get('xref', WT_REGEX_XREF));
		$option  = Filter::post('option');

		$person = Individual::getInstance($xref, $controller->tree());
		check_record_access($person);

		$controller
			->addInlineJavascript('$("#reorder_list").sortable({forceHelperSize: true, forcePlaceholderSize: true, opacity: 0.7, cursor: "move", axis: "y"});')
			//-- update the order numbers after drag-n-drop sorting is complete
			->addInlineJavascript('$("#reorder_list").bind("sortupdate", function(event, ui) { $("#"+$(this).attr("id")+" input").each( function (index, value) { value.value = index+1; }); });')
			->setPageTitle(I18N::translate('Re-order families'))
			->pageHeader();

		$fams = $person->getSpouseFamilies();
		if ($option === 'bymarriage') {
			usort($fams, '\Fisharebest\Webtrees\Family::compareMarrDate');
		}

		?>
		<h2><?= $controller->getPageTitle() ?></h2>

		<form name="reorder_form" method="post">
			<input type="hidden" name="ged" value="<?= $controller->tree()->getNameHtml() ?>">
			<input type="hidden" name="action" value="reorder_fams_update">
			<input type="hidden" name="xref" value="<?= $xref ?>">
			<input type="hidden" name="option" value="bymarriage">
			<?= Filter::getCsrf() ?>
			<ul id="reorder_list">
				<?php foreach ($fams as $n => $family) { ?>
					<li class="facts_value" style="cursor:move;margin-bottom:2px;" id="li_<?= $family->getXref() ?>">
						<div class="name2"><?= $family->getFullName() ?></div>
						<?= $family->formatFirstMajorFact(WT_EVENTS_MARR, 2) ?>
						<input type="hidden" name="order[<?= $family->getXref() ?>]" value="<?= $n ?>">
					</li>
				<?php } ?>
			</ul>
			<div class="row form-group">
				<div class="col-sm-9 offset-sm-3">
					<button class="btn btn-primary" type="submit">
						<?= FontAwesome::decorativeIcon('save') ?>
						<?= /* I18N: A button label. */
						I18N::translate('save') ?>
					</button>
					<button class="btn btn-secondary" type="submit"
					        onclick="document.reorder_form.action.value='reorder_fams'; document.reorder_form.submit();">
						<?= /* I18N: A button label. */
						I18N::translate('sort by date of marriage') ?>
					</button>
					<a class="btn btn-secondary" href="<?= $person->getHtmlUrl() ?>">
						<?= FontAwesome::decorativeIcon('cancel') ?>
						<?= /* I18N: A button label. */
						I18N::translate('cancel') ?>
					</a>
				</div>
			</div>
		</form>
		<?php
		break;

	case 'reorder_fams_update':
		$xref  = Filter::post('xref', WT_REGEX_XREF);
		$order = Filter::post('order');

		if (!Filter::checkCsrf()) {
			header('Location: edit_interface.php?action=reorder_fams&xref=' . $xref);
			break;
		}

		$person = Individual::getInstance($xref, $controller->tree());
		check_record_access($person);

		if (is_array($order)) {
			$gedcom = ['0 @' . $person->getXref() . '@ INDI'];
			$facts  = $person->getFacts();

			// Move families to the end of the record
			foreach ($order as $family => $num) {
				foreach ($facts as $n => $fact) {
					if ($fact->getValue() === '@' . $family . '@') {
						$facts[] = $fact;
						unset($facts[$n]);
						break;
					}
				}
			}
			foreach ($facts as $fact) {
				$gedcom[] = $fact->getGedcom();
			}

			$person->updateRecord(implode("\n", $gedcom), false);
		}

		header('Location: ' . $person->getRawUrl());
		break;
}

/**
 * Show an option to preserve the existing CHAN record when editing.
 *
 * @param GedcomRecord $record
 *
 * @return string
 */
function keep_chan(GedcomRecord $record = null) {
	global $controller;

	if (Auth::isAdmin()) {
		if ($record) {
			$details
				= GedcomTag::getLabelValue('DATE', $record->lastChangeTimestamp()) .
				GedcomTag::getLabelValue('_WT_USER', Html::escape($record->lastChangeUser()));
		} else {
			$details = '';
		}

		return
			'<div class="form-group row"><label class="col-sm-3 col-form-label" for="keep_chan">' .
			I18N::translate('Last change') .
			'</label><div class="col-sm-9">' .
			Bootstrap4::checkbox(I18N::translate('Keep the existing “last change” information'), true, ['name' => 'keep_chan', 'checked' => (bool)$controller->tree()->getPreference('NO_UPDATE_CHAN')]) .
			$details .
			'</div></div>';
	} else {
		return '';
	}
}

/**
 * Print a form to add an individual or edit an individual’s name
 *
 * @param string     $nextaction
 * @param Individual $person
 * @param Family     $family
 * @param Fact       $name_fact
 * @param string     $famtag
 * @param string     $gender
 */
function print_indi_form($nextaction, Individual $person = null, Family $family = null, Fact $name_fact = null, $famtag = 'CHIL', $gender = 'U') {
	global $bdm, $controller;

	if ($person) {
		$xref = $person->getXref();
	} elseif ($family) {
		$xref = $family->getXref();
	} else {
		$xref = 'new';
	}

	// Different cultures do surnames differently
	$surname_tradition = SurnameTradition::create($controller->tree()->getPreference('SURNAME_TRADITION'));

	$name_fields = [];
	if ($name_fact) {
		// Editing an existing name
		$name_fact_id = $name_fact->getFactId();
		$name_type    = $name_fact->getAttribute('TYPE');
		$namerec      = $name_fact->getGedcom();
		foreach (Config::standardNameFacts() as $tag) {
			if ($tag === 'NAME') {
				$name_fields[$tag] = $name_fact->getValue();
			} else {
				$name_fields[$tag] = $name_fact->getAttribute($tag);
			}
		}
		// Populate any missing 2 XXXX fields from the 1 NAME field
		$npfx_accept = implode('|', Config::namePrefixes());
		if (preg_match('/(((' . $npfx_accept . ')\.? +)*)([^\n\/"]*)("(.*)")? *\/(([a-z]{2,3} +)*)(.*)\/ *(.*)/i', $name_fields['NAME'], $name_bits)) {
			if (empty($name_fields['NPFX'])) {
				$name_fields['NPFX'] = $name_bits[1];
			}
			if (empty($name_fields['SPFX']) && empty($name_fields['SURN'])) {
				$name_fields['SPFX'] = trim($name_bits[7]);
				// For names with two surnames, there will be four slashes.
				// Turn them into a list
				$name_fields['SURN'] = preg_replace('~/[^/]*/~', ',', $name_bits[9]);
			}
			if (empty($name_fields['GIVN'])) {
				$name_fields['GIVN'] = $name_bits[4];
			}
			if (empty($name_fields['NICK']) && !empty($name_bits[6]) && !preg_match('/^2 NICK/m', $namerec)) {
				$name_fields['NICK'] = $name_bits[6];
			}
		}

	} else {
		// Creating a new name
		$name_fact_id = null;
		$name_type    = null;
		$namerec      = null;
		// Populate the standard NAME field and subfields
		foreach (Config::standardNameFacts() as $tag) {
			$name_fields[$tag] = '';
		}
		// Inherit surname from parents, spouse or child
		if ($family) {
			$father = $family->getHusband();
			if ($father && $father->getFirstFact('NAME')) {
				$father_name = $father->getFirstFact('NAME')->getValue();
			} else {
				$father_name = '';
			}
			$mother = $family->getWife();
			if ($mother && $mother->getFirstFact('NAME')) {
				$mother_name = $mother->getFirstFact('NAME')->getValue();
			} else {
				$mother_name = '';
			}
		} else {
			$father      = null;
			$mother      = null;
			$father_name = '';
			$mother_name = '';
		}
		if ($person && $person->getFirstFact('NAME')) {
			$indi_name = $person->getFirstFact('NAME')->getValue();
		} else {
			$indi_name = '';
		}

		switch ($nextaction) {
			case 'add_child_to_family_action':
				$name_fields = array_merge($name_fields, $surname_tradition->newChildNames($father_name, $mother_name, $gender));
				break;
			case 'add_child_to_individual_action':
				if ($person->getSex() === 'F') {
					$name_fields = array_merge($name_fields, $surname_tradition->newChildNames('', $indi_name, $gender));
				} else {
					$name_fields = array_merge($name_fields, $surname_tradition->newChildNames($indi_name, '', $gender));
				}
				break;
			case 'add_parent_to_individual_action':
				$name_fields = array_merge($name_fields, $surname_tradition->newParentNames($indi_name, $gender));
				break;
			case 'add_spouse_to_family_action':
				if ($father) {
					$name_fields = array_merge($name_fields, $surname_tradition->newSpouseNames($father_name, $gender));
				} else {
					$name_fields = array_merge($name_fields, $surname_tradition->newSpouseNames($mother_name, $gender));
				}
				break;
			case 'add_spouse_to_individual_action':
				$name_fields = array_merge($name_fields, $surname_tradition->newSpouseNames($indi_name, $gender));
				break;
			case 'add_unlinked_indi_action':
			case 'update':
				if ($surname_tradition->hasSurnames()) {
					$name_fields['NAME'] = '//';
				}
				break;
		}
	}

	$bdm = ''; // used to copy '1 SOUR' to '2 SOUR' for BIRT DEAT MARR

	echo '<h2>', $controller->getPageTitle(), '</h2>';

	FunctionsPrint::initializeCalendarPopup();
	echo '<form method="post" name="addchildform" onsubmit="return checkform();">';
	echo '<input type="hidden" name="ged" value="', $controller->tree()->getNameHtml(), '">';
	echo '<input type="hidden" name="action" value="', $nextaction, '">';
	echo '<input type="hidden" name="fact_id" value="', $name_fact_id, '">';
	echo '<input type="hidden" name="xref" value="', $xref, '">';
	echo '<input type="hidden" name="famtag" value="', $famtag, '">';
	echo '<input type="hidden" name="gender" value="', $gender, '">';
	echo Filter::getCsrf();
	echo '<table class="facts_table">';

	switch ($nextaction) {
		case 'add_child_to_family_action':
		case 'add_child_to_individual_action':
			// When adding a new child, specify the pedigree
			FunctionsEdit::addSimpleTag('0 PEDI');
			break;
		case 'update':
			// When adding/editing a name, specify the type
			FunctionsEdit::addSimpleTag('0 TYPE ' . $name_type, '', '', null, $person);
			break;
	}

	// First - new/existing standard name fields
	foreach ($name_fields as $tag => $value) {
		if (substr_compare($tag, '_', 0, 1) !== 0) {
			FunctionsEdit::addSimpleTag('0 ' . $tag . ' ' . $value);
		}
	}

	// Second - new/existing advanced name fields
	if ($surname_tradition->hasMarriedNames() || preg_match('/\n2 _MARNM /', $namerec)) {
		$adv_name_fields = ['_MARNM' => ''];
	} else {
		$adv_name_fields = [];
	}
	if (preg_match_all('/(' . WT_REGEX_TAG . ')/', $controller->tree()->getPreference('ADVANCED_NAME_FACTS'), $match)) {
		foreach ($match[1] as $tag) {
			$adv_name_fields[$tag] = '';
		}
	}

	foreach (array_keys($adv_name_fields) as $tag) {
		// Edit existing tags, grouped together
		if (preg_match_all('/2 ' . $tag . ' (.+)/', $namerec, $match)) {
			foreach ($match[1] as $value) {
				FunctionsEdit::addSimpleTag('2 ' . $tag . ' ' . $value, '', GedcomTag::getLabel('NAME:' . $tag, $person));
				if ($tag === '_MARNM') {
					preg_match_all('/\/([^\/]*)\//', $value, $matches);
					FunctionsEdit::addSimpleTag('2 _MARNM_SURN ' . implode(',', $matches[1]));
				}
			}
		}
		// Allow a new tag to be entered
		if (!array_key_exists($tag, $name_fields)) {
			FunctionsEdit::addSimpleTag('0 ' . $tag, '', GedcomTag::getLabel('NAME:' . $tag, $person));
			if ($tag === '_MARNM') {
				FunctionsEdit::addSimpleTag('0 _MARNM_SURN');
			}
		}
	}

	// Third - new/existing custom name fields
	foreach ($name_fields as $tag => $value) {
		if (substr_compare($tag, '_', 0, 1) === 0) {
			FunctionsEdit::addSimpleTag('0 ' . $tag . ' ' . $value);
			if ($tag === '_MARNM') {
				preg_match_all('/\/([^\/]*)\//', $value, $matches);
				FunctionsEdit::addSimpleTag('2 _MARNM_SURN ' . implode(',', $matches[1]));
			}
		}
	}

	// Fourth - SOUR, NOTE, _CUSTOM, etc.
	if ($namerec) {
		$gedlines = explode("\n", $namerec); // -- find the number of lines in the record
		$fields   = explode(' ', $gedlines[0]);
		$glevel   = $fields[0];
		$level    = $glevel;
		$type     = $fields[1];
		$tags     = [];
		$i        = 0;
		do {
			if ($type !== 'TYPE' && !array_key_exists($type, $name_fields) && !array_key_exists($type, $adv_name_fields)) {
				$text = '';
				for ($j = 2; $j < count($fields); $j++) {
					if ($j > 2) {
						$text .= ' ';
					}
					$text .= $fields[$j];
				}
				while (($i + 1 < count($gedlines)) && (preg_match('/' . ($level + 1) . ' CONT ?(.*)/', $gedlines[$i + 1], $cmatch) > 0)) {
					$text .= "\n" . $cmatch[1];
					$i++;
				}
				FunctionsEdit::addSimpleTag($level . ' ' . $type . ' ' . $text);
			}
			$tags[] = $type;
			$i++;
			if (isset($gedlines[$i])) {
				$fields = explode(' ', $gedlines[$i]);
				$level  = $fields[0];
				if (isset($fields[1])) {
					$type = $fields[1];
				}
			}
		} while (($level > $glevel) && ($i < count($gedlines)));
	}

	// If we are adding a new individual, add the basic details
	if ($nextaction !== 'update') {
		echo '</table><br><table class="facts_table">';
		// 1 SEX
		if ($famtag === 'HUSB' || $gender === 'M') {
			FunctionsEdit::addSimpleTag('0 SEX M');
		} elseif ($famtag === 'WIFE' || $gender === 'F') {
			FunctionsEdit::addSimpleTag('0 SEX F');
		} else {
			FunctionsEdit::addSimpleTag('0 SEX U');
		}
		$bdm = 'BD';
		if (preg_match_all('/(' . WT_REGEX_TAG . ')/', $controller->tree()->getPreference('QUICK_REQUIRED_FACTS'), $matches)) {
			foreach ($matches[1] as $match) {
				if (!in_array($match, explode('|', WT_EVENTS_DEAT))) {
					FunctionsEdit::addSimpleTags($match);
				}
			}
		}
		//-- if adding a spouse add the option to add a marriage fact to the new family
		if ($nextaction === 'add_spouse_to_individual_action' || $nextaction === 'add_spouse_to_family_action') {
			$bdm .= 'M';
			if (preg_match_all('/(' . WT_REGEX_TAG . ')/', $controller->tree()->getPreference('QUICK_REQUIRED_FAMFACTS'), $matches)) {
				foreach ($matches[1] as $match) {
					FunctionsEdit::addSimpleTags($match);
				}
			}
		}
		if (preg_match_all('/(' . WT_REGEX_TAG . ')/', $controller->tree()->getPreference('QUICK_REQUIRED_FACTS'), $matches)) {
			foreach ($matches[1] as $match) {
				if (in_array($match, explode('|', WT_EVENTS_DEAT))) {
					FunctionsEdit::addSimpleTags($match);
				}
			}
		}
	}

	echo keep_chan($person);
	echo '</table>';
	if ($nextaction === 'update') {
		// GEDCOM 5.5.1 spec says NAME doesn’t get a OBJE
		FunctionsEdit::printAddLayer('SOUR');
		FunctionsEdit::printAddLayer('NOTE');
		FunctionsEdit::printAddLayer('SHARED_NOTE');
		FunctionsEdit::printAddLayer('RESN');
	} else {
		FunctionsEdit::printAddLayer('SOUR', 1);
		FunctionsEdit::printAddLayer('NOTE', 1);
		FunctionsEdit::printAddLayer('SHARED_NOTE', 1);
		FunctionsEdit::printAddLayer('RESN', 1);
	}

	?>
	<div class="row form-group">
		<div class="col-sm-9 offset-sm-3">
			<button class="btn btn-primary" type="submit">
				<?= FontAwesome::decorativeIcon('save') ?>
				<?= /* I18N: A button label. */
				I18N::translate('save') ?>
			</button>
			<?php if (preg_match('/^add_(child|spouse|parent|unlinked_indi)/', $nextaction)): ?>

				<button class="btn btn-primary" type="submit" name="goto" value="<?= $xref ?>">
					<?= /* I18N: A button label. */
					I18N::translate('go to new individual') ?>
				</button>
			<?php endif; ?>
			<a class="btn btn-secondary" href="<?= $person->getHtmlUrl() ?>">
				<?= FontAwesome::decorativeIcon('cancel') ?>
				<?= /* I18N: A button label. */
				I18N::translate('cancel') ?>
			</a>
			<?php if ($name_fact !== null && (Auth::isAdmin() || $controller->tree()->getPreference('SHOW_GEDCOM_RECORD'))): ?>
				<a class="btn btn-link"
				   href="edit_interface.php?action=editrawfact&amp;xref=<?= $xref ?>&amp;fact_id=<?= $name_fact->getFactId() ?>&amp;ged=<?= $controller->tree()->getNameUrl() ?>">
					<?= I18N::translate('Edit the raw GEDCOM') ?>
				</a>
			<?php endif; ?>
		</div>
	</div>
	</form>

	<?php
	$controller->addInlineJavascript('
	SURNAME_TRADITION="' . $controller->tree()->getPreference('SURNAME_TRADITION') . '";
	gender="' . $gender . '";
	famtag="' . $famtag . '";
	function trim(str) {
		str=str.replace(/\s\s+/g, " ");
		return str.replace(/(^\s+)|(\s+$)/g, "");
	}

	function lang_class(str) {
		if (str.match(/[\u0370-\u03FF]/)) return "greek";
		if (str.match(/[\u0400-\u04FF]/)) return "cyrillic";
		if (str.match(/[\u0590-\u05FF]/)) return "hebrew";
		if (str.match(/[\u0600-\u06FF]/)) return "arabic";
		return "latin"; // No matched text implies latin :-)
	}

	// Generate a full name from the name components
	function generate_name() {
		var npfx = $("#NPFX").val();
		var givn = $("#GIVN").val();
		var spfx = $("#SPFX").val();
		var surn = $("#SURN").val();
		var nsfx = $("#NSFX").val();
		if (SURNAME_TRADITION === "polish" && (gender === "F" || famtag === "WIFE")) {
			surn = surn.replace(/ski$/, "ska");
			surn = surn.replace(/cki$/, "cka");
			surn = surn.replace(/dzki$/, "dzka");
			surn = surn.replace(/żki$/, "żka");
		}
		// Commas are used in the GIVN and SURN field to separate lists of surnames.
		// For example, to differentiate the two Spanish surnames from an English
		// double-barred name.
		// Commas *may* be used in other fields, and will form part of the NAME.
		if (WT_LOCALE === "vi" || WT_LOCALE === "hu") {
			// Default format: /SURN/ GIVN
			return trim(npfx+" /"+trim(spfx+" "+surn).replace(/ *, */g, " ")+"/ "+givn.replace(/ *, */g, " ")+" "+nsfx);
		} else if (WT_LOCALE === "zh-Hans" || WT_LOCALE === "zh-Hant") {
			// Default format: /SURN/GIVN
			return npfx+"/"+spfx+surn+"/"+givn+nsfx;
		} else {
			// Default format: GIVN /SURN/
			return trim(npfx+" "+givn.replace(/ *, */g, " ")+" /"+trim(spfx+" "+surn).replace(/ *, */g, " ")+"/ "+nsfx);
		}
	}

	// Update the NAME and _MARNM fields from the name components
	// and also display the value in read-only "gedcom" format.
	function updatewholename() {
		// Don’t update the name if the user manually changed it
		if (manualChange) {
			return;
		}
		var npfx = $("#NPFX").val();
		var givn = $("#GIVN").val();
		var spfx = $("#SPFX").val();
		var surn = $("#SURN").val();
		var nsfx = $("#NSFX").val();
		var name = generate_name();
		$("#NAME").val(name);
		$("#NAME_display").text(name);
		// Married names inherit some NSFX values, but not these
		nsfx = nsfx.replace(/^(I|II|III|IV|V|VI|Junior|Jr\.?|Senior|Sr\.?)$/i, "");
		// Update _MARNM field from _MARNM_SURN field and display it
		// Be careful of mixing latin/hebrew/etc. character sets.
		var ip = document.getElementsByTagName("input");
		var marnm_id = "";
		var romn = "";
		var heb = "";
		for (var i = 0; i < ip.length; i++) {
			var val = trim(ip[i].value);
			if (ip[i].id.indexOf("_HEB") === 0)
				heb = val;
			if (ip[i].id.indexOf("ROMN") === 0)
				romn = val;
			if (ip[i].id.indexOf("_MARNM") === 0) {
				if (ip[i].id.indexOf("_MARNM_SURN") === 0) {
					var msurn = "";
					if (val !== "") {
						var lc = lang_class(document.getElementById(ip[i].id).value);
						if (lang_class(name) === lc)
							msurn = trim(npfx + " " + givn + " /" + val + "/ " + nsfx);
						else if (lc === "hebrew")
							msurn = heb.replace(/\/.*\//, "/" + val + "/");
						else if (lang_class(romn) === lc)
							msurn = romn.replace(/\/.*\//, "/" + val + "/");
					}
					document.getElementById(marnm_id).value = msurn;
					document.getElementById(marnm_id+"_display").innerHTML = msurn;
				} else {
					marnm_id = ip[i].id;
				}
			}
		}
	}

	// Toggle the name editor fields between
	// <input type="hidden"> <span style="display:inline">
	// <input type="text">   <span style="display:none">
	var oldName = "";

	// Calls to generate_name() trigger an update - hence need to
	// set the manual change to true first. We are probably
	// listening to the wrong events on the input fields...
	var manualChange = true;
	manualChange = generate_name() !== $("#NAME").val();

	function convertHidden(eid) {
		var input1 = $("#" + eid);
		var input2 = $("#" + eid + "_display");
		// Note that IE does not allow us to change the type of an input, so we must create a new one.
		if (input1.attr("type")=="hidden") {
			input1.replaceWith(input1.clone().attr("type", "text"));
			input2.hide();
		} else {
			input1.replaceWith(input1.clone().attr("type", "hidden"));
			input2.show();
		}
	}

	/**
	 * if the user manually changed the NAME field, then update the textual
	 * HTML representation of it
	 * If the value changed set manualChange to true so that changing
	 * the other fields doesn’t change the NAME line
	 */
	function updateTextName(eid) {
		var element = document.getElementById(eid);
		if (element) {
			if (element.value!=oldName) manualChange = true;
			var delement = document.getElementById(eid+"_display");
			if (delement) {
				delement.innerHTML = element.value;
			}
		}
	}

	function checkform() {
		var ip=document.getElementsByTagName("input");
		for (var i=0; i<ip.length; i++) {
			// ADD slashes to _HEB and _AKA names
			if (ip[i].id.indexOf("_AKA")==0 || ip[i].id.indexOf("_HEB")==0 || ip[i].id.indexOf("ROMN")==0)
				if (ip[i].value.indexOf("/")<0 && ip[i].value!="")
					ip[i].value=ip[i].value.replace(/([^\s]+)\s*$/, "/$1/");
			// Blank out temporary _MARNM_SURN
			if (ip[i].id.indexOf("_MARNM_SURN")==0)
					ip[i].value="";
			// Convert "xxx yyy" and "xxx y yyy" surnames to "xxx,yyy"
			if ((SURNAME_TRADITION=="spanish" || "SURNAME_TRADITION"=="portuguese") && ip[i].id.indexOf("SURN")==0) {
				ip[i].value=document.forms[0].SURN.value.replace(/^\s*([^\s,]{2,})\s+([iIyY] +)?([^\s,]{2,})\s*$/, "$1,$3");
			}
		}
		return true;
	}

	// If the name isn’t initially formed from the components in a standard way,
	// then don’t automatically update it.
	if (document.getElementById("NAME").value!=generate_name() && document.getElementById("NAME").value!="//") {
		convertHidden("NAME");
	}
	');
}

/**
 * Can we edit a GedcomRecord object
 *
 * @param GedcomRecord $record
 */
function check_record_access(GedcomRecord $record = null) {
	if (!$record || !$record->canShow() || !$record->canEdit()) {
		header('Location: ' . $record->getRawUrl());

		exit;
	}
}
