$controller->setPageTitle($person->getFullName() . ' - ' . I18N::translate('Add a wife using an existing individual'));
}
$controller->pageHeader();
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);
$controller->addInlineJavascript('closePopupAndReloadParent();');
break;
////////////////////////////////////////////////////////////////////////////////
// Create a new source record
////////////////////////////////////////////////////////////////////////////////
$messages = true;
}
if (!file_exists($newServerThumb)) {
FlashMessages::addMessage(I18N::translate('The thumbnail file %s does not exist.', Html::filename($newFilename)));
$messages = true;
}
}
}
// Insert the 1 FILE xxx record into the arrays used by function FunctionsEdit::handle_updatesges()
$glevels = array_merge(array('1'), $glevels);
$tag = array_merge(array('FILE'), $tag);
$islink = array_merge(array(0), $islink);
$text = array_merge(array($newFilename), $text);
$record = GedcomRecord::getInstance($pid, $WT_TREE);
$newrec = "0 @{$pid}@ OBJE\n";
$newrec = FunctionsEdit::handleUpdates($newrec);
$record->updateRecord($newrec, $update_CHAN);
if ($move_file) {
// We've moved a file. Therefore we must approve the change, as rejecting
// the change will create broken references.
FunctionsImport::acceptAllChanges($record->getXref(), $record->getTree()->getTreeId());
}
if ($pid && $linktoid) {
$record = GedcomRecord::getInstance($linktoid, $WT_TREE);
$record->createFact('1 OBJE @' . $pid . '@', true);
Log::addEditLog('Media ID ' . $pid . " successfully added to {$linktoid}.");
}
$controller->pageHeader();
if ($messages) {
echo '<button onclick="closePopupAndReloadParent();">', I18N::translate('close'), '</button>';
} else {
