1a25f0a04SGreg Roach<?php 2a25f0a04SGreg Roach/** 3a25f0a04SGreg Roach * webtrees: online genealogy 48fcd0d32SGreg Roach * Copyright (C) 2019 webtrees development team 5a25f0a04SGreg Roach * This program is free software: you can redistribute it and/or modify 6a25f0a04SGreg Roach * it under the terms of the GNU General Public License as published by 7a25f0a04SGreg Roach * the Free Software Foundation, either version 3 of the License, or 8a25f0a04SGreg Roach * (at your option) any later version. 9a25f0a04SGreg Roach * This program is distributed in the hope that it will be useful, 10a25f0a04SGreg Roach * but WITHOUT ANY WARRANTY; without even the implied warranty of 11a25f0a04SGreg Roach * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 12a25f0a04SGreg Roach * GNU General Public License for more details. 13a25f0a04SGreg Roach * You should have received a copy of the GNU General Public License 14a25f0a04SGreg Roach * along with this program. If not, see <http://www.gnu.org/licenses/>. 15a25f0a04SGreg Roach */ 16e7f56f2aSGreg Roachdeclare(strict_types=1); 17e7f56f2aSGreg Roach 1876692c8bSGreg Roachnamespace Fisharebest\Webtrees; 19a25f0a04SGreg Roach 20886b77daSGreg Roachuse Closure; 212e5b4452SGreg Roachuse Illuminate\Database\Capsule\Manager as DB; 22886b77daSGreg Roachuse stdClass; 232e5b4452SGreg Roach 24a25f0a04SGreg Roach/** 2576692c8bSGreg Roach * A GEDCOM source (SOUR) object. 26a25f0a04SGreg Roach */ 27c1010edaSGreg Roachclass Source extends GedcomRecord 28c1010edaSGreg Roach{ 2916d6367aSGreg Roach public const RECORD_TYPE = 'SOUR'; 3016d6367aSGreg Roach 3116d6367aSGreg Roach protected const ROUTE_NAME = 'source'; 32a25f0a04SGreg Roach 3376692c8bSGreg Roach /** 34886b77daSGreg Roach * A closure which will create a record from a database row. 35886b77daSGreg Roach * 36886b77daSGreg Roach * @return Closure 37886b77daSGreg Roach */ 38c0804649SGreg Roach public static function rowMapper(): Closure 39886b77daSGreg Roach { 40c0804649SGreg Roach return function (stdClass $row): Source { 41*a7a24840SGreg Roach return Source::getInstance($row->s_id, Tree::findById((int) $row->s_file), $row->s_gedcom); 42886b77daSGreg Roach }; 43886b77daSGreg Roach } 44886b77daSGreg Roach 45886b77daSGreg Roach /** 46e71ef9d2SGreg Roach * Get an instance of a source object. For single records, 47e71ef9d2SGreg Roach * we just receive the XREF. For bulk records (such as lists 48e71ef9d2SGreg Roach * and search results) we can receive the GEDCOM data as well. 49e71ef9d2SGreg Roach * 50e71ef9d2SGreg Roach * @param string $xref 51e71ef9d2SGreg Roach * @param Tree $tree 52e71ef9d2SGreg Roach * @param string|null $gedcom 53e71ef9d2SGreg Roach * 54e71ef9d2SGreg Roach * @throws \Exception 55e71ef9d2SGreg Roach * 56e71ef9d2SGreg Roach * @return Source|null 57e71ef9d2SGreg Roach */ 5876f666f4SGreg Roach public static function getInstance(string $xref, Tree $tree, string $gedcom = null) 59c1010edaSGreg Roach { 60e71ef9d2SGreg Roach $record = parent::getInstance($xref, $tree, $gedcom); 61e71ef9d2SGreg Roach 62e71ef9d2SGreg Roach if ($record instanceof Source) { 63e71ef9d2SGreg Roach return $record; 64e71ef9d2SGreg Roach } 65b2ce94c6SRico Sonntag 66b2ce94c6SRico Sonntag return null; 67e71ef9d2SGreg Roach } 68e71ef9d2SGreg Roach 69e71ef9d2SGreg Roach /** 7076692c8bSGreg Roach * Each object type may have its own special rules, and re-implement this function. 7176692c8bSGreg Roach * 7276692c8bSGreg Roach * @param int $access_level 7376692c8bSGreg Roach * 7476692c8bSGreg Roach * @return bool 7576692c8bSGreg Roach */ 7635584196SGreg Roach protected function canShowByType(int $access_level): bool 77c1010edaSGreg Roach { 78a25f0a04SGreg Roach // Hide sources if they are attached to private repositories ... 79a25f0a04SGreg Roach preg_match_all('/\n1 REPO @(.+)@/', $this->gedcom, $matches); 80a25f0a04SGreg Roach foreach ($matches[1] as $match) { 8124ec66ceSGreg Roach $repo = Repository::getInstance($match, $this->tree); 82a25f0a04SGreg Roach if ($repo && !$repo->canShow($access_level)) { 83a25f0a04SGreg Roach return false; 84a25f0a04SGreg Roach } 85a25f0a04SGreg Roach } 86a25f0a04SGreg Roach 87a25f0a04SGreg Roach // ... otherwise apply default behaviour 88a25f0a04SGreg Roach return parent::canShowByType($access_level); 89a25f0a04SGreg Roach } 90a25f0a04SGreg Roach 9176692c8bSGreg Roach /** 9276692c8bSGreg Roach * Generate a private version of this record 9376692c8bSGreg Roach * 9476692c8bSGreg Roach * @param int $access_level 9576692c8bSGreg Roach * 9676692c8bSGreg Roach * @return string 9776692c8bSGreg Roach */ 983c90ed31SGreg Roach protected function createPrivateGedcomRecord(int $access_level): string 99c1010edaSGreg Roach { 100a25f0a04SGreg Roach return '0 @' . $this->xref . "@ SOUR\n1 TITL " . I18N::translate('Private'); 101a25f0a04SGreg Roach } 102a25f0a04SGreg Roach 10376692c8bSGreg Roach /** 10476692c8bSGreg Roach * Fetch data from the database 10576692c8bSGreg Roach * 10676692c8bSGreg Roach * @param string $xref 10776692c8bSGreg Roach * @param int $tree_id 10876692c8bSGreg Roach * 10976692c8bSGreg Roach * @return null|string 11076692c8bSGreg Roach */ 11176f666f4SGreg Roach protected static function fetchGedcomRecord(string $xref, int $tree_id) 112c1010edaSGreg Roach { 1132e5b4452SGreg Roach return DB::table('sources') 1142e5b4452SGreg Roach ->where('s_id', '=', $xref) 1152e5b4452SGreg Roach ->where('s_file', '=', $tree_id) 1162e5b4452SGreg Roach ->value('s_gedcom'); 117a25f0a04SGreg Roach } 118a25f0a04SGreg Roach 11976692c8bSGreg Roach /** 12076692c8bSGreg Roach * Extract names from the GEDCOM record. 121c7ff4153SGreg Roach * 122c7ff4153SGreg Roach * @return void 12376692c8bSGreg Roach */ 124c1010edaSGreg Roach public function extractNames() 125c1010edaSGreg Roach { 1268d0ebef0SGreg Roach parent::extractNamesFromFacts(1, 'TITL', $this->facts(['TITL'])); 127a25f0a04SGreg Roach } 128a25f0a04SGreg Roach} 129