.
*/
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\GedcomCodeName;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':
//////////////////////////////////////////////////////////////////////////////
// Edit a GEDCOM record
//////////////////////////////////////////////////////////////////////////////
$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"});');
?>
getPageTitle() ?>
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':
//////////////////////////////////////////////////////////////////////////////
// Edit a GEDCOM fact
//////////////////////////////////////////////////////////////////////////////
$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;
?>
getPageTitle() ?>
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':
//////////////////////////////////////////////////////////////////////////////
// Edit a fact
//////////////////////////////////////////////////////////////////////////////
$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 '', $controller->getPageTitle(), ' ';
FunctionsPrint::initializeCalendarPopup();
echo '
$controller->tree()]);
echo View::make('modals/create-media', ['tree' => $controller->tree()]);
echo View::make('modals/create-note', ['tree' => $controller->tree()]);
echo View::make('modals/create-repository', ['tree' => $controller->tree()]);
echo View::make('modals/create-source', ['tree' => $controller->tree()]);
echo View::make('modals/create-submitter', ['tree' => $controller->tree()]);
echo View::make('modals/on-screen-keyboard');
break;
case 'add':
//////////////////////////////////////////////////////////////////////////////
// Add a new fact
//////////////////////////////////////////////////////////////////////////////
$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 '', $controller->getPageTitle(), ' ';
FunctionsPrint::initializeCalendarPopup();
echo '
$controller->tree()]);
echo View::make('modals/create-media', ['tree' => $controller->tree()]);
echo View::make('modals/create-note', ['tree' => $controller->tree()]);
echo View::make('modals/create-repository', ['tree' => $controller->tree()]);
echo View::make('modals/create-source', ['tree' => $controller->tree()]);
echo View::make('modals/create-submitter', ['tree' => $controller->tree()]);
echo View::make('modals/on-screen-keyboard');
break;
case 'update':
//////////////////////////////////////////////////////////////////////////////
// Save a new/updated 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) {
// Ignore advanced facts that duplicate standard facts.
if (!in_array($name_fact, ['TYPE', 'NPFX', 'GIVN', 'NICK', 'SPFX', 'SURN', 'NSFX']) && !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;
case 'media-edit':
//////////////////////////////////////////////////////////////////////////////
// Edit a media object
//////////////////////////////////////////////////////////////////////////////
$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;
}
}
?>
getPageTitle() ?>
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.') .
'getPageTitle() ?>
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;
case 'linkspouse':
//////////////////////////////////////////////////////////////////////////////
// Link and individual to an existing individual as a spouse
//////////////////////////////////////////////////////////////////////////////
$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();
?>
getPageTitle() ?>
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;
case 'addnewsource':
//////////////////////////////////////////////////////////////////////////////
// Create a new source record
//////////////////////////////////////////////////////////////////////////////
$controller
->setPageTitle(I18N::translate('Create a source'))
->pageHeader();
?>
getPageTitle() ?>
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;
case 'addnewnote':
//////////////////////////////////////////////////////////////////////////////
// Create a new note record
//////////////////////////////////////////////////////////////////////////////
$controller
->setPageTitle(I18N::translate('Create a shared note'))
->pageHeader();
?>
getPageTitle() ?>
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();
?>
getPageTitle() ?>
tree());
check_record_access($note);
$controller
->setPageTitle(I18N::translate('Edit the shared note'))
->pageHeader();
?>
getPageTitle() ?>
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;
case 'addnewrepository':
//////////////////////////////////////////////////////////////////////////////
// Create a new repository
//////////////////////////////////////////////////////////////////////////////
$controller
->setPageTitle(I18N::translate('Create a repository'))
->pageHeader();
?>
getPageTitle() ?>
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 'add-media-link':
//////////////////////////////////////////////////////////////////////////////
// Link a media object to a record.
//////////////////////////////////////////////////////////////////////////////
$xref = Filter::get('xref', WT_REGEX_XREF);
$record = GedcomRecord::getInstance($xref, $controller->tree());
check_record_access($record);
$controller
->setPageTitle($record->getFullName() . ' — ' . I18N::translate('Add a media object'))
->pageHeader();
?>
getPageTitle() ?>
$controller->tree()]) ?>
tree()->getNameUrl());
break;
}
$xref = Filter::post('xref', WT_REGEX_XREF);
$media_xref = Filter::post('media-xref', WT_REGEX_XREF);
$record = GedcomRecord::getInstance($xref, $controller->tree());
check_record_access($record);
$gedcom = '1 OBJE @' . $media_xref . '@';
$record->createFact($gedcom, true);
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;
case 'changefamily':
//////////////////////////////////////////////////////////////////////////////
// Change the members of a family record
//////////////////////////////////////////////////////////////////////////////
$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();
?>
getPageTitle() ?>
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;
case 'reorder-media':
//////////////////////////////////////////////////////////////////////////////
// Change the order of media objects within an individual record
//////////////////////////////////////////////////////////////////////////////
$xref = Filter::get('xref', WT_REGEX_XREF);
$individual = Individual::getInstance($xref, $controller->tree());
check_record_access($individual);
$controller
->addExternalJavascript(WT_SORTABLE_JS_URL)
->addInlineJavascript('new Sortable(document.querySelector(".wt-sortable-list"), {});')
->setPageTitle($individual->getFullName() . ' — ' . I18N::translate('Re-order media'))
->pageHeader();
?>
getPageTitle() ?>
tree());
check_record_access($individual);
$dummy_facts = ['0 @' . $individual->getXref() . '@ INDI'];
$sort_facts = [];
$keep_facts = [];
// Split facts into CHIL and other
foreach ($individual->getFacts() as $fact) {
if ($fact->getTag() === 'OBJE') {
$sort_facts[$fact->getFactId()] = $fact->getGedcom();
} else {
$keep_facts[] = $fact->getGedcom();
}
}
// Sort the facts
$order = (array) $order;
uksort($sort_facts, function ($x, $y) use ($order) {
return array_search($x, $order) - array_search($y, $order);
});
// Merge the facts
$gedcom = implode("\n", array_merge($dummy_facts, $sort_facts, $keep_facts));
$individual->updateRecord($gedcom, false);
header('Location: ' . $individual->getRawUrl());
break;
case 'reorder-names':
//////////////////////////////////////////////////////////////////////////////
// Change the order of name records within an individual record
//////////////////////////////////////////////////////////////////////////////
$xref = Filter::get('xref', WT_REGEX_XREF);
$individual = Individual::getInstance($xref, $controller->tree());
check_record_access($individual);
$controller
->addExternalJavascript(WT_SORTABLE_JS_URL)
->addInlineJavascript('new Sortable(document.querySelector(".wt-sortable-list"), {});')
->setPageTitle($individual->getFullName() . ' — ' . I18N::translate('Re-order names'))
->pageHeader();
?>
getPageTitle() ?>
tree());
check_record_access($individual);
$dummy_facts = ['0 @' . $individual->getXref() . '@ INDI'];
$sort_facts = [];
$keep_facts = [];
// Split facts into NAME/TITL and other
foreach ($individual->getFacts() as $fact) {
if ($fact->getTag() === 'NAME' || $fact->getTag() === 'TITL') {
$sort_facts[$fact->getFactId()] = $fact->getGedcom();
} else {
$keep_facts[] = $fact->getGedcom();
}
}
// Sort the facts
$order = (array) $order;
uksort($sort_facts, function ($x, $y) use ($order) {
return array_search($x, $order) - array_search($y, $order);
});
// Merge the facts
$gedcom = implode("\n", array_merge($dummy_facts, $sort_facts, $keep_facts));
$individual->updateRecord($gedcom, false);
header('Location: ' . $individual->getRawUrl());
break;
case 'reorder-children':
//////////////////////////////////////////////////////////////////////////////
// Change the order of children within a family record
//////////////////////////////////////////////////////////////////////////////
$xref = Filter::get('xref', WT_REGEX_XREF);
$family = Family::getInstance($xref, $controller->tree());
check_record_access($family);
$controller
->addExternalJavascript(WT_SORTABLE_JS_URL)
->addInlineJavascript('new Sortable(document.querySelector(".wt-sortable-list"), {});')
->addInlineJavascript('$("#btn-default-order").on("click", function() { $(".wt-sortable-list li").sort(function(x, y) { return Math.sign(x.dataset.sortbydate - y.dataset.sortbydate); }).appendTo(".wt-sortable-list"); });')
->setPageTitle($family->getFullName() . ' — ' . I18N::translate('Re-order children'))
->pageHeader();
?>
getPageTitle() ?>
tree());
check_record_access($family);
$dummy_facts = ['0 @' . $family->getXref() . '@ FAM'];
$sort_facts = [];
$keep_facts = [];
// Split facts into CHIL and other
foreach ($family->getFacts() as $fact) {
if ($fact->getTag() === 'CHIL') {
$sort_facts[$fact->getFactId()] = $fact->getGedcom();
} else {
$keep_facts[] = $fact->getGedcom();
}
}
// Sort the facts
$order = (array) $order;
uksort($sort_facts, function ($x, $y) use ($order) {
return array_search($x, $order) - array_search($y, $order);
});
// Merge the facts
$gedcom = implode("\n", array_merge($dummy_facts, $sort_facts, $keep_facts));
$family->updateRecord($gedcom, false);
header('Location: ' . $family->getRawUrl());
break;
case 'reorder-spouses':
//////////////////////////////////////////////////////////////////////////////
// Change the order of FAMS records within an INDI record
//////////////////////////////////////////////////////////////////////////////
$xref = Filter::get('xref', WT_REGEX_XREF);
$person = Individual::getInstance($xref, $controller->tree());
check_record_access($person);
$controller
->addExternalJavascript(WT_SORTABLE_JS_URL)
->addInlineJavascript('new Sortable(document.querySelector(".wt-sortable-list"), {});')
->addInlineJavascript('$("#btn-default-order").on("click", function() { $(".wt-sortable-list li").sort(function(x, y) { return Math.sign(x.dataset.sortbydate - y.dataset.sortbydate); }).appendTo(".wt-sortable-list"); });')
->setPageTitle($person->getFullName() . ' — ' . I18N::translate('Re-order families'))
->pageHeader();
?>
getPageTitle() ?>
tree());
check_record_access($individual);
$dummy_facts = ['0 @' . $individual->getXref() . '@ INDI'];
$sort_facts = [];
$keep_facts = [];
// Split facts into FAMS and other
foreach ($individual->getFacts() as $fact) {
if ($fact->getTag() === 'FAMS') {
$sort_facts[$fact->getFactId()] = $fact->getGedcom();
} else {
$keep_facts[] = $fact->getGedcom();
}
}
// Sort the facts
$order = (array) $order;
uksort($sort_facts, function ($x, $y) use ($order) {
return array_search($x, $order) - array_search($y, $order);
});
// Merge the facts
$gedcom = implode("\n", array_merge($dummy_facts, $sort_facts, $keep_facts));
$individual->updateRecord($gedcom, false);
header('Location: ' . $individual->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
'';
} 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'));
if ($name_fact !== null) {
// Editing an existing name
$name_fact_id = $name_fact->getFactId();
$namerec = $name_fact->getGedcom();
$name_fields = [
'NAME' => $name_fact->getValue(),
'TYPE' => $name_fact->getAttribute('TYPE'),
'NPFX' => $name_fact->getAttribute('NPFX'),
'GIVN' => $name_fact->getAttribute('GIVN'),
'NICK' => $name_fact->getAttribute('NICK'),
'SPFX' => $name_fact->getAttribute('SPFX'),
'SURN' => $name_fact->getAttribute('SURN'),
'NSFX' => $name_fact->getAttribute('NSFX'),
];
// Populate any missing subfields from the NAME field
$npfx_accept = implode('|', Config::namePrefixes());
if (preg_match('/(((' . $npfx_accept . ')\.? +)*)([^\n\/"]*)("(.*)")? *\/(([a-z]{2,3} +)*)(.*)\/ *(.*)/i', $name_fields['NAME'], $name_bits)) {
$name_fields['NPFX'] = $name_fields['NPFX'] ?: $name_bits[1];
$name_fields['GIVN'] = $name_fields['GIVN'] ?: $name_bits[4];
$name_fields['NICK'] = $name_fields['NICK'] ?: $name_bits[6];
$name_fields['SPFX'] = $name_fields['SPFX'] ?: trim($name_bits[7]);
$name_fields['SURN'] = $name_fields['SURN'] ?: preg_replace('~/[^/]*/~', ',', $name_bits[9]);
$name_fields['NSFX'] = $name_fields['NSFX'] ?: $name_bits[10];
}
} else {
// Creating a new name
$name_fact_id = null;
$namerec = null;
$name_fields = [
'NAME' => '',
'TYPE' => '',
'NPFX' => '',
'GIVN' => '',
'NICK' => '',
'SPFX' => '',
'SURN' => '',
'NSFX' => '',
];
// 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 '', $controller->getPageTitle(), ' ';
FunctionsPrint::initializeCalendarPopup();
echo '
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
//
//
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; icanShow() || !$record->canEdit()) {
header('Location: ' . $record->getRawUrl());
exit;
}
}