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 29/** 30 * Process a form to create a new source. 31 */ 32class CreateSourceAction implements RequestHandlerInterface 33{ 34 /** 35 * @param ServerRequestInterface $request 36 * 37 * @return ResponseInterface 38 */ 39 public function handle(ServerRequestInterface $request): ResponseInterface 40 { 41 $tree = Validator::attributes($request)->tree(); 42 $title = Validator::parsedBody($request)->string('source-title'); 43 $abbreviation = Validator::parsedBody($request)->string('source-abbreviation'); 44 $author = Validator::parsedBody($request)->string('source-author'); 45 $publication = Validator::parsedBody($request)->string('source-publication'); 46 $repository = Validator::parsedBody($request)->string('source-repository'); 47 $call_number = Validator::parsedBody($request)->string('source-call-number'); 48 $text = Validator::parsedBody($request)->string('source-text'); 49 $restriction = Validator::parsedBody($request)->isInArray(['', 'NONE', 'PRIVACY', 'CONFIDENTIAL', 'LOCKED'])->string('restriction'); 50 51 // Fix non-printing characters 52 $title = trim(preg_replace('/\s+/', ' ', $title)); 53 $abbreviation = trim(preg_replace('/\s+/', ' ', $abbreviation)); 54 $author = trim(preg_replace('/\s+/', ' ', $author)); 55 $publication = trim(preg_replace('/\s+/', ' ', $publication)); 56 $repository = trim(preg_replace('/\s+/', ' ', $repository)); 57 $call_number = trim(preg_replace('/\s+/', ' ', $call_number)); 58 59 // Convert HTML line endings to GEDCOM continuations 60 $text = strtr($text, ["\r\n" => "\n2 CONT "]); 61 62 $gedcom = "0 @@ SOUR\n\n1 TITL " . $title; 63 64 if ($abbreviation !== '') { 65 $gedcom .= "\n1 ABBR " . $abbreviation; 66 } 67 68 if ($author !== '') { 69 $gedcom .= "\n1 AUTH " . $author; 70 } 71 72 if ($publication !== '') { 73 $gedcom .= "\n1 PUBL " . $publication; 74 } 75 76 if ($text !== '') { 77 $gedcom .= "\n1 TEXT " . $text; 78 } 79 80 if ($repository !== '') { 81 $gedcom .= "\n1 REPO @" . $repository . '@'; 82 83 if ($call_number !== '') { 84 $gedcom .= "\n2 CALN " . $call_number; 85 } 86 } 87 88 if ($restriction !== '') { 89 $gedcom .= "\n1 RESN " . $restriction; 90 } 91 92 $record = $tree->createRecord($gedcom); 93 $record = Registry::sourceFactory()->new($record->xref(), $record->gedcom(), null, $tree); 94 95 // value and text are for autocomplete 96 // html is for interactive modals 97 return response([ 98 'value' => '@' . $record->xref() . '@', 99 'text' => view('selects/source', ['source' => $record]), 100 'html' => view('modals/record-created', [ 101 'title' => I18N::translate('The source has been created'), 102 'name' => $record->fullName(), 103 'url' => $record->url(), 104 ]), 105 ]); 106 } 107} 108