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; 236b9cb339SGreg Roachuse Fisharebest\Webtrees\Registry; 247c7d1e03SGreg Roachuse Fisharebest\Webtrees\Services\GedcomEditService; 258d9c2b68SGreg Roachuse Fisharebest\Webtrees\Validator; 267c7d1e03SGreg Roachuse Psr\Http\Message\ResponseInterface; 277c7d1e03SGreg Roachuse Psr\Http\Message\ServerRequestInterface; 287c7d1e03SGreg Roachuse Psr\Http\Server\RequestHandlerInterface; 297c7d1e03SGreg Roach 307c7d1e03SGreg Roachuse function redirect; 317c7d1e03SGreg Roach 327c7d1e03SGreg Roach/** 337c7d1e03SGreg Roach * Add a new parent to an individual, creating a one-parent family. 347c7d1e03SGreg Roach */ 357c7d1e03SGreg Roachclass AddParentToIndividualAction implements RequestHandlerInterface 367c7d1e03SGreg Roach{ 37c4943cffSGreg Roach private GedcomEditService $gedcom_edit_service; 387c7d1e03SGreg Roach 397c7d1e03SGreg Roach /** 407c7d1e03SGreg Roach * AddChildToFamilyAction constructor. 417c7d1e03SGreg Roach * 427c7d1e03SGreg Roach * @param GedcomEditService $gedcom_edit_service 437c7d1e03SGreg Roach */ 447c7d1e03SGreg Roach public function __construct(GedcomEditService $gedcom_edit_service) 457c7d1e03SGreg Roach { 467c7d1e03SGreg Roach $this->gedcom_edit_service = $gedcom_edit_service; 477c7d1e03SGreg Roach } 487c7d1e03SGreg Roach 497c7d1e03SGreg Roach /** 507c7d1e03SGreg Roach * @param ServerRequestInterface $request 517c7d1e03SGreg Roach * 527c7d1e03SGreg Roach * @return ResponseInterface 537c7d1e03SGreg Roach */ 547c7d1e03SGreg Roach public function handle(ServerRequestInterface $request): ResponseInterface 557c7d1e03SGreg Roach { 56b55cbc6bSGreg Roach $tree = Validator::attributes($request)->tree(); 57b55cbc6bSGreg Roach $xref = Validator::attributes($request)->isXref()->string('xref'); 58efd4768bSGreg Roach $params = (array) $request->getParsedBody(); 596b9cb339SGreg Roach $individual = Registry::individualFactory()->make($xref, $tree); 607c7d1e03SGreg Roach $individual = Auth::checkIndividualAccess($individual, true); 617c7d1e03SGreg Roach 62efd4768bSGreg Roach $levels = $params['ilevels'] ?? []; 63efd4768bSGreg Roach $tags = $params['itags'] ?? []; 64efd4768bSGreg Roach $values = $params['ivalues'] ?? []; 657c7d1e03SGreg Roach 66efd4768bSGreg Roach // Create the new parent 67efd4768bSGreg Roach $gedcom = "0 @@ INDI\n" . $this->gedcom_edit_service->editLinesToGedcom('INDI', $levels, $tags, $values); 687c7d1e03SGreg Roach $parent = $tree->createIndividual($gedcom); 697c7d1e03SGreg Roach 70efd4768bSGreg Roach // Create a new family 71efd4768bSGreg Roach $link = $parent->sex() === 'F' ? 'WIFE' : 'HUSB'; 72efd4768bSGreg Roach $gedcom = "0 @@ FAM\n1 CHIL @" . $individual->xref() . "@\n1 " . $link . ' @' . $parent->xref() . '@'; 73efd4768bSGreg Roach $family = $tree->createFamily($gedcom); 747c7d1e03SGreg Roach 75efd4768bSGreg Roach // Link the individual to the family 76efd4768bSGreg Roach $individual->createFact('1 FAMC @' . $family->xref() . '@', false); 777c7d1e03SGreg Roach 78efd4768bSGreg Roach // Link the parent to the family 79efd4768bSGreg Roach $parent->createFact('1 FAMS @' . $family->xref() . '@', false); 80efd4768bSGreg Roach 81*f507cef9SGreg Roach $url = Validator::parsedBody($request)->isLocalUrl()->string('url', $parent->url()); 82551ad4afSGreg Roach 83551ad4afSGreg Roach return redirect($url); 847c7d1e03SGreg Roach } 857c7d1e03SGreg Roach} 86