1<?php 2 3/** 4 * webtrees: online genealogy 5 * Copyright (C) 2020 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 <http://www.gnu.org/licenses/>. 16 */ 17 18declare(strict_types=1); 19 20namespace Fisharebest\Webtrees\Http\RequestHandlers; 21 22use Fisharebest\Webtrees\Auth; 23use Fisharebest\Webtrees\Registry; 24use Fisharebest\Webtrees\Services\GedcomEditService; 25use Fisharebest\Webtrees\Tree; 26use Psr\Http\Message\ResponseInterface; 27use Psr\Http\Message\ServerRequestInterface; 28use Psr\Http\Server\RequestHandlerInterface; 29 30use function assert; 31use function preg_match_all; 32use function redirect; 33 34/** 35 * Add a new parent to an individual, creating a one-parent family. 36 */ 37class AddParentToIndividualAction implements RequestHandlerInterface 38{ 39 /** @var GedcomEditService */ 40 private $gedcom_edit_service; 41 42 /** 43 * AddChildToFamilyAction constructor. 44 * 45 * @param GedcomEditService $gedcom_edit_service 46 */ 47 public function __construct(GedcomEditService $gedcom_edit_service) 48 { 49 $this->gedcom_edit_service = $gedcom_edit_service; 50 } 51 52 /** 53 * @param ServerRequestInterface $request 54 * 55 * @return ResponseInterface 56 */ 57 public function handle(ServerRequestInterface $request): ResponseInterface 58 { 59 $tree = $request->getAttribute('tree'); 60 assert($tree instanceof Tree); 61 62 $xref = $request->getQueryParams()['xref']; 63 64 $individual = Registry::individualFactory()->make($xref, $tree); 65 $individual = Auth::checkIndividualAccess($individual, true); 66 67 $params = (array) $request->getParsedBody(); 68 69 $this->gedcom_edit_service->glevels = $params['glevels'] ?? []; 70 $this->gedcom_edit_service->tag = $params['tag'] ?? []; 71 $this->gedcom_edit_service->text = $params['text'] ?? []; 72 $this->gedcom_edit_service->islink = $params['islink'] ?? []; 73 74 // Create a new family 75 $gedcom = "0 @@ FAM\n1 CHIL @" . $individual->xref() . '@'; 76 $family = $tree->createFamily($gedcom); 77 78 // Link the child to the family 79 $individual->createFact('1 FAMC @' . $family->xref() . '@', true); 80 81 // Create a child 82 $this->gedcom_edit_service->splitSource(); // separate SOUR record from the rest 83 84 $gedcom = '0 @@ INDI'; 85 $gedcom .= $this->gedcom_edit_service->addNewName($request, $tree); 86 $gedcom .= $this->gedcom_edit_service->addNewSex($request); 87 if (preg_match_all('/([A-Z0-9_]+)/', $tree->getPreference('QUICK_REQUIRED_FACTS'), $matches)) { 88 foreach ($matches[1] as $match) { 89 $gedcom .= $this->gedcom_edit_service->addNewFact($request, $tree, $match); 90 } 91 } 92 if ($params['SOUR_INDI'] ?? false) { 93 $gedcom = $this->gedcom_edit_service->handleUpdates($gedcom); 94 } else { 95 $gedcom = $this->gedcom_edit_service->updateRest($gedcom); 96 } 97 $gedcom .= "\n1 FAMS @" . $family->xref() . '@'; 98 99 $parent = $tree->createIndividual($gedcom); 100 101 // Link the family to the child 102 if ($parent->sex() === 'F') { 103 $family->createFact('1 WIFE @' . $parent->xref() . '@', true); 104 } else { 105 $family->createFact('1 HUSB @' . $parent->xref() . '@', true); 106 } 107 108 if (($params['goto'] ?? '') === 'new') { 109 return redirect($parent->url()); 110 } 111 112 return redirect($individual->url()); 113 } 114} 115