1c2ed51d1SGreg Roach<?php 2c2ed51d1SGreg Roach 3c2ed51d1SGreg Roach/** 4c2ed51d1SGreg Roach * webtrees: online genealogy 5*d11be702SGreg Roach * Copyright (C) 2023 webtrees development team 6c2ed51d1SGreg Roach * This program is free software: you can redistribute it and/or modify 7c2ed51d1SGreg Roach * it under the terms of the GNU General Public License as published by 8c2ed51d1SGreg Roach * the Free Software Foundation, either version 3 of the License, or 9c2ed51d1SGreg Roach * (at your option) any later version. 10c2ed51d1SGreg Roach * This program is distributed in the hope that it will be useful, 11c2ed51d1SGreg Roach * but WITHOUT ANY WARRANTY; without even the implied warranty of 12c2ed51d1SGreg Roach * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13c2ed51d1SGreg Roach * GNU General Public License for more details. 14c2ed51d1SGreg Roach * You should have received a copy of the GNU General Public License 15c2ed51d1SGreg Roach * along with this program. If not, see <https://www.gnu.org/licenses/>. 16c2ed51d1SGreg Roach */ 17c2ed51d1SGreg Roach 18c2ed51d1SGreg Roachdeclare(strict_types=1); 19c2ed51d1SGreg Roach 20c2ed51d1SGreg Roachnamespace Fisharebest\Webtrees\Elements; 21c2ed51d1SGreg Roach 22c2ed51d1SGreg Roachuse Fisharebest\Webtrees\Tree; 23c2ed51d1SGreg Roach 24c2ed51d1SGreg Roach/** 25c2ed51d1SGreg Roach * GEDCOM_FORM := {Size=14:20} 26c2ed51d1SGreg Roach * [ LINEAGE-LINKED ] 27c2ed51d1SGreg Roach * The GEDCOM form used to construct this transmission. There maybe other forms 28c2ed51d1SGreg Roach * used such as CommSoft's "EVENT_LINEAGE_LINKED" but these specifications 29c2ed51d1SGreg Roach * define only the LINEAGE-LINKED Form. Systems will use this value to specify 30c2ed51d1SGreg Roach * GEDCOM compatible with these specifications. 31c2ed51d1SGreg Roach */ 32c2ed51d1SGreg Roachclass Form extends AbstractElement 33c2ed51d1SGreg Roach{ 34ae0043b7SGreg Roach protected const MAXIMUM_LENGTH = 20; 35c2ed51d1SGreg Roach 36c2ed51d1SGreg Roach /** 37cf9d80bbSGreg Roach * Convert a value to a canonical form. 38cf9d80bbSGreg Roach * 39cf9d80bbSGreg Roach * @param string $value 40cf9d80bbSGreg Roach * 41cf9d80bbSGreg Roach * @return string 42cf9d80bbSGreg Roach */ 43cf9d80bbSGreg Roach public function canonical(string $value): string 44cf9d80bbSGreg Roach { 45cf9d80bbSGreg Roach return strtoupper(parent::canonical($value)); 46cf9d80bbSGreg Roach } 47cf9d80bbSGreg Roach 48cf9d80bbSGreg Roach /** 49c2ed51d1SGreg Roach * Create a default value for this element. 50c2ed51d1SGreg Roach * 51c2ed51d1SGreg Roach * @param Tree $tree 52c2ed51d1SGreg Roach * 53c2ed51d1SGreg Roach * @return string 54c2ed51d1SGreg Roach */ 55c2ed51d1SGreg Roach public function default(Tree $tree): string 56c2ed51d1SGreg Roach { 57c2ed51d1SGreg Roach return 'LINEAGE-LINKED'; 58c2ed51d1SGreg Roach } 59cf9d80bbSGreg Roach 60cf9d80bbSGreg Roach /** 61cf9d80bbSGreg Roach * A list of controlled values for this element 62cf9d80bbSGreg Roach * 63cf9d80bbSGreg Roach * @return array<int|string,string> 64cf9d80bbSGreg Roach */ 65cf9d80bbSGreg Roach public function values(): array 66cf9d80bbSGreg Roach { 67cf9d80bbSGreg Roach return [ 68cf9d80bbSGreg Roach 'LINEAGE-LINKED' => 'LINEAGE-LINKED', 69cf9d80bbSGreg Roach ]; 70cf9d80bbSGreg Roach } 71c2ed51d1SGreg Roach} 72