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 */ 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 /** 28 * Upgrade to to the next version 29 * 30 * @return void 31 */ 32 public function upgrade() 33 { 34 // Delete some old/unused configuration settings 35 Database::exec("DELETE FROM `##gedcom_setting` WHERE setting_name IN ('MEDIA_EXTERNAL')"); 36 37 // Delete old table 38 Database::exec("DROP TABLE IF EXISTS `##media_mapping`"); 39 40 // Make this table look like all the others 41 try { 42 Database::exec( 43 "ALTER TABLE `##media`" . 44 " DROP m_id," . 45 " CHANGE m_media m_id VARCHAR(20) COLLATE utf8_unicode_ci NOT NULL," . 46 " CHANGE m_file m_filename VARCHAR(512) COLLATE utf8_unicode_ci DEFAULT NULL," . 47 " CHANGE m_gedfile m_file INTEGER NOT NULL," . 48 " CHANGE m_gedrec m_gedcom MEDIUMTEXT COLLATE utf8_unicode_ci DEFAULT NULL," . 49 " ADD m_type VARCHAR(20) COLLATE utf8_unicode_ci NULL AFTER m_ext," . 50 " ADD PRIMARY KEY (m_file, m_id)," . 51 " ADD KEY ix2 (m_ext, m_type)," . 52 " ADD KEY ix3 (m_titl)" 53 ); 54 } catch (PDOException $ex) { 55 DebugBar::addThrowable($ex); 56 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