1a25f0a04SGreg Roach<?php 2a25f0a04SGreg Roach/** 3a25f0a04SGreg Roach * webtrees: online genealogy 4*8fcd0d32SGreg 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 202e5b4452SGreg Roachuse Illuminate\Database\Capsule\Manager as DB; 212e5b4452SGreg Roach 22a25f0a04SGreg Roach/** 2376692c8bSGreg Roach * A GEDCOM source (SOUR) object. 24a25f0a04SGreg Roach */ 25c1010edaSGreg Roachclass Source extends GedcomRecord 26c1010edaSGreg Roach{ 27a25f0a04SGreg Roach const RECORD_TYPE = 'SOUR'; 28225e381fSGreg Roach const ROUTE_NAME = 'source'; 29a25f0a04SGreg Roach 3076692c8bSGreg Roach /** 31e71ef9d2SGreg Roach * Get an instance of a source object. For single records, 32e71ef9d2SGreg Roach * we just receive the XREF. For bulk records (such as lists 33e71ef9d2SGreg Roach * and search results) we can receive the GEDCOM data as well. 34e71ef9d2SGreg Roach * 35e71ef9d2SGreg Roach * @param string $xref 36e71ef9d2SGreg Roach * @param Tree $tree 37e71ef9d2SGreg Roach * @param string|null $gedcom 38e71ef9d2SGreg Roach * 39e71ef9d2SGreg Roach * @throws \Exception 40e71ef9d2SGreg Roach * 41e71ef9d2SGreg Roach * @return Source|null 42e71ef9d2SGreg Roach */ 4376f666f4SGreg Roach public static function getInstance(string $xref, Tree $tree, string $gedcom = null) 44c1010edaSGreg Roach { 45e71ef9d2SGreg Roach $record = parent::getInstance($xref, $tree, $gedcom); 46e71ef9d2SGreg Roach 47e71ef9d2SGreg Roach if ($record instanceof Source) { 48e71ef9d2SGreg Roach return $record; 49e71ef9d2SGreg Roach } 50b2ce94c6SRico Sonntag 51b2ce94c6SRico Sonntag return null; 52e71ef9d2SGreg Roach } 53e71ef9d2SGreg Roach 54e71ef9d2SGreg Roach /** 5576692c8bSGreg Roach * Each object type may have its own special rules, and re-implement this function. 5676692c8bSGreg Roach * 5776692c8bSGreg Roach * @param int $access_level 5876692c8bSGreg Roach * 5976692c8bSGreg Roach * @return bool 6076692c8bSGreg Roach */ 6135584196SGreg Roach protected function canShowByType(int $access_level): bool 62c1010edaSGreg Roach { 63a25f0a04SGreg Roach // Hide sources if they are attached to private repositories ... 64a25f0a04SGreg Roach preg_match_all('/\n1 REPO @(.+)@/', $this->gedcom, $matches); 65a25f0a04SGreg Roach foreach ($matches[1] as $match) { 6624ec66ceSGreg Roach $repo = Repository::getInstance($match, $this->tree); 67a25f0a04SGreg Roach if ($repo && !$repo->canShow($access_level)) { 68a25f0a04SGreg Roach return false; 69a25f0a04SGreg Roach } 70a25f0a04SGreg Roach } 71a25f0a04SGreg Roach 72a25f0a04SGreg Roach // ... otherwise apply default behaviour 73a25f0a04SGreg Roach return parent::canShowByType($access_level); 74a25f0a04SGreg Roach } 75a25f0a04SGreg Roach 7676692c8bSGreg Roach /** 7776692c8bSGreg Roach * Generate a private version of this record 7876692c8bSGreg Roach * 7976692c8bSGreg Roach * @param int $access_level 8076692c8bSGreg Roach * 8176692c8bSGreg Roach * @return string 8276692c8bSGreg Roach */ 833c90ed31SGreg Roach protected function createPrivateGedcomRecord(int $access_level): string 84c1010edaSGreg Roach { 85a25f0a04SGreg Roach return '0 @' . $this->xref . "@ SOUR\n1 TITL " . I18N::translate('Private'); 86a25f0a04SGreg Roach } 87a25f0a04SGreg Roach 8876692c8bSGreg Roach /** 8976692c8bSGreg Roach * Fetch data from the database 9076692c8bSGreg Roach * 9176692c8bSGreg Roach * @param string $xref 9276692c8bSGreg Roach * @param int $tree_id 9376692c8bSGreg Roach * 9476692c8bSGreg Roach * @return null|string 9576692c8bSGreg Roach */ 9676f666f4SGreg Roach protected static function fetchGedcomRecord(string $xref, int $tree_id) 97c1010edaSGreg Roach { 982e5b4452SGreg Roach return DB::table('sources') 992e5b4452SGreg Roach ->where('s_id', '=', $xref) 1002e5b4452SGreg Roach ->where('s_file', '=', $tree_id) 1012e5b4452SGreg Roach ->value('s_gedcom'); 102a25f0a04SGreg Roach } 103a25f0a04SGreg Roach 10476692c8bSGreg Roach /** 10576692c8bSGreg Roach * Extract names from the GEDCOM record. 106c7ff4153SGreg Roach * 107c7ff4153SGreg Roach * @return void 10876692c8bSGreg Roach */ 109c1010edaSGreg Roach public function extractNames() 110c1010edaSGreg Roach { 1118d0ebef0SGreg Roach parent::extractNamesFromFacts(1, 'TITL', $this->facts(['TITL'])); 112a25f0a04SGreg Roach } 113a25f0a04SGreg Roach} 114