1<?php 2 3/** 4 * webtrees: online genealogy 5 * Copyright (C) 2022 webtrees development team 6 * This program is free software: you can redistribute it and/or modify 7 * it under the terms of the GNU General Public License as published by 8 * the Free Software Foundation, either version 3 of the License, or 9 * (at your option) any later version. 10 * This program is distributed in the hope that it will be useful, 11 * but WITHOUT ANY WARRANTY; without even the implied warranty of 12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 * GNU General Public License for more details. 14 * You should have received a copy of the GNU General Public License 15 * along with this program. If not, see <https://www.gnu.org/licenses/>. 16 */ 17 18declare(strict_types=1); 19 20namespace Fisharebest\Webtrees\Http\RequestHandlers; 21 22use Fisharebest\Webtrees\I18N; 23use Fisharebest\Webtrees\Registry; 24use Fisharebest\Webtrees\Validator; 25use Psr\Http\Message\ResponseInterface; 26use Psr\Http\Message\ServerRequestInterface; 27use Psr\Http\Server\RequestHandlerInterface; 28 29use function in_array; 30 31/** 32 * Process a form to create a new source. 33 */ 34class CreateSourceAction implements RequestHandlerInterface 35{ 36 /** 37 * @param ServerRequestInterface $request 38 * 39 * @return ResponseInterface 40 */ 41 public function handle(ServerRequestInterface $request): ResponseInterface 42 { 43 $tree = Validator::attributes($request)->tree(); 44 $title = Validator::parsedBody($request)->string('source-title'); 45 $abbreviation = Validator::parsedBody($request)->string('source-abbreviation'); 46 $author = Validator::parsedBody($request)->string('source-author'); 47 $publication = Validator::parsedBody($request)->string('source-publication'); 48 $repository = Validator::parsedBody($request)->string('source-repository'); 49 $call_number = Validator::parsedBody($request)->string('source-call-number'); 50 $text = Validator::parsedBody($request)->string('source-text'); 51 $restriction = Validator::parsedBody($request)->string('restriction'); 52 53 // Fix non-printing characters 54 $title = trim(preg_replace('/\s+/', ' ', $title)); 55 $abbreviation = trim(preg_replace('/\s+/', ' ', $abbreviation)); 56 $author = trim(preg_replace('/\s+/', ' ', $author)); 57 $publication = trim(preg_replace('/\s+/', ' ', $publication)); 58 $repository = trim(preg_replace('/\s+/', ' ', $repository)); 59 $call_number = trim(preg_replace('/\s+/', ' ', $call_number)); 60 61 // Convert HTML line endings to GEDCOM continuations 62 $text = strtr($text, ["\r\n" => "\n2 CONT "]); 63 64 $gedcom = "0 @@ SOUR\n\n1 TITL " . $title; 65 66 if ($abbreviation !== '') { 67 $gedcom .= "\n1 ABBR " . $abbreviation; 68 } 69 70 if ($author !== '') { 71 $gedcom .= "\n1 AUTH " . $author; 72 } 73 74 if ($publication !== '') { 75 $gedcom .= "\n1 PUBL " . $publication; 76 } 77 78 if ($text !== '') { 79 $gedcom .= "\n1 TEXT " . $text; 80 } 81 82 if ($repository !== '') { 83 $gedcom .= "\n1 REPO @" . $repository . '@'; 84 85 if ($call_number !== '') { 86 $gedcom .= "\n2 CALN " . $call_number; 87 } 88 } 89 90 if (in_array($restriction, ['none', 'privacy', 'confidential', 'locked'], true)) { 91 $gedcom .= "\n1 RESN " . $restriction; 92 } 93 94 $record = $tree->createRecord($gedcom); 95 $record = Registry::sourceFactory()->new($record->xref(), $record->gedcom(), null, $tree); 96 97 // value and text are for autocomplete 98 // html is for interactive modals 99 return response([ 100 'value' => '@' . $record->xref() . '@', 101 'text' => view('selects/source', ['source' => $record]), 102 'html' => view('modals/record-created', [ 103 'title' => I18N::translate('The source has been created'), 104 'name' => $record->fullName(), 105 'url' => $record->url(), 106 ]), 107 ]); 108 } 109} 110