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/>.

/**

 * Missing word question importer.

 *

 * @package    qformat_missingword

 * @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();

/**

 * Missing word question importer.

 *

 * This Moodle class provides all functions necessary to import and export

 * one-correct-answer multiple choice questions in this format:

 *

 *    As soon as we begin to explore our body parts as infants

 *    we become students of {=anatomy and physiology ~reflexology

 *    ~science ~experiment}, and in a sense we remain students for life.

 *

 * Each answer is separated with a tilde ~, and the correct answer is

 * prefixed with an equals sign =

 *

 * Percentage weights can be included by following the tilde with the

 * desired percent.  Comments can be included for each choice by following

 * the comment with a hash mark ("#") and the comment.  Example:

 *

 *    This is {=the best answer#comment on the best answer ~75%a good

 *    answer#comment on the good answer ~a wrong one#comment on the bad answer}

 *

 * @copyright  1999 onwards Martin Dougiamas {@link http://moodle.com}

 * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later

 */

class qformat_missingword extends qformat_default {

    public function provide_import() {

        return true;

    }

    /**

     * Validate the given file.

     *

     * For more expensive or detailed integrity checks.

     *

     * @param stored_file $file the file to check

     * @return string the error message that occurred while validating the given file

     */

    public function validate_file(stored_file $file): string {

        return $this->validate_is_utf8_file($file);

    }

    public function readquestion($lines) {

        // Given an array of lines known to define a question in

        // this format, this function converts it into a question

        // object suitable for processing and insertion into Moodle.

        $question = $this->defaultquestion();

        $comment = null; // Added by T Robb.

        $text = implode(" ", $lines);

        // Find answer section.

        $answerstart = strpos($text, "{");

        if ($answerstart === false) {

            $this->error(get_string('beginanswernotfound', 'qformat_missingword'), $text);

            return false;

        }

        $answerfinish = strpos($text, "}");

        if ($answerfinish === false) {

            $this->error(get_string('endanswernotfound', 'qformat_missingword'), $text);

            return false;

        }

        $answerlength = $answerfinish - $answerstart;

        $answertext = substr($text, $answerstart + 1, $answerlength - 1);

        // Save the new question text.

        $question->questiontext = substr_replace($text, "_____", $answerstart, $answerlength+1);

        $question->name = $this->create_default_question_name($question->questiontext, get_string('questionname', 'question'));

        // Parse the answers.

        $answertext = str_replace("=", "~=", $answertext);

        $answers = explode("~", $answertext);

        if (isset($answers[0])) {

            $answers[0] = trim($answers[0]);

        }

        if (empty($answers[0])) {

            array_shift($answers);

        }

        $countanswers = count($answers);

        switch ($countanswers) {

            case 0:  // Invalid question.

                $this->error(get_string('noanswerfound', 'qformat_missingword'), $answertext);

                return false;

            case 1:

                $question->qtype = 'shortanswer';

                $answer = trim($answers[0]);

                if ($answer[0] == "=") {

                    $answer = substr($answer, 1);

                }

                $question->answer[]   = $answer;

                $question->fraction[] = 1;

                $question->feedback[] = array('text' => '', 'format' => FORMAT_HTML);

                return $question;

            default:

                $question->qtype = 'multichoice';

                $question = $this->add_blank_combined_feedback($question);

                $question->single = 1; // Only one answer allowed.

                foreach ($answers as $key => $answer) {

                    $answer = trim($answer);

                    // Tom's addition starts here.

                    $answeight = 0;

                    if (strspn($answer, "1234567890%") > 0) {

                        // Make sure that the percent sign is the last in the span.

                        if (strpos($answer, "%") == strspn($answer, "1234567890%") - 1) {

                            $answeight0 = substr($answer, 0, strspn($answer, "1234567890%"));

                            $answeight = round(($answeight0/100), 2);

                            $answer = substr($answer, (strspn($answer, "1234567890%")));

                        }

                    }

                    if ($answer[0] == "=") {

                        $answeight = 1;

                    }

                    // Remove the protective underscore for leading numbers in answers.

                    if ($answer[0] == "_") {

                        $answer = substr($answer, 1);

                    }

                    $answer = trim($answer);

                    if (strpos($answer, "#") > 0) {

                        $hashpos = strpos($answer, "#");

                        $comment = substr(($answer), $hashpos+1);

                        $answer  = substr($answer, 0, $hashpos);

                    } else {

                        $comment = " ";

                    }

                    // End of Tom's addition.

                    if ($answer[0] == "=") {

                        $question->fraction[$key] = $answeight;

                        $answer = substr($answer, 1);

                    } else {

                        $question->fraction[$key] = $answeight;

                    }

                    $question->answer[$key]   = array('text' => $answer, 'format' => FORMAT_HTML);

                    $question->feedback[$key] = array('text' => $comment, 'format' => FORMAT_HTML);

                }

                return $question;

        }

    }

}