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 Fisharebest\Webtrees\DebugBar; 22use PDOException; 23 24/** 25 * Upgrade the database schema from version 20 to version 21. 26 */ 27class Migration20 implements MigrationInterface 28{ 29 /** 30 * Upgrade to to the next version. 31 * 32 * @return void 33 */ 34 public function upgrade(): void 35 { 36 // Delete some old/unused configuration settings 37 Database::exec("DELETE FROM `##gedcom_setting` WHERE setting_name IN ('MEDIA_EXTERNAL')"); 38 39 // Delete old table 40 Database::exec("DROP TABLE IF EXISTS `##media_mapping`"); 41 42 // Make this table look like all the others 43 try { 44 Database::exec( 45 "ALTER TABLE `##media`" . 46 " DROP m_id," . 47 " CHANGE m_media m_id VARCHAR(20) COLLATE utf8_unicode_ci NOT NULL," . 48 " CHANGE m_file m_filename VARCHAR(512) COLLATE utf8_unicode_ci DEFAULT NULL," . 49 " CHANGE m_gedfile m_file INTEGER NOT NULL," . 50 " CHANGE m_gedrec m_gedcom MEDIUMTEXT COLLATE utf8_unicode_ci DEFAULT NULL," . 51 " ADD m_type VARCHAR(20) COLLATE utf8_unicode_ci NULL AFTER m_ext," . 52 " ADD PRIMARY KEY (m_file, m_id)," . 53 " ADD KEY ix2 (m_ext, m_type)," . 54 " ADD KEY ix3 (m_titl)" 55 ); 56 } catch (PDOException $ex) { 57 // Assume we've already done this 58 } 59 60 // Populate the new column 61 Database::exec("UPDATE `##media` SET m_type = SUBSTRING_INDEX(SUBSTRING_INDEX(m_gedcom, '\n3 TYPE ', -1), '\n', 1) WHERE m_gedcom LIKE '%\n3 TYPE %'"); 62 } 63} 64