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

/**

 * XHTML question exporter.

 *

 * @package    qformat_xhtml

 * @copyright  2005 Howard Miller

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

 */

defined('MOODLE_INTERNAL') || die();

/**

 * XHTML question exporter.

 *

 * Exports questions as static HTML.

 *

 * @copyright  2005 Howard Miller

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

 */

class qformat_xhtml extends qformat_default {

    public function provide_export() {

        return true;

    }

    protected function repchar($text) {

        return $text;

    }

    protected function writequestion($question) {

        global $OUTPUT;

        // Turns question into string.

        // Question reflects database fields for general question and specific to type.

        // If a category switch, just ignore.

        if ($question->qtype=='category') {

            return '';

        }

        // Initial string.

        $expout = "";

        $id = $question->id;

        // Add comment and div tags.

        $expout .= "<!-- question: {$id}  name: {$question->name} -->\n";

        $expout .= "<div class=\"question\">\n";

        // Add header.

        $expout .= "<h3>{$question->name}</h3>\n";

        // Format and add the question text.

        $text = question_rewrite_question_preview_urls($question->questiontext, $question->id,

                $question->contextid, 'question', 'questiontext', $question->id,

                $question->contextid, 'qformat_xhtml');

        $expout .= '<p class="questiontext">' . format_text($text,

                $question->questiontextformat, array('noclean' => true)) . "</p>\n";

        // Selection depends on question type.

        switch($question->qtype) {

            case 'truefalse':

                $sttrue = get_string('true', 'qtype_truefalse');

                $stfalse = get_string('false', 'qtype_truefalse');

                $expout .= "<ul class=\"truefalse\">\n";

                $expout .= "  <li><input name=\"quest_{$id}\" type=\"radio\" value=\"{$sttrue}\" />{$sttrue}</li>\n";

                $expout .= "  <li><input name=\"quest_{$id}\" type=\"radio\" value=\"{$stfalse}\" />{$stfalse}</li>\n";

                $expout .= "</ul>\n";

                break;

            case 'multichoice':

                $expout .= "<ul class=\"multichoice\">\n";

                foreach ($question->options->answers as $answer) {

                    $answertext = $this->repchar( $answer->answer );

                    if ($question->options->single) {

                        $expout .= "  <li><input name=\"quest_{$id}\" type=\"radio\" value=\""

                                . s($answertext) . "\" />{$answertext}</li>\n";

                    } else {

                        $expout .= "  <li><input name=\"quest_{$id}\" type=\"checkbox\" value=\""

                                . s($answertext) . "\" />{$answertext}</li>\n";

                    }

                }

                $expout .= "</ul>\n";

                break;

            case 'shortanswer':

                $expout .= html_writer::start_tag('ul', array('class' => 'shortanswer'));

                $expout .= html_writer::start_tag('li');

                $expout .= html_writer::label(get_string('answer'), 'quest_'.$id, false, array('class' => 'accesshide'));

                $expout .= html_writer::empty_tag('input', array('id' => "quest_{$id}", 'name' => "quest_{$id}", 'type' => 'text'));

                $expout .= html_writer::end_tag('li');

                $expout .= html_writer::end_tag('ul');

                break;

            case 'numerical':

                $expout .= html_writer::start_tag('ul', array('class' => 'numerical'));

                $expout .= html_writer::start_tag('li');

                $expout .= html_writer::label(get_string('answer'), 'quest_'.$id, false, array('class' => 'accesshide'));

                $expout .= html_writer::empty_tag('input', array('id' => "quest_{$id}", 'name' => "quest_{$id}", 'type' => 'text'));

                $expout .= html_writer::end_tag('li');

                $expout .= html_writer::end_tag('ul');

                break;

            case 'match':

                $expout .= html_writer::start_tag('ul', array('class' => 'match'));

                // Build answer list.

                $answerlist = array();

                foreach ($question->options->subquestions as $subquestion) {

                    $answerlist[] = $this->repchar( $subquestion->answertext );

                }

                shuffle( $answerlist ); // Random display order.

                // Build select options.

                $selectoptions = array();

                foreach ($answerlist as $ans) {

                    $selectoptions[s($ans)] = s($ans);

                }

                // Display.

                $option = 0;

                foreach ($question->options->subquestions as $subquestion) {

                    // Build drop down for answers.

                    $questiontext = $this->repchar( $subquestion->questiontext );

                    if ($questiontext != '') {

                        $dropdown = html_writer::label(get_string('answer', 'qtype_match', $option+1), 'quest_'.$id.'_'.$option,

                                false, array('class' => 'accesshide'));

                        $dropdown .= html_writer::select($selectoptions, "quest_{$id}_{$option}", '', false,

                                array('id' => "quest_{$id}_{$option}"));

                        $expout .= html_writer::tag('li', $questiontext);

                        $expout .= $dropdown;

                        $option++;

                    }

                }

                $expout .= html_writer::end_tag('ul');

                break;

            case 'description':

                break;

            case 'multianswer':

            default:

                $expout .= "<!-- export of {$question->qtype} type is not supported  -->\n";

        }

        // Close off div.

        $expout .= "</div>\n\n\n";

        return $expout;

    }

    protected function presave_process($content) {

        // Override method to allow us to add xhtml headers and footers.

        global $CFG;

        // Get css bit.

        $csslines = file( "{$CFG->dirroot}/question/format/xhtml/xhtml.css" );

        $css = implode( ' ', $csslines );

        $xp =  "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\"\n";

        $xp .= "  \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n";

        $xp .= "<html xmlns=\"http://www.w3.org/1999/xhtml\">\n";

        $xp .= "<head>\n";

        $xp .= "<meta http-equiv=\"content-type\" content=\"text/html; charset=UTF-8\" />\n";

        $xp .= "<title>Moodle Quiz XHTML Export</title>\n";

        $xp .= "<style type=\"text/css\">\n";

        $xp .= $css;

        $xp .= "</style>\n";

        $xp .= "</head>\n";

        $xp .= "<body>\n";

        $xp .= "<form action=\"...REPLACE ME...\" method=\"post\">\n\n";

        $xp .= $content;

        $xp .= "<p class=\"submit\">\n";

        $xp .= "  <input type=\"submit\" />\n";

        $xp .= "</p>\n";

        $xp .= "</form>\n";

        $xp .= "</body>\n";

        $xp .= "</html>\n";

        return $xp;

    }

    public function export_file_extension() {

        return '.html';

    }

}