1<?php 2/** 3 * webtrees: online genealogy 4 * Copyright (C) 2018 webtrees development team 5 * This program is free software: you can redistribute it and/or modify 6 * it under the terms of the GNU General Public License as published by 7 * the Free Software Foundation, either version 3 of the License, or 8 * (at your option) any later version. 9 * This program is distributed in the hope that it will be useful, 10 * but WITHOUT ANY WARRANTY; without even the implied warranty of 11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 12 * GNU General Public License for more details. 13 * You should have received a copy of the GNU General Public License 14 * along with this program. If not, see <http://www.gnu.org/licenses/>. 15 */ 16declare(strict_types=1); 17 18namespace Fisharebest\Webtrees\Schema; 19 20use Fisharebest\Webtrees\Database; 21use PDOException; 22 23/** 24 * Upgrade the database schema from version 20 to version 21. 25 */ 26class Migration20 implements MigrationInterface 27{ 28 /** 29 * Upgrade to to the next version. 30 * 31 * @return void 32 */ 33 public function upgrade(): void 34 { 35 // Delete some old/unused configuration settings 36 Database::exec("DELETE FROM `##gedcom_setting` WHERE setting_name IN ('MEDIA_EXTERNAL')"); 37 38 // Delete old table 39 Database::exec("DROP TABLE IF EXISTS `##media_mapping`"); 40 41 // Make this table look like all the others 42 try { 43 Database::exec( 44 "ALTER TABLE `##media`" . 45 " DROP m_id," . 46 " CHANGE m_media m_id VARCHAR(20) COLLATE utf8_unicode_ci NOT NULL," . 47 " CHANGE m_file m_filename VARCHAR(512) COLLATE utf8_unicode_ci DEFAULT NULL," . 48 " CHANGE m_gedfile m_file INTEGER NOT NULL," . 49 " CHANGE m_gedrec m_gedcom MEDIUMTEXT COLLATE utf8_unicode_ci DEFAULT NULL," . 50 " ADD m_type VARCHAR(20) COLLATE utf8_unicode_ci NULL AFTER m_ext," . 51 " ADD PRIMARY KEY (m_file, m_id)," . 52 " ADD KEY ix2 (m_ext, m_type)," . 53 " ADD KEY ix3 (m_titl)" 54 ); 55 } catch (PDOException $ex) { 56 // Assume we've already done this 57 } 58 59 // Populate the new column 60 Database::exec("UPDATE `##media` SET m_type = SUBSTRING_INDEX(SUBSTRING_INDEX(m_gedcom, '\n3 TYPE ', -1), '\n', 1) WHERE m_gedcom LIKE '%\n3 TYPE %'"); 61 } 62} 63