$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);