AutorÃa | Ultima modificación | Ver Log |
<?php
// This file is part of Moodle - http://moodle.org/
//
// Moodle is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// Moodle is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with Moodle. If not, see <http://www.gnu.org/licenses/>.
/**
* Ordering question type db upgrade script
*
* @package qtype_ordering
* @copyright 2013 Gordon Bateson (gordon.bateson@gmail.com)
* @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
*/
/**
* Upgrade code for the ordering question type.
*
* @param int $oldversion the version we are upgrading from.
*/
function xmldb_qtype_ordering_upgrade($oldversion) {
global $CFG, $DB;
$dbman = $DB->get_manager();
if ($oldversion < 2013062800) {
$select = 'qn.*, qo.id AS questionorderingid';
$from = '{question} qn LEFT JOIN {question_ordering} qo ON qn.id = qo.question';
$where = 'qn.qtype = ? AND qo.id IS NULL';
$params = ['ordering'];
if ($questions = $DB->get_records_sql("SELECT $select FROM $from WHERE $where", $params)) {
foreach ($questions as $question) {
if ($answers = $DB->get_records('question_answers', ['question' => $question->id])) {
// Add "options" for this ordering question.
$questionordering = (object) [
'question' => $question->id,
'logical' => 1,
'studentsee' => min(6, count($answers)),
'correctfeedback' => '',
'partiallycorrectfeedback' => '',
'incorrectfeedback' => '',
];
$questionordering->id = $DB->insert_record('question_ordering', $questionordering);
} else {
// This is a faulty ordering question - remove it.
$DB->delete_records('question', ['id' => $question->id]);
if ($dbman->table_exists('quiz_question_instances')) {
$DB->delete_records('quiz_question_instances', ['question' => $question->id]);
}
if ($dbman->table_exists('reader_question_instances')) {
$DB->delete_records('reader_question_instances', ['question' => $question->id]);
}
}
}
}
upgrade_plugin_savepoint(true, 2013062800, 'qtype', 'ordering');
}
if ($oldversion < 2015011915) {
// Rename "ordering" table for Moodle >= 2.5.
$oldname = 'question_ordering';
$newname = 'qtype_ordering_options';
if ($dbman->table_exists($oldname)) {
$oldtable = new xmldb_table($oldname);
if ($dbman->table_exists($newname)) {
$dbman->drop_table($oldtable);
} else {
$dbman->rename_table($oldtable, $newname);
}
}
// Remove index on question(id) field (because we want to modify the field).
$table = new xmldb_table('qtype_ordering_options');
$fields = ['question', 'questionid'];
foreach ($fields as $field) {
if ($dbman->field_exists($table, $field)) {
$index = new xmldb_index('qtypordeopti_que_uix', XMLDB_INDEX_UNIQUE, [$field]);
if ($dbman->index_exists($table, $index)) {
$dbman->drop_index($table, $index);
}
}
}
// Rename "question" -> "questionid".
// Rename "logical" -> "selecttype".
// Rename "studentsee" -> "selectcount".
// Add "(xxx)feedbackformat" fields.
$table = new xmldb_table('qtype_ordering_options');
$fields = [
'questionid' => new xmldb_field('question', XMLDB_TYPE_INTEGER, '11', null, XMLDB_NOTNULL, null, '0', 'id'),
'selecttype' => new xmldb_field('logical', XMLDB_TYPE_INTEGER, '4', null, XMLDB_NOTNULL, null, '0', 'questionid'),
'selectcount' => new xmldb_field('studentsee', XMLDB_TYPE_INTEGER, '4', null, XMLDB_NOTNULL, null, '0', 'selecttype'),
'correctfeedbackformat' => new xmldb_field('correctfeedbackformat', XMLDB_TYPE_INTEGER, '2', null, XMLDB_NOTNULL, null,
'0', 'correctfeedback'),
'incorrectfeedbackformat' => new xmldb_field('incorrectfeedbackformat', XMLDB_TYPE_INTEGER, '2', null, XMLDB_NOTNULL,
null, '0', 'incorrectfeedback'),
'partiallycorrectfeedbackformat' => new xmldb_field('partiallycorrectfeedbackformat', XMLDB_TYPE_INTEGER, '2', null,
XMLDB_NOTNULL, null, '0', 'partiallycorrectfeedback'),
];
foreach ($fields as $newname => $field) {
$oldexists = $dbman->field_exists($table, $field);
$newexists = $dbman->field_exists($table, $newname);
if ($field->getName() != $newname && $oldexists) {
if ($newexists) {
$dbman->drop_field($table, $field);
} else {
$dbman->rename_field($table, $field, $newname);
$newexists = true;
}
$oldexists = false;
}
$field->setName($newname);
if ($newexists) {
$dbman->change_field_type($table, $field);
} else {
$dbman->add_field($table, $field);
}
}
// Make sure there are no duplicate "questionid" fields in "qtype_ordering_options" table.
$select = 'questionid, COUNT(*) AS countduplicates, MAX(id) AS maxid';
$from = '{qtype_ordering_options}';
$group = 'questionid';
$having = 'countduplicates > ?';
$params = [1];
if ($records = $DB->get_records_sql("SELECT $select FROM $from GROUP BY $group HAVING $having", $params)) {
foreach ($records as $record) {
$select = 'id <> ? AND questionid = ?';
$params = [$record->maxid, $record->questionid];
$DB->delete_records_select('qtype_ordering_options', $select, $params);
}
}
// Restore index on questionid field.
$table = new xmldb_table('qtype_ordering_options');
$index = new xmldb_index('qtypordeopti_que_uix', XMLDB_INDEX_UNIQUE, ['questionid']);
if (! $dbman->index_exists($table, $index)) {
$dbman->add_index($table, $index);
}
upgrade_plugin_savepoint(true, 2015011915, 'qtype', 'ordering');
}
if ($oldversion < 2015110725) {
$table = new xmldb_table('qtype_ordering_options');
$fields = [
new xmldb_field('layouttype', XMLDB_TYPE_INTEGER, '2', null, XMLDB_NOTNULL, null, 0, 'questionid'),
new xmldb_field('selecttype', XMLDB_TYPE_INTEGER, '2', null, XMLDB_NOTNULL, null, 0, 'layouttype'),
];
foreach ($fields as $field) {
if ($dbman->field_exists($table, $field)) {
$dbman->change_field_type($table, $field);
} else {
$dbman->add_field($table, $field);
}
}
upgrade_plugin_savepoint(true, 2015110725, 'qtype', 'ordering');
}
if ($oldversion < 2015121734) {
$table = new xmldb_table('qtype_ordering_options');
$fields = [
new xmldb_field('gradingtype', XMLDB_TYPE_INTEGER, '2', null, XMLDB_NOTNULL, null, 0, 'selectcount'),
];
foreach ($fields as $field) {
if ($dbman->field_exists($table, $field)) {
$dbman->change_field_type($table, $field);
} else {
$dbman->add_field($table, $field);
// When adding this field to existing records,
// the gradingtype is set to whatever the selecttype is.
$DB->execute('UPDATE {qtype_ordering_options} SET gradingtype = selecttype', []);
}
}
upgrade_plugin_savepoint(true, 2015121734, 'qtype', 'ordering');
}
if ($oldversion < 2016032949) {
if ($dbman->table_exists('reader_question_instances')) {
$select = 'rqi.question, COUNT(*) AS countquestion';
$from = '{reader_question_instances} rqi '.
'LEFT JOIN {question} q ON rqi.question = q.id';
$where = 'q.qtype = ?';
$group = 'rqi.question';
$params = ['ordering'];
if ($questions = $DB->get_records_sql("SELECT $select FROM $from WHERE $where GROUP BY $group", $params)) {
$questions = array_keys($questions);
list($select, $params) = $DB->get_in_or_equal($questions);
$select = "questionid $select";
$table = 'qtype_ordering_options';
$DB->set_field_select($table, 'layouttype', 0, $select, $params); // VERTICAL.
$DB->set_field_select($table, 'selecttype', 1, $select, $params); // RANDOM.
$DB->set_field_select($table, 'gradingtype', 1, $select, $params); // RELATIVE.
// For selectcount, we only fix the value, if it is zero (=ALL)
// because Ordering questions for some low level books use 4.
$select .= ' AND selectcount = ?';
$params[] = 0;
$DB->set_field_select($table, 'selectcount', 6, $select, $params); // Six.
}
}
upgrade_plugin_savepoint(true, 2016032949, 'qtype', 'ordering');
}
if ($oldversion < 2016081655) {
$table = new xmldb_table('qtype_ordering_options');
$field = new xmldb_field('showgrading', XMLDB_TYPE_INTEGER, '2', null, XMLDB_NOTNULL, null, 1, 'gradingtype');
if ($dbman->field_exists($table, $field)) {
$dbman->change_field_type($table, $field);
} else {
$dbman->add_field($table, $field);
}
upgrade_plugin_savepoint(true, 2016081655, 'qtype', 'ordering');
}
if ($oldversion < 2019071191) {
// Add field "numberingstyle" to table "qtype_ordering_options".
// This field was briefly called "answernumbering".
$table = new xmldb_table('qtype_ordering_options');
$field = new xmldb_field('answernumbering', XMLDB_TYPE_CHAR, '10', null, XMLDB_NOTNULL, null, 'none', 'showgrading');
$newname = 'numberingstyle';
$oldexists = $dbman->field_exists($table, $field);
$newexists = $dbman->field_exists($table, $newname);
if ($oldexists) {
if ($newexists) {
$dbman->drop_field($table, $field);
} else {
$dbman->rename_field($table, $field, $newname);
$newexists = true;
}
$oldexists = false;
}
$field->setName($newname);
if ($newexists) {
$dbman->change_field_type($table, $field);
} else {
$dbman->add_field($table, $field);
}
upgrade_plugin_savepoint(true, 2019071191, 'qtype', 'ordering');
}
if ($oldversion < 2019073193) {
$table = 'qtype_ordering_options';
$field = 'numberingstyle';
$select = "$field = ? OR $field = ?";
$params = ['III', 'ABC'];
if ($options = $DB->get_records_select($table, $select, $params, $field, "id,$field")) {
foreach ($options as $option) {
switch ($option->numberingstyle) {
case 'ABC':
$DB->set_field($table, $field, 'ABCD', ['id' => $option->id]);
break;
case 'III':
$DB->set_field($table, $field, 'IIII', ['id' => $option->id]);
break;
// phpcs:ignore Squiz.PHP.CommentedOutCode.Found
// Ignore "abc", "iii", and anything else.
}
}
}
upgrade_plugin_savepoint(true, 2019073193, 'qtype', 'ordering');
}
if ($oldversion < 2022092000) {
$table = new xmldb_table('qtype_ordering_options');
$field = new xmldb_field('shownumcorrect', XMLDB_TYPE_INTEGER, '2', null, XMLDB_NOTNULL, null, 0);
if ($dbman->field_exists($table, $field)) {
$dbman->change_field_type($table, $field);
} else {
$dbman->add_field($table, $field);
}
upgrade_plugin_savepoint(true, 2022092000, 'qtype', 'ordering');
}
if ($oldversion < 2023092911) {
// The option to set "All" for the subset size ('selectcount') setting is no longer supported, therefore we need
// to update all data that references this option.
// The 'selectcount' column from the 'qtype_ordering_options' table currently defines "0" as its default value.
// This value ("0") used to represent the removed "All" option for the 'selectcount' setting, therefore we need
// to update this to a new default of "2" which is the minimum number of items required to create a subset.
$table = new xmldb_table('qtype_ordering_options');
$field = new xmldb_field('selectcount');
$field->set_attributes(XMLDB_TYPE_INTEGER, '4', null, XMLDB_NOTNULL, null, 2);
$dbman->change_field_default($table, $field);
// We need to find all ordering question configurations that currently store the unsupported "0" (all) option
// for the 'selectcount' setting and the total number of answers that are related to each of these ordering
// questions.
$sql = "SELECT qoo.*, COUNT(DISTINCT(qa.id)) AS answerscount
FROM {qtype_ordering_options} qoo
JOIN {question_answers} qa ON qa.question = qoo.questionid
WHERE selectcount = :selectcount
GROUP BY qoo.id";
$questionoptions = $DB->get_recordset_sql($sql, ['selectcount' => 0]);
foreach ($questionoptions as $questionoption) {
// Update the value of the 'selectcount' configuration option for the current ordering question and set it
// to the total number of answers related to this question. This way, we are making sure that the original
// behavior is preserved and all existing items (answers) related to the question will be included in the
// subset.
$questionoption->selectcount = $questionoption->answerscount;
unset($questionoption->answerscount);
$DB->update_record('qtype_ordering_options', $questionoption);
}
$questionoptions->close();
// Currently, a 'qtype_ordering_selectcount' user preference is set (or updated, if it already exists) each time
// a new ordering question is created. If there are user preferences that store the removed "0" (all) option, they
// need to be updated. In this case, replace it with "2" (minimum number of items required to create a subset).
$DB->set_field('user_preferences', 'value', 2,
['name' => 'qtype_ordering_selectcount', 'value' => 0]);
upgrade_plugin_savepoint(true, 2023092911, 'qtype', 'ordering');
}
if ($oldversion < 2024040401) {
// The option to set "All" for the subset size ('selectcount') setting is no longer supported, therefore we need
// to update all data that references this option.
// The 'selectcount' column from the 'qtype_ordering_options' table currently defines "0" as its default value.
// This value ("0") used to represent the removed "All" option for the 'selectcount' setting, therefore we need
// to update this to a new default of "2" which is the minimum number of items required to create a subset.
$table = new xmldb_table('qtype_ordering_options');
$field = new xmldb_field('selectcount');
$field->set_attributes(XMLDB_TYPE_INTEGER, '4', null, XMLDB_NOTNULL, null, 2);
$dbman->change_field_default($table, $field);
// We need to find all ordering question configurations that currently store the unsupported "0" (all) option
// for the 'selectcount' setting and the total number of answers that are related to each of these ordering
// questions.
$sql = "SELECT qoo.*, COUNT(DISTINCT(qa.id)) AS answerscount
FROM {qtype_ordering_options} qoo
JOIN {question_answers} qa ON qa.question = qoo.questionid
WHERE selectcount = :selectcount
GROUP BY qoo.id";
$questionoptions = $DB->get_recordset_sql($sql, ['selectcount' => 0]);
foreach ($questionoptions as $questionoption) {
// Update the value of the 'selectcount' configuration option for the current ordering question and set it
// to the total number of answers related to this question. This way, we are making sure that the original
// behavior is preserved and all existing items (answers) related to the question will be included in the
// subset.
$questionoption->selectcount = $questionoption->answerscount;
unset($questionoption->answerscount);
$DB->update_record('qtype_ordering_options', $questionoption);
}
$questionoptions->close();
// Currently, a 'qtype_ordering_selectcount' user preference is set (or updated, if it already exists) each time
// a new ordering question is created. If there are user preferences that store the removed "0" (all) option, they
// need to be updated. In this case, replace it with "2" (minimum number of items required to create a subset).
$DB->set_field('user_preferences', 'value', 2,
['name' => 'qtype_ordering_selectcount', 'value' => 0]);
upgrade_plugin_savepoint(true, 2024040401, 'qtype', 'ordering');
}
// Automatically generated Moodle v4.4.0 release upgrade line.
// Put any upgrade step following this.
return true;
}