17c7d1e03SGreg Roach<?php 27c7d1e03SGreg Roach 37c7d1e03SGreg Roach/** 47c7d1e03SGreg Roach * webtrees: online genealogy 55bfc6897SGreg Roach * Copyright (C) 2022 webtrees development team 67c7d1e03SGreg Roach * This program is free software: you can redistribute it and/or modify 77c7d1e03SGreg Roach * it under the terms of the GNU General Public License as published by 87c7d1e03SGreg Roach * the Free Software Foundation, either version 3 of the License, or 97c7d1e03SGreg Roach * (at your option) any later version. 107c7d1e03SGreg Roach * This program is distributed in the hope that it will be useful, 117c7d1e03SGreg Roach * but WITHOUT ANY WARRANTY; without even the implied warranty of 127c7d1e03SGreg Roach * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 137c7d1e03SGreg Roach * GNU General Public License for more details. 147c7d1e03SGreg Roach * You should have received a copy of the GNU General Public License 1589f7189bSGreg Roach * along with this program. If not, see <https://www.gnu.org/licenses/>. 167c7d1e03SGreg Roach */ 177c7d1e03SGreg Roach 187c7d1e03SGreg Roachdeclare(strict_types=1); 197c7d1e03SGreg Roach 207c7d1e03SGreg Roachnamespace Fisharebest\Webtrees\Http\RequestHandlers; 217c7d1e03SGreg Roach 227c7d1e03SGreg Roachuse Fisharebest\Webtrees\Auth; 2316904038SGreg Roachuse Fisharebest\Webtrees\Individual; 246b9cb339SGreg Roachuse Fisharebest\Webtrees\Registry; 257c7d1e03SGreg Roachuse Fisharebest\Webtrees\Services\GedcomEditService; 268d9c2b68SGreg Roachuse Fisharebest\Webtrees\Validator; 277c7d1e03SGreg Roachuse Psr\Http\Message\ResponseInterface; 287c7d1e03SGreg Roachuse Psr\Http\Message\ServerRequestInterface; 297c7d1e03SGreg Roachuse Psr\Http\Server\RequestHandlerInterface; 307c7d1e03SGreg Roach 317c7d1e03SGreg Roachuse function redirect; 327c7d1e03SGreg Roach 337c7d1e03SGreg Roach/** 347c7d1e03SGreg Roach * Add a new child to an individual, creating a one-parent family. 357c7d1e03SGreg Roach */ 367c7d1e03SGreg Roachclass AddChildToIndividualAction implements RequestHandlerInterface 377c7d1e03SGreg Roach{ 38c4943cffSGreg Roach private GedcomEditService $gedcom_edit_service; 397c7d1e03SGreg Roach 407c7d1e03SGreg Roach /** 417c7d1e03SGreg Roach * AddChildToFamilyAction constructor. 427c7d1e03SGreg Roach * 437c7d1e03SGreg Roach * @param GedcomEditService $gedcom_edit_service 447c7d1e03SGreg Roach */ 457c7d1e03SGreg Roach public function __construct(GedcomEditService $gedcom_edit_service) 467c7d1e03SGreg Roach { 477c7d1e03SGreg Roach $this->gedcom_edit_service = $gedcom_edit_service; 487c7d1e03SGreg Roach } 497c7d1e03SGreg Roach 507c7d1e03SGreg Roach /** 517c7d1e03SGreg Roach * @param ServerRequestInterface $request 527c7d1e03SGreg Roach * 537c7d1e03SGreg Roach * @return ResponseInterface 547c7d1e03SGreg Roach */ 557c7d1e03SGreg Roach public function handle(ServerRequestInterface $request): ResponseInterface 567c7d1e03SGreg Roach { 57b55cbc6bSGreg Roach $tree = Validator::attributes($request)->tree(); 58b55cbc6bSGreg Roach $xref = Validator::attributes($request)->isXref()->string('xref'); 59efd4768bSGreg Roach $params = (array) $request->getParsedBody(); 606b9cb339SGreg Roach $individual = Registry::individualFactory()->make($xref, $tree); 617c7d1e03SGreg Roach $individual = Auth::checkIndividualAccess($individual, true); 627c7d1e03SGreg Roach 63efd4768bSGreg Roach $levels = $params['ilevels'] ?? []; 64efd4768bSGreg Roach $tags = $params['itags'] ?? []; 65efd4768bSGreg Roach $values = $params['ivalues'] ?? []; 667c7d1e03SGreg Roach 67efd4768bSGreg Roach // Create the new child 6816904038SGreg Roach $gedcom = "0 @@ INDI\n" . $this->gedcom_edit_service->editLinesToGedcom(Individual::RECORD_TYPE, $levels, $tags, $values); 697c7d1e03SGreg Roach $child = $tree->createIndividual($gedcom); 707c7d1e03SGreg Roach 71efd4768bSGreg Roach // Create a new family 72*ebe863bbSGreg Roach $link = $individual->sex() === 'F' ? 'WIFE' : 'HUSB'; 736e60786aSGreg Roach $gedcom = "0 @@ FAM\n1 " . $link . ' @' . $individual->xref() . "@\n1 CHIL @" . $child->xref() . '@'; 74efd4768bSGreg Roach $family = $tree->createFamily($gedcom); 757c7d1e03SGreg Roach 76efd4768bSGreg Roach // Link the individual to the family 77efd4768bSGreg Roach $individual->createFact('1 FAMS @' . $family->xref() . '@', false); 787c7d1e03SGreg Roach 79efd4768bSGreg Roach // Link the child to the family 80efd4768bSGreg Roach $child->createFact('1 FAMC @' . $family->xref() . '@', false); 81efd4768bSGreg Roach 82f507cef9SGreg Roach $url = Validator::parsedBody($request)->isLocalUrl()->string('url', $child->url()); 83551ad4afSGreg Roach 84551ad4afSGreg Roach return redirect($url); 857c7d1e03SGreg Roach } 867c7d1e03SGreg Roach} 87