17c7d1e03SGreg Roach<?php 27c7d1e03SGreg Roach 37c7d1e03SGreg Roach/** 47c7d1e03SGreg Roach * webtrees: online genealogy 5*d11be702SGreg Roach * Copyright (C) 2023 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 * @param GedcomEditService $gedcom_edit_service 427c7d1e03SGreg Roach */ 437c7d1e03SGreg Roach public function __construct(GedcomEditService $gedcom_edit_service) 447c7d1e03SGreg Roach { 457c7d1e03SGreg Roach $this->gedcom_edit_service = $gedcom_edit_service; 467c7d1e03SGreg Roach } 477c7d1e03SGreg Roach 487c7d1e03SGreg Roach /** 497c7d1e03SGreg Roach * @param ServerRequestInterface $request 507c7d1e03SGreg Roach * 517c7d1e03SGreg Roach * @return ResponseInterface 527c7d1e03SGreg Roach */ 537c7d1e03SGreg Roach public function handle(ServerRequestInterface $request): ResponseInterface 547c7d1e03SGreg Roach { 55b55cbc6bSGreg Roach $tree = Validator::attributes($request)->tree(); 56b55cbc6bSGreg Roach $xref = Validator::attributes($request)->isXref()->string('xref'); 576b9cb339SGreg Roach $individual = Registry::individualFactory()->make($xref, $tree); 587c7d1e03SGreg Roach $individual = Auth::checkIndividualAccess($individual, true); 597c7d1e03SGreg Roach 60a92a07c7SGreg Roach $levels = Validator::parsedBody($request)->array('ilevels'); 61a92a07c7SGreg Roach $tags = Validator::parsedBody($request)->array('itags'); 62a92a07c7SGreg Roach $values = Validator::parsedBody($request)->array('ivalues'); 63a92a07c7SGreg Roach $gedcom = $this->gedcom_edit_service->editLinesToGedcom(Individual::RECORD_TYPE, $levels, $tags, $values); 647c7d1e03SGreg Roach 65efd4768bSGreg Roach // Create the new child 66a92a07c7SGreg Roach $child = $tree->createIndividual('0 @@ INDI' . $gedcom); 677c7d1e03SGreg Roach 68efd4768bSGreg Roach // Create a new family 69ebe863bbSGreg Roach $link = $individual->sex() === 'F' ? 'WIFE' : 'HUSB'; 706e60786aSGreg Roach $gedcom = "0 @@ FAM\n1 " . $link . ' @' . $individual->xref() . "@\n1 CHIL @" . $child->xref() . '@'; 71efd4768bSGreg Roach $family = $tree->createFamily($gedcom); 727c7d1e03SGreg Roach 73efd4768bSGreg Roach // Link the individual to the family 74efd4768bSGreg Roach $individual->createFact('1 FAMS @' . $family->xref() . '@', false); 757c7d1e03SGreg Roach 76efd4768bSGreg Roach // Link the child to the family 77efd4768bSGreg Roach $child->createFact('1 FAMC @' . $family->xref() . '@', false); 78efd4768bSGreg Roach 79f507cef9SGreg Roach $url = Validator::parsedBody($request)->isLocalUrl()->string('url', $child->url()); 80551ad4afSGreg Roach 81551ad4afSGreg Roach return redirect($url); 827c7d1e03SGreg Roach } 837c7d1e03SGreg Roach} 84