Proyectos de Subversion Moodle

<?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.id, 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.

            $DB->set_field('qtype_ordering_options', 'selectcount', $questionoption->answerscount,

                ['id' => $questionoption->id]);

        }

        $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).

        $wheresql = 'name = ? AND ' . $DB->sql_compare_text('value') . ' = ?';

        $params = ['qtype_ordering_selectcount', '0'];

        $DB->set_field_select('user_preferences', 'value', 2, $wheresql, $params);

        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.id, 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.

            $DB->set_field('qtype_ordering_options', 'selectcount', $questionoption->answerscount,

                ['id' => $questionoption->id]);

        }

        $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).

        $wheresql = 'name = ? AND ' . $DB->sql_compare_text('value') . ' = ?';

        $params = ['qtype_ordering_selectcount', '0'];

        $DB->set_field_select('user_preferences', 'value', 2, $wheresql, $params);

        upgrade_plugin_savepoint(true, 2024040401, 'qtype', 'ordering');

    }

    // Automatically generated Moodle v4.4.0 release upgrade line.

    // Put any upgrade step following this.

    // Automatically generated Moodle v4.5.0 release upgrade line.

    // Put any upgrade step following this.

    // Automatically generated Moodle v5.0.0 release upgrade line.

    // Put any upgrade step following this.

    return true;

}