fisharebest / webtrees

		$tags = ['NPFX', 'GIVN', 'SPFX', 'SURN', 'NSFX'];

		if (preg_match_all('/(' . WT_REGEX_TAG . ')/', $WT_TREE->getPreference('ADVANCED_NAME_FACTS'), $match)) {

			$tags = array_merge($tags, $match[1]);

		}

		// Paternal and Polish and Lithuanian surname traditions can also create a _MARNM

		$SURNAME_TRADITION = $WT_TREE->getPreference('SURNAME_TRADITION');

		if (in_array($level1type, Config::dateAndTime())) {

			$expected_subtags['DATE'] = ['TIME']; // TIME is NOT a valid 5.5.1 tag

		}

		if (preg_match_all('/(' . WT_REGEX_TAG . ')/', $record->getTree()->getPreference('ADVANCED_PLAC_FACTS'), $match)) {

			$expected_subtags['PLAC'] = array_merge($match[1], $expected_subtags['PLAC']);

		}

		$stack = [];

		// Loop on existing tags :

		//-- 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) {

					echo FunctionsEdit::addSimpleTags($match);

				}

			}

		}

		if (preg_match_all('/(' . WT_REGEX_TAG . ')/', $controller->tree()->getPreference('QUICK_REQUIRED_FACTS'), $matches)) {

			foreach ($matches[1] as $match) {