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/>./*** The questiontype class for the multiple choice question type.** @package qtype* @subpackage multichoice* @copyright 1999 onwards Martin Dougiamas {@link http://moodle.com}* @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later*/defined('MOODLE_INTERNAL') || die();global $CFG;require_once($CFG->libdir . '/questionlib.php');/*** The multiple choice question type.** @copyright 1999 onwards Martin Dougiamas {@link http://moodle.com}* @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later*/class qtype_multichoice extends question_type {/*** @var int a special value that can be set for {@see question_display_options::$feedback}.** This is not used by the core question type, but is used by some variants of this question* types in the plugins database, including qtype_oumultiresponse and qtype_answersselect.** If ->feedback is set to this value, then the renderer will display the combined feebdack,* but not the feedback for each specific choice.*/const COMBINED_BUT_NOT_CHOICE_FEEDBACK = 0x100;/*** Helper to catch and update if a plugin is using the old version of the COMBINED_BUT_NOT_CHOICE_FEEDBACK thing.** @param question_display_options $options to be updated before being used.*/public static function support_legacy_review_options_hack(question_display_options $options): void {if (empty($options->suppresschoicefeedback)) {return; // Nothing to do.}debugging('$options->suppresschoicefeedback should no longer be used. To get a similar effect, ' .'instead set $options->feedback = $options->feedback && qtype_multichoice::COMBINED_BUT_NOT_CHOICE_FEEDBACK.');if ($options->feedback) {$options->feedback = self::COMBINED_BUT_NOT_CHOICE_FEEDBACK;}unset($options->suppresschoicefeedback);}public function get_question_options($question) {global $DB, $OUTPUT;$question->options = $DB->get_record('qtype_multichoice_options', ['questionid' => $question->id]);if ($question->options === false) {// If this has happened, then we have a problem.// For the user to be able to edit or delete this question, we need options.debugging("Question ID {$question->id} was missing an options record. Using default.", DEBUG_DEVELOPER);$question->options = $this->create_default_options($question);}parent::get_question_options($question);}/*** Create a default options object for the provided question.** @param object $question The queston we are working with.* @return object The options object.*/protected function create_default_options($question) {// Create a default question options record.$options = new stdClass();$options->questionid = $question->id;// Get the default strings and just set the format.$options->correctfeedback = get_string('correctfeedbackdefault', 'question');$options->correctfeedbackformat = FORMAT_HTML;$options->partiallycorrectfeedback = get_string('partiallycorrectfeedbackdefault', 'question');;$options->partiallycorrectfeedbackformat = FORMAT_HTML;$options->incorrectfeedback = get_string('incorrectfeedbackdefault', 'question');$options->incorrectfeedbackformat = FORMAT_HTML;$config = get_config('qtype_multichoice');$options->single = $config->answerhowmany;if (isset($question->layout)) {$options->layout = $question->layout;}$options->answernumbering = $config->answernumbering;$options->shuffleanswers = $config->shuffleanswers;$options->showstandardinstruction = 0;$options->shownumcorrect = 1;return $options;}public function save_defaults_for_new_questions(stdClass $fromform): void {parent::save_defaults_for_new_questions($fromform);$this->set_default_value('single', $fromform->single);$this->set_default_value('shuffleanswers', $fromform->shuffleanswers);$this->set_default_value('answernumbering', $fromform->answernumbering);$this->set_default_value('showstandardinstruction', $fromform->showstandardinstruction);}public function save_question_options($question) {global $DB;$context = $question->context;$result = new stdClass();$oldanswers = $DB->get_records('question_answers',array('question' => $question->id), 'id ASC');// Following hack to check at least two answers exist.$answercount = 0;foreach ($question->answer as $key => $answer) {if ($answer != '') {$answercount++;}}if ($answercount < 2) { // Check there are at lest 2 answers for multiple choice.$result->error = get_string('notenoughanswers', 'qtype_multichoice', '2');return $result;}// Insert all the new answers.$totalfraction = 0;$maxfraction = -1;foreach ($question->answer as $key => $answerdata) {if (trim($answerdata['text']) == '') {continue;}// Update an existing answer if possible.$answer = array_shift($oldanswers);if (!$answer) {$answer = new stdClass();$answer->question = $question->id;$answer->answer = '';$answer->feedback = '';$answer->id = $DB->insert_record('question_answers', $answer);}// Doing an import.$answer->answer = $this->import_or_save_files($answerdata,$context, 'question', 'answer', $answer->id);$answer->answerformat = $answerdata['format'];$answer->fraction = $question->fraction[$key];$answer->feedback = $this->import_or_save_files($question->feedback[$key],$context, 'question', 'answerfeedback', $answer->id);$answer->feedbackformat = $question->feedback[$key]['format'];$DB->update_record('question_answers', $answer);if ($question->fraction[$key] > 0) {$totalfraction += $question->fraction[$key];}if ($question->fraction[$key] > $maxfraction) {$maxfraction = $question->fraction[$key];}}// Delete any left over old answer records.$fs = get_file_storage();foreach ($oldanswers as $oldanswer) {$fs->delete_area_files($context->id, 'question', 'answerfeedback', $oldanswer->id);$DB->delete_records('question_answers', array('id' => $oldanswer->id));}$options = $DB->get_record('qtype_multichoice_options', array('questionid' => $question->id));if (!$options) {$options = new stdClass();$options->questionid = $question->id;$options->correctfeedback = '';$options->partiallycorrectfeedback = '';$options->incorrectfeedback = '';$options->showstandardinstruction = 0;$options->id = $DB->insert_record('qtype_multichoice_options', $options);}$options->single = $question->single;if (isset($question->layout)) {$options->layout = $question->layout;}$options->answernumbering = $question->answernumbering;$options->shuffleanswers = $question->shuffleanswers;$options->showstandardinstruction = !empty($question->showstandardinstruction);$options = $this->save_combined_feedback_helper($options, $question, $context, true);$DB->update_record('qtype_multichoice_options', $options);$this->save_hints($question, true);// Perform sanity checks on fractional grades.if ($options->single) {if ($maxfraction != 1) {$result->noticeyesno = get_string('fractionsnomax', 'qtype_multichoice',$maxfraction * 100);return $result;}} else {$totalfraction = round($totalfraction, 2);if ($totalfraction != 1) {$result->noticeyesno = get_string('fractionsaddwrong', 'qtype_multichoice',$totalfraction * 100);return $result;}}}protected function make_question_instance($questiondata) {question_bank::load_question_definition_classes($this->name());if ($questiondata->options->single) {$class = 'qtype_multichoice_single_question';} else {$class = 'qtype_multichoice_multi_question';}return new $class();}protected function make_hint($hint) {return question_hint_with_parts::load_from_record($hint);}protected function initialise_question_instance(question_definition $question, $questiondata) {parent::initialise_question_instance($question, $questiondata);$question->shuffleanswers = $questiondata->options->shuffleanswers;$question->answernumbering = $questiondata->options->answernumbering;$question->showstandardinstruction = $questiondata->options->showstandardinstruction;if (!empty($questiondata->options->layout)) {$question->layout = $questiondata->options->layout;} else {$question->layout = qtype_multichoice_single_question::LAYOUT_VERTICAL;}$this->initialise_combined_feedback($question, $questiondata, true);$this->initialise_question_answers($question, $questiondata, false);}public function make_answer($answer) {// Overridden just so we can make it public for use by question.php.return parent::make_answer($answer);}public function delete_question($questionid, $contextid) {global $DB;$DB->delete_records('qtype_multichoice_options', array('questionid' => $questionid));parent::delete_question($questionid, $contextid);}public function get_random_guess_score($questiondata) {if (!$questiondata->options->single) {// Pretty much impossible to compute for _multi questions. Don't try.return null;}if (empty($questiondata->options->answers)) {// A multi-choice question with no choices is senseless,// but, seemingly, it can happen (presumably as a side-effect of bugs).// Therefore, ensure it does not lead to errors here.return null;}// Single choice questions - average choice fraction.$totalfraction = 0;foreach ($questiondata->options->answers as $answer) {$totalfraction += $answer->fraction;}return $totalfraction / count($questiondata->options->answers);}public function get_possible_responses($questiondata) {if ($questiondata->options->single) {$responses = array();foreach ($questiondata->options->answers as $aid => $answer) {$responses[$aid] = new question_possible_response(question_utils::to_plain_text($answer->answer, $answer->answerformat),$answer->fraction);}$responses[null] = question_possible_response::no_response();return array($questiondata->id => $responses);} else {$parts = array();foreach ($questiondata->options->answers as $aid => $answer) {$parts[$aid] = array($aid => new question_possible_response(question_utils::to_plain_text($answer->answer, $answer->answerformat),$answer->fraction));}return $parts;}}/*** @return array of the numbering styles supported. For each one, there* should be a lang string answernumberingxxx in teh qtype_multichoice* language file, and a case in the switch statement in number_in_style,* and it should be listed in the definition of this column in install.xml.*/public static function get_numbering_styles() {$styles = array();foreach (array('abc', 'ABCD', '123', 'iii', 'IIII', 'none') as $numberingoption) {$styles[$numberingoption] =get_string('answernumbering' . $numberingoption, 'qtype_multichoice');}return $styles;}public function move_files($questionid, $oldcontextid, $newcontextid) {parent::move_files($questionid, $oldcontextid, $newcontextid);$this->move_files_in_answers($questionid, $oldcontextid, $newcontextid, true);$this->move_files_in_combined_feedback($questionid, $oldcontextid, $newcontextid);$this->move_files_in_hints($questionid, $oldcontextid, $newcontextid);}protected function delete_files($questionid, $contextid) {parent::delete_files($questionid, $contextid);$this->delete_files_in_answers($questionid, $contextid, true);$this->delete_files_in_combined_feedback($questionid, $contextid);$this->delete_files_in_hints($questionid, $contextid);}}