Tim Hunt
4d18892676
Sadly, this involves a small API change, but I don't believe anyone was using the argument I had to remove (because we were sometimes passing a wrong value, and there is not way to compute the right value at that point in the code.) Also sadly, the code to compute the context we are importing into is now rather spaghetti-like, but it works.
131 lines
4.8 KiB
PHP
131 lines
4.8 KiB
PHP
<?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/>.
|
|
|
|
/**
|
|
* Aiken format question importer.
|
|
*
|
|
* @package qformat
|
|
* @subpackage aiken
|
|
* @copyright 2003 Tom Robb <tom@robb.net>
|
|
* @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
|
|
*/
|
|
|
|
|
|
defined('MOODLE_INTERNAL') || die();
|
|
|
|
|
|
/**
|
|
* Aiken format - a simple format for creating multiple choice questions (with
|
|
* only one correct choice, and no feedback).
|
|
*
|
|
* The format looks like this:
|
|
*
|
|
* Question text
|
|
* A) Choice #1
|
|
* B) Choice #2
|
|
* C) Choice #3
|
|
* D) Choice #4
|
|
* ANSWER: B
|
|
*
|
|
* That is,
|
|
* + question text all one one line.
|
|
* + then a number of choices, one to a line. Each line must comprise a letter,
|
|
* then ')' or '.', then a space, then the choice text.
|
|
* + Then a line of the form 'ANSWER: X' to indicate the correct answer.
|
|
*
|
|
* Be sure to word "All of the above" type choices like "All of these" in
|
|
* case choices are being shuffled.
|
|
*
|
|
* @copyright 2003 Tom Robb <tom@robb.net>
|
|
* @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
|
|
*/
|
|
class qformat_aiken extends qformat_default {
|
|
|
|
public function provide_import() {
|
|
return true;
|
|
}
|
|
|
|
public function readquestions($lines) {
|
|
$questions = array();
|
|
$question = $this->defaultquestion();
|
|
$endchar = chr(13);
|
|
foreach ($lines as $line) {
|
|
$stp = strpos($line, $endchar, 0);
|
|
$newlines = explode($endchar, $line);
|
|
$foundQ = 0;
|
|
$linescount = count($newlines);
|
|
for ($i=0; $i < $linescount; $i++) {
|
|
$nowline = trim($newlines[$i]);
|
|
// Go through the array and build an object called $question
|
|
// When done, add $question to $questions
|
|
if (strlen($nowline) < 2) {
|
|
continue;
|
|
}
|
|
if (preg_match('/^[A-Z][).][ \t]/', $nowline)) {
|
|
// A choice. Trim off the label and space, then save
|
|
$question->answer[] = $this->text_field(
|
|
htmlspecialchars(trim(substr($nowline, 2)), ENT_NOQUOTES));
|
|
$question->fraction[] = 0;
|
|
$question->feedback[] = $this->text_field('');
|
|
} else if (preg_match('/^ANSWER:/', $nowline)) {
|
|
// The line that indicates the correct answer. This question is finised.
|
|
$ans = trim(substr($nowline, strpos($nowline, ':') + 1));
|
|
$ans = substr($ans, 0, 1);
|
|
// We want to map A to 0, B to 1, etc.
|
|
$rightans = ord($ans) - ord('A');
|
|
$question->fraction[$rightans] = 1;
|
|
$questions[] = $question;
|
|
|
|
// Clear array for next question set
|
|
$question = $this->defaultquestion();
|
|
continue;
|
|
} else {
|
|
// Must be the first line of a new question, since no recognised prefix.
|
|
$question->qtype = MULTICHOICE;
|
|
$question->name = shorten_text(s($nowline), 50);
|
|
$question->questiontext = htmlspecialchars(trim($nowline), ENT_NOQUOTES);
|
|
$question->questiontextformat = FORMAT_HTML;
|
|
$question->generalfeedback = '';
|
|
$question->generalfeedbackformat = FORMAT_HTML;
|
|
$question->single = 1;
|
|
$question->answer = array();
|
|
$question->fraction = array();
|
|
$question->feedback = array();
|
|
$question->correctfeedback = $this->text_field('');
|
|
$question->partiallycorrectfeedback = $this->text_field('');
|
|
$question->incorrectfeedback = $this->text_field('');
|
|
}
|
|
}
|
|
}
|
|
return $questions;
|
|
}
|
|
|
|
protected function text_field($text) {
|
|
return array(
|
|
'text' => htmlspecialchars(trim($text), ENT_NOQUOTES),
|
|
'format' => FORMAT_HTML,
|
|
'files' => array(),
|
|
);
|
|
}
|
|
|
|
public function readquestion($lines) {
|
|
//this is no longer needed but might still be called by default.php
|
|
return;
|
|
}
|
|
}
|
|
|
|
|