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

/**

 * Script to download the export of a single question.

 *

 * @package    qbank_exporttoxml

 * @copyright  2015 the Open University

 * @author     Safat Shahin <safatshahin@catalyst-au.net>

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

 */

require_once(__DIR__ . '/../../../config.php');

require_once($CFG->libdir . '/questionlib.php');

require_once($CFG->dirroot . '/question/format/xml/format.php');

// Get the parameters from the URL.

$questionid = required_param('id', PARAM_INT);

$cmid = optional_param('cmid', 0, PARAM_INT);

$courseid = optional_param('courseid', 0, PARAM_INT);

$urlparams = ['id' => $questionid, 'sesskey' => sesskey()];

\core_question\local\bank\helper::require_plugin_enabled('qbank_exporttoxml');

if ($cmid) {

    $cm = get_coursemodule_from_id(null, $cmid);

    require_login($cm->course, false, $cm);

    $thiscontext = context_module::instance($cmid);

    $urlparams['cmid'] = $cmid;

} else if ($courseid) {

    require_login($courseid, false);

    $thiscontext = context_course::instance($courseid);

    $urlparams['courseid'] = $courseid;

} else {

    throw new moodle_exception('missingcourseorcmid', 'question');

}

require_sesskey();

// Load the necessary data.

$contexts = new core_question\local\bank\question_edit_contexts($thiscontext);

$questiondata = question_bank::load_question_data($questionid);

// Check permissions.

question_require_capability_on($questiondata, 'view');

// Initialise $PAGE. Nothing is output, so this does not really matter. Just avoids notices.

$nexturl = new moodle_url('/question/type/stack/questiontestrun.php', $urlparams);

$PAGE->set_url('/question/bank/exporttoxml/exportone.php', $urlparams);

$PAGE->set_heading($COURSE->fullname);

$PAGE->set_pagelayout('admin');

// Set up the export format.

$qformat = new qformat_xml();

$filename = question_default_export_filename($COURSE, $questiondata) .

        $qformat->export_file_extension();

$qformat->setContexts($contexts->having_one_edit_tab_cap('export'));

$qformat->setCourse($COURSE);

$qformat->setQuestions([$questiondata]);

$qformat->setCattofile(false);

$qformat->setContexttofile(false);

// Do the export.

if (!$qformat->exportpreprocess()) {

    send_file_not_found();

}

if (!$content = $qformat->exportprocess(true)) {

    send_file_not_found();

}

send_file($content, $filename, 0, 0, true, true, $qformat->mime_type());