fisharebest / webtrees

app/Census/CensusColumnSurnameGivenNames.php

Indentation +14 added lines, -14 removed lines

@@ -21,19 +21,19 @@
  * The individual's full name.
  */
 class CensusColumnSurnameGivenNames extends AbstractCensusColumn implements CensusColumnInterface {
-	/**
-	 * Generate the likely value of this census column, based on available information.
-	 *
-	 * @param Individual      $individual
-	 * @param Individual|null $head
-	 *
-	 * @return string
-	 */
-	public function generate(Individual $individual, Individual $head = null) {
-		foreach ($individual->getAllNames() as $name) {
-			return $name['surname'] . ', ' . $name['givn'];
-		}
+    /**
+     * Generate the likely value of this census column, based on available information.
+     *
+     * @param Individual      $individual
+     * @param Individual|null $head
+     *
+     * @return string
+     */
+    public function generate(Individual $individual, Individual $head = null) {
+        foreach ($individual->getAllNames() as $name) {
+            return $name['surname'] . ', ' . $name['givn'];
+        }
 
-		return '';
-	}
+        return '';
+    }
 }

app/Census/CensusOfWales1841.php

Indentation +23 added lines, -23 removed lines

@@ -19,28 +19,28 @@
  * Definitions for a census
  */
 class CensusOfWales1841 extends CensusOfWales implements CensusInterface {
-	/**
-	 * When did this census occur.
-	 *
-	 * @return string
-	 */
-	public function censusDate() {
-		return '06 JUN 1841';
-	}
+    /**
+     * When did this census occur.
+     *
+     * @return string
+     */
+    public function censusDate() {
+        return '06 JUN 1841';
+    }
 
-	/**
-	 * The columns of the census.
-	 *
-	 * @return CensusColumnInterface[]
-	 */
-	public function columns() {
-		return array(
-			new CensusColumnFullName($this, 'Name', 'Name'),
-			new CensusColumnAgeMale5Years($this, 'AgeM', 'Age (males)'),
-			new CensusColumnAgeFemale5Years($this, 'AgeF', 'Age (females)'),
-			new CensusColumnOccupation($this, 'Occupation', 'Profession, trade, employment or of independent means'),
-			new CensusColumnNull($this, 'BiC', 'Born in same county'),
-			new CensusColumnBornForeignParts($this, 'SIF', 'Born in Scotland, Ireland or foreign parts'),
-		);
-	}
+    /**
+     * The columns of the census.
+     *
+     * @return CensusColumnInterface[]
+     */
+    public function columns() {
+        return array(
+            new CensusColumnFullName($this, 'Name', 'Name'),
+            new CensusColumnAgeMale5Years($this, 'AgeM', 'Age (males)'),
+            new CensusColumnAgeFemale5Years($this, 'AgeF', 'Age (females)'),
+            new CensusColumnOccupation($this, 'Occupation', 'Profession, trade, employment or of independent means'),
+            new CensusColumnNull($this, 'BiC', 'Born in same county'),
+            new CensusColumnBornForeignParts($this, 'SIF', 'Born in Scotland, Ireland or foreign parts'),
+        );
+    }
 }

app/Census/CensusOfFrance1881.php

Indentation +22 added lines, -22 removed lines

@@ -19,27 +19,27 @@
  * Definitions for a census
  */
 class CensusOfFrance1881 extends CensusOfFrance implements CensusInterface {
-	/**
-	 * When did this census occur.
-	 *
-	 * @return string
-	 */
-	public function censusDate() {
-		return '20 JAN 1881';
-	}
+    /**
+     * When did this census occur.
+     *
+     * @return string
+     */
+    public function censusDate() {
+        return '20 JAN 1881';
+    }
 
-	/**
-	 * The columns of the census.
-	 *
-	 * @return CensusColumnInterface[]
-	 */
-	public function columns() {
-		return array(
-			new CensusColumnSurname($this, 'Noms', 'Noms de famille'),
-			new CensusColumnGivenNames($this, 'Prénoms', ''),
-			new CensusColumnAge($this, 'Âge', ''),
-			new CensusColumnOccupation($this, 'Profession', ''),
-			new CensusColumnRelationToHead($this, 'Position', 'Position dans le ménage'),
-		);
-	}
+    /**
+     * The columns of the census.
+     *
+     * @return CensusColumnInterface[]
+     */
+    public function columns() {
+        return array(
+            new CensusColumnSurname($this, 'Noms', 'Noms de famille'),
+            new CensusColumnGivenNames($this, 'Prénoms', ''),
+            new CensusColumnAge($this, 'Âge', ''),
+            new CensusColumnOccupation($this, 'Profession', ''),
+            new CensusColumnRelationToHead($this, 'Position', 'Position dans le ménage'),
+        );
+    }
 }

app/Census/CensusColumnConditionFrenchFille.php

Indentation +15 added lines, -15 removed lines

@@ -19,23 +19,23 @@
  * Marital status.
  */
 class CensusColumnConditionFrenchFille extends AbstractCensusColumnCondition {
-	/* Text to display for married individuals */
-	protected $husband = '';
-	protected $wife    = '';
+    /* Text to display for married individuals */
+    protected $husband = '';
+    protected $wife    = '';
 
-	/* Text to display for unmarried individuals */
-	protected $bachelor = '';
-	protected $spinster = '1';
+    /* Text to display for unmarried individuals */
+    protected $bachelor = '';
+    protected $spinster = '1';
 
-	/* Text to display for children */
-	protected $boy  = '';
-	protected $girl = '1';
+    /* Text to display for children */
+    protected $boy  = '';
+    protected $girl = '1';
 
-	/* Text to display for divorced individuals */
-	protected $divorce  = '';
-	protected $divorcee = '';
+    /* Text to display for divorced individuals */
+    protected $divorce  = '';
+    protected $divorcee = '';
 
-	/* Text to display for widowed individuals (not yet implemented) */
-	protected $widower = '';
-	protected $widow   = '';
+    /* Text to display for widowed individuals (not yet implemented) */
+    protected $widower = '';
+    protected $widow   = '';
 }

app/Statement.php

Indentation +201 added lines, -201 removed lines

@@ -22,205 +22,205 @@
  * Extend PHP's native PDOStatement class.
  */
 class Statement {
-	/** @var PDOStatement A prepared statement. */
-	private $pdo_statement;
-
-	/** @var bool Keep track of calls to execute(), so we can do it automatically. */
-	private $executed = false;
-
-	/**
-	 * Create a Statement object from a PDOStatement object.
-	 *
-	 * @param PDOStatement $pdo_statement
-	 */
-	public function __construct(PDOStatement $pdo_statement) {
-		$this->pdo_statement = $pdo_statement;
-	}
-
-	/**
-	 * Execute a query
-	 *
-	 * @param array $bind_variables
-	 *
-	 * @throws \Exception
-	 *
-	 * @return Statement
-	 */
-	public function execute($bind_variables = array()) {
-		if ($this->executed) {
-			throw new \Exception('Statement::execute() called twice.');
-		}
-
-		// Parameters may be either named (e.g. :foo) or positional (e.g. ?).
-		// Named parameters may take any type. Positional parameters are always strings.
-		// Queries should use one format or the other.
-		foreach ($bind_variables as $key => $bind_variable) {
-			if (is_numeric($key)) {
-				// Positional parameters are numeric (starting at 1)
-				$key = 1 + $key;
-			} else {
-				// Named parameters are prefixed with a colon
-				$key = ':' . $key;
-			}
-			switch (gettype($bind_variable)) {
-			case 'NULL':
-				$this->pdo_statement->bindValue($key, $bind_variable, PDO::PARAM_NULL);
-				break;
-			case 'boolean':
-				$this->pdo_statement->bindValue($key, (int) $bind_variable, PDO::PARAM_INT);
-				break;
-			case 'integer':
-				$this->pdo_statement->bindValue($key, $bind_variable, PDO::PARAM_INT);
-				break;
-			default:
-				$this->pdo_statement->bindValue($key, $bind_variable, PDO::PARAM_STR);
-				break;
-			}
-		}
-
-		$start = microtime(true);
-		$this->pdo_statement->execute();
-		$end = microtime(true);
-		// If it was a SELECT statement, we cannot run it again.
-		$this->executed = strpos($this->pdo_statement->queryString, 'SELECT') === 0;
-
-		Database::logQuery($this->pdo_statement->queryString, $this->pdo_statement->rowCount(), $end - $start, $bind_variables);
-
-		return $this;
-	}
-
-	/**
-	 * Close the cursor, and mark it as not-executed, so we can execute
-	 * it again (perhaps with different parameters).
-	 */
-	public function closeCursor() {
-		$this->pdo_statement->closeCursor();
-		$this->executed = false;
-	}
-
-	/**
-	 * Fetch the next row from the cursor.
-	 *
-	 * Execute the query, if necessary. Typically when there are no parameters.
-	 *
-	 * @param int $fetch_style
-	 *
-	 * @return \stdClass|array|false
-	 */
-	public function fetch($fetch_style = PDO::FETCH_OBJ) {
-		if (!$this->executed) {
-			$this->execute();
-		}
-
-		return $this->pdo_statement->fetch($fetch_style);
-	}
-
-	/**
-	 * Fetch all rows from the cursor, and close it.
-	 *
-	 * Execute the query, if necessary. Typically when there are no parameters.
-	 *
-	 * @param int $fetch_style
-	 *
-	 * @return \stdClass[]|string[][]
-	 */
-	public function fetchAll($fetch_style = PDO::FETCH_OBJ) {
-		if (!$this->executed) {
-			$this->execute();
-		}
-
-		$rows = $this->pdo_statement->fetchAll($fetch_style);
-		$this->closeCursor();
-
-		return $rows;
-	}
-
-	/**
-	 * Fetch one row, and close the cursor. e.g. SELECT * FROM foo WHERE pk=bar
-	 *
-	 * Execute the query, if necessary. Typically when there are no parameters.
-	 *
-	 * @param int $fetch_style
-	 *
-	 * @return \stdClass|array|null
-	 */
-	public function fetchOneRow($fetch_style = PDO::FETCH_OBJ) {
-		if (!$this->executed) {
-			$this->execute();
-		}
-
-		$row = $this->pdo_statement->fetch($fetch_style);
-		$this->closeCursor();
-
-		return $row === false ? null : $row;
-	}
-
-	/**
-	 * Fetch one value and close the cursor. e.g. SELECT MAX(foo) FROM bar
-	 *
-	 * Execute the query, if necessary. Typically when there are no parameters.
-	 *
-	 * @return string|null
-	 */
-	public function fetchOne() {
-		if (!$this->executed) {
-			$this->execute();
-		}
-
-		$value = $this->pdo_statement->fetchColumn();
-		$this->closeCursor();
-
-		return $value === false ? null : $value;
-	}
-
-	/**
-	 * Fetch two columns, and return an associative array of col1=>col2
-	 *
-	 * Execute the query, if necessary. Typically when there are no parameters.
-	 *
-	 * @return string[]
-	 */
-	public function fetchAssoc() {
-		if (!$this->executed) {
-			$this->execute();
-		}
-
-		$rows = array();
-		while ($row = $this->pdo_statement->fetch(PDO::FETCH_NUM)) {
-			$rows[$row[0]] = $row[1];
-		}
-		$this->closeCursor();
-
-		return $rows;
-	}
-
-	/**
-	 * Fetch all the first column, as an array.
-	 *
-	 * Execute the query, if necessary. Typically when there are no parameters.
-	 *
-	 * @return string[]
-	 */
-	public function fetchOneColumn() {
-		if (!$this->executed) {
-			$this->execute();
-		}
-
-		$list = array();
-		while ($row = $this->pdo_statement->fetch(PDO::FETCH_NUM)) {
-			$list[] = $row[0];
-		}
-		$this->closeCursor();
-
-		return $list;
-	}
-
-	/**
-	 * How many rows were affected by this statement.
-	 *
-	 * @return int
-	 */
-	public function rowCount() {
-		return $this->pdo_statement->rowCount();
-	}
+    /** @var PDOStatement A prepared statement. */
+    private $pdo_statement;
+
+    /** @var bool Keep track of calls to execute(), so we can do it automatically. */
+    private $executed = false;
+
+    /**
+     * Create a Statement object from a PDOStatement object.
+     *
+     * @param PDOStatement $pdo_statement
+     */
+    public function __construct(PDOStatement $pdo_statement) {
+        $this->pdo_statement = $pdo_statement;
+    }
+
+    /**
+     * Execute a query
+     *
+     * @param array $bind_variables
+     *
+     * @throws \Exception
+     *
+     * @return Statement
+     */
+    public function execute($bind_variables = array()) {
+        if ($this->executed) {
+            throw new \Exception('Statement::execute() called twice.');
+        }
+
+        // Parameters may be either named (e.g. :foo) or positional (e.g. ?).
+        // Named parameters may take any type. Positional parameters are always strings.
+        // Queries should use one format or the other.
+        foreach ($bind_variables as $key => $bind_variable) {
+            if (is_numeric($key)) {
+                // Positional parameters are numeric (starting at 1)
+                $key = 1 + $key;
+            } else {
+                // Named parameters are prefixed with a colon
+                $key = ':' . $key;
+            }
+            switch (gettype($bind_variable)) {
+            case 'NULL':
+                $this->pdo_statement->bindValue($key, $bind_variable, PDO::PARAM_NULL);
+                break;
+            case 'boolean':
+                $this->pdo_statement->bindValue($key, (int) $bind_variable, PDO::PARAM_INT);
+                break;
+            case 'integer':
+                $this->pdo_statement->bindValue($key, $bind_variable, PDO::PARAM_INT);
+                break;
+            default:
+                $this->pdo_statement->bindValue($key, $bind_variable, PDO::PARAM_STR);
+                break;
+            }
+        }
+
+        $start = microtime(true);
+        $this->pdo_statement->execute();
+        $end = microtime(true);
+        // If it was a SELECT statement, we cannot run it again.
+        $this->executed = strpos($this->pdo_statement->queryString, 'SELECT') === 0;
+
+        Database::logQuery($this->pdo_statement->queryString, $this->pdo_statement->rowCount(), $end - $start, $bind_variables);
+
+        return $this;
+    }
+
+    /**
+     * Close the cursor, and mark it as not-executed, so we can execute
+     * it again (perhaps with different parameters).
+     */
+    public function closeCursor() {
+        $this->pdo_statement->closeCursor();
+        $this->executed = false;
+    }
+
+    /**
+     * Fetch the next row from the cursor.
+     *
+     * Execute the query, if necessary. Typically when there are no parameters.
+     *
+     * @param int $fetch_style
+     *
+     * @return \stdClass|array|false
+     */
+    public function fetch($fetch_style = PDO::FETCH_OBJ) {
+        if (!$this->executed) {
+            $this->execute();
+        }
+
+        return $this->pdo_statement->fetch($fetch_style);
+    }
+
+    /**
+     * Fetch all rows from the cursor, and close it.
+     *
+     * Execute the query, if necessary. Typically when there are no parameters.
+     *
+     * @param int $fetch_style
+     *
+     * @return \stdClass[]|string[][]
+     */
+    public function fetchAll($fetch_style = PDO::FETCH_OBJ) {
+        if (!$this->executed) {
+            $this->execute();
+        }
+
+        $rows = $this->pdo_statement->fetchAll($fetch_style);
+        $this->closeCursor();
+
+        return $rows;
+    }
+
+    /**
+     * Fetch one row, and close the cursor. e.g. SELECT * FROM foo WHERE pk=bar
+     *
+     * Execute the query, if necessary. Typically when there are no parameters.
+     *
+     * @param int $fetch_style
+     *
+     * @return \stdClass|array|null
+     */
+    public function fetchOneRow($fetch_style = PDO::FETCH_OBJ) {
+        if (!$this->executed) {
+            $this->execute();
+        }
+
+        $row = $this->pdo_statement->fetch($fetch_style);
+        $this->closeCursor();
+
+        return $row === false ? null : $row;
+    }
+
+    /**
+     * Fetch one value and close the cursor. e.g. SELECT MAX(foo) FROM bar
+     *
+     * Execute the query, if necessary. Typically when there are no parameters.
+     *
+     * @return string|null
+     */
+    public function fetchOne() {
+        if (!$this->executed) {
+            $this->execute();
+        }
+
+        $value = $this->pdo_statement->fetchColumn();
+        $this->closeCursor();
+
+        return $value === false ? null : $value;
+    }
+
+    /**
+     * Fetch two columns, and return an associative array of col1=>col2
+     *
+     * Execute the query, if necessary. Typically when there are no parameters.
+     *
+     * @return string[]
+     */
+    public function fetchAssoc() {
+        if (!$this->executed) {
+            $this->execute();
+        }
+
+        $rows = array();
+        while ($row = $this->pdo_statement->fetch(PDO::FETCH_NUM)) {
+            $rows[$row[0]] = $row[1];
+        }
+        $this->closeCursor();
+
+        return $rows;
+    }
+
+    /**
+     * Fetch all the first column, as an array.
+     *
+     * Execute the query, if necessary. Typically when there are no parameters.
+     *
+     * @return string[]
+     */
+    public function fetchOneColumn() {
+        if (!$this->executed) {
+            $this->execute();
+        }
+
+        $list = array();
+        while ($row = $this->pdo_statement->fetch(PDO::FETCH_NUM)) {
+            $list[] = $row[0];
+        }
+        $this->closeCursor();
+
+        return $list;
+    }
+
+    /**
+     * How many rows were affected by this statement.
+     *
+     * @return int
+     */
+    public function rowCount() {
+        return $this->pdo_statement->rowCount();
+    }
 }

app/Menu.php

Indentation +277 added lines, -277 removed lines

@@ -21,281 +21,281 @@
  * System for generating menus.
  */
 class Menu {
-	/** @var string The text to be displayed in the mneu */
-	private $label;
-
-	/** @var string The target URL or href*/
-	private $link;
-
-	/** @var string The CSS class used to style this menu item */
-	private $class;
-
-	/** @var string[] A list of optional HTML attributes, such as onclick or data-xxx */
-	private $attrs;
-
-	/** @var Menu[] An optional list of sub-menus. */
-	private $submenus;
-
-	/** @var string Used internally to create javascript menus */
-	private $parentmenu;
-
-	/** @var string Used to format javascript menus */
-	private $submenuclass;
-
-	/** @var string Used to format javascript menus */
-	private $menuclass;
-
-	/**
-	 * Constructor for the menu class
-	 *
-	 * @param string   $label    The label for the menu item
-	 * @param string   $link     The target URL
-	 * @param string   $class    A CSS class
-	 * @param string[] $attrs    Optional attributes, such as onclick or data-xxx
-	 * @param Menu[]   $submenus Any submenus
-	 */
-	public function __construct($label, $link = '#', $class = '', array $attrs = array(), array $submenus = array()) {
-		$this
-			->setLabel($label)
-			->setLink($link)
-			->setClass($class)
-			->setAttrs($attrs)
-			->setSubmenus($submenus);
-	}
-
-	/**
-	 * Convert this menu to an HTML list, for easy rendering of
-	 * lists of menus/nulls.
-	 *
-	 * @return string
-	 */
-	public function __toString() {
-		return $this->getMenuAsList();
-	}
-
-	/**
-	 * Render this menu using Bootstrap markup
-	 *
-	 * @return string
-	 */
-	public function bootstrap() {
-		if ($this->submenus) {
-			$submenus = '';
-			foreach ($this->submenus as $submenu) {
-				$submenus .= $submenu->bootstrap();
-			}
-
-			return
-				'<li class="' . $this->class . ' dropdown">' .
-				'<a href="#" class="dropdown-toggle" data-toggle="dropdown" role="button" aria-expanded="false">' .
-				$this->label .
-				' <span class="caret"></span></a>' .
-				'<ul class="dropdown-menu" role="menu">' .
-				$submenus .
-				'</ul>' .
-				'</li>';
-		} else {
-			$attrs = '';
-			foreach ($this->attrs as $key => $value) {
-				$attrs .= ' ' . $key . '="' . Filter::escapeHtml($value) . '"';
-			}
-
-			return '<li class="' . $this->class . '"><a href="' . $this->link . '"' . $attrs . '>' . $this->label . '</a></li>';
-		}
-	}
-
-	/**
-	 * Get the optional attributes.
-	 *
-	 * @return string[]
-	 */
-	public function getAttrs() {
-		return $this->attrs;
-	}
-
-	/**
-	 * Set the optional attributes.
-	 *
-	 * @param string[] $attrs
-	 *
-	 * @return $this
-	 */
-	public function setAttrs(array $attrs) {
-		$this->attrs = $attrs;
-
-		return $this;
-	}
-
-	/**
-	 * Set the CSS classes for the (legacy) javascript menus
-	 *
-	 * @param string $menuclass
-	 * @param string $submenuclass
-	 */
-	public function addClass($menuclass, $submenuclass = '') {
-		$this->menuclass    = $menuclass;
-		$this->submenuclass = $submenuclass;
-	}
-
-	/**
-	 * Get the class.
-	 *
-	 * @return string
-	 */
-	public function getClass() {
-		return $this->class;
-	}
-
-	/**
-	 * Set the class.
-	 *
-	 * @param string $class
-	 *
-	 * @return $this
-	 */
-	public function setClass($class) {
-		$this->class = $class;
-
-		return $this;
-	}
-
-	/**
-	 * Get the label.
-	 *
-	 * @return string
-	 */
-	public function getLabel() {
-		return $this->label;
-	}
-
-	/**
-	 * Set the label.
-	 *
-	 * @param string $label
-	 *
-	 * @return $this
-	 */
-	public function setLabel($label) {
-		$this->label = $label;
-
-		return $this;
-	}
-
-	/**
-	 * Get the link.
-	 *
-	 * @return string
-	 */
-	public function getLink() {
-		return $this->link;
-	}
-
-	/**
-	 * Set the link.
-	 *
-	 * @param string $link
-	 *
-	 * @return $this
-	 */
-	public function setLink($link) {
-		$this->link = $link;
-
-		return $this;
-	}
-
-	/**
-	 * Add a submenu to this menu
-	 *
-	 * @param Menu $menu
-	 *
-	 * @return $this
-	 */
-	public function addSubmenu($menu) {
-		$this->submenus[] = $menu;
-
-		return $this;
-	}
-
-	/**
-	 * Render this menu using javascript popups..
-	 *
-	 * @return string
-	 */
-	public function getMenu() {
-		$menu_id     = 'menu-' . Uuid::uuid4();
-		$sub_menu_id = 'sub-' . $menu_id;
-
-		$html = '<a href="' . $this->link . '"';
-		foreach ($this->attrs as $key => $value) {
-			$html .= ' ' . $key . '="' . Filter::escapeHtml($value) . '"';
-		}
-		if (!empty($this->submenus)) {
-			$html .= ' onmouseover="show_submenu(\'' . $sub_menu_id . '\', \'' . $menu_id . '\');"';
-			$html .= ' onmouseout="timeout_submenu(\'' . $sub_menu_id . '\');"';
-		}
-		$html .= '>' . $this->label . '</a>';
-
-		if (!empty($this->submenus)) {
-			$html .= '<div id="' . $sub_menu_id . '" class="' . $this->submenuclass . '"';
-			$html .= ' style="position: absolute; visibility: hidden; z-index: 100; text-align: ' . (I18N::direction() === 'ltr' ? 'left' : 'right') . '"';
-			$html .= ' onmouseover="show_submenu(\'' . $this->parentmenu . '\'); show_submenu(\'' . $sub_menu_id . '\');"';
-			$html .= ' onmouseout="timeout_submenu(\'' . $sub_menu_id . '\');">';
-			foreach ($this->submenus as $submenu) {
-				$submenu->parentmenu = $sub_menu_id;
-				$html .= $submenu->getMenu();
-			}
-			$html .= '</div>';
-		}
-
-		return '<div id="' . $menu_id . '" class="' . $this->menuclass . '">' . $html . '</div>';
-	}
-
-	/**
-	 * Render this menu as an HTML list
-	 *
-	 * @return string
-	 */
-	public function getMenuAsList() {
-		$attrs = '';
-		foreach ($this->attrs as $key => $value) {
-			$attrs .= ' ' . $key . '="' . Filter::escapeHtml($value) . '"';
-		}
-		if ($this->link) {
-			$link = ' href="' . $this->link . '"';
-		} else {
-			$link = '';
-		}
-		$html = '<a' . $link . $attrs . '>' . $this->label . '</a>';
-		if ($this->submenus) {
-			$html .= '<ul>';
-			foreach ($this->submenus as $submenu) {
-				$html .= $submenu->getMenuAsList();
-			}
-			$html .= '</ul>';
-		}
-
-		return '<li class="' . $this->class . '">' . $html . '</li>';
-	}
-
-	/**
-	 * Get the sub-menus.
-	 *
-	 * @return Menu[]
-	 */
-	public function getSubmenus() {
-		return $this->submenus;
-	}
-
-	/**
-	 * Set the sub-menus.
-	 *
-	 * @param Menu[] $submenus
-	 *
-	 * @return $this
-	 */
-	public function setSubmenus(array $submenus) {
-		$this->submenus = $submenus;
-
-		return $this;
-	}
+    /** @var string The text to be displayed in the mneu */
+    private $label;
+
+    /** @var string The target URL or href*/
+    private $link;
+
+    /** @var string The CSS class used to style this menu item */
+    private $class;
+
+    /** @var string[] A list of optional HTML attributes, such as onclick or data-xxx */
+    private $attrs;
+
+    /** @var Menu[] An optional list of sub-menus. */
+    private $submenus;
+
+    /** @var string Used internally to create javascript menus */
+    private $parentmenu;
+
+    /** @var string Used to format javascript menus */
+    private $submenuclass;
+
+    /** @var string Used to format javascript menus */
+    private $menuclass;
+
+    /**
+     * Constructor for the menu class
+     *
+     * @param string   $label    The label for the menu item
+     * @param string   $link     The target URL
+     * @param string   $class    A CSS class
+     * @param string[] $attrs    Optional attributes, such as onclick or data-xxx
+     * @param Menu[]   $submenus Any submenus
+     */
+    public function __construct($label, $link = '#', $class = '', array $attrs = array(), array $submenus = array()) {
+        $this
+            ->setLabel($label)
+            ->setLink($link)
+            ->setClass($class)
+            ->setAttrs($attrs)
+            ->setSubmenus($submenus);
+    }
+
+    /**
+     * Convert this menu to an HTML list, for easy rendering of
+     * lists of menus/nulls.
+     *
+     * @return string
+     */
+    public function __toString() {
+        return $this->getMenuAsList();
+    }
+
+    /**
+     * Render this menu using Bootstrap markup
+     *
+     * @return string
+     */
+    public function bootstrap() {
+        if ($this->submenus) {
+            $submenus = '';
+            foreach ($this->submenus as $submenu) {
+                $submenus .= $submenu->bootstrap();
+            }
+
+            return
+                '<li class="' . $this->class . ' dropdown">' .
+                '<a href="#" class="dropdown-toggle" data-toggle="dropdown" role="button" aria-expanded="false">' .
+                $this->label .
+                ' <span class="caret"></span></a>' .
+                '<ul class="dropdown-menu" role="menu">' .
+                $submenus .
+                '</ul>' .
+                '</li>';
+        } else {
+            $attrs = '';
+            foreach ($this->attrs as $key => $value) {
+                $attrs .= ' ' . $key . '="' . Filter::escapeHtml($value) . '"';
+            }
+
+            return '<li class="' . $this->class . '"><a href="' . $this->link . '"' . $attrs . '>' . $this->label . '</a></li>';
+        }
+    }
+
+    /**
+     * Get the optional attributes.
+     *
+     * @return string[]
+     */
+    public function getAttrs() {
+        return $this->attrs;
+    }
+
+    /**
+     * Set the optional attributes.
+     *
+     * @param string[] $attrs
+     *
+     * @return $this
+     */
+    public function setAttrs(array $attrs) {
+        $this->attrs = $attrs;
+
+        return $this;
+    }
+
+    /**
+     * Set the CSS classes for the (legacy) javascript menus
+     *
+     * @param string $menuclass
+     * @param string $submenuclass
+     */
+    public function addClass($menuclass, $submenuclass = '') {
+        $this->menuclass    = $menuclass;
+        $this->submenuclass = $submenuclass;
+    }
+
+    /**
+     * Get the class.
+     *
+     * @return string
+     */
+    public function getClass() {
+        return $this->class;
+    }
+
+    /**
+     * Set the class.
+     *
+     * @param string $class
+     *
+     * @return $this
+     */
+    public function setClass($class) {
+        $this->class = $class;
+
+        return $this;
+    }
+
+    /**
+     * Get the label.
+     *
+     * @return string
+     */
+    public function getLabel() {
+        return $this->label;
+    }
+
+    /**
+     * Set the label.
+     *
+     * @param string $label
+     *
+     * @return $this
+     */
+    public function setLabel($label) {
+        $this->label = $label;
+
+        return $this;
+    }
+
+    /**
+     * Get the link.
+     *
+     * @return string
+     */
+    public function getLink() {
+        return $this->link;
+    }
+
+    /**
+     * Set the link.
+     *
+     * @param string $link
+     *
+     * @return $this
+     */
+    public function setLink($link) {
+        $this->link = $link;
+
+        return $this;
+    }
+
+    /**
+     * Add a submenu to this menu
+     *
+     * @param Menu $menu
+     *
+     * @return $this
+     */
+    public function addSubmenu($menu) {
+        $this->submenus[] = $menu;
+
+        return $this;
+    }
+
+    /**
+     * Render this menu using javascript popups..
+     *
+     * @return string
+     */
+    public function getMenu() {
+        $menu_id     = 'menu-' . Uuid::uuid4();
+        $sub_menu_id = 'sub-' . $menu_id;
+
+        $html = '<a href="' . $this->link . '"';
+        foreach ($this->attrs as $key => $value) {
+            $html .= ' ' . $key . '="' . Filter::escapeHtml($value) . '"';
+        }
+        if (!empty($this->submenus)) {
+            $html .= ' onmouseover="show_submenu(\'' . $sub_menu_id . '\', \'' . $menu_id . '\');"';
+            $html .= ' onmouseout="timeout_submenu(\'' . $sub_menu_id . '\');"';
+        }
+        $html .= '>' . $this->label . '</a>';
+
+        if (!empty($this->submenus)) {
+            $html .= '<div id="' . $sub_menu_id . '" class="' . $this->submenuclass . '"';
+            $html .= ' style="position: absolute; visibility: hidden; z-index: 100; text-align: ' . (I18N::direction() === 'ltr' ? 'left' : 'right') . '"';
+            $html .= ' onmouseover="show_submenu(\'' . $this->parentmenu . '\'); show_submenu(\'' . $sub_menu_id . '\');"';
+            $html .= ' onmouseout="timeout_submenu(\'' . $sub_menu_id . '\');">';
+            foreach ($this->submenus as $submenu) {
+                $submenu->parentmenu = $sub_menu_id;
+                $html .= $submenu->getMenu();
+            }
+            $html .= '</div>';
+        }
+
+        return '<div id="' . $menu_id . '" class="' . $this->menuclass . '">' . $html . '</div>';
+    }
+
+    /**
+     * Render this menu as an HTML list
+     *
+     * @return string
+     */
+    public function getMenuAsList() {
+        $attrs = '';
+        foreach ($this->attrs as $key => $value) {
+            $attrs .= ' ' . $key . '="' . Filter::escapeHtml($value) . '"';
+        }
+        if ($this->link) {
+            $link = ' href="' . $this->link . '"';
+        } else {
+            $link = '';
+        }
+        $html = '<a' . $link . $attrs . '>' . $this->label . '</a>';
+        if ($this->submenus) {
+            $html .= '<ul>';
+            foreach ($this->submenus as $submenu) {
+                $html .= $submenu->getMenuAsList();
+            }
+            $html .= '</ul>';
+        }
+
+        return '<li class="' . $this->class . '">' . $html . '</li>';
+    }
+
+    /**
+     * Get the sub-menus.
+     *
+     * @return Menu[]
+     */
+    public function getSubmenus() {
+        return $this->submenus;
+    }
+
+    /**
+     * Set the sub-menus.
+     *
+     * @param Menu[] $submenus
+     *
+     * @return $this
+     */
+    public function setSubmenus(array $submenus) {
+        $this->submenus = $submenus;
+
+        return $this;
+    }
 }

app/Log.php

Indentation +93 added lines, -93 removed lines

@@ -19,107 +19,107 @@
  * Record webtrees events in the database
  */
 class Log {
-	// We can log the following types of message in the wt_log table.
-	const TYPE_AUTHENTICATION = 'auth';
-	const TYPE_CONFIGURATION  = 'config';
-	const TYPE_DEBUG          = 'debug';
-	const TYPE_EDIT           = 'edit';
-	const TYPE_ERROR          = 'error';
-	const TYPE_MEDIA          = 'media';
-	const TYPE_SEARCH         = 'search';
+    // We can log the following types of message in the wt_log table.
+    const TYPE_AUTHENTICATION = 'auth';
+    const TYPE_CONFIGURATION  = 'config';
+    const TYPE_DEBUG          = 'debug';
+    const TYPE_EDIT           = 'edit';
+    const TYPE_ERROR          = 'error';
+    const TYPE_MEDIA          = 'media';
+    const TYPE_SEARCH         = 'search';
 
-	/**
-	 * Store a new message (of the appropriate type) in the message log.
-	 *
-	 * @param string    $message
-	 * @param string    $log_type
-	 * @param Tree|null $tree
-	 */
-	private static function addLog($message, $log_type, Tree $tree = null) {
-		global $WT_TREE;
+    /**
+     * Store a new message (of the appropriate type) in the message log.
+     *
+     * @param string    $message
+     * @param string    $log_type
+     * @param Tree|null $tree
+     */
+    private static function addLog($message, $log_type, Tree $tree = null) {
+        global $WT_TREE;
 
-		if (!$tree) {
-			$tree = $WT_TREE;
-		}
+        if (!$tree) {
+            $tree = $WT_TREE;
+        }
 
-		Database::prepare(
-			"INSERT INTO `##log` (log_type, log_message, ip_address, user_id, gedcom_id) VALUES (?, ?, ?, ?, ?)"
-		)->execute(array(
-					$log_type,
-					$message,
-					WT_CLIENT_IP,
-					Auth::id(),
-					$tree ? $tree->getTreeId() : null,
-		));
-	}
+        Database::prepare(
+            "INSERT INTO `##log` (log_type, log_message, ip_address, user_id, gedcom_id) VALUES (?, ?, ?, ?, ?)"
+        )->execute(array(
+                    $log_type,
+                    $message,
+                    WT_CLIENT_IP,
+                    Auth::id(),
+                    $tree ? $tree->getTreeId() : null,
+        ));
+    }
 
-	/**
-	 * Store an authentication message in the message log.
-	 *
-	 * @param string $message
-	 */
-	public static function addAuthenticationLog($message) {
-		self::addLog($message, self::TYPE_AUTHENTICATION);
-	}
+    /**
+     * Store an authentication message in the message log.
+     *
+     * @param string $message
+     */
+    public static function addAuthenticationLog($message) {
+        self::addLog($message, self::TYPE_AUTHENTICATION);
+    }
 
-	/**
-	 * Store a configuration message in the message log.
-	 *
-	 * @param string       $message
-	 * @param Tree|null $tree
-	 */
-	public static function addConfigurationLog($message, Tree $tree = null) {
-		self::addLog($message, self::TYPE_CONFIGURATION, $tree);
-	}
+    /**
+     * Store a configuration message in the message log.
+     *
+     * @param string       $message
+     * @param Tree|null $tree
+     */
+    public static function addConfigurationLog($message, Tree $tree = null) {
+        self::addLog($message, self::TYPE_CONFIGURATION, $tree);
+    }
 
-	/**
-	 * Store a debug message in the message log.
-	 *
-	 * @param string $message
-	 */
-	public static function addDebugLog($message) {
-		self::addLog($message, self::TYPE_DEBUG);
-	}
+    /**
+     * Store a debug message in the message log.
+     *
+     * @param string $message
+     */
+    public static function addDebugLog($message) {
+        self::addLog($message, self::TYPE_DEBUG);
+    }
 
-	/**
-	 * Store an edit message in the message log.
-	 *
-	 * @param string $message
-	 */
-	public static function addEditLog($message) {
-		self::addLog($message, self::TYPE_EDIT);
-	}
+    /**
+     * Store an edit message in the message log.
+     *
+     * @param string $message
+     */
+    public static function addEditLog($message) {
+        self::addLog($message, self::TYPE_EDIT);
+    }
 
-	/**
-	 * Store an error message in the message log.
-	 *
-	 * @param string $message
-	 */
-	public static function addErrorLog($message) {
-		self::addLog($message, self::TYPE_ERROR);
-	}
+    /**
+     * Store an error message in the message log.
+     *
+     * @param string $message
+     */
+    public static function addErrorLog($message) {
+        self::addLog($message, self::TYPE_ERROR);
+    }
 
-	/**
-	 * Store an media management message in the message log.
-	 *
-	 * @param string $message
-	 */
-	public static function addMediaLog($message) {
-		self::addLog($message, self::TYPE_MEDIA);
-	}
+    /**
+     * Store an media management message in the message log.
+     *
+     * @param string $message
+     */
+    public static function addMediaLog($message) {
+        self::addLog($message, self::TYPE_MEDIA);
+    }
 
-	/**
-	 * Store a search event in the message log.
-	 *
-	 * Unlike most webtrees activity, search is not restricted to a single tree,
-	 * so we need to record which trees were searchecd.
-	 *
-	 * @param string    $message
-	 * @param Tree[] $trees Which trees were searched
-	 */
-	public static function addSearchLog($message, array $trees) {
-		foreach ($trees as $tree) {
-			self::addLog($message, self::TYPE_SEARCH, $tree);
-		}
-	}
+    /**
+     * Store a search event in the message log.
+     *
+     * Unlike most webtrees activity, search is not restricted to a single tree,
+     * so we need to record which trees were searchecd.
+     *
+     * @param string    $message
+     * @param Tree[] $trees Which trees were searched
+     */
+    public static function addSearchLog($message, array $trees) {
+        foreach ($trees as $tree) {
+            self::addLog($message, self::TYPE_SEARCH, $tree);
+        }
+    }
 }

app/GedcomTag.php

Indentation +1945 added lines, -1945 removed lines

@@ -21,1966 +21,1966 @@
  * Static GEDCOM data for tags
  */
 class GedcomTag {
-	/** @var string[] All tags that webtrees knows how to translate - including special/internal tags */
-	private static $ALL_TAGS = array(
-		'ABBR', 'ADDR', 'ADR1', 'ADR2', 'ADOP', 'ADOP:DATE', 'ADOP:PLAC',
-		'AFN', 'AGE', 'AGNC', 'ALIA', 'ANCE', 'ANCI', 'ANUL', 'ASSO', 'AUTH', 'BAPL',
-		'BAPL:DATE', 'BAPL:PLAC', 'BAPM', 'BAPM:DATE', 'BAPM:PLAC', 'BARM',
-		'BARM:DATE', 'BARM:PLAC', 'BASM', 'BASM:DATE', 'BASM:PLAC',
-		'BIRT', 'BIRT:DATE', 'BIRT:PLAC', 'BLES', 'BLES:DATE',
-		'BLES:PLAC', 'BLOB', 'BURI', 'BURI:DATE', 'BURI:PLAC',
-		'CALN', 'CAST', 'CAUS', 'CEME', 'CENS', 'CENS:DATE', 'CENS:PLAC', 'CHAN', 'CHAN:DATE', 'CHAN:_WT_USER', 'CHAR',
-		'CHIL', 'CHR', 'CHR:DATE', 'CHR:PLAC', 'CHRA', 'CITN', 'CITY',
-		'COMM', 'CONC', 'CONT', 'CONF', 'CONF:DATE', 'CONF:PLAC', 'CONL',
-		'COPR', 'CORP', 'CREM', 'CREM:DATE', 'CREM:PLAC', 'CTRY', 'DATA',
-		'DATA:DATE', 'DATE', 'DEAT', 'DEAT:CAUS', 'DEAT:DATE', 'DEAT:PLAC',
-		'DESC', 'DESI', 'DEST', 'DIV', 'DIVF', 'DSCR', 'EDUC', 'EDUC:AGNC', 'EMAI',
-		'EMAIL', 'EMAL', 'EMIG', 'EMIG:DATE', 'EMIG:PLAC', 'ENDL', 'ENDL:DATE',
-		'ENDL:PLAC', 'ENGA', 'ENGA:DATE', 'ENGA:PLAC', 'EVEN', 'EVEN:DATE',
-		'EVEN:PLAC', 'EVEN:TYPE', 'FACT', 'FACT:TYPE', 'FAM', 'FAMC', 'FAMF', 'FAMS', 'FAMS:CENS:DATE', 'FAMS:CENS:PLAC',
-		'FAMS:DIV:DATE', 'FAMS:MARR:DATE', 'FAMS:MARR:PLAC', 'FAMS:NOTE',
-		'FAX', 'FCOM', 'FCOM:DATE',
-		'FCOM:PLAC', 'FILE', 'FONE', 'FORM', 'GEDC', 'GIVN', 'GRAD',
-		'HEAD', 'HUSB', 'IDNO', 'IMMI', 'IMMI:DATE', 'IMMI:PLAC', 'INDI', 'INFL',
-		'LANG', 'LATI', 'LEGA', 'LONG', 'MAP', 'MARB', 'MARB:DATE', 'MARB:PLAC',
-		'MARC', 'MARL', 'MARR', 'MARR:DATE', 'MARR:PLAC',
-		'MARR_CIVIL', 'MARR_PARTNERS', 'MARR_RELIGIOUS', 'MARR_UNKNOWN', 'MARS',
-		'MEDI', 'NAME', 'NAME:FONE', 'NAME:_HEB', 'NATI', 'NATU', 'NATU:DATE', 'NATU:PLAC',
-		'NCHI', 'NICK', 'NMR', 'NOTE', 'NPFX', 'NSFX', 'OBJE', 'OCCU', 'OCCU:AGNC',
-		'ORDI', 'ORDN', 'ORDN:AGNC', 'ORDN:DATE', 'ORDN:PLAC', 'PAGE', 'PEDI', 'PHON',
-		'PLAC', 'PLAC:FONE', 'PLAC:ROMN', 'PLAC:_HEB', 'POST', 'PROB', 'PROP', 'PUBL',
-		'QUAY', 'REFN', 'RELA', 'RELI', 'REPO', 'RESI', 'RESI:DATE', 'RESI:PLAC', 'RESN',
-		'RETI', 'RETI:AGNC', 'RFN', 'RIN', 'ROLE', 'ROMN', 'SERV', 'SEX', 'SHARED_NOTE',
-		'SLGC', 'SLGC:DATE', 'SLGC:PLAC', 'SLGS', 'SLGS:DATE', 'SLGS:PLAC', 'SOUR',
-		'SPFX', 'SSN', 'STAE', 'STAT', 'STAT:DATE', 'SUBM', 'SUBN', 'SURN', 'TEMP',
-		'TEXT', 'TIME', 'TITL', 'TITL:FONE', 'TITL:ROMN', 'TITL:_HEB', 'TRLR', 'TYPE',
-		'URL', 'VERS', 'WIFE', 'WILL', 'WWW', '_ADOP_CHIL', '_ADOP_GCHI', '_ADOP_GCH1',
-		'_ADOP_GCH2', '_ADOP_HSIB', '_ADOP_SIBL', '_ADPF', '_ADPM', '_AKA', '_AKAN', '_ASSO',
-		'_BAPM_CHIL', '_BAPM_GCHI', '_BAPM_GCH1', '_BAPM_GCH2', '_BAPM_HSIB', '_BAPM_SIBL',
-		'_BIBL', '_BIRT_CHIL', '_BIRT_GCHI', '_BIRT_GCH1', '_BIRT_GCH2', '_BIRT_HSIB', '_BIRT_SIBL',
-		'_BRTM', '_BRTM:DATE', '_BRTM:PLAC', '_BURI_CHIL',
-		'_BURI_GCHI', '_BURI_GCH1', '_BURI_GCH2', '_BURI_GPAR', '_BURI_HSIB', '_BURI_SIBL', '_BURI_SPOU',
-		'_CHR_CHIL', '_CHR_GCHI', '_CHR_GCH1', '_CHR_GCH2', '_CHR_HSIB', '_CHR_SIBL', '_COML',
-		'_CREM_CHIL', '_CREM_GCHI', '_CREM_GCH1', '_CREM_GCH2', '_CREM_GPAR', '_CREM_HSIB', '_CREM_SIBL', '_CREM_SPOU',
-		'_DBID', '_DEAT_CHIL', '_DEAT_GCHI', '_DEAT_GCH1', '_DEAT_GCH2', '_DEAT_GPAR', '_DEAT_GPA1', '_DEAT_GPA2',
-		'_DEAT_HSIB', '_DEAT_PARE', '_DEAT_SIBL', '_DEAT_SPOU', '_DEG', '_DETS', '_DNA',
-		'_EMAIL', '_EYEC', '_FA1', '_FA2', '_FA3', '_FA4', '_FA5', '_FA6', '_FA7', '_FA8',
-		'_FA9', '_FA10', '_FA11', '_FA12', '_FA13', '_FNRL', '_FREL', '_GEDF', '_GODP', '_HAIR',
-		'_HEB', '_HEIG', '_HNM', '_HOL', '_INTE', '_LOC', '_MARB_CHIL', '_MARB_FAMC', '_MARB_GCHI',
-		'_MARB_GCH1', '_MARB_GCH2', '_MARB_HSIB', '_MARB_PARE', '_MARB_SIBL', '_MARI',
-		'_MARNM', '_PRIM', '_MARNM_SURN', '_MARR_CHIL', '_MARR_FAMC', '_MARR_GCHI',
-		'_MARR_GCH1', '_MARR_GCH2', '_MARR_HSIB', '_MARR_PARE', '_MARR_SIBL', '_MBON',
-		'_MDCL', '_MEDC', '_MEND', '_MILI', '_MILT', '_MREL', '_MSTAT', '_NAME', '_NAMS',
-		'_NLIV', '_NMAR', '_NMR', '_WT_USER', '_PRMN', '_SCBK', '_SEPR', '_SSHOW', '_STAT',
-		'_SUBQ', '_TODO', '_TYPE', '_UID', '_URL', '_WEIG', '_WITN', '_YART', '__BRTM_CHIL',
-		'__BRTM_GCHI', '__BRTM_GCH1', '__BRTM_GCH2', '__BRTM_HSIB', '__BRTM_SIBL',
-		// These pseudo-tags are generated dynamically to display media object attributes
-		'__FILE_SIZE__', '__IMAGE_SIZE__',
-	);
+    /** @var string[] All tags that webtrees knows how to translate - including special/internal tags */
+    private static $ALL_TAGS = array(
+        'ABBR', 'ADDR', 'ADR1', 'ADR2', 'ADOP', 'ADOP:DATE', 'ADOP:PLAC',
+        'AFN', 'AGE', 'AGNC', 'ALIA', 'ANCE', 'ANCI', 'ANUL', 'ASSO', 'AUTH', 'BAPL',
+        'BAPL:DATE', 'BAPL:PLAC', 'BAPM', 'BAPM:DATE', 'BAPM:PLAC', 'BARM',
+        'BARM:DATE', 'BARM:PLAC', 'BASM', 'BASM:DATE', 'BASM:PLAC',
+        'BIRT', 'BIRT:DATE', 'BIRT:PLAC', 'BLES', 'BLES:DATE',
+        'BLES:PLAC', 'BLOB', 'BURI', 'BURI:DATE', 'BURI:PLAC',
+        'CALN', 'CAST', 'CAUS', 'CEME', 'CENS', 'CENS:DATE', 'CENS:PLAC', 'CHAN', 'CHAN:DATE', 'CHAN:_WT_USER', 'CHAR',
+        'CHIL', 'CHR', 'CHR:DATE', 'CHR:PLAC', 'CHRA', 'CITN', 'CITY',
+        'COMM', 'CONC', 'CONT', 'CONF', 'CONF:DATE', 'CONF:PLAC', 'CONL',
+        'COPR', 'CORP', 'CREM', 'CREM:DATE', 'CREM:PLAC', 'CTRY', 'DATA',
+        'DATA:DATE', 'DATE', 'DEAT', 'DEAT:CAUS', 'DEAT:DATE', 'DEAT:PLAC',
+        'DESC', 'DESI', 'DEST', 'DIV', 'DIVF', 'DSCR', 'EDUC', 'EDUC:AGNC', 'EMAI',
+        'EMAIL', 'EMAL', 'EMIG', 'EMIG:DATE', 'EMIG:PLAC', 'ENDL', 'ENDL:DATE',
+        'ENDL:PLAC', 'ENGA', 'ENGA:DATE', 'ENGA:PLAC', 'EVEN', 'EVEN:DATE',
+        'EVEN:PLAC', 'EVEN:TYPE', 'FACT', 'FACT:TYPE', 'FAM', 'FAMC', 'FAMF', 'FAMS', 'FAMS:CENS:DATE', 'FAMS:CENS:PLAC',
+        'FAMS:DIV:DATE', 'FAMS:MARR:DATE', 'FAMS:MARR:PLAC', 'FAMS:NOTE',
+        'FAX', 'FCOM', 'FCOM:DATE',
+        'FCOM:PLAC', 'FILE', 'FONE', 'FORM', 'GEDC', 'GIVN', 'GRAD',
+        'HEAD', 'HUSB', 'IDNO', 'IMMI', 'IMMI:DATE', 'IMMI:PLAC', 'INDI', 'INFL',
+        'LANG', 'LATI', 'LEGA', 'LONG', 'MAP', 'MARB', 'MARB:DATE', 'MARB:PLAC',
+        'MARC', 'MARL', 'MARR', 'MARR:DATE', 'MARR:PLAC',
+        'MARR_CIVIL', 'MARR_PARTNERS', 'MARR_RELIGIOUS', 'MARR_UNKNOWN', 'MARS',
+        'MEDI', 'NAME', 'NAME:FONE', 'NAME:_HEB', 'NATI', 'NATU', 'NATU:DATE', 'NATU:PLAC',
+        'NCHI', 'NICK', 'NMR', 'NOTE', 'NPFX', 'NSFX', 'OBJE', 'OCCU', 'OCCU:AGNC',
+        'ORDI', 'ORDN', 'ORDN:AGNC', 'ORDN:DATE', 'ORDN:PLAC', 'PAGE', 'PEDI', 'PHON',
+        'PLAC', 'PLAC:FONE', 'PLAC:ROMN', 'PLAC:_HEB', 'POST', 'PROB', 'PROP', 'PUBL',
+        'QUAY', 'REFN', 'RELA', 'RELI', 'REPO', 'RESI', 'RESI:DATE', 'RESI:PLAC', 'RESN',
+        'RETI', 'RETI:AGNC', 'RFN', 'RIN', 'ROLE', 'ROMN', 'SERV', 'SEX', 'SHARED_NOTE',
+        'SLGC', 'SLGC:DATE', 'SLGC:PLAC', 'SLGS', 'SLGS:DATE', 'SLGS:PLAC', 'SOUR',
+        'SPFX', 'SSN', 'STAE', 'STAT', 'STAT:DATE', 'SUBM', 'SUBN', 'SURN', 'TEMP',
+        'TEXT', 'TIME', 'TITL', 'TITL:FONE', 'TITL:ROMN', 'TITL:_HEB', 'TRLR', 'TYPE',
+        'URL', 'VERS', 'WIFE', 'WILL', 'WWW', '_ADOP_CHIL', '_ADOP_GCHI', '_ADOP_GCH1',
+        '_ADOP_GCH2', '_ADOP_HSIB', '_ADOP_SIBL', '_ADPF', '_ADPM', '_AKA', '_AKAN', '_ASSO',
+        '_BAPM_CHIL', '_BAPM_GCHI', '_BAPM_GCH1', '_BAPM_GCH2', '_BAPM_HSIB', '_BAPM_SIBL',
+        '_BIBL', '_BIRT_CHIL', '_BIRT_GCHI', '_BIRT_GCH1', '_BIRT_GCH2', '_BIRT_HSIB', '_BIRT_SIBL',
+        '_BRTM', '_BRTM:DATE', '_BRTM:PLAC', '_BURI_CHIL',
+        '_BURI_GCHI', '_BURI_GCH1', '_BURI_GCH2', '_BURI_GPAR', '_BURI_HSIB', '_BURI_SIBL', '_BURI_SPOU',
+        '_CHR_CHIL', '_CHR_GCHI', '_CHR_GCH1', '_CHR_GCH2', '_CHR_HSIB', '_CHR_SIBL', '_COML',
+        '_CREM_CHIL', '_CREM_GCHI', '_CREM_GCH1', '_CREM_GCH2', '_CREM_GPAR', '_CREM_HSIB', '_CREM_SIBL', '_CREM_SPOU',
+        '_DBID', '_DEAT_CHIL', '_DEAT_GCHI', '_DEAT_GCH1', '_DEAT_GCH2', '_DEAT_GPAR', '_DEAT_GPA1', '_DEAT_GPA2',
+        '_DEAT_HSIB', '_DEAT_PARE', '_DEAT_SIBL', '_DEAT_SPOU', '_DEG', '_DETS', '_DNA',
+        '_EMAIL', '_EYEC', '_FA1', '_FA2', '_FA3', '_FA4', '_FA5', '_FA6', '_FA7', '_FA8',
+        '_FA9', '_FA10', '_FA11', '_FA12', '_FA13', '_FNRL', '_FREL', '_GEDF', '_GODP', '_HAIR',
+        '_HEB', '_HEIG', '_HNM', '_HOL', '_INTE', '_LOC', '_MARB_CHIL', '_MARB_FAMC', '_MARB_GCHI',
+        '_MARB_GCH1', '_MARB_GCH2', '_MARB_HSIB', '_MARB_PARE', '_MARB_SIBL', '_MARI',
+        '_MARNM', '_PRIM', '_MARNM_SURN', '_MARR_CHIL', '_MARR_FAMC', '_MARR_GCHI',
+        '_MARR_GCH1', '_MARR_GCH2', '_MARR_HSIB', '_MARR_PARE', '_MARR_SIBL', '_MBON',
+        '_MDCL', '_MEDC', '_MEND', '_MILI', '_MILT', '_MREL', '_MSTAT', '_NAME', '_NAMS',
+        '_NLIV', '_NMAR', '_NMR', '_WT_USER', '_PRMN', '_SCBK', '_SEPR', '_SSHOW', '_STAT',
+        '_SUBQ', '_TODO', '_TYPE', '_UID', '_URL', '_WEIG', '_WITN', '_YART', '__BRTM_CHIL',
+        '__BRTM_GCHI', '__BRTM_GCH1', '__BRTM_GCH2', '__BRTM_HSIB', '__BRTM_SIBL',
+        // These pseudo-tags are generated dynamically to display media object attributes
+        '__FILE_SIZE__', '__IMAGE_SIZE__',
+    );
 
-	/** @var string[] Possible values for the Object-File-Format types */
-	private static $OBJE_FILE_FORM_TYPE = array(
-		'audio', 'book', 'card', 'certificate', 'coat', 'document', 'electronic',
-		'fiche', 'film', 'magazine', 'manuscript', 'map', 'newspaper', 'photo',
-		'tombstone', 'video', 'painting', 'other',
-	);
+    /** @var string[] Possible values for the Object-File-Format types */
+    private static $OBJE_FILE_FORM_TYPE = array(
+        'audio', 'book', 'card', 'certificate', 'coat', 'document', 'electronic',
+        'fiche', 'film', 'magazine', 'manuscript', 'map', 'newspaper', 'photo',
+        'tombstone', 'video', 'painting', 'other',
+    );
 
-	/**
-	 * Is $tag one of our known tags?
-	 *
-	 * @param string $tag
-	 *
-	 * @return bool
-	 */
-	public static function isTag($tag) {
-		return in_array($tag, self::$ALL_TAGS);
-	}
+    /**
+     * Is $tag one of our known tags?
+     *
+     * @param string $tag
+     *
+     * @return bool
+     */
+    public static function isTag($tag) {
+        return in_array($tag, self::$ALL_TAGS);
+    }
 
-	/**
-	 * Translate a tag, for an (optional) record
-	 *
-	 * @param string               $tag
-	 * @param GedcomRecord|null $record
-	 *
-	 * @return string
-	 */
-	public static function getLabel($tag, GedcomRecord $record = null) {
-		if ($record instanceof Individual) {
-			$sex = $record->getSex();
-		} else {
-			$sex = 'U';
-		}
+    /**
+     * Translate a tag, for an (optional) record
+     *
+     * @param string               $tag
+     * @param GedcomRecord|null $record
+     *
+     * @return string
+     */
+    public static function getLabel($tag, GedcomRecord $record = null) {
+        if ($record instanceof Individual) {
+            $sex = $record->getSex();
+        } else {
+            $sex = 'U';
+        }
 
-		switch ($tag) {
-		case 'ABBR':
-			return
-				/* I18N: gedcom tag ABBR */
-				I18N::translate('Abbreviation');
-		case 'ADDR':
-			return
-				/* I18N: gedcom tag ADDR */
-				I18N::translate('Address');
-		case 'ADR1':
-			return I18N::translate('Address line 1');
-		case 'ADR2':
-			return I18N::translate('Address line 2');
-		case 'ADOP':
-			return
-				/* I18N: gedcom tag ADOP */
-				I18N::translate('Adoption');
-		case 'ADOP:DATE':
-			return I18N::translate('Date of adoption');
-		case 'ADOP:PLAC':
-			return I18N::translate('Place of adoption');
-		case 'AFN':
-			return
-				/* I18N: gedcom tag AFN */
-				I18N::translate('Ancestral file number');
-		case 'AGE':
-			return
-				/* I18N: gedcom tag AGE */
-				I18N::translate('Age');
-		case 'AGNC':
-			return
-				/* I18N: gedcom tag AGNC */
-				I18N::translate('Agency');
-		case 'ALIA':
-			return
-				/* I18N: gedcom tag ALIA */
-				I18N::translate('Alias');
-		case 'ANCE':
-			return
-				/* I18N: gedcom tag ANCE */
-				I18N::translate('Generations of ancestors');
-		case 'ANCI':
-			return
-				/* I18N: gedcom tag ANCI */
-				I18N::translate('Ancestors interest');
-		case 'ANUL':
-			return
-				/* I18N: gedcom tag ANUL */
-				I18N::translate('Annulment');
-		case 'ASSO':
-			return
-				/* I18N: gedcom tag ASSO */
-				I18N::translate('Associate'); /* see also _ASSO */
-		case 'AUTH':
-			return
-				/* I18N: gedcom tag AUTH */
-				I18N::translate('Author');
-		case 'BAPL':
-			return
-				/* I18N: gedcom tag BAPL. LDS = Church of Latter Day Saints. */
-				I18N::translate('LDS baptism');
-		case 'BAPL:DATE':
-			return /* I18N: LDS = Church of Latter Day Saints. */ I18N::translate('Date of LDS baptism');
-		case 'BAPL:PLAC':
-			return /* I18N: LDS = Church of Latter Day Saints. */ I18N::translate('Place of LDS baptism');
-		case 'BAPM':
-			return
-				/* I18N: gedcom tag BAPM */
-				I18N::translate('Baptism');
-		case 'BAPM:DATE':
-			return I18N::translate('Date of baptism');
-		case 'BAPM:PLAC':
-			return I18N::translate('Place of baptism');
-		case 'BARM':
-			return
-				/* I18N: gedcom tag BARM */
-				I18N::translate('Bar mitzvah');
-		case 'BARM:DATE':
-			return I18N::translate('Date of bar mitzvah');
-		case 'BARM:PLAC':
-			return I18N::translate('Place of bar mitzvah');
-		case 'BASM':
-			return
-				/* I18N: gedcom tag BASM */
-				I18N::translate('Bat mitzvah');
-		case 'BASM:DATE':
-			return I18N::translate('Date of bat mitzvah');
-		case 'BASM:PLAC':
-			return I18N::translate('Place of bat mitzvah');
-		case 'BIRT':
-			return
-				/* I18N: gedcom tag BIRT */
-				I18N::translate('Birth');
-		case 'BIRT:DATE':
-			return I18N::translate('Date of birth');
-		case 'BIRT:PLAC':
-			return I18N::translate('Place of birth');
-		case 'BLES':
-			return
-				/* I18N: gedcom tag BLES */
-				I18N::translate('Blessing');
-		case 'BLES:DATE':
-			return I18N::translate('Date of blessing');
-		case 'BLES:PLAC':
-			return I18N::translate('Place of blessing');
-		case 'BLOB':
-			return
-				/* I18N: gedcom tag BLOB */
-				I18N::translate('Binary data object');
-		case 'BURI':
-			return
-				/* I18N: gedcom tag BURI */
-				I18N::translate('Burial');
-		case 'BURI:DATE':
-			return I18N::translate('Date of burial');
-		case 'BURI:PLAC':
-			return I18N::translate('Place of burial');
-		case 'CALN':
-			return
-				/* I18N: gedcom tag CALN */
-				I18N::translate('Call number');
-		case 'CAST':
-			return
-				/* I18N: gedcom tag CAST */
-				I18N::translate('Caste');
-		case 'CAUS':
-			return
-				/* I18N: gedcom tag CAUS */
-				I18N::translate('Cause');
-		case 'CEME':
-			return
-				/* I18N: gedcom tag CEME */
-				I18N::translate('Cemetery');
-		case 'CENS':
-			return
-				/* I18N: gedcom tag CENS */
-				I18N::translate('Census');
-		case 'CENS:DATE':
-			return I18N::translate('Census date');
-		case 'CENS:PLAC':
-			return I18N::translate('Census place');
-		case 'CHAN':
-			return
-				/* I18N: gedcom tag CHAN */
-				I18N::translate('Last change');
-		case 'CHAN:DATE':
-			return
-				/* I18N: gedcom tag CHAN:DATE */
-				I18N::translate('Date of last change');
-		case 'CHAN:_WT_USER':
-			return
-				/* I18N: gedcom tag CHAN:_WT_USER */
-				I18N::translate('Author of last change');
-		case 'CHAR':
-			return
-				/* I18N: gedcom tag CHAR */
-				I18N::translate('Character set');
-		case 'CHIL':
-			return
-				/* I18N: gedcom tag CHIL */
-				I18N::translate('Child');
-		case 'CHR':
-			return
-				/* I18N: gedcom tag CHR */
-				I18N::translate('Christening');
-		case 'CHR:DATE':
-			return I18N::translate('Date of christening');
-		case 'CHR:PLAC':
-			return I18N::translate('Place of christening');
-		case 'CHRA':
-			return
-				/* I18N: gedcom tag CHRA */
-				I18N::translate('Adult christening');
-		case 'CITN':
-			return
-				/* I18N: gedcom tag CITN */
-				I18N::translate('Citizenship');
-		case 'CITY':
-			return
-				/* I18N: gedcom tag CITY */
-				I18N::translate('City');
-		case 'COMM':
-			return
-				/* I18N: gedcom tag COMM */
-				I18N::translate('Comment');
-		case 'CONC':
-			return
-				/* I18N: gedcom tag CONC */
-				I18N::translate('Concatenation');
-		case 'CONT':
-			return
-				/* I18N: gedcom tag CONT */
-				I18N::translate('Continued');
-		case 'CONF':
-			return
-				/* I18N: gedcom tag CONF */
-				I18N::translate('Confirmation');
-		case 'CONF:DATE':
-			return I18N::translate('Date of confirmation');
-		case 'CONF:PLAC':
-			return I18N::translate('Place of confirmation');
-		case 'CONL':
-			return
-				/* I18N: gedcom tag CONL. LDS = Church of Latter Day Saints. */
-				I18N::translate('LDS confirmation');
-		case 'COPR':
-			return
-				/* I18N: gedcom tag COPR */
-				I18N::translate('Copyright');
-		case 'CORP':
-			return
-				/* I18N: gedcom tag CORP */
-				I18N::translate('Corporation');
-		case 'CREM':
-			return
-				/* I18N: gedcom tag CREM */
-				I18N::translate('Cremation');
-		case 'CREM:DATE':
-			return I18N::translate('Date of cremation');
-		case 'CREM:PLAC':
-			return I18N::translate('Place of cremation');
-		case 'CTRY':
-			return
-				/* I18N: gedcom tag CTRY */
-				I18N::translate('Country');
-		case 'DATA':
-			return
-				/* I18N: gedcom tag DATA */
-				I18N::translate('Data');
-		case 'DATA:DATE':
-			return I18N::translate('Date of entry in original source');
-		case 'DATE':
-			return
-				/* I18N: gedcom tag DATE */
-				I18N::translate('Date');
-		case 'DEAT':
-			return
-				/* I18N: gedcom tag DEAT */
-				I18N::translate('Death');
-		case 'DEAT:CAUS':
-			return I18N::translate('Cause of death');
-		case 'DEAT:DATE':
-			return I18N::translate('Date of death');
-		case 'DEAT:PLAC':
-			return I18N::translate('Place of death');
-		case 'DESC':
-			return
-				/* I18N: gedcom tag DESC */
-				I18N::translate('Descendants');
-		case 'DESI':
-			return
-				/* I18N: gedcom tag DESI */
-				I18N::translate('Descendants interest');
-		case 'DEST':
-			return
-				/* I18N: gedcom tag DEST */
-				I18N::translate('Destination');
-		case 'DIV':
-			return
-				/* I18N: gedcom tag DIV */
-				I18N::translate('Divorce');
-		case 'DIVF':
-			return
-				/* I18N: gedcom tag DIVF */
-				I18N::translate('Divorce filed');
-		case 'DSCR':
-			return
-				/* I18N: gedcom tag DSCR */
-				I18N::translate('Description');
-		case 'EDUC':
-			return
-				/* I18N: gedcom tag EDUC */
-				I18N::translate('Education');
-		case 'EDUC:AGNC':
-			return I18N::translate('School or college');
-		case 'EMAI':
-			return
-				/* I18N: gedcom tag EMAI */
-				I18N::translate('Email address');
-		case 'EMAIL':
-			return
-				/* I18N: gedcom tag EMAIL */
-				I18N::translate('Email address');
-		case 'EMAL':
-			return
-				/* I18N: gedcom tag EMAL */
-				I18N::translate('Email address');
-		case 'EMIG':
-			return
-				/* I18N: gedcom tag EMIG */
-				I18N::translate('Emigration');
-		case 'EMIG:DATE':
-			return I18N::translate('Date of emigration');
-		case 'EMIG:PLAC':
-			return I18N::translate('Place of emigration');
-		case 'ENDL':
-			return
-				/* I18N: gedcom tag ENDL. LDS = Church of Latter Day Saints. */
-				I18N::translate('LDS endowment');
-		case 'ENDL:DATE':
-			return /* I18N: LDS = Church of Latter Day Saints. */ I18N::translate('Date of LDS endowment');
-		case 'ENDL:PLAC':
-			return /* I18N: LDS = Church of Latter Day Saints. */ I18N::translate('Place of LDS endowment');
-		case 'ENGA':
-			return
-				/* I18N: gedcom tag ENGA */
-				I18N::translate('Engagement');
-		case 'ENGA:DATE':
-			return I18N::translate('Date of engagement');
-		case 'ENGA:PLAC':
-			return I18N::translate('Place of engagement');
-		case 'EVEN':
-			return
-				/* I18N: gedcom tag EVEN */
-				I18N::translate('Event');
-		case 'EVEN:DATE':
-			return I18N::translate('Date of event');
-		case 'EVEN:PLAC':
-			return I18N::translate('Place of event');
-		case 'EVEN:TYPE':
-			return I18N::translate('Type of event');
-		case 'FACT':
-			return
-				/* I18N: gedcom tag FACT */
-				I18N::translate('Fact');
-		case 'FACT:TYPE':
-			return I18N::translate('Type of fact');
-		case 'FAM':
-			return
-				/* I18N: gedcom tag FAM */
-				I18N::translate('Family');
-		case 'FAMC':
-			return
-				/* I18N: gedcom tag FAMC */
-				I18N::translate('Family as a child');
-		case 'FAMF':
-			return
-				/* I18N: gedcom tag FAMF */
-				I18N::translate('Family file');
-		case 'FAMS':
-			return
-				/* I18N: gedcom tag FAMS */
-				I18N::translate('Family as a spouse');
-		case 'FAMS:CENS:DATE':
-			return I18N::translate('Spouse census date');
-		case 'FAMS:CENS:PLAC':
-			return I18N::translate('Spouse census place');
-		case 'FAMS:DIV:DATE':
-			return I18N::translate('Date of divorce');
-		case 'FAMS:MARR:DATE':
-			return I18N::translate('Date of marriage');
-		case 'FAMS:MARR:PLAC':
-			return I18N::translate('Place of marriage');
-		case 'FAMS:NOTE':
-			return I18N::translate('Spouse note');
-		case 'FAMS:SLGS:DATE':
-			return /* I18N: LDS = Church of Latter Day Saints. */ I18N::translate('Date of LDS spouse sealing');
-		case 'FAMS:SLGS:PLAC':
-			return /* I18N: LDS = Church of Latter Day Saints. */ I18N::translate('Place of LDS spouse sealing');
-		case 'FAX':
-			return
-				/* I18N: gedcom tag FAX */
-				I18N::translate('Fax');
-		case 'FCOM':
-			return
-				/* I18N: gedcom tag FCOM */
-				I18N::translate('First communion');
-		case 'FCOM:DATE':
-			return I18N::translate('Date of first communion');
-		case 'FCOM:PLAC':
-			return I18N::translate('Place of first communion');
-		case 'FILE':
-			return
-				/* I18N: gedcom tag FILE */
-				I18N::translate('Filename');
-		case 'FONE':
-			return
-				/* I18N: gedcom tag FONE */
-				I18N::translate('Phonetic');
-		case 'FORM':
-			return
-				/* I18N: gedcom tag FORM */
-				I18N::translate('Format');
-		case 'GEDC':
-			return
-				/* I18N: gedcom tag GEDC */
-				I18N::translate('GEDCOM file');
-		case 'GIVN':
-			return
-				/* I18N: gedcom tag GIVN */
-				I18N::translate('Given names');
-		case 'GRAD':
-			return
-				/* I18N: gedcom tag GRAD */
-				I18N::translate('Graduation');
-		case 'HEAD':
-			return
-				/* I18N: gedcom tag HEAD */
-				I18N::translate('Header');
-		case 'HUSB':
-			return
-				/* I18N: gedcom tag HUSB */
-				I18N::translate('Husband');
-		case 'IDNO':
-			return
-				/* I18N: gedcom tag IDNO */
-				I18N::translate('Identification number');
-		case 'IMMI':
-			return
-				/* I18N: gedcom tag IMMI */
-				I18N::translate('Immigration');
-		case 'IMMI:DATE':
-			return I18N::translate('Date of immigration');
-		case 'IMMI:PLAC':
-			return I18N::translate('Place of immigration');
-		case 'INDI':
-			return
-				/* I18N: gedcom tag INDI */
-				I18N::translate('Individual');
-		case 'INFL':
-			return
-				/* I18N: gedcom tag INFL */
-				I18N::translate('Infant');
-		case 'LANG':
-			return
-				/* I18N: gedcom tag LANG */
-				I18N::translate('Language');
-		case 'LATI':
-			return
-				/* I18N: gedcom tag LATI */
-				I18N::translate('Latitude');
-		case 'LEGA':
-			return
-				/* I18N: gedcom tag LEGA */
-				I18N::translate('Legatee');
-		case 'LONG':
-			return
-				/* I18N: gedcom tag LONG */
-				I18N::translate('Longitude');
-		case 'MAP':
-			return
-				/* I18N: gedcom tag MAP */
-				I18N::translate('Map');
-		case 'MARB':
-			return
-				/* I18N: gedcom tag MARB */
-				I18N::translate('Marriage banns');
-		case 'MARB:DATE':
-			return I18N::translate('Date of marriage banns');
-		case 'MARB:PLAC':
-			return I18N::translate('Place of marriage banns');
-		case 'MARC':
-			return
-				/* I18N: gedcom tag MARC */
-				I18N::translate('Marriage contract');
-		case 'MARL':
-			return
-				/* I18N: gedcom tag MARL */
-				I18N::translate('Marriage license');
-		case 'MARR':
-			return
-				/* I18N: gedcom tag MARR */
-				I18N::translate('Marriage');
-		case 'MARR:DATE':
-			return I18N::translate('Date of marriage');
-		case 'MARR:PLAC':
-			return I18N::translate('Place of marriage');
-		case 'MARR_CIVIL':
-			return I18N::translate('Civil marriage');
-		case 'MARR_PARTNERS':
-			return I18N::translate('Registered partnership');
-		case 'MARR_RELIGIOUS':
-			return I18N::translate('Religious marriage');
-		case 'MARR_UNKNOWN':
-			return I18N::translate('Marriage type unknown');
-		case 'MARS':
-			return
-				/* I18N: gedcom tag MARS */
-				I18N::translate('Marriage settlement');
-		case 'MEDI':
-			return
-				/* I18N: gedcom tag MEDI */
-				I18N::translate('Media type');
-		case 'NAME':
-			if ($record instanceof Repository) {
-				return
-					/* I18N: gedcom tag REPO:NAME */
-					I18N::translateContext('Repository', 'Name');
-			} else {
-				return
-					/* I18N: gedcom tag NAME */
-					I18N::translate('Name');
-			}
-		case 'NAME:FONE':
-			return I18N::translate('Phonetic name');
-		case 'NAME:_HEB':
-			return I18N::translate('Name in Hebrew');
-		case 'NATI':
-			return
-				/* I18N: gedcom tag NATI */
-				I18N::translate('Nationality');
-		case 'NATU':
-			return
-				/* I18N: gedcom tag NATU */
-				I18N::translate('Naturalization');
-		case 'NATU:DATE':
-			return I18N::translate('Date of naturalization');
-		case 'NATU:PLAC':
-			return I18N::translate('Place of naturalization');
-		case 'NCHI':
-			return
-				/* I18N: gedcom tag NCHI */
-				I18N::translate('Number of children');
-		case 'NICK':
-			return
-				/* I18N: gedcom tag NICK */
-				I18N::translate('Nickname');
-		case 'NMR':
-			return
-				/* I18N: gedcom tag NMR */
-				I18N::translate('Number of marriages');
-		case 'NOTE':
-			return
-				/* I18N: gedcom tag NOTE */
-				I18N::translate('Note');
-		case 'NPFX':
-			return
-				/* I18N: gedcom tag NPFX */
-				I18N::translate('Name prefix');
-		case 'NSFX':
-			return
-				/* I18N: gedcom tag NSFX */
-				I18N::translate('Name suffix');
-		case 'OBJE':
-			return
-				/* I18N: gedcom tag OBJE */
-				I18N::translate('Media object');
-		case 'OCCU':
-			return
-				/* I18N: gedcom tag OCCU */
-				I18N::translate('Occupation');
-		case 'OCCU:AGNC':
-			return I18N::translate('Employer');
-		case 'ORDI':
-			return
-				/* I18N: gedcom tag ORDI */
-				I18N::translate('Ordinance');
-		case 'ORDN':
-			return
-				/* I18N: gedcom tag ORDN */
-				I18N::translate('Ordination');
-		case 'ORDN:AGNC':
-			return I18N::translate('Religious institution');
-		case 'ORDN:DATE':
-			return I18N::translate('Date of ordination');
-		case 'ORDN:PLAC':
-			return I18N::translate('Place of ordination');
-		case 'PAGE':
-			return
-				/* I18N: gedcom tag PAGE */
-				I18N::translate('Citation details');
-		case 'PEDI':
-			return
-				/* I18N: gedcom tag PEDI */
-				I18N::translate('Relationship to parents');
-		case 'PHON':
-			return
-				/* I18N: gedcom tag PHON */
-				I18N::translate('Phone');
-		case 'PLAC':
-			return
-				/* I18N: gedcom tag PLAC */
-				I18N::translate('Place');
-		case 'PLAC:FONE':
-			return I18N::translate('Phonetic place');
-		case 'PLAC:ROMN':
-			return I18N::translate('Romanized place');
-		case 'PLAC:_HEB':
-			return I18N::translate('Place in Hebrew');
-		case 'POST':
-			return
-				/* I18N: gedcom tag POST */
-				I18N::translate('Postal code');
-		case 'PROB':
-			return
-				/* I18N: gedcom tag PROB */
-				I18N::translate('Probate');
-		case 'PROP':
-			return
-				/* I18N: gedcom tag PROP */
-				I18N::translate('Property');
-		case 'PUBL':
-			return
-				/* I18N: gedcom tag PUBL */
-				I18N::translate('Publication');
-		case 'QUAY':
-			return
-				/* I18N: gedcom tag QUAY */
-				I18N::translate('Quality of data');
-		case 'REFN':
-			return
-				/* I18N: gedcom tag REFN */
-				I18N::translate('Reference number');
-		case 'RELA':
-			return
-				/* I18N: gedcom tag RELA */
-				I18N::translate('Relationship');
-		case 'RELI':
-			return
-				/* I18N: gedcom tag RELI */
-				I18N::translate('Religion');
-		case 'REPO':
-			return
-				/* I18N: gedcom tag REPO */
-				I18N::translate('Repository');
-		case 'RESI':
-			return
-				/* I18N: gedcom tag RESI */
-				I18N::translate('Residence');
-		case 'RESI:DATE':
-			return I18N::translate('Date of residence');
-		case 'RESI:PLAC':
-			return I18N::translate('Place of residence');
-		case 'RESN':
-			return
-				/* I18N: gedcom tag RESN */
-				I18N::translate('Restriction');
-		case 'RETI':
-			return
-				/* I18N: gedcom tag RETI */
-				I18N::translate('Retirement');
-		case 'RETI:AGNC':
-			return I18N::translate('Employer');
-		case 'RFN':
-			return
-				/* I18N: gedcom tag RFN */
-				I18N::translate('Record file number');
-		case 'RIN':
-			return
-				/* I18N: gedcom tag RIN */
-				I18N::translate('Record ID number');
-		case 'ROLE':
-			return
-				/* I18N: gedcom tag ROLE */
-				I18N::translate('Role');
-		case 'ROMN':
-			return
-				/* I18N: gedcom tag ROMN */
-				I18N::translate('Romanized');
-		case 'SERV':
-			return
-				/* I18N: gedcom tag SERV */
-				I18N::translate('Remote server');
-		case 'SEX':
-			return
-				/* I18N: gedcom tag SEX */
-				I18N::translate('Gender');
-		case 'SHARED_NOTE':
-			return I18N::translate('Shared note');
-		case 'SLGC':
-			return
-				/* I18N: gedcom tag SLGC. LDS = Church of Latter Day Saints. */
-				I18N::translate('LDS child sealing');
-		case 'SLGC:DATE':
-			return /* I18N: LDS = Church of Latter Day Saints. */ I18N::translate('Date of LDS child sealing');
-		case 'SLGC:PLAC':
-			return /* I18N: LDS = Church of Latter Day Saints. */ I18N::translate('Place of LDS child sealing');
-		case 'SLGS':
-			return
-				/* I18N: gedcom tag SLGS. LDS = Church of Latter Day Saints. */
-				I18N::translate('LDS spouse sealing');
-		case 'SOUR':
-			return
-				/* I18N: gedcom tag SOUR */
-				I18N::translate('Source');
-		case 'SPFX':
-			return
-				/* I18N: gedcom tag SPFX */
-				I18N::translate('Surname prefix');
-		case 'SSN':
-			return
-				/* I18N: gedcom tag SSN */
-				I18N::translate('Social security number');
-		case 'STAE':
-			return
-				/* I18N: gedcom tag STAE */
-				I18N::translate('State');
-		case 'STAT':
-			return
-				/* I18N: gedcom tag STAT */
-				I18N::translate('Status');
-		case 'STAT:DATE':
-			return I18N::translate('Status change date');
-		case 'SUBM':
-			return
-				/* I18N: gedcom tag SUBM */
-				I18N::translate('Submitter');
-		case 'SUBN':
-			return
-				/* I18N: gedcom tag SUBN */
-				I18N::translate('Submission');
-		case 'SURN':
-			return
-				/* I18N: gedcom tag SURN */
-				I18N::translate('Surname');
-		case 'TEMP':
-			return
-				/* I18N: gedcom tag TEMP */
-				I18N::translate('Temple');
-		case 'TEXT':
-			return
-				/* I18N: gedcom tag TEXT */
-				I18N::translate('Text');
-		case 'TIME':
-			return
-				/* I18N: gedcom tag TIME */
-				I18N::translate('Time');
-		case 'TITL':
-			return
-				/* I18N: gedcom tag TITL */
-				I18N::translate('Title');
-		case 'TITL:FONE':
-			return I18N::translate('Phonetic title');
-		case 'TITL:ROMN':
-			return I18N::translate('Romanized title');
-		case 'TITL:_HEB':
-			return I18N::translate('Title in Hebrew');
-		case 'TRLR':
-			return
-				/* I18N: gedcom tag TRLR */
-				I18N::translate('Trailer');
-		case 'TYPE':
-			return
-				/* I18N: gedcom tag TYPE */
-				I18N::translate('Type');
-		case 'URL':
-			return
-				/* I18N: gedcom tag URL (A web address / URL) */
-				I18N::translate('URL');
-		case 'VERS':
-			return
-				/* I18N: gedcom tag VERS */
-				I18N::translate('Version');
-		case 'WIFE':
-			return
-				/* I18N: gedcom tag WIFE */
-				I18N::translate('Wife');
-		case 'WILL':
-			return
-				/* I18N: gedcom tag WILL */
-				I18N::translate('Will');
-		case 'WWW':
-			return
-				/* I18N: gedcom tag WWW (A web address / URL) */
-				I18N::translate('URL');
-		case '_ADOP_CHIL':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Adoption of a son');
-			case 'F':
-				return I18N::translate('Adoption of a daughter');
-			default:
-				return I18N::translate('Adoption of a child');
-			}
-		case '_ADOP_GCHI':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Adoption of a grandson');
-			case 'F':
-				return I18N::translate('Adoption of a granddaughter');
-			default:
-				return I18N::translate('Adoption of a grandchild');
-			}
-		case '_ADOP_GCH1':
-			switch ($sex) {
-			case 'M':
-				return I18N::translateContext('daughter’s son', 'Adoption of a grandson');
-			case 'F':
-				return I18N::translateContext('daughter’s daughter', 'Adoption of a granddaughter');
-			default:
-				return I18N::translate('Adoption of a grandchild');
-			}
-		case '_ADOP_GCH2':
-			switch ($sex) {
-			case 'M':
-				return I18N::translateContext('son’s son', 'Adoption of a grandson');
-			case 'F':
-				return I18N::translateContext('son’s daughter', 'Adoption of a granddaughter');
-			default:
-				return I18N::translate('Adoption of a grandchild');
-			}
-		case '_ADOP_HSIB':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Adoption of a half-brother');
-			case 'F':
-				return I18N::translate('Adoption of a half-sister');
-			default:
-				return I18N::translate('Adoption of a half-sibling');
-			}
-		case '_ADOP_SIBL':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Adoption of a brother');
-			case 'F':
-				return I18N::translate('Adoption of a sister');
-			default:
-				return I18N::translate('Adoption of a sibling');
-			}
-		case '_ADPF':
-			switch ($sex) {
-			case 'M':
-				return
-					/* I18N: gedcom tag _ADPF */
-					I18N::translateContext('MALE', 'Adopted by father');
-			case 'F':
-				return
-					/* I18N: gedcom tag _ADPF */
-					I18N::translateContext('FEMALE', 'Adopted by father');
-			default:
-				return
-					/* I18N: gedcom tag _ADPF */
-					I18N::translate('Adopted by father');
-			}
-		case '_ADPM':
-			switch ($sex) {
-			case 'M':
-				return
-					/* I18N: gedcom tag _ADPM */
-					I18N::translateContext('MALE', 'Adopted by mother');
-			case 'F':
-				return
-					/* I18N: gedcom tag _ADPM */
-					I18N::translateContext('FEMALE', 'Adopted by mother');
-			default:
-				return
-					/* I18N: gedcom tag _ADPM */
-					I18N::translate('Adopted by mother');
-			}
-		case '_AKA':
-		case '_AKAN':
-			switch ($sex) {
-			case 'M':
-				return
-					/* I18N: gedcom tag _AKA */
-					I18N::translateContext('MALE', 'Also known as');
-			case 'F':
-				return
-					/* I18N: gedcom tag _AKA */
-					I18N::translateContext('FEMALE', 'Also known as');
-			default:
-				return
-					/* I18N: gedcom tag _AKA */
-					I18N::translate('Also known as');
-			}
-		case '_ASSO':
-			return
-				/* I18N: gedcom tag _ASSO */
-				I18N::translate('Associate'); /* see also ASSO */
-		case '_BAPM_CHIL':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Baptism of a son');
-			case 'F':
-				return I18N::translate('Baptism of a daughter');
-			default:
-				return I18N::translate('Baptism of a child');
-			}
-		case '_BAPM_GCHI':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Baptism of a grandson');
-			case 'F':
-				return I18N::translate('Baptism of a granddaughter');
-			default:
-				return I18N::translate('Baptism of a grandchild');
-			}
-		case '_BAPM_GCH1':
-			switch ($sex) {
-			case 'M':
-				return I18N::translateContext('daughter’s son', 'Baptism of a grandson');
-			case 'F':
-				return I18N::translateContext('daughter’s daughter', 'Baptism of a granddaughter');
-			default:
-				return I18N::translate('Baptism of a grandchild');
-			}
-		case '_BAPM_GCH2':
-			switch ($sex) {
-			case 'M':
-				return I18N::translateContext('son’s son', 'Baptism of a grandson');
-			case 'F':
-				return I18N::translateContext('son’s daughter', 'Baptism of a granddaughter');
-			default:
-				return I18N::translate('Baptism of a grandchild');
-			}
-		case '_BAPM_HSIB':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Baptism of a half-brother');
-			case 'F':
-				return I18N::translate('Baptism of a half-sister');
-			default:
-				return I18N::translate('Baptism of a half-sibling');
-			}
-		case '_BAPM_SIBL':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Baptism of a brother');
-			case 'F':
-				return I18N::translate('Baptism of a sister');
-			default:
-				return I18N::translate('Baptism of a sibling');
-			}
-		case '_BIBL':
-			return
-				/* I18N: gedcom tag _BIBL */
-				I18N::translate('Bibliography');
-		case '_BIRT_CHIL':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Birth of a son');
-			case 'F':
-				return I18N::translate('Birth of a daughter');
-			default:
-				return I18N::translate('Birth of a child');
-			}
-		case '_BIRT_GCHI':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Birth of a grandson');
-			case 'F':
-				return I18N::translate('Birth of a granddaughter');
-			default:
-				return I18N::translate('Birth of a grandchild');
-			}
-		case '_BIRT_GCH1':
-			switch ($sex) {
-			case 'M':
-				return I18N::translateContext('daughter’s son', 'Birth of a grandson');
-			case 'F':
-				return I18N::translateContext('daughter’s daughter', 'Birth of a granddaughter');
-			default:
-				return I18N::translate('Birth of a grandchild');
-			}
-		case '_BIRT_GCH2':
-			switch ($sex) {
-			case 'M':
-				return I18N::translateContext('son’s son', 'Birth of a grandson');
-			case 'F':
-				return I18N::translateContext('son’s daughter', 'Birth of a granddaughter');
-			default:
-				return I18N::translate('Birth of a grandchild');
-			}
-		case '_BIRT_HSIB':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Birth of a half-brother');
-			case 'F':
-				return I18N::translate('Birth of a half-sister');
-			default:
-				return I18N::translate('Birth of a half-sibling');
-			}
-		case '_BIRT_SIBL':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Birth of a brother');
-			case 'F':
-				return I18N::translate('Birth of a sister');
-			default:
-				return I18N::translate('Birth of a sibling');
-			}
-		case '_BRTM':
-			return
-				/* I18N: gedcom tag _BRTM */
-				I18N::translate('Brit milah');
-		case '_BRTM:DATE':
-			return I18N::translate('Date of brit milah');
-		case '_BRTM:PLAC':
-			return I18N::translate('Place of brit milah');
-		case '_BURI_CHIL':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Burial of a son');
-			case 'F':
-				return I18N::translate('Burial of a daughter');
-			default:
-				return I18N::translate('Burial of a child');
-			}
-		case '_BURI_GCHI':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Burial of a grandson');
-			case 'F':
-				return I18N::translate('Burial of a granddaughter');
-			default:
-				return I18N::translate('Burial of a grandchild');
-			}
-		case '_BURI_GCH1':
-			switch ($sex) {
-			case 'M':
-				return I18N::translateContext('daughter’s son', 'Burial of a grandson');
-			case 'F':
-				return I18N::translateContext('daughter’s daughter', 'Burial of a granddaughter');
-			default:
-				return I18N::translate('Burial of a grandchild');
-			}
-		case '_BURI_GCH2':
-			switch ($sex) {
-			case 'M':
-				return I18N::translateContext('son’s son', 'Burial of a grandson');
-			case 'F':
-				return I18N::translateContext('son’s daughter', 'Burial of a granddaughter');
-			default:
-				return I18N::translate('Burial of a grandchild');
-			}
-		case '_BURI_GPAR':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Burial of a grandfather');
-			case 'F':
-				return I18N::translate('Burial of a grandmother');
-			default:
-				return I18N::translate('Burial of a grandparent');
-			}
-		case '_BURI_GPA1':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Burial of a paternal grandfather');
-			case 'F':
-				return I18N::translate('Burial of a paternal grandmother');
-			default:
-				return I18N::translate('Burial of a paternal grandparent');
-			}
-		case '_BURI_GPA2':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Burial of a maternal grandfather');
-			case 'F':
-				return I18N::translate('Burial of a maternal grandmother');
-			default:
-				return I18N::translate('Burial of a maternal grandparent');
-			}
-		case '_BURI_HSIB':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Burial of a half-brother');
-			case 'F':
-				return I18N::translate('Burial of a half-sister');
-			default:
-				return I18N::translate('Burial of a half-sibling');
-			}
-		case '_BURI_PARE':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Burial of a father');
-			case 'F':
-				return I18N::translate('Burial of a mother');
-			default:
-				return I18N::translate('Burial of a parent');
-			}
-		case '_BURI_SIBL':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Burial of a brother');
-			case 'F':
-				return I18N::translate('Burial of a sister');
-			default:
-				return I18N::translate('Burial of a sibling');
-			}
-		case '_BURI_SPOU':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Burial of a husband');
-			case 'F':
-				return I18N::translate('Burial of a wife');
-			default:
-				return I18N::translate('Burial of a spouse');
-			}
-		case '_CHR_CHIL':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Christening of a son');
-			case 'F':
-				return I18N::translate('Christening of a daughter');
-			default:
-				return I18N::translate('Christening of a child');
-			}
-		case '_CHR_GCHI':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Christening of a grandson');
-			case 'F':
-				return I18N::translate('Christening of a granddaughter');
-			default:
-				return I18N::translate('Christening of a grandchild');
-			}
-		case '_CHR_GCH1':
-			switch ($sex) {
-			case 'M':
-				return I18N::translateContext('daughter’s son', 'Christening of a grandson');
-			case 'F':
-				return I18N::translateContext('daughter’s daughter', 'Christening of a granddaughter');
-			default:
-				return I18N::translate('Christening of a grandchild');
-			}
-		case '_CHR_GCH2':
-			switch ($sex) {
-			case 'M':
-				return I18N::translateContext('son’s son', 'Christening of a grandson');
-			case 'F':
-				return I18N::translateContext('son’s daughter', 'Christening of a granddaughter');
-			default:
-				return I18N::translate('Christening of a grandchild');
-			}
-		case '_CHR_HSIB':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Christening of a half-brother');
-			case 'F':
-				return I18N::translate('Christening of a half-sister');
-			default:
-				return I18N::translate('Christening of a half-sibling');
-			}
-		case '_CHR_SIBL':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Christening of a brother');
-			case 'F':
-				return I18N::translate('Christening of a sister');
-			default:
-				return I18N::translate('Christening of a sibling');
-			}
-		case '_COML':
-			return
-				/* I18N: gedcom tag _COML */
-				I18N::translate('Common law marriage');
-		case '_CREM_CHIL':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Cremation of a son');
-			case 'F':
-				return I18N::translate('Cremation of a daughter');
-			default:
-				return I18N::translate('Cremation of a child');
-			}
-		case '_CREM_GCHI':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Cremation of a grandson');
-			case 'F':
-				return I18N::translate('Cremation of a granddaughter');
-			default:
-				return I18N::translate('Cremation of a grandchild');
-			}
-		case '_CREM_GCH1':
-			switch ($sex) {
-			case 'M':
-				return I18N::translateContext('daughter’s son', 'Cremation of a grandson');
-			case 'F':
-				return I18N::translateContext('daughter’s daughter', 'Cremation of a granddaughter');
-			default:
-				return I18N::translate('Cremation of a grandchild');
-			}
-		case '_CREM_GCH2':
-			switch ($sex) {
-			case 'M':
-				return I18N::translateContext('son’s son', 'Cremation of a grandson');
-			case 'F':
-				return I18N::translateContext('son’s daughter', 'Cremation of a granddaughter');
-			default:
-				return I18N::translate('Cremation of a grandchild');
-			}
-		case '_CREM_GPAR':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Cremation of a grandfather');
-			case 'F':
-				return I18N::translate('Cremation of a grandmother');
-			default:
-				return I18N::translate('Cremation of a grand-parent');
-			}
-		case '_CREM_GPA1':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Cremation of a paternal grandfather');
-			case 'F':
-				return I18N::translate('Cremation of a paternal grandmother');
-			default:
-				return I18N::translate('Cremation of a grand-parent');
-			}
-		case '_CREM_GPA2':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Cremation of a maternal grandfather');
-			case 'F':
-				return I18N::translate('Cremation of a maternal grandmother');
-			default:
-				return I18N::translate('Cremation of a grand-parent');
-			}
-		case '_CREM_HSIB':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Cremation of a half-brother');
-			case 'F':
-				return I18N::translate('Cremation of a half-sister');
-			default:
-				return I18N::translate('Cremation of a half-sibling');
-			}
-		case '_CREM_PARE':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Cremation of a father');
-			case 'F':
-				return I18N::translate('Cremation of a mother');
-			default:
-				return I18N::translate('Cremation of a parent');
-			}
-		case '_CREM_SIBL':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Cremation of a brother');
-			case 'F':
-				return I18N::translate('Cremation of a sister');
-			default:
-				return I18N::translate('Cremation of a sibling');
-			}
-		case '_CREM_SPOU':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Cremation of a husband');
-			case 'F':
-				return I18N::translate('Cremation of a wife');
-			default:
-				return I18N::translate('Cremation of a spouse');
-			}
-		case '_DBID':
-			return
-				/* I18N: gedcom tag _DBID */
-				I18N::translate('Linked database ID');
-		case '_DEAT_CHIL':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Death of a son');
-			case 'F':
-				return I18N::translate('Death of a daughter');
-			default:
-				return I18N::translate('Death of a child');
-			}
-		case '_DEAT_GCHI':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Death of a grandson');
-			case 'F':
-				return I18N::translate('Death of a granddaughter');
-			default:
-				return I18N::translate('Death of a grandchild');
-			}
-		case '_DEAT_GCH1':
-			switch ($sex) {
-			case 'M':
-				return I18N::translateContext('daughter’s son', 'Death of a grandson');
-			case 'F':
-				return I18N::translateContext('daughter’s daughter', 'Death of a granddaughter');
-			default:
-				return I18N::translate('Death of a grandchild');
-			}
-		case '_DEAT_GCH2':
-			switch ($sex) {
-			case 'M':
-				return I18N::translateContext('son’s son', 'Death of a grandson');
-			case 'F':
-				return I18N::translateContext('son’s daughter', 'Death of a granddaughter');
-			default:
-				return I18N::translate('Death of a grandchild');
-			}
-		case '_DEAT_GPAR':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Death of a grandfather');
-			case 'F':
-				return I18N::translate('Death of a grandmother');
-			default:
-				return I18N::translate('Death of a grand-parent');
-			}
-		case '_DEAT_GPA1':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Death of a paternal grandfather');
-			case 'F':
-				return I18N::translate('Death of a paternal grandmother');
-			default:
-				return I18N::translate('Death of a grand-parent');
-			}
-		case '_DEAT_GPA2':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Death of a maternal grandfather');
-			case 'F':
-				return I18N::translate('Death of a maternal grandmother');
-			default:
-				return I18N::translate('Death of a grand-parent');
-			}
-		case '_DEAT_HSIB':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Death of a half-brother');
-			case 'F':
-				return I18N::translate('Death of a half-sister');
-			default:
-				return I18N::translate('Death of a half-sibling');
-			}
-		case '_DEAT_PARE':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Death of a father');
-			case 'F':
-				return I18N::translate('Death of a mother');
-			default:
-				return I18N::translate('Death of a parent');
-			}
-		case '_DEAT_SIBL':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Death of a brother');
-			case 'F':
-				return I18N::translate('Death of a sister');
-			default:
-				return I18N::translate('Death of a sibling');
-			}
-		case '_DEAT_SPOU':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Death of a husband');
-			case 'F':
-				return I18N::translate('Death of a wife');
-			default:
-				return I18N::translate('Death of a spouse');
-			}
-		case '_DEG':
-			return
-				/* I18N: gedcom tag _DEG */
-				I18N::translate('Degree');
-		case '_DETS':
-			return
-				/* I18N: gedcom tag _DETS */
-				I18N::translate('Death of one spouse');
-		case '_DNA':
-			return
-				/* I18N: gedcom tag _DNA (from FTM 2010) */
-				I18N::translate('DNA markers');
-		case '_EMAIL':
-			return
-				/* I18N: gedcom tag _EMAIL */
-				I18N::translate('Email address');
-		case '_EYEC':
-			return
-				/* I18N: gedcom tag _EYEC */
-				I18N::translate('Eye color');
-		case '_FA1':
-			return I18N::translate('Fact 1');
-		case '_FA2':
-			return I18N::translate('Fact 2');
-		case '_FA3':
-			return I18N::translate('Fact 3');
-		case '_FA4':
-			return I18N::translate('Fact 4');
-		case '_FA5':
-			return I18N::translate('Fact 5');
-		case '_FA6':
-			return I18N::translate('Fact 6');
-		case '_FA7':
-			return I18N::translate('Fact 7');
-		case '_FA8':
-			return I18N::translate('Fact 8');
-		case '_FA9':
-			return I18N::translate('Fact 9');
-		case '_FA10':
-			return I18N::translate('Fact 10');
-		case '_FA11':
-			return I18N::translate('Fact 11');
-		case '_FA12':
-			return I18N::translate('Fact 12');
-		case '_FA13':
-			return I18N::translate('Fact 13');
-		case '_FNRL':
-			return
-				/* I18N: gedcom tag _FNRL */
-				I18N::translate('Funeral');
-		case '_FREL':
-			return
-				/* I18N: gedcom tag _FREL */
-				I18N::translate('Relationship to father');
-		case '_GEDF':
-			return
-				/* I18N: gedcom tag _GEDF */
-				I18N::translate('GEDCOM file');
-		case '_GODP':
-			return
-				/* I18N: gedcom tag _GODP */
-				I18N::translate('Godparent');
-		case '_HAIR':
-			return
-				/* I18N: gedcom tag _HAIR */
-				I18N::translate('Hair color');
-		case '_HEB':
-			return
-				/* I18N: gedcom tag _HEB */
-				I18N::translate('Hebrew');
-		case '_HEIG':
-			return
-				/* I18N: gedcom tag _HEIG */
-				I18N::translate('Height');
-		case '_HNM':
-			return
-				/* I18N: gedcom tag _HNM */
-				I18N::translate('Hebrew name');
-		case '_HOL':
-			return
-				/* I18N: gedcom tag _HOL */
-				I18N::translate('Holocaust');
-		case '_INTE':
-			switch ($sex) {
-			case 'M':
-				return
-					/* I18N: gedcom tag _INTE */
-					I18N::translateContext('MALE', 'Interred');
-			case 'F':
-				return
-					/* I18N: gedcom tag _INTE */
-					I18N::translateContext('FEMALE', 'Interred');
-			default:
-				return
-					/* I18N: gedcom tag _INTE */
-					I18N::translate('Interred');
-			}
-		case '_LOC':
-			return
-				/* I18N: gedcom tag _LOC */
-				I18N::translate('Location');
-		case '_MARI':
-			return
-				/* I18N: gedcom tag _MARI */
-				I18N::translate('Marriage intention');
-		case '_MARNM':
-			return
-				/* I18N: gedcom tag _MARNM */
-				I18N::translate('Married name');
-		case '_PRIM':
-			return
-				/* I18N: gedcom tag _PRIM */
-				I18N::translate('Highlighted image');
-		case '_MARNM_SURN':
-			return I18N::translate('Married surname');
-		case '_MARR_CHIL':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Marriage of a son');
-			case 'F':
-				return I18N::translate('Marriage of a daughter');
-			default:
-				return I18N::translate('Marriage of a child');
-			}
-		case '_MARR_FAMC':
-			return
-				/* I18N: ...to each other */
-				I18N::translate('Marriage of parents');
-		case '_MARR_GCHI':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Marriage of a grandson');
-			case 'F':
-				return I18N::translate('Marriage of a granddaughter');
-			default:
-				return I18N::translate('Marriage of a grandchild');
-			}
-		case '_MARR_GCH1':
-			switch ($sex) {
-			case 'M':
-				return I18N::translateContext('daughter’s son', 'Marriage of a grandson');
-			case 'F':
-				return I18N::translateContext('daughter’s daughter', 'Marriage of a granddaughter');
-			default:
-				return I18N::translate('Marriage of a grandchild');
-			}
-		case '_MARR_GCH2':
-			switch ($sex) {
-			case 'M':
-				return I18N::translateContext('son’s son', 'Marriage of a grandson');
-			case 'F':
-				return I18N::translateContext('son’s daughter', 'Marriage of a granddaughter');
-			default:
-				return I18N::translate('Marriage of a grandchild');
-			}
-		case '_MARR_HSIB':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Marriage of a half-brother');
-			case 'F':
-				return I18N::translate('Marriage of a half-sister');
-			default:
-				return I18N::translate('Marriage of a half-sibling');
-			}
-		case '_MARR_PARE':
-			switch ($sex) {
-			case 'M':
-				return
-					/* I18N: ...to another spouse */
-					I18N::translate('Marriage of a father');
-			case 'F':
-				return
-					/* I18N: ...to another spouse */
-					I18N::translate('Marriage of a mother');
-			default:
-				return
-					/* I18N: ...to another spouse */
-					I18N::translate('Marriage of a parent');
-			}
-		case '_MARR_SIBL':
-			switch ($sex) {
-			case 'M':
-				return I18N::translate('Marriage of a brother');
-			case 'F':
-				return I18N::translate('Marriage of a sister');
-			default:
-				return I18N::translate('Marriage of a sibling');
-			}
-		case '_MBON':
-			return
-				/* I18N: gedcom tag _MBON */
-				I18N::translate('Marriage bond');
-		case '_MDCL':
-			return
-				/* I18N: gedcom tag _MDCL */
-				I18N::translate('Medical');
-		case '_MEDC':
-			return
-				/* I18N: gedcom tag _MEDC */
-				I18N::translate('Medical condition');
-		case '_MEND':
-			return
-				/* I18N: gedcom tag _MEND */
-				I18N::translate('Marriage ending status');
-		case '_MILI':
-			return
-				/* I18N: gedcom tag _MILI */
-				I18N::translate('Military');
-		case '_MILT':
-			return
-				/* I18N: gedcom tag _MILT */
-				I18N::translate('Military service');
-		case '_MREL':
-			return
-				/* I18N: gedcom tag _MREL */
-				I18N::translate('Relationship to mother');
-		case '_MSTAT':
-			return
-				/* I18N: gedcom tag _MSTAT */
-				I18N::translate('Marriage beginning status');
-		case '_NAME':
-			return
-				/* I18N: gedcom tag _NAME */
-				I18N::translate('Mailing name');
-		case '_NAMS':
-			return
-				/* I18N: gedcom tag _NAMS */
-				I18N::translate('Namesake');
-		case '_NLIV':
-			return
-				/* I18N: gedcom tag _NLIV */
-				I18N::translate('Not living');
-		case '_NMAR':
-			switch ($sex) {
-			case 'M':
-				return
-					/* I18N: gedcom tag _NMAR */
-					I18N::translateContext('MALE', 'Never married');
-			case 'F':
-				return
-					/* I18N: gedcom tag _NMAR */
-					I18N::translateContext('FEMALE', 'Never married');
-			default:
-				return
-					/* I18N: gedcom tag _NMAR */
-					I18N::translate('Never married');
-			}
-		case '_NMR':
-			switch ($sex) {
-			case 'M':
-				return
-					/* I18N: gedcom tag _NMR */
-					I18N::translateContext('MALE', 'Not married');
-			case 'F':
-				return
-					/* I18N: gedcom tag _NMR */
-					I18N::translateContext('FEMALE', 'Not married');
-			default:
-				return
-					/* I18N: gedcom tag _NMR */
-					I18N::translate('Not married');
-			}
-		case '_WT_USER':
-			return I18N::translate('by');
-		case '_PRMN':
-			return
-				/* I18N: gedcom tag _PRMN */
-				I18N::translate('Permanent number');
-		case '_SCBK':
-			return
-				/* I18N: gedcom tag _SCBK */
-				I18N::translate('Scrapbook');
-		case '_SEPR':
-			return
-				/* I18N: gedcom tag _SEPR */
-				I18N::translate('Separated');
-		case '_SSHOW':
-			return
-				/* I18N: gedcom tag _SSHOW */
-				I18N::translate('Slide show');
-		case '_STAT':
-			return
-				/* I18N: gedcom tag _STAT */
-				I18N::translate('Marriage status');
-		case '_SUBQ':
-			return
-				/* I18N: gedcom tag _SUBQ */
-				I18N::translate('Short version');
-		case '_TODO':
-			return
-				/* I18N: gedcom tag _TODO */
-				I18N::translate('Research task');
-		case '_TYPE':
-			return
-				/* I18N: gedcom tag _TYPE */
-				I18N::translate('Media type');
-		case '_UID':
-			return
-				/* I18N: gedcom tag _UID */
-				I18N::translate('Unique identifier');
-		case '_URL':
-			return
-				/* I18N: gedcom tag _URL */
-				I18N::translate('URL');
-		case '_WEIG':
-			return
-				/* I18N: gedcom tag _WEIG */
-				I18N::translate('Weight');
-		case '_WITN':
-			return
-				/* I18N: gedcom tag _WITN */
-				I18N::translate('Witness');
-		case '_WT_OBJE_SORT':
-			return
-				/* I18N: gedcom tag _WT_OBJE_SORT */
-				I18N::translate('Re-order media');
-		case '_YART':
-			return /* I18N: gedcom tag _YART - A yahrzeit is a special anniversary of death in the Hebrew faith/calendar. */ I18N::translate('Yahrzeit');
-			// Brit milah applies only to males, no need for male/female translations
-		case '__BRTM_CHIL':
-			return I18N::translate('Brit milah of a son');
-		case '__BRTM_GCHI':
-			return I18N::translate('Brit milah of a grandson');
-		case '__BRTM_GCH1':
-			return I18N::translateContext('daughter’s son', 'Brit milah of a grandson');
-		case '__BRTM_GCH2':
-			return I18N::translateContext('son’s son', 'Brit milah of a grandson');
-		case '__BRTM_HSIB':
-			return I18N::translate('Brit milah of a half-brother');
-		case '__BRTM_SIBL':
-			return I18N::translate('Brit milah of a brother');
-			// These "pseudo" tags are generated internally to present information about a media object
-		case '__FILE_SIZE__':
-			return I18N::translate('File size');
-		case '__IMAGE_SIZE__':
-			return I18N::translate('Image dimensions');
-		default:
-			// If no specialisation exists (e.g. DEAT:CAUS), then look for the general (CAUS)
-			if (strpos($tag, ':')) {
-				list(, $tag) = explode(':', $tag, 2);
+        switch ($tag) {
+        case 'ABBR':
+            return
+                /* I18N: gedcom tag ABBR */
+                I18N::translate('Abbreviation');
+        case 'ADDR':
+            return
+                /* I18N: gedcom tag ADDR */
+                I18N::translate('Address');
+        case 'ADR1':
+            return I18N::translate('Address line 1');
+        case 'ADR2':
+            return I18N::translate('Address line 2');
+        case 'ADOP':
+            return
+                /* I18N: gedcom tag ADOP */
+                I18N::translate('Adoption');
+        case 'ADOP:DATE':
+            return I18N::translate('Date of adoption');
+        case 'ADOP:PLAC':
+            return I18N::translate('Place of adoption');
+        case 'AFN':
+            return
+                /* I18N: gedcom tag AFN */
+                I18N::translate('Ancestral file number');
+        case 'AGE':
+            return
+                /* I18N: gedcom tag AGE */
+                I18N::translate('Age');
+        case 'AGNC':
+            return
+                /* I18N: gedcom tag AGNC */
+                I18N::translate('Agency');
+        case 'ALIA':
+            return
+                /* I18N: gedcom tag ALIA */
+                I18N::translate('Alias');
+        case 'ANCE':
+            return
+                /* I18N: gedcom tag ANCE */
+                I18N::translate('Generations of ancestors');
+        case 'ANCI':
+            return
+                /* I18N: gedcom tag ANCI */
+                I18N::translate('Ancestors interest');
+        case 'ANUL':
+            return
+                /* I18N: gedcom tag ANUL */
+                I18N::translate('Annulment');
+        case 'ASSO':
+            return
+                /* I18N: gedcom tag ASSO */
+                I18N::translate('Associate'); /* see also _ASSO */
+        case 'AUTH':
+            return
+                /* I18N: gedcom tag AUTH */
+                I18N::translate('Author');
+        case 'BAPL':
+            return
+                /* I18N: gedcom tag BAPL. LDS = Church of Latter Day Saints. */
+                I18N::translate('LDS baptism');
+        case 'BAPL:DATE':
+            return /* I18N: LDS = Church of Latter Day Saints. */ I18N::translate('Date of LDS baptism');
+        case 'BAPL:PLAC':
+            return /* I18N: LDS = Church of Latter Day Saints. */ I18N::translate('Place of LDS baptism');
+        case 'BAPM':
+            return
+                /* I18N: gedcom tag BAPM */
+                I18N::translate('Baptism');
+        case 'BAPM:DATE':
+            return I18N::translate('Date of baptism');
+        case 'BAPM:PLAC':
+            return I18N::translate('Place of baptism');
+        case 'BARM':
+            return
+                /* I18N: gedcom tag BARM */
+                I18N::translate('Bar mitzvah');
+        case 'BARM:DATE':
+            return I18N::translate('Date of bar mitzvah');
+        case 'BARM:PLAC':
+            return I18N::translate('Place of bar mitzvah');
+        case 'BASM':
+            return
+                /* I18N: gedcom tag BASM */
+                I18N::translate('Bat mitzvah');
+        case 'BASM:DATE':
+            return I18N::translate('Date of bat mitzvah');
+        case 'BASM:PLAC':
+            return I18N::translate('Place of bat mitzvah');
+        case 'BIRT':
+            return
+                /* I18N: gedcom tag BIRT */
+                I18N::translate('Birth');
+        case 'BIRT:DATE':
+            return I18N::translate('Date of birth');
+        case 'BIRT:PLAC':
+            return I18N::translate('Place of birth');
+        case 'BLES':
+            return
+                /* I18N: gedcom tag BLES */
+                I18N::translate('Blessing');
+        case 'BLES:DATE':
+            return I18N::translate('Date of blessing');
+        case 'BLES:PLAC':
+            return I18N::translate('Place of blessing');
+        case 'BLOB':
+            return
+                /* I18N: gedcom tag BLOB */
+                I18N::translate('Binary data object');
+        case 'BURI':
+            return
+                /* I18N: gedcom tag BURI */
+                I18N::translate('Burial');
+        case 'BURI:DATE':
+            return I18N::translate('Date of burial');
+        case 'BURI:PLAC':
+            return I18N::translate('Place of burial');
+        case 'CALN':
+            return
+                /* I18N: gedcom tag CALN */
+                I18N::translate('Call number');
+        case 'CAST':
+            return
+                /* I18N: gedcom tag CAST */
+                I18N::translate('Caste');
+        case 'CAUS':
+            return
+                /* I18N: gedcom tag CAUS */
+                I18N::translate('Cause');
+        case 'CEME':
+            return
+                /* I18N: gedcom tag CEME */
+                I18N::translate('Cemetery');
+        case 'CENS':
+            return
+                /* I18N: gedcom tag CENS */
+                I18N::translate('Census');
+        case 'CENS:DATE':
+            return I18N::translate('Census date');
+        case 'CENS:PLAC':
+            return I18N::translate('Census place');
+        case 'CHAN':
+            return
+                /* I18N: gedcom tag CHAN */
+                I18N::translate('Last change');
+        case 'CHAN:DATE':
+            return
+                /* I18N: gedcom tag CHAN:DATE */
+                I18N::translate('Date of last change');
+        case 'CHAN:_WT_USER':
+            return
+                /* I18N: gedcom tag CHAN:_WT_USER */
+                I18N::translate('Author of last change');
+        case 'CHAR':
+            return
+                /* I18N: gedcom tag CHAR */
+                I18N::translate('Character set');
+        case 'CHIL':
+            return
+                /* I18N: gedcom tag CHIL */
+                I18N::translate('Child');
+        case 'CHR':
+            return
+                /* I18N: gedcom tag CHR */
+                I18N::translate('Christening');
+        case 'CHR:DATE':
+            return I18N::translate('Date of christening');
+        case 'CHR:PLAC':
+            return I18N::translate('Place of christening');
+        case 'CHRA':
+            return
+                /* I18N: gedcom tag CHRA */
+                I18N::translate('Adult christening');
+        case 'CITN':
+            return
+                /* I18N: gedcom tag CITN */
+                I18N::translate('Citizenship');
+        case 'CITY':
+            return
+                /* I18N: gedcom tag CITY */
+                I18N::translate('City');
+        case 'COMM':
+            return
+                /* I18N: gedcom tag COMM */
+                I18N::translate('Comment');
+        case 'CONC':
+            return
+                /* I18N: gedcom tag CONC */
+                I18N::translate('Concatenation');
+        case 'CONT':
+            return
+                /* I18N: gedcom tag CONT */
+                I18N::translate('Continued');
+        case 'CONF':
+            return
+                /* I18N: gedcom tag CONF */
+                I18N::translate('Confirmation');
+        case 'CONF:DATE':
+            return I18N::translate('Date of confirmation');
+        case 'CONF:PLAC':
+            return I18N::translate('Place of confirmation');
+        case 'CONL':
+            return
+                /* I18N: gedcom tag CONL. LDS = Church of Latter Day Saints. */
+                I18N::translate('LDS confirmation');
+        case 'COPR':
+            return
+                /* I18N: gedcom tag COPR */
+                I18N::translate('Copyright');
+        case 'CORP':
+            return
+                /* I18N: gedcom tag CORP */
+                I18N::translate('Corporation');
+        case 'CREM':
+            return
+                /* I18N: gedcom tag CREM */
+                I18N::translate('Cremation');
+        case 'CREM:DATE':
+            return I18N::translate('Date of cremation');
+        case 'CREM:PLAC':
+            return I18N::translate('Place of cremation');
+        case 'CTRY':
+            return
+                /* I18N: gedcom tag CTRY */
+                I18N::translate('Country');
+        case 'DATA':
+            return
+                /* I18N: gedcom tag DATA */
+                I18N::translate('Data');
+        case 'DATA:DATE':
+            return I18N::translate('Date of entry in original source');
+        case 'DATE':
+            return
+                /* I18N: gedcom tag DATE */
+                I18N::translate('Date');
+        case 'DEAT':
+            return
+                /* I18N: gedcom tag DEAT */
+                I18N::translate('Death');
+        case 'DEAT:CAUS':
+            return I18N::translate('Cause of death');
+        case 'DEAT:DATE':
+            return I18N::translate('Date of death');
+        case 'DEAT:PLAC':
+            return I18N::translate('Place of death');
+        case 'DESC':
+            return
+                /* I18N: gedcom tag DESC */
+                I18N::translate('Descendants');
+        case 'DESI':
+            return
+                /* I18N: gedcom tag DESI */
+                I18N::translate('Descendants interest');
+        case 'DEST':
+            return
+                /* I18N: gedcom tag DEST */
+                I18N::translate('Destination');
+        case 'DIV':
+            return
+                /* I18N: gedcom tag DIV */
+                I18N::translate('Divorce');
+        case 'DIVF':
+            return
+                /* I18N: gedcom tag DIVF */
+                I18N::translate('Divorce filed');
+        case 'DSCR':
+            return
+                /* I18N: gedcom tag DSCR */
+                I18N::translate('Description');
+        case 'EDUC':
+            return
+                /* I18N: gedcom tag EDUC */
+                I18N::translate('Education');
+        case 'EDUC:AGNC':
+            return I18N::translate('School or college');
+        case 'EMAI':
+            return
+                /* I18N: gedcom tag EMAI */
+                I18N::translate('Email address');
+        case 'EMAIL':
+            return
+                /* I18N: gedcom tag EMAIL */
+                I18N::translate('Email address');
+        case 'EMAL':
+            return
+                /* I18N: gedcom tag EMAL */
+                I18N::translate('Email address');
+        case 'EMIG':
+            return
+                /* I18N: gedcom tag EMIG */
+                I18N::translate('Emigration');
+        case 'EMIG:DATE':
+            return I18N::translate('Date of emigration');
+        case 'EMIG:PLAC':
+            return I18N::translate('Place of emigration');
+        case 'ENDL':
+            return
+                /* I18N: gedcom tag ENDL. LDS = Church of Latter Day Saints. */
+                I18N::translate('LDS endowment');
+        case 'ENDL:DATE':
+            return /* I18N: LDS = Church of Latter Day Saints. */ I18N::translate('Date of LDS endowment');
+        case 'ENDL:PLAC':
+            return /* I18N: LDS = Church of Latter Day Saints. */ I18N::translate('Place of LDS endowment');
+        case 'ENGA':
+            return
+                /* I18N: gedcom tag ENGA */
+                I18N::translate('Engagement');
+        case 'ENGA:DATE':
+            return I18N::translate('Date of engagement');
+        case 'ENGA:PLAC':
+            return I18N::translate('Place of engagement');
+        case 'EVEN':
+            return
+                /* I18N: gedcom tag EVEN */
+                I18N::translate('Event');
+        case 'EVEN:DATE':
+            return I18N::translate('Date of event');
+        case 'EVEN:PLAC':
+            return I18N::translate('Place of event');
+        case 'EVEN:TYPE':
+            return I18N::translate('Type of event');
+        case 'FACT':
+            return
+                /* I18N: gedcom tag FACT */
+                I18N::translate('Fact');
+        case 'FACT:TYPE':
+            return I18N::translate('Type of fact');
+        case 'FAM':
+            return
+                /* I18N: gedcom tag FAM */
+                I18N::translate('Family');
+        case 'FAMC':
+            return
+                /* I18N: gedcom tag FAMC */
+                I18N::translate('Family as a child');
+        case 'FAMF':
+            return
+                /* I18N: gedcom tag FAMF */
+                I18N::translate('Family file');
+        case 'FAMS':
+            return
+                /* I18N: gedcom tag FAMS */
+                I18N::translate('Family as a spouse');
+        case 'FAMS:CENS:DATE':
+            return I18N::translate('Spouse census date');
+        case 'FAMS:CENS:PLAC':
+            return I18N::translate('Spouse census place');
+        case 'FAMS:DIV:DATE':
+            return I18N::translate('Date of divorce');
+        case 'FAMS:MARR:DATE':
+            return I18N::translate('Date of marriage');
+        case 'FAMS:MARR:PLAC':
+            return I18N::translate('Place of marriage');
+        case 'FAMS:NOTE':
+            return I18N::translate('Spouse note');
+        case 'FAMS:SLGS:DATE':
+            return /* I18N: LDS = Church of Latter Day Saints. */ I18N::translate('Date of LDS spouse sealing');
+        case 'FAMS:SLGS:PLAC':
+            return /* I18N: LDS = Church of Latter Day Saints. */ I18N::translate('Place of LDS spouse sealing');
+        case 'FAX':
+            return
+                /* I18N: gedcom tag FAX */
+                I18N::translate('Fax');
+        case 'FCOM':
+            return
+                /* I18N: gedcom tag FCOM */
+                I18N::translate('First communion');
+        case 'FCOM:DATE':
+            return I18N::translate('Date of first communion');
+        case 'FCOM:PLAC':
+            return I18N::translate('Place of first communion');
+        case 'FILE':
+            return
+                /* I18N: gedcom tag FILE */
+                I18N::translate('Filename');
+        case 'FONE':
+            return
+                /* I18N: gedcom tag FONE */
+                I18N::translate('Phonetic');
+        case 'FORM':
+            return
+                /* I18N: gedcom tag FORM */
+                I18N::translate('Format');
+        case 'GEDC':
+            return
+                /* I18N: gedcom tag GEDC */
+                I18N::translate('GEDCOM file');
+        case 'GIVN':
+            return
+                /* I18N: gedcom tag GIVN */
+                I18N::translate('Given names');
+        case 'GRAD':
+            return
+                /* I18N: gedcom tag GRAD */
+                I18N::translate('Graduation');
+        case 'HEAD':
+            return
+                /* I18N: gedcom tag HEAD */
+                I18N::translate('Header');
+        case 'HUSB':
+            return
+                /* I18N: gedcom tag HUSB */
+                I18N::translate('Husband');
+        case 'IDNO':
+            return
+                /* I18N: gedcom tag IDNO */
+                I18N::translate('Identification number');
+        case 'IMMI':
+            return
+                /* I18N: gedcom tag IMMI */
+                I18N::translate('Immigration');
+        case 'IMMI:DATE':
+            return I18N::translate('Date of immigration');
+        case 'IMMI:PLAC':
+            return I18N::translate('Place of immigration');
+        case 'INDI':
+            return
+                /* I18N: gedcom tag INDI */
+                I18N::translate('Individual');
+        case 'INFL':
+            return
+                /* I18N: gedcom tag INFL */
+                I18N::translate('Infant');
+        case 'LANG':
+            return
+                /* I18N: gedcom tag LANG */
+                I18N::translate('Language');
+        case 'LATI':
+            return
+                /* I18N: gedcom tag LATI */
+                I18N::translate('Latitude');
+        case 'LEGA':
+            return
+                /* I18N: gedcom tag LEGA */
+                I18N::translate('Legatee');
+        case 'LONG':
+            return
+                /* I18N: gedcom tag LONG */
+                I18N::translate('Longitude');
+        case 'MAP':
+            return
+                /* I18N: gedcom tag MAP */
+                I18N::translate('Map');
+        case 'MARB':
+            return
+                /* I18N: gedcom tag MARB */
+                I18N::translate('Marriage banns');
+        case 'MARB:DATE':
+            return I18N::translate('Date of marriage banns');
+        case 'MARB:PLAC':
+            return I18N::translate('Place of marriage banns');
+        case 'MARC':
+            return
+                /* I18N: gedcom tag MARC */
+                I18N::translate('Marriage contract');
+        case 'MARL':
+            return
+                /* I18N: gedcom tag MARL */
+                I18N::translate('Marriage license');
+        case 'MARR':
+            return
+                /* I18N: gedcom tag MARR */
+                I18N::translate('Marriage');
+        case 'MARR:DATE':
+            return I18N::translate('Date of marriage');
+        case 'MARR:PLAC':
+            return I18N::translate('Place of marriage');
+        case 'MARR_CIVIL':
+            return I18N::translate('Civil marriage');
+        case 'MARR_PARTNERS':
+            return I18N::translate('Registered partnership');
+        case 'MARR_RELIGIOUS':
+            return I18N::translate('Religious marriage');
+        case 'MARR_UNKNOWN':
+            return I18N::translate('Marriage type unknown');
+        case 'MARS':
+            return
+                /* I18N: gedcom tag MARS */
+                I18N::translate('Marriage settlement');
+        case 'MEDI':
+            return
+                /* I18N: gedcom tag MEDI */
+                I18N::translate('Media type');
+        case 'NAME':
+            if ($record instanceof Repository) {
+                return
+                    /* I18N: gedcom tag REPO:NAME */
+                    I18N::translateContext('Repository', 'Name');
+            } else {
+                return
+                    /* I18N: gedcom tag NAME */
+                    I18N::translate('Name');
+            }
+        case 'NAME:FONE':
+            return I18N::translate('Phonetic name');
+        case 'NAME:_HEB':
+            return I18N::translate('Name in Hebrew');
+        case 'NATI':
+            return
+                /* I18N: gedcom tag NATI */
+                I18N::translate('Nationality');
+        case 'NATU':
+            return
+                /* I18N: gedcom tag NATU */
+                I18N::translate('Naturalization');
+        case 'NATU:DATE':
+            return I18N::translate('Date of naturalization');
+        case 'NATU:PLAC':
+            return I18N::translate('Place of naturalization');
+        case 'NCHI':
+            return
+                /* I18N: gedcom tag NCHI */
+                I18N::translate('Number of children');
+        case 'NICK':
+            return
+                /* I18N: gedcom tag NICK */
+                I18N::translate('Nickname');
+        case 'NMR':
+            return
+                /* I18N: gedcom tag NMR */
+                I18N::translate('Number of marriages');
+        case 'NOTE':
+            return
+                /* I18N: gedcom tag NOTE */
+                I18N::translate('Note');
+        case 'NPFX':
+            return
+                /* I18N: gedcom tag NPFX */
+                I18N::translate('Name prefix');
+        case 'NSFX':
+            return
+                /* I18N: gedcom tag NSFX */
+                I18N::translate('Name suffix');
+        case 'OBJE':
+            return
+                /* I18N: gedcom tag OBJE */
+                I18N::translate('Media object');
+        case 'OCCU':
+            return
+                /* I18N: gedcom tag OCCU */
+                I18N::translate('Occupation');
+        case 'OCCU:AGNC':
+            return I18N::translate('Employer');
+        case 'ORDI':
+            return
+                /* I18N: gedcom tag ORDI */
+                I18N::translate('Ordinance');
+        case 'ORDN':
+            return
+                /* I18N: gedcom tag ORDN */
+                I18N::translate('Ordination');
+        case 'ORDN:AGNC':
+            return I18N::translate('Religious institution');
+        case 'ORDN:DATE':
+            return I18N::translate('Date of ordination');
+        case 'ORDN:PLAC':
+            return I18N::translate('Place of ordination');
+        case 'PAGE':
+            return
+                /* I18N: gedcom tag PAGE */
+                I18N::translate('Citation details');
+        case 'PEDI':
+            return
+                /* I18N: gedcom tag PEDI */
+                I18N::translate('Relationship to parents');
+        case 'PHON':
+            return
+                /* I18N: gedcom tag PHON */
+                I18N::translate('Phone');
+        case 'PLAC':
+            return
+                /* I18N: gedcom tag PLAC */
+                I18N::translate('Place');
+        case 'PLAC:FONE':
+            return I18N::translate('Phonetic place');
+        case 'PLAC:ROMN':
+            return I18N::translate('Romanized place');
+        case 'PLAC:_HEB':
+            return I18N::translate('Place in Hebrew');
+        case 'POST':
+            return
+                /* I18N: gedcom tag POST */
+                I18N::translate('Postal code');
+        case 'PROB':
+            return
+                /* I18N: gedcom tag PROB */
+                I18N::translate('Probate');
+        case 'PROP':
+            return
+                /* I18N: gedcom tag PROP */
+                I18N::translate('Property');
+        case 'PUBL':
+            return
+                /* I18N: gedcom tag PUBL */
+                I18N::translate('Publication');
+        case 'QUAY':
+            return
+                /* I18N: gedcom tag QUAY */
+                I18N::translate('Quality of data');
+        case 'REFN':
+            return
+                /* I18N: gedcom tag REFN */
+                I18N::translate('Reference number');
+        case 'RELA':
+            return
+                /* I18N: gedcom tag RELA */
+                I18N::translate('Relationship');
+        case 'RELI':
+            return
+                /* I18N: gedcom tag RELI */
+                I18N::translate('Religion');
+        case 'REPO':
+            return
+                /* I18N: gedcom tag REPO */
+                I18N::translate('Repository');
+        case 'RESI':
+            return
+                /* I18N: gedcom tag RESI */
+                I18N::translate('Residence');
+        case 'RESI:DATE':
+            return I18N::translate('Date of residence');
+        case 'RESI:PLAC':
+            return I18N::translate('Place of residence');
+        case 'RESN':
+            return
+                /* I18N: gedcom tag RESN */
+                I18N::translate('Restriction');
+        case 'RETI':
+            return
+                /* I18N: gedcom tag RETI */
+                I18N::translate('Retirement');
+        case 'RETI:AGNC':
+            return I18N::translate('Employer');
+        case 'RFN':
+            return
+                /* I18N: gedcom tag RFN */
+                I18N::translate('Record file number');
+        case 'RIN':
+            return
+                /* I18N: gedcom tag RIN */
+                I18N::translate('Record ID number');
+        case 'ROLE':
+            return
+                /* I18N: gedcom tag ROLE */
+                I18N::translate('Role');
+        case 'ROMN':
+            return
+                /* I18N: gedcom tag ROMN */
+                I18N::translate('Romanized');
+        case 'SERV':
+            return
+                /* I18N: gedcom tag SERV */
+                I18N::translate('Remote server');
+        case 'SEX':
+            return
+                /* I18N: gedcom tag SEX */
+                I18N::translate('Gender');
+        case 'SHARED_NOTE':
+            return I18N::translate('Shared note');
+        case 'SLGC':
+            return
+                /* I18N: gedcom tag SLGC. LDS = Church of Latter Day Saints. */
+                I18N::translate('LDS child sealing');
+        case 'SLGC:DATE':
+            return /* I18N: LDS = Church of Latter Day Saints. */ I18N::translate('Date of LDS child sealing');
+        case 'SLGC:PLAC':
+            return /* I18N: LDS = Church of Latter Day Saints. */ I18N::translate('Place of LDS child sealing');
+        case 'SLGS':
+            return
+                /* I18N: gedcom tag SLGS. LDS = Church of Latter Day Saints. */
+                I18N::translate('LDS spouse sealing');
+        case 'SOUR':
+            return
+                /* I18N: gedcom tag SOUR */
+                I18N::translate('Source');
+        case 'SPFX':
+            return
+                /* I18N: gedcom tag SPFX */
+                I18N::translate('Surname prefix');
+        case 'SSN':
+            return
+                /* I18N: gedcom tag SSN */
+                I18N::translate('Social security number');
+        case 'STAE':
+            return
+                /* I18N: gedcom tag STAE */
+                I18N::translate('State');
+        case 'STAT':
+            return
+                /* I18N: gedcom tag STAT */
+                I18N::translate('Status');
+        case 'STAT:DATE':
+            return I18N::translate('Status change date');
+        case 'SUBM':
+            return
+                /* I18N: gedcom tag SUBM */
+                I18N::translate('Submitter');
+        case 'SUBN':
+            return
+                /* I18N: gedcom tag SUBN */
+                I18N::translate('Submission');
+        case 'SURN':
+            return
+                /* I18N: gedcom tag SURN */
+                I18N::translate('Surname');
+        case 'TEMP':
+            return
+                /* I18N: gedcom tag TEMP */
+                I18N::translate('Temple');
+        case 'TEXT':
+            return
+                /* I18N: gedcom tag TEXT */
+                I18N::translate('Text');
+        case 'TIME':
+            return
+                /* I18N: gedcom tag TIME */
+                I18N::translate('Time');
+        case 'TITL':
+            return
+                /* I18N: gedcom tag TITL */
+                I18N::translate('Title');
+        case 'TITL:FONE':
+            return I18N::translate('Phonetic title');
+        case 'TITL:ROMN':
+            return I18N::translate('Romanized title');
+        case 'TITL:_HEB':
+            return I18N::translate('Title in Hebrew');
+        case 'TRLR':
+            return
+                /* I18N: gedcom tag TRLR */
+                I18N::translate('Trailer');
+        case 'TYPE':
+            return
+                /* I18N: gedcom tag TYPE */
+                I18N::translate('Type');
+        case 'URL':
+            return
+                /* I18N: gedcom tag URL (A web address / URL) */
+                I18N::translate('URL');
+        case 'VERS':
+            return
+                /* I18N: gedcom tag VERS */
+                I18N::translate('Version');
+        case 'WIFE':
+            return
+                /* I18N: gedcom tag WIFE */
+                I18N::translate('Wife');
+        case 'WILL':
+            return
+                /* I18N: gedcom tag WILL */
+                I18N::translate('Will');
+        case 'WWW':
+            return
+                /* I18N: gedcom tag WWW (A web address / URL) */
+                I18N::translate('URL');
+        case '_ADOP_CHIL':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Adoption of a son');
+            case 'F':
+                return I18N::translate('Adoption of a daughter');
+            default:
+                return I18N::translate('Adoption of a child');
+            }
+        case '_ADOP_GCHI':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Adoption of a grandson');
+            case 'F':
+                return I18N::translate('Adoption of a granddaughter');
+            default:
+                return I18N::translate('Adoption of a grandchild');
+            }
+        case '_ADOP_GCH1':
+            switch ($sex) {
+            case 'M':
+                return I18N::translateContext('daughter’s son', 'Adoption of a grandson');
+            case 'F':
+                return I18N::translateContext('daughter’s daughter', 'Adoption of a granddaughter');
+            default:
+                return I18N::translate('Adoption of a grandchild');
+            }
+        case '_ADOP_GCH2':
+            switch ($sex) {
+            case 'M':
+                return I18N::translateContext('son’s son', 'Adoption of a grandson');
+            case 'F':
+                return I18N::translateContext('son’s daughter', 'Adoption of a granddaughter');
+            default:
+                return I18N::translate('Adoption of a grandchild');
+            }
+        case '_ADOP_HSIB':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Adoption of a half-brother');
+            case 'F':
+                return I18N::translate('Adoption of a half-sister');
+            default:
+                return I18N::translate('Adoption of a half-sibling');
+            }
+        case '_ADOP_SIBL':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Adoption of a brother');
+            case 'F':
+                return I18N::translate('Adoption of a sister');
+            default:
+                return I18N::translate('Adoption of a sibling');
+            }
+        case '_ADPF':
+            switch ($sex) {
+            case 'M':
+                return
+                    /* I18N: gedcom tag _ADPF */
+                    I18N::translateContext('MALE', 'Adopted by father');
+            case 'F':
+                return
+                    /* I18N: gedcom tag _ADPF */
+                    I18N::translateContext('FEMALE', 'Adopted by father');
+            default:
+                return
+                    /* I18N: gedcom tag _ADPF */
+                    I18N::translate('Adopted by father');
+            }
+        case '_ADPM':
+            switch ($sex) {
+            case 'M':
+                return
+                    /* I18N: gedcom tag _ADPM */
+                    I18N::translateContext('MALE', 'Adopted by mother');
+            case 'F':
+                return
+                    /* I18N: gedcom tag _ADPM */
+                    I18N::translateContext('FEMALE', 'Adopted by mother');
+            default:
+                return
+                    /* I18N: gedcom tag _ADPM */
+                    I18N::translate('Adopted by mother');
+            }
+        case '_AKA':
+        case '_AKAN':
+            switch ($sex) {
+            case 'M':
+                return
+                    /* I18N: gedcom tag _AKA */
+                    I18N::translateContext('MALE', 'Also known as');
+            case 'F':
+                return
+                    /* I18N: gedcom tag _AKA */
+                    I18N::translateContext('FEMALE', 'Also known as');
+            default:
+                return
+                    /* I18N: gedcom tag _AKA */
+                    I18N::translate('Also known as');
+            }
+        case '_ASSO':
+            return
+                /* I18N: gedcom tag _ASSO */
+                I18N::translate('Associate'); /* see also ASSO */
+        case '_BAPM_CHIL':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Baptism of a son');
+            case 'F':
+                return I18N::translate('Baptism of a daughter');
+            default:
+                return I18N::translate('Baptism of a child');
+            }
+        case '_BAPM_GCHI':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Baptism of a grandson');
+            case 'F':
+                return I18N::translate('Baptism of a granddaughter');
+            default:
+                return I18N::translate('Baptism of a grandchild');
+            }
+        case '_BAPM_GCH1':
+            switch ($sex) {
+            case 'M':
+                return I18N::translateContext('daughter’s son', 'Baptism of a grandson');
+            case 'F':
+                return I18N::translateContext('daughter’s daughter', 'Baptism of a granddaughter');
+            default:
+                return I18N::translate('Baptism of a grandchild');
+            }
+        case '_BAPM_GCH2':
+            switch ($sex) {
+            case 'M':
+                return I18N::translateContext('son’s son', 'Baptism of a grandson');
+            case 'F':
+                return I18N::translateContext('son’s daughter', 'Baptism of a granddaughter');
+            default:
+                return I18N::translate('Baptism of a grandchild');
+            }
+        case '_BAPM_HSIB':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Baptism of a half-brother');
+            case 'F':
+                return I18N::translate('Baptism of a half-sister');
+            default:
+                return I18N::translate('Baptism of a half-sibling');
+            }
+        case '_BAPM_SIBL':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Baptism of a brother');
+            case 'F':
+                return I18N::translate('Baptism of a sister');
+            default:
+                return I18N::translate('Baptism of a sibling');
+            }
+        case '_BIBL':
+            return
+                /* I18N: gedcom tag _BIBL */
+                I18N::translate('Bibliography');
+        case '_BIRT_CHIL':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Birth of a son');
+            case 'F':
+                return I18N::translate('Birth of a daughter');
+            default:
+                return I18N::translate('Birth of a child');
+            }
+        case '_BIRT_GCHI':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Birth of a grandson');
+            case 'F':
+                return I18N::translate('Birth of a granddaughter');
+            default:
+                return I18N::translate('Birth of a grandchild');
+            }
+        case '_BIRT_GCH1':
+            switch ($sex) {
+            case 'M':
+                return I18N::translateContext('daughter’s son', 'Birth of a grandson');
+            case 'F':
+                return I18N::translateContext('daughter’s daughter', 'Birth of a granddaughter');
+            default:
+                return I18N::translate('Birth of a grandchild');
+            }
+        case '_BIRT_GCH2':
+            switch ($sex) {
+            case 'M':
+                return I18N::translateContext('son’s son', 'Birth of a grandson');
+            case 'F':
+                return I18N::translateContext('son’s daughter', 'Birth of a granddaughter');
+            default:
+                return I18N::translate('Birth of a grandchild');
+            }
+        case '_BIRT_HSIB':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Birth of a half-brother');
+            case 'F':
+                return I18N::translate('Birth of a half-sister');
+            default:
+                return I18N::translate('Birth of a half-sibling');
+            }
+        case '_BIRT_SIBL':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Birth of a brother');
+            case 'F':
+                return I18N::translate('Birth of a sister');
+            default:
+                return I18N::translate('Birth of a sibling');
+            }
+        case '_BRTM':
+            return
+                /* I18N: gedcom tag _BRTM */
+                I18N::translate('Brit milah');
+        case '_BRTM:DATE':
+            return I18N::translate('Date of brit milah');
+        case '_BRTM:PLAC':
+            return I18N::translate('Place of brit milah');
+        case '_BURI_CHIL':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Burial of a son');
+            case 'F':
+                return I18N::translate('Burial of a daughter');
+            default:
+                return I18N::translate('Burial of a child');
+            }
+        case '_BURI_GCHI':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Burial of a grandson');
+            case 'F':
+                return I18N::translate('Burial of a granddaughter');
+            default:
+                return I18N::translate('Burial of a grandchild');
+            }
+        case '_BURI_GCH1':
+            switch ($sex) {
+            case 'M':
+                return I18N::translateContext('daughter’s son', 'Burial of a grandson');
+            case 'F':
+                return I18N::translateContext('daughter’s daughter', 'Burial of a granddaughter');
+            default:
+                return I18N::translate('Burial of a grandchild');
+            }
+        case '_BURI_GCH2':
+            switch ($sex) {
+            case 'M':
+                return I18N::translateContext('son’s son', 'Burial of a grandson');
+            case 'F':
+                return I18N::translateContext('son’s daughter', 'Burial of a granddaughter');
+            default:
+                return I18N::translate('Burial of a grandchild');
+            }
+        case '_BURI_GPAR':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Burial of a grandfather');
+            case 'F':
+                return I18N::translate('Burial of a grandmother');
+            default:
+                return I18N::translate('Burial of a grandparent');
+            }
+        case '_BURI_GPA1':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Burial of a paternal grandfather');
+            case 'F':
+                return I18N::translate('Burial of a paternal grandmother');
+            default:
+                return I18N::translate('Burial of a paternal grandparent');
+            }
+        case '_BURI_GPA2':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Burial of a maternal grandfather');
+            case 'F':
+                return I18N::translate('Burial of a maternal grandmother');
+            default:
+                return I18N::translate('Burial of a maternal grandparent');
+            }
+        case '_BURI_HSIB':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Burial of a half-brother');
+            case 'F':
+                return I18N::translate('Burial of a half-sister');
+            default:
+                return I18N::translate('Burial of a half-sibling');
+            }
+        case '_BURI_PARE':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Burial of a father');
+            case 'F':
+                return I18N::translate('Burial of a mother');
+            default:
+                return I18N::translate('Burial of a parent');
+            }
+        case '_BURI_SIBL':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Burial of a brother');
+            case 'F':
+                return I18N::translate('Burial of a sister');
+            default:
+                return I18N::translate('Burial of a sibling');
+            }
+        case '_BURI_SPOU':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Burial of a husband');
+            case 'F':
+                return I18N::translate('Burial of a wife');
+            default:
+                return I18N::translate('Burial of a spouse');
+            }
+        case '_CHR_CHIL':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Christening of a son');
+            case 'F':
+                return I18N::translate('Christening of a daughter');
+            default:
+                return I18N::translate('Christening of a child');
+            }
+        case '_CHR_GCHI':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Christening of a grandson');
+            case 'F':
+                return I18N::translate('Christening of a granddaughter');
+            default:
+                return I18N::translate('Christening of a grandchild');
+            }
+        case '_CHR_GCH1':
+            switch ($sex) {
+            case 'M':
+                return I18N::translateContext('daughter’s son', 'Christening of a grandson');
+            case 'F':
+                return I18N::translateContext('daughter’s daughter', 'Christening of a granddaughter');
+            default:
+                return I18N::translate('Christening of a grandchild');
+            }
+        case '_CHR_GCH2':
+            switch ($sex) {
+            case 'M':
+                return I18N::translateContext('son’s son', 'Christening of a grandson');
+            case 'F':
+                return I18N::translateContext('son’s daughter', 'Christening of a granddaughter');
+            default:
+                return I18N::translate('Christening of a grandchild');
+            }
+        case '_CHR_HSIB':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Christening of a half-brother');
+            case 'F':
+                return I18N::translate('Christening of a half-sister');
+            default:
+                return I18N::translate('Christening of a half-sibling');
+            }
+        case '_CHR_SIBL':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Christening of a brother');
+            case 'F':
+                return I18N::translate('Christening of a sister');
+            default:
+                return I18N::translate('Christening of a sibling');
+            }
+        case '_COML':
+            return
+                /* I18N: gedcom tag _COML */
+                I18N::translate('Common law marriage');
+        case '_CREM_CHIL':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Cremation of a son');
+            case 'F':
+                return I18N::translate('Cremation of a daughter');
+            default:
+                return I18N::translate('Cremation of a child');
+            }
+        case '_CREM_GCHI':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Cremation of a grandson');
+            case 'F':
+                return I18N::translate('Cremation of a granddaughter');
+            default:
+                return I18N::translate('Cremation of a grandchild');
+            }
+        case '_CREM_GCH1':
+            switch ($sex) {
+            case 'M':
+                return I18N::translateContext('daughter’s son', 'Cremation of a grandson');
+            case 'F':
+                return I18N::translateContext('daughter’s daughter', 'Cremation of a granddaughter');
+            default:
+                return I18N::translate('Cremation of a grandchild');
+            }
+        case '_CREM_GCH2':
+            switch ($sex) {
+            case 'M':
+                return I18N::translateContext('son’s son', 'Cremation of a grandson');
+            case 'F':
+                return I18N::translateContext('son’s daughter', 'Cremation of a granddaughter');
+            default:
+                return I18N::translate('Cremation of a grandchild');
+            }
+        case '_CREM_GPAR':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Cremation of a grandfather');
+            case 'F':
+                return I18N::translate('Cremation of a grandmother');
+            default:
+                return I18N::translate('Cremation of a grand-parent');
+            }
+        case '_CREM_GPA1':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Cremation of a paternal grandfather');
+            case 'F':
+                return I18N::translate('Cremation of a paternal grandmother');
+            default:
+                return I18N::translate('Cremation of a grand-parent');
+            }
+        case '_CREM_GPA2':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Cremation of a maternal grandfather');
+            case 'F':
+                return I18N::translate('Cremation of a maternal grandmother');
+            default:
+                return I18N::translate('Cremation of a grand-parent');
+            }
+        case '_CREM_HSIB':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Cremation of a half-brother');
+            case 'F':
+                return I18N::translate('Cremation of a half-sister');
+            default:
+                return I18N::translate('Cremation of a half-sibling');
+            }
+        case '_CREM_PARE':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Cremation of a father');
+            case 'F':
+                return I18N::translate('Cremation of a mother');
+            default:
+                return I18N::translate('Cremation of a parent');
+            }
+        case '_CREM_SIBL':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Cremation of a brother');
+            case 'F':
+                return I18N::translate('Cremation of a sister');
+            default:
+                return I18N::translate('Cremation of a sibling');
+            }
+        case '_CREM_SPOU':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Cremation of a husband');
+            case 'F':
+                return I18N::translate('Cremation of a wife');
+            default:
+                return I18N::translate('Cremation of a spouse');
+            }
+        case '_DBID':
+            return
+                /* I18N: gedcom tag _DBID */
+                I18N::translate('Linked database ID');
+        case '_DEAT_CHIL':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Death of a son');
+            case 'F':
+                return I18N::translate('Death of a daughter');
+            default:
+                return I18N::translate('Death of a child');
+            }
+        case '_DEAT_GCHI':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Death of a grandson');
+            case 'F':
+                return I18N::translate('Death of a granddaughter');
+            default:
+                return I18N::translate('Death of a grandchild');
+            }
+        case '_DEAT_GCH1':
+            switch ($sex) {
+            case 'M':
+                return I18N::translateContext('daughter’s son', 'Death of a grandson');
+            case 'F':
+                return I18N::translateContext('daughter’s daughter', 'Death of a granddaughter');
+            default:
+                return I18N::translate('Death of a grandchild');
+            }
+        case '_DEAT_GCH2':
+            switch ($sex) {
+            case 'M':
+                return I18N::translateContext('son’s son', 'Death of a grandson');
+            case 'F':
+                return I18N::translateContext('son’s daughter', 'Death of a granddaughter');
+            default:
+                return I18N::translate('Death of a grandchild');
+            }
+        case '_DEAT_GPAR':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Death of a grandfather');
+            case 'F':
+                return I18N::translate('Death of a grandmother');
+            default:
+                return I18N::translate('Death of a grand-parent');
+            }
+        case '_DEAT_GPA1':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Death of a paternal grandfather');
+            case 'F':
+                return I18N::translate('Death of a paternal grandmother');
+            default:
+                return I18N::translate('Death of a grand-parent');
+            }
+        case '_DEAT_GPA2':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Death of a maternal grandfather');
+            case 'F':
+                return I18N::translate('Death of a maternal grandmother');
+            default:
+                return I18N::translate('Death of a grand-parent');
+            }
+        case '_DEAT_HSIB':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Death of a half-brother');
+            case 'F':
+                return I18N::translate('Death of a half-sister');
+            default:
+                return I18N::translate('Death of a half-sibling');
+            }
+        case '_DEAT_PARE':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Death of a father');
+            case 'F':
+                return I18N::translate('Death of a mother');
+            default:
+                return I18N::translate('Death of a parent');
+            }
+        case '_DEAT_SIBL':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Death of a brother');
+            case 'F':
+                return I18N::translate('Death of a sister');
+            default:
+                return I18N::translate('Death of a sibling');
+            }
+        case '_DEAT_SPOU':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Death of a husband');
+            case 'F':
+                return I18N::translate('Death of a wife');
+            default:
+                return I18N::translate('Death of a spouse');
+            }
+        case '_DEG':
+            return
+                /* I18N: gedcom tag _DEG */
+                I18N::translate('Degree');
+        case '_DETS':
+            return
+                /* I18N: gedcom tag _DETS */
+                I18N::translate('Death of one spouse');
+        case '_DNA':
+            return
+                /* I18N: gedcom tag _DNA (from FTM 2010) */
+                I18N::translate('DNA markers');
+        case '_EMAIL':
+            return
+                /* I18N: gedcom tag _EMAIL */
+                I18N::translate('Email address');
+        case '_EYEC':
+            return
+                /* I18N: gedcom tag _EYEC */
+                I18N::translate('Eye color');
+        case '_FA1':
+            return I18N::translate('Fact 1');
+        case '_FA2':
+            return I18N::translate('Fact 2');
+        case '_FA3':
+            return I18N::translate('Fact 3');
+        case '_FA4':
+            return I18N::translate('Fact 4');
+        case '_FA5':
+            return I18N::translate('Fact 5');
+        case '_FA6':
+            return I18N::translate('Fact 6');
+        case '_FA7':
+            return I18N::translate('Fact 7');
+        case '_FA8':
+            return I18N::translate('Fact 8');
+        case '_FA9':
+            return I18N::translate('Fact 9');
+        case '_FA10':
+            return I18N::translate('Fact 10');
+        case '_FA11':
+            return I18N::translate('Fact 11');
+        case '_FA12':
+            return I18N::translate('Fact 12');
+        case '_FA13':
+            return I18N::translate('Fact 13');
+        case '_FNRL':
+            return
+                /* I18N: gedcom tag _FNRL */
+                I18N::translate('Funeral');
+        case '_FREL':
+            return
+                /* I18N: gedcom tag _FREL */
+                I18N::translate('Relationship to father');
+        case '_GEDF':
+            return
+                /* I18N: gedcom tag _GEDF */
+                I18N::translate('GEDCOM file');
+        case '_GODP':
+            return
+                /* I18N: gedcom tag _GODP */
+                I18N::translate('Godparent');
+        case '_HAIR':
+            return
+                /* I18N: gedcom tag _HAIR */
+                I18N::translate('Hair color');
+        case '_HEB':
+            return
+                /* I18N: gedcom tag _HEB */
+                I18N::translate('Hebrew');
+        case '_HEIG':
+            return
+                /* I18N: gedcom tag _HEIG */
+                I18N::translate('Height');
+        case '_HNM':
+            return
+                /* I18N: gedcom tag _HNM */
+                I18N::translate('Hebrew name');
+        case '_HOL':
+            return
+                /* I18N: gedcom tag _HOL */
+                I18N::translate('Holocaust');
+        case '_INTE':
+            switch ($sex) {
+            case 'M':
+                return
+                    /* I18N: gedcom tag _INTE */
+                    I18N::translateContext('MALE', 'Interred');
+            case 'F':
+                return
+                    /* I18N: gedcom tag _INTE */
+                    I18N::translateContext('FEMALE', 'Interred');
+            default:
+                return
+                    /* I18N: gedcom tag _INTE */
+                    I18N::translate('Interred');
+            }
+        case '_LOC':
+            return
+                /* I18N: gedcom tag _LOC */
+                I18N::translate('Location');
+        case '_MARI':
+            return
+                /* I18N: gedcom tag _MARI */
+                I18N::translate('Marriage intention');
+        case '_MARNM':
+            return
+                /* I18N: gedcom tag _MARNM */
+                I18N::translate('Married name');
+        case '_PRIM':
+            return
+                /* I18N: gedcom tag _PRIM */
+                I18N::translate('Highlighted image');
+        case '_MARNM_SURN':
+            return I18N::translate('Married surname');
+        case '_MARR_CHIL':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Marriage of a son');
+            case 'F':
+                return I18N::translate('Marriage of a daughter');
+            default:
+                return I18N::translate('Marriage of a child');
+            }
+        case '_MARR_FAMC':
+            return
+                /* I18N: ...to each other */
+                I18N::translate('Marriage of parents');
+        case '_MARR_GCHI':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Marriage of a grandson');
+            case 'F':
+                return I18N::translate('Marriage of a granddaughter');
+            default:
+                return I18N::translate('Marriage of a grandchild');
+            }
+        case '_MARR_GCH1':
+            switch ($sex) {
+            case 'M':
+                return I18N::translateContext('daughter’s son', 'Marriage of a grandson');
+            case 'F':
+                return I18N::translateContext('daughter’s daughter', 'Marriage of a granddaughter');
+            default:
+                return I18N::translate('Marriage of a grandchild');
+            }
+        case '_MARR_GCH2':
+            switch ($sex) {
+            case 'M':
+                return I18N::translateContext('son’s son', 'Marriage of a grandson');
+            case 'F':
+                return I18N::translateContext('son’s daughter', 'Marriage of a granddaughter');
+            default:
+                return I18N::translate('Marriage of a grandchild');
+            }
+        case '_MARR_HSIB':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Marriage of a half-brother');
+            case 'F':
+                return I18N::translate('Marriage of a half-sister');
+            default:
+                return I18N::translate('Marriage of a half-sibling');
+            }
+        case '_MARR_PARE':
+            switch ($sex) {
+            case 'M':
+                return
+                    /* I18N: ...to another spouse */
+                    I18N::translate('Marriage of a father');
+            case 'F':
+                return
+                    /* I18N: ...to another spouse */
+                    I18N::translate('Marriage of a mother');
+            default:
+                return
+                    /* I18N: ...to another spouse */
+                    I18N::translate('Marriage of a parent');
+            }
+        case '_MARR_SIBL':
+            switch ($sex) {
+            case 'M':
+                return I18N::translate('Marriage of a brother');
+            case 'F':
+                return I18N::translate('Marriage of a sister');
+            default:
+                return I18N::translate('Marriage of a sibling');
+            }
+        case '_MBON':
+            return
+                /* I18N: gedcom tag _MBON */
+                I18N::translate('Marriage bond');
+        case '_MDCL':
+            return
+                /* I18N: gedcom tag _MDCL */
+                I18N::translate('Medical');
+        case '_MEDC':
+            return
+                /* I18N: gedcom tag _MEDC */
+                I18N::translate('Medical condition');
+        case '_MEND':
+            return
+                /* I18N: gedcom tag _MEND */
+                I18N::translate('Marriage ending status');
+        case '_MILI':
+            return
+                /* I18N: gedcom tag _MILI */
+                I18N::translate('Military');
+        case '_MILT':
+            return
+                /* I18N: gedcom tag _MILT */
+                I18N::translate('Military service');
+        case '_MREL':
+            return
+                /* I18N: gedcom tag _MREL */
+                I18N::translate('Relationship to mother');
+        case '_MSTAT':
+            return
+                /* I18N: gedcom tag _MSTAT */
+                I18N::translate('Marriage beginning status');
+        case '_NAME':
+            return
+                /* I18N: gedcom tag _NAME */
+                I18N::translate('Mailing name');
+        case '_NAMS':
+            return
+                /* I18N: gedcom tag _NAMS */
+                I18N::translate('Namesake');
+        case '_NLIV':
+            return
+                /* I18N: gedcom tag _NLIV */
+                I18N::translate('Not living');
+        case '_NMAR':
+            switch ($sex) {
+            case 'M':
+                return
+                    /* I18N: gedcom tag _NMAR */
+                    I18N::translateContext('MALE', 'Never married');
+            case 'F':
+                return
+                    /* I18N: gedcom tag _NMAR */
+                    I18N::translateContext('FEMALE', 'Never married');
+            default:
+                return
+                    /* I18N: gedcom tag _NMAR */
+                    I18N::translate('Never married');
+            }
+        case '_NMR':
+            switch ($sex) {
+            case 'M':
+                return
+                    /* I18N: gedcom tag _NMR */
+                    I18N::translateContext('MALE', 'Not married');
+            case 'F':
+                return
+                    /* I18N: gedcom tag _NMR */
+                    I18N::translateContext('FEMALE', 'Not married');
+            default:
+                return
+                    /* I18N: gedcom tag _NMR */
+                    I18N::translate('Not married');
+            }
+        case '_WT_USER':
+            return I18N::translate('by');
+        case '_PRMN':
+            return
+                /* I18N: gedcom tag _PRMN */
+                I18N::translate('Permanent number');
+        case '_SCBK':
+            return
+                /* I18N: gedcom tag _SCBK */
+                I18N::translate('Scrapbook');
+        case '_SEPR':
+            return
+                /* I18N: gedcom tag _SEPR */
+                I18N::translate('Separated');
+        case '_SSHOW':
+            return
+                /* I18N: gedcom tag _SSHOW */
+                I18N::translate('Slide show');
+        case '_STAT':
+            return
+                /* I18N: gedcom tag _STAT */
+                I18N::translate('Marriage status');
+        case '_SUBQ':
+            return
+                /* I18N: gedcom tag _SUBQ */
+                I18N::translate('Short version');
+        case '_TODO':
+            return
+                /* I18N: gedcom tag _TODO */
+                I18N::translate('Research task');
+        case '_TYPE':
+            return
+                /* I18N: gedcom tag _TYPE */
+                I18N::translate('Media type');
+        case '_UID':
+            return
+                /* I18N: gedcom tag _UID */
+                I18N::translate('Unique identifier');
+        case '_URL':
+            return
+                /* I18N: gedcom tag _URL */
+                I18N::translate('URL');
+        case '_WEIG':
+            return
+                /* I18N: gedcom tag _WEIG */
+                I18N::translate('Weight');
+        case '_WITN':
+            return
+                /* I18N: gedcom tag _WITN */
+                I18N::translate('Witness');
+        case '_WT_OBJE_SORT':
+            return
+                /* I18N: gedcom tag _WT_OBJE_SORT */
+                I18N::translate('Re-order media');
+        case '_YART':
+            return /* I18N: gedcom tag _YART - A yahrzeit is a special anniversary of death in the Hebrew faith/calendar. */ I18N::translate('Yahrzeit');
+            // Brit milah applies only to males, no need for male/female translations
+        case '__BRTM_CHIL':
+            return I18N::translate('Brit milah of a son');
+        case '__BRTM_GCHI':
+            return I18N::translate('Brit milah of a grandson');
+        case '__BRTM_GCH1':
+            return I18N::translateContext('daughter’s son', 'Brit milah of a grandson');
+        case '__BRTM_GCH2':
+            return I18N::translateContext('son’s son', 'Brit milah of a grandson');
+        case '__BRTM_HSIB':
+            return I18N::translate('Brit milah of a half-brother');
+        case '__BRTM_SIBL':
+            return I18N::translate('Brit milah of a brother');
+            // These "pseudo" tags are generated internally to present information about a media object
+        case '__FILE_SIZE__':
+            return I18N::translate('File size');
+        case '__IMAGE_SIZE__':
+            return I18N::translate('Image dimensions');
+        default:
+            // If no specialisation exists (e.g. DEAT:CAUS), then look for the general (CAUS)
+            if (strpos($tag, ':')) {
+                list(, $tag) = explode(':', $tag, 2);
 
-				return self::getLabel($tag, $record);
-			}
+                return self::getLabel($tag, $record);
+            }
 
-			// Still no translation? Highlight this as an error
-			return '<span class="error" title="' . I18N::translate('Unrecognized GEDCOM code') . '">' . Filter::escapeHtml($tag) . '</span>';
-		}
-	}
+            // Still no translation? Highlight this as an error
+            return '<span class="error" title="' . I18N::translate('Unrecognized GEDCOM code') . '">' . Filter::escapeHtml($tag) . '</span>';
+        }
+    }
 
-	/**
-	 * Translate a label/value pair, such as “Occupation: Farmer”
-	 *
-	 * @param string            $tag
-	 * @param string            $value
-	 * @param GedcomRecord|null $record
-	 * @param string|null       $element
-	 *
-	 * @return string
-	 */
-	public static function getLabelValue($tag, $value, GedcomRecord $record = null, $element = 'div') {
-		return
-			'<' . $element . ' class="fact_' . $tag . '">' .
-			/* I18N: a label/value pair, such as “Occupation: Farmer”. Some languages may need to change the punctuation. */
-			I18N::translate('<span class="label">%1$s:</span> <span class="field" dir="auto">%2$s</span>', self::getLabel($tag, $record), $value) .
-			'</' . $element . '>';
-	}
+    /**
+     * Translate a label/value pair, such as “Occupation: Farmer”
+     *
+     * @param string            $tag
+     * @param string            $value
+     * @param GedcomRecord|null $record
+     * @param string|null       $element
+     *
+     * @return string
+     */
+    public static function getLabelValue($tag, $value, GedcomRecord $record = null, $element = 'div') {
+        return
+            '<' . $element . ' class="fact_' . $tag . '">' .
+            /* I18N: a label/value pair, such as “Occupation: Farmer”. Some languages may need to change the punctuation. */
+            I18N::translate('<span class="label">%1$s:</span> <span class="field" dir="auto">%2$s</span>', self::getLabel($tag, $record), $value) .
+            '</' . $element . '>';
+    }
 
-	/**
-	 * Get a list of facts, for use in the "fact picker" edit control
-	 *
-	 * @return string[]
-	 */
-	public static function getPicklistFacts($fact_type) {
-		switch ($fact_type) {
-		case 'INDI':
-			$tags = array(
-				// Facts, attributes for individuals (no links to FAMs)
-				'RESN', 'NAME', 'SEX', 'BIRT', 'CHR', 'DEAT', 'BURI', 'CREM',
-				'ADOP', 'BAPM', 'BARM', 'BASM', 'BLES', 'CHRA', 'CONF', 'FCOM', 'ORDN',
-				'NATU', 'EMIG', 'IMMI', 'CENS', 'PROB', 'WILL', 'GRAD', 'RETI', 'EVEN',
-				'CAST', 'DSCR', 'EDUC', 'IDNO', 'NATI', 'NCHI', 'NMR',
-				'OCCU', 'PROP', 'RELI', 'RESI', 'SSN', 'TITL', 'FACT',
-				'BAPL', 'CONL', 'ENDL', 'SLGC',
-				'SUBM', 'ASSO', 'ALIA', 'ANCI', 'DESI', 'RFN', 'AFN',
-				'REFN', 'RIN', 'CHAN', 'NOTE', 'SHARED_NOTE', 'SOUR', 'OBJE',
-				// non standard tags
-				'_BRTM', '_DEG', '_DNA', '_EYEC', '_FNRL', '_HAIR', '_HEIG', '_HNM',
-				'_HOL', '_INTE', '_MDCL', '_MEDC', '_MILI', '_MILT', '_NAME', '_NAMS',
-				'_NLIV', '_NMAR', '_PRMN', '_TODO', '_UID', '_WEIG', '_YART',
-			);
-			break;
-		case 'FAM':
-			$tags = array(
-				// Facts for families, left out HUSB, WIFE & CHIL links
-				'RESN', 'ANUL', 'CENS', 'DIV', 'DIVF', 'ENGA', 'MARB', 'MARC',
-				'MARR', 'MARL', 'MARS', 'RESI', 'EVEN', 'NCHI', 'SUBM', 'SLGS',
-				'REFN', 'RIN', 'CHAN', 'NOTE', 'SHARED_NOTE', 'SOUR', 'OBJE',
-				// non standard tags
-				'_NMR', 'MARR_CIVIL', 'MARR_RELIGIOUS', 'MARR_PARTNERS', 'MARR_UNKNOWN',
-				'_COML', '_MBON', '_MARI', '_SEPR', '_TODO',
-			);
-		break;
-		case 'SOUR':
-			$tags = array(
-				// Facts for sources
-				'DATA', 'AUTH', 'TITL', 'ABBR', 'PUBL', 'TEXT', 'REPO', 'REFN', 'RIN',
-				'CHAN', 'NOTE', 'SHARED_NOTE', 'OBJE',
-				'RESN',
-			);
-			break;
-		case 'REPO':
-			$tags = array(
-				// Facts for repositories
-				'NAME', 'ADDR', 'PHON', 'EMAIL', 'FAX', 'WWW',
-				'NOTE', 'SHARED_NOTE', 'REFN', 'RIN', 'CHAN',
-				'RESN',
-			);
-			break;
-		case 'PLAC':
-			$tags = array(
-				// Facts for places
-				'FONE', 'ROMN',
-				// non standard tags
-				'_HEB',
-			);
-			break;
-		case 'NAME':
-			$tags = array(
-				// Facts subordinate to NAME
-				'NICK', 'FONE', 'ROMN',
-				// non standard tags
-				'_HEB', '_AKA',
-			);
-			break;
-		default:
-			$tags = array();
-			break;
-		}
+    /**
+     * Get a list of facts, for use in the "fact picker" edit control
+     *
+     * @return string[]
+     */
+    public static function getPicklistFacts($fact_type) {
+        switch ($fact_type) {
+        case 'INDI':
+            $tags = array(
+                // Facts, attributes for individuals (no links to FAMs)
+                'RESN', 'NAME', 'SEX', 'BIRT', 'CHR', 'DEAT', 'BURI', 'CREM',
+                'ADOP', 'BAPM', 'BARM', 'BASM', 'BLES', 'CHRA', 'CONF', 'FCOM', 'ORDN',
+                'NATU', 'EMIG', 'IMMI', 'CENS', 'PROB', 'WILL', 'GRAD', 'RETI', 'EVEN',
+                'CAST', 'DSCR', 'EDUC', 'IDNO', 'NATI', 'NCHI', 'NMR',
+                'OCCU', 'PROP', 'RELI', 'RESI', 'SSN', 'TITL', 'FACT',
+                'BAPL', 'CONL', 'ENDL', 'SLGC',
+                'SUBM', 'ASSO', 'ALIA', 'ANCI', 'DESI', 'RFN', 'AFN',
+                'REFN', 'RIN', 'CHAN', 'NOTE', 'SHARED_NOTE', 'SOUR', 'OBJE',
+                // non standard tags
+                '_BRTM', '_DEG', '_DNA', '_EYEC', '_FNRL', '_HAIR', '_HEIG', '_HNM',
+                '_HOL', '_INTE', '_MDCL', '_MEDC', '_MILI', '_MILT', '_NAME', '_NAMS',
+                '_NLIV', '_NMAR', '_PRMN', '_TODO', '_UID', '_WEIG', '_YART',
+            );
+            break;
+        case 'FAM':
+            $tags = array(
+                // Facts for families, left out HUSB, WIFE & CHIL links
+                'RESN', 'ANUL', 'CENS', 'DIV', 'DIVF', 'ENGA', 'MARB', 'MARC',
+                'MARR', 'MARL', 'MARS', 'RESI', 'EVEN', 'NCHI', 'SUBM', 'SLGS',
+                'REFN', 'RIN', 'CHAN', 'NOTE', 'SHARED_NOTE', 'SOUR', 'OBJE',
+                // non standard tags
+                '_NMR', 'MARR_CIVIL', 'MARR_RELIGIOUS', 'MARR_PARTNERS', 'MARR_UNKNOWN',
+                '_COML', '_MBON', '_MARI', '_SEPR', '_TODO',
+            );
+        break;
+        case 'SOUR':
+            $tags = array(
+                // Facts for sources
+                'DATA', 'AUTH', 'TITL', 'ABBR', 'PUBL', 'TEXT', 'REPO', 'REFN', 'RIN',
+                'CHAN', 'NOTE', 'SHARED_NOTE', 'OBJE',
+                'RESN',
+            );
+            break;
+        case 'REPO':
+            $tags = array(
+                // Facts for repositories
+                'NAME', 'ADDR', 'PHON', 'EMAIL', 'FAX', 'WWW',
+                'NOTE', 'SHARED_NOTE', 'REFN', 'RIN', 'CHAN',
+                'RESN',
+            );
+            break;
+        case 'PLAC':
+            $tags = array(
+                // Facts for places
+                'FONE', 'ROMN',
+                // non standard tags
+                '_HEB',
+            );
+            break;
+        case 'NAME':
+            $tags = array(
+                // Facts subordinate to NAME
+                'NICK', 'FONE', 'ROMN',
+                // non standard tags
+                '_HEB', '_AKA',
+            );
+            break;
+        default:
+            $tags = array();
+            break;
+        }
 
-		$facts = array();
-		foreach ($tags as $tag) {
-			$facts[$tag] = self::getLabel($tag, null);
-		}
-		uasort($facts, '\Fisharebest\Webtrees\I18N::strcasecmp');
+        $facts = array();
+        foreach ($tags as $tag) {
+            $facts[$tag] = self::getLabel($tag, null);
+        }
+        uasort($facts, '\Fisharebest\Webtrees\I18N::strcasecmp');
 
-		return $facts;
-	}
+        return $facts;
+    }
 
-	/**
-	 * Translate the value for 1 FILE/2 FORM/3 TYPE
-	 *
-	 * @param string $type
-	 *
-	 * @return string
-	 */
-	public static function getFileFormTypeValue($type) {
-		switch (strtolower($type)) {
-		case 'audio':
-			return /* I18N: Type of media object */ I18N::translate('Audio');
-		case 'book':
-			return /* I18N: Type of media object */ I18N::translate('Book');
-		case 'card':
-			return /* I18N: Type of media object */ I18N::translate('Card');
-		case 'certificate':
-			return /* I18N: Type of media object */ I18N::translate('Certificate');
-		case 'coat':
-			return /* I18N: Type of media object */ I18N::translate('Coat of arms');
-		case 'document':
-			return /* I18N: Type of media object */ I18N::translate('Document');
-		case 'electronic':
-			return /* I18N: Type of media object */ I18N::translate('Electronic');
-		case 'fiche':
-			return /* I18N: Type of media object */ I18N::translate('Microfiche');
-		case 'film':
-			return /* I18N: Type of media object */ I18N::translate('Microfilm');
-		case 'magazine':
-			return /* I18N: Type of media object */ I18N::translate('Magazine');
-		case 'manuscript':
-			return /* I18N: Type of media object */ I18N::translate('Manuscript');
-		case 'map':
-			return /* I18N: Type of media object */ I18N::translate('Map');
-		case 'newspaper':
-			return /* I18N: Type of media object */ I18N::translate('Newspaper');
-		case 'photo':
-			return /* I18N: Type of media object */ I18N::translate('Photo');
-		case 'tombstone':
-			return /* I18N: Type of media object */ I18N::translate('Tombstone');
-		case 'video':
-			return /* I18N: Type of media object */ I18N::translate('Video');
-		case 'painting':
-			return /* I18N: Type of media object */ I18N::translate('Painting');
-		default:
-			return /* I18N: Type of media object */ I18N::translate('Other');
-		}
-	}
+    /**
+     * Translate the value for 1 FILE/2 FORM/3 TYPE
+     *
+     * @param string $type
+     *
+     * @return string
+     */
+    public static function getFileFormTypeValue($type) {
+        switch (strtolower($type)) {
+        case 'audio':
+            return /* I18N: Type of media object */ I18N::translate('Audio');
+        case 'book':
+            return /* I18N: Type of media object */ I18N::translate('Book');
+        case 'card':
+            return /* I18N: Type of media object */ I18N::translate('Card');
+        case 'certificate':
+            return /* I18N: Type of media object */ I18N::translate('Certificate');
+        case 'coat':
+            return /* I18N: Type of media object */ I18N::translate('Coat of arms');
+        case 'document':
+            return /* I18N: Type of media object */ I18N::translate('Document');
+        case 'electronic':
+            return /* I18N: Type of media object */ I18N::translate('Electronic');
+        case 'fiche':
+            return /* I18N: Type of media object */ I18N::translate('Microfiche');
+        case 'film':
+            return /* I18N: Type of media object */ I18N::translate('Microfilm');
+        case 'magazine':
+            return /* I18N: Type of media object */ I18N::translate('Magazine');
+        case 'manuscript':
+            return /* I18N: Type of media object */ I18N::translate('Manuscript');
+        case 'map':
+            return /* I18N: Type of media object */ I18N::translate('Map');
+        case 'newspaper':
+            return /* I18N: Type of media object */ I18N::translate('Newspaper');
+        case 'photo':
+            return /* I18N: Type of media object */ I18N::translate('Photo');
+        case 'tombstone':
+            return /* I18N: Type of media object */ I18N::translate('Tombstone');
+        case 'video':
+            return /* I18N: Type of media object */ I18N::translate('Video');
+        case 'painting':
+            return /* I18N: Type of media object */ I18N::translate('Painting');
+        default:
+            return /* I18N: Type of media object */ I18N::translate('Other');
+        }
+    }
 
-	/**
-	 * A list of all possible values for 1 FILE/2 FORM/3 TYPE
-	 *
-	 * @return string[]
-	 */
-	public static function getFileFormTypes() {
-		$values = array();
-		foreach (self::$OBJE_FILE_FORM_TYPE as $type) {
-			$values[$type] = self::getFileFormTypeValue($type);
-		}
-		uasort($values, '\Fisharebest\Webtrees\I18N::strcasecmp');
+    /**
+     * A list of all possible values for 1 FILE/2 FORM/3 TYPE
+     *
+     * @return string[]
+     */
+    public static function getFileFormTypes() {
+        $values = array();
+        foreach (self::$OBJE_FILE_FORM_TYPE as $type) {
+            $values[$type] = self::getFileFormTypeValue($type);
+        }
+        uasort($values, '\Fisharebest\Webtrees\I18N::strcasecmp');
 
-		return $values;
-	}
+        return $values;
+    }
 
-	/**
-	 * Generate a value for a new _UID field.
-	 * Instead of RFC4122-compatible UUIDs, generate ones that
-	 * are compatible with PAF, Legacy, RootsMagic, etc.
-	 * In these, the string is upper-cased, dashes are removed,
-	 * and a two-byte checksum is added.
-	 *
-	 * @return string
-	 */
-	public static function createUid() {
-		$uid = str_replace('-', '', Uuid::uuid4());
+    /**
+     * Generate a value for a new _UID field.
+     * Instead of RFC4122-compatible UUIDs, generate ones that
+     * are compatible with PAF, Legacy, RootsMagic, etc.
+     * In these, the string is upper-cased, dashes are removed,
+     * and a two-byte checksum is added.
+     *
+     * @return string
+     */
+    public static function createUid() {
+        $uid = str_replace('-', '', Uuid::uuid4());
 
-		$checksum_a = 0; // a sum of the bytes
-		$checksum_b = 0; // a sum of the incremental values of $checksum_a
+        $checksum_a = 0; // a sum of the bytes
+        $checksum_b = 0; // a sum of the incremental values of $checksum_a
 
-		// Compute checksums
-		for ($i = 0; $i < 32; $i += 2) {
-			$checksum_a += hexdec(substr($uid, $i, 2));
-			$checksum_b += $checksum_a & 0xff;
-		}
+        // Compute checksums
+        for ($i = 0; $i < 32; $i += 2) {
+            $checksum_a += hexdec(substr($uid, $i, 2));
+            $checksum_b += $checksum_a & 0xff;
+        }
 
-		return strtoupper($uid . substr(dechex($checksum_a), -2) . substr(dechex($checksum_b), -2));
-	}
+        return strtoupper($uid . substr(dechex($checksum_a), -2) . substr(dechex($checksum_b), -2));
+    }
 }

app/FlashMessages.php

Indentation +26 added lines, -26 removed lines

@@ -19,34 +19,34 @@
  * Generate messages in one request and display them in the next.
  */
 class FlashMessages {
-	// Session storage key
-	const FLASH_KEY = 'flash_messages';
+    // Session storage key
+    const FLASH_KEY = 'flash_messages';
 
-	/**
-	 * Add a message to the session storage.
-	 *
-	 * @param string $text
-	 * @param string $status "success", "info", "warning" or "danger"
-	 */
-	public static function addMessage($text, $status = 'info') {
-		$message         = new \stdClass;
-		$message->text   = $text;
-		$message->status = $status;
+    /**
+     * Add a message to the session storage.
+     *
+     * @param string $text
+     * @param string $status "success", "info", "warning" or "danger"
+     */
+    public static function addMessage($text, $status = 'info') {
+        $message         = new \stdClass;
+        $message->text   = $text;
+        $message->status = $status;
 
-		$messages   = Session::get(self::FLASH_KEY, array());
-		$messages[] = $message;
-		Session::put(self::FLASH_KEY, $messages);
-	}
+        $messages   = Session::get(self::FLASH_KEY, array());
+        $messages[] = $message;
+        Session::put(self::FLASH_KEY, $messages);
+    }
 
-	/**
-	 * Get the current messages, and remove them from session storage.
-	 *
-	 * @return string[]
-	 */
-	public static function getMessages() {
-		$messages = Session::get(self::FLASH_KEY, array());
-		Session::forget(self::FLASH_KEY);
+    /**
+     * Get the current messages, and remove them from session storage.
+     *
+     * @return string[]
+     */
+    public static function getMessages() {
+        $messages = Session::get(self::FLASH_KEY, array());
+        Session::forget(self::FLASH_KEY);
 
-		return $messages;
-	}
+        return $messages;
+    }
 }