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