$person = Individual::getInstance($xref, $WT_TREE);
$spouse = Individual::getInstance($spid, $WT_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'));
}
$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);
