fisharebest / webtrees

				$y = $match[1];

			}

			// Look for a month anywhere in the date

			if (preg_match('/(JAN|FEB|MAR|APR|MAY|JUN|JUL|AUG|SEP|OCT|NOV|DEC|TSH|CSH|KSL|TVT|SHV|ADR|ADS|NSN|IYR|SVN|TMZ|AAV|ELL|VEND|BRUM|FRIM|NIVO|PLUV|VENT|GERM|FLOR|PRAI|MESS|THER|FRUC|COMP|MUHAR|SAFAR|RABI[AT]|JUMA[AT]|RAJAB|SHAAB|RAMAD|SHAWW|DHUAQ|DHUAH|FARVA|ORDIB|KHORD|TIR|MORDA|SHAHR|MEHR|ABAN|AZAR|DEY|BAHMA|ESFAN)/', $date, $match)) {

				$m = $match[1];

				// Look for a day number anywhere in the date

				if (preg_match('/\b(\d\d?)\b/', $date, $match)) {

					$d = $match[1];

				}

			}

		}

		// Unambiguous dates - override calendar escape

	public static function updateRecord($gedrec, $ged_id, $delete) {

		if (preg_match('/^0 @(' . WT_REGEX_XREF . ')@ (' . WT_REGEX_TAG . ')/', $gedrec, $match)) {

			list(, $gid, $type) = $match;

		} elseif (preg_match('/^0 (HEAD)(?:\n|$)/', $gedrec, $match)) {

			// The HEAD record has no XREF.  Any others?

			$gid  = $match[1];

			$type = $match[1];

		} else {

			echo 'ERROR: Invalid gedcom record.';

			return;

						$tag  = trim($match[1]);

						$expr = trim($match[2]);

						$val  = trim($match[3]);

						if (preg_match("/\\$(\w+)/", $val, $match)) {

							$val = $this->vars[$match[1]]['id'];

							$val = trim($val);

						}

						if ($val) {

							$searchstr = '';

							$tags      = explode(':', $tag);

		if (isset($attrs['id'])) {

			$id = $attrs['id'];

		}

		if (preg_match("/\\$(\w+)/", $id, $match)) {

			$id = $this->vars[$match[1]]['id'];

			$id = trim($id);

		}

		$this->list = [];

		$person     = Individual::getInstance($id, $WT_TREE);