WebCT Import format!! (untested)
Contribution from Denis Rebaud!
This commit is contained in:
moodler
@@ -1,19 +1,331 @@
|
||||
<?PHP // $Id$
|
||||
|
||||
////////////////////////////////////////////////////////////////////////////
|
||||
/// WEBCT FORMAT
|
||||
////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////////////////////
|
||||
// //
|
||||
// WebCT FORMAT //
|
||||
// //
|
||||
///////////////////////////////////////////////////////////////////////////
|
||||
// //
|
||||
// NOTICE OF COPYRIGHT //
|
||||
// //
|
||||
// Part of Moodle - Modular Object-Oriented Dynamic Learning Environment //
|
||||
// http://moodle.com //
|
||||
// //
|
||||
// Copyright (C) 2003 ASP Consulting http://www.asp-consulting.net //
|
||||
// //
|
||||
// This program 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 2 of the License, or //
|
||||
// (at your option) any later version. //
|
||||
// //
|
||||
// This program 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: //
|
||||
// //
|
||||
// http://www.gnu.org/copyleft/gpl.html //
|
||||
// //
|
||||
///////////////////////////////////////////////////////////////////////////
|
||||
|
||||
// Based on format.php, included by ../../import.php
|
||||
|
||||
class quiz_file_format extends quiz_default_format {
|
||||
|
||||
function importpreprocess($category) {
|
||||
global $CFG;
|
||||
function readquestions ($lines) {
|
||||
|
||||
error("Sorry, this format is not yet implemented!", "$CFG->wwwroot/mod/quiz/import.php?category=$category->id");
|
||||
$questions = array();
|
||||
$errors = array();
|
||||
$warnings = array();
|
||||
$webct_options = array();
|
||||
|
||||
$ignore_lines = FALSE;
|
||||
|
||||
$nLine = 0;
|
||||
$nQuestionStartLine = 0;
|
||||
$bRawText = TRUE;
|
||||
$lines[] = ":EOF:"; // for an easiest processing of the last line
|
||||
|
||||
foreach ($lines as $line) {
|
||||
$nLine++;
|
||||
if (is_string($questiontext)) {
|
||||
if (ereg("^:",$line)) {
|
||||
if ($bRawText) {
|
||||
$questiontext = htmlentities($questiontext);
|
||||
}
|
||||
$question->questiontext = trim($questiontext);
|
||||
unset($questiontext);
|
||||
}
|
||||
else {
|
||||
$questiontext .= $line;
|
||||
continue;
|
||||
}
|
||||
}
|
||||
|
||||
if (is_string($answertext)) {
|
||||
if (ereg("^:",$line)) {
|
||||
if ($bRawText) {
|
||||
$answertext = htmlentities($answertext);
|
||||
}
|
||||
$answertext = trim($answertext);
|
||||
$question->answer[$currentchoice] = $answertext;
|
||||
$question->answers[$currentchoice] = $answertext; // for question MULTIANSWER (see lib.php)
|
||||
$question->subanswers[$currentchoice] = $answertext;
|
||||
unset($answertext);
|
||||
}
|
||||
else {
|
||||
$answertext .= $line;
|
||||
continue;
|
||||
}
|
||||
}
|
||||
|
||||
if (is_string($responstext)) {
|
||||
if (ereg("^:",$line)) {
|
||||
if ($bRawText) {
|
||||
$responstext = htmlentities($responstext);
|
||||
}
|
||||
$question->subquestions[$currentchoice] = trim($responstext);
|
||||
unset($responstext);
|
||||
}
|
||||
else {
|
||||
$responstext .= $line;
|
||||
continue;
|
||||
}
|
||||
}
|
||||
|
||||
if (is_string($feedbacktext)) {
|
||||
if (ereg("^:",$line)) {
|
||||
if ($bRawText) {
|
||||
$feedbacktext = htmlentities($feedbacktext);
|
||||
}
|
||||
$question->feedback[$currentchoice] = trim($feedbacktext);
|
||||
unset($feedbacktext);
|
||||
}
|
||||
else {
|
||||
$feedbacktext .= $line;
|
||||
continue;
|
||||
}
|
||||
}
|
||||
|
||||
$line = trim($line);
|
||||
|
||||
if (eregi("^:(TYPE|EOF):",$line)) {
|
||||
// New Question or End of File
|
||||
if (isset($question)) { // if previous question exists, save it
|
||||
$QuestionOK = TRUE;
|
||||
if (strlen($question->name) == 0) {
|
||||
$question->name = $question->questiontext;
|
||||
}
|
||||
if (strlen($question->name) > 255) {
|
||||
$question->name = substr($question->name,0,250)."...";
|
||||
$warnings[] = get_string("questionnametoolong", "importwebcbt", $nQuestionStartLine);
|
||||
}
|
||||
// Perform sanity checks
|
||||
if (strlen($question->questiontext) == 0) {
|
||||
$errors[] = get_string("missingquestion", "importwebcbt", $nQuestionStartLine);
|
||||
$QuestionOK = FALSE;
|
||||
}
|
||||
|
||||
if (sizeof($question->answer) <= 1) {
|
||||
$errors[] = get_string("missinganswer", "importwebcbt", $nQuestionStartLine);
|
||||
$QuestionOK = FALSE;
|
||||
}
|
||||
else {
|
||||
// Perform string length check
|
||||
foreach ($question->answer as $key => $dataanswer) {
|
||||
if (strlen($dataanswer) > 255) {
|
||||
$question->answer[$key] = substr($dataanswer,0,250)."...";
|
||||
$warnings[] = get_string("answertoolong", "importwebcbt", $nQuestionStartLine);
|
||||
}
|
||||
}
|
||||
$maxfraction = -1;
|
||||
$totalfraction = 0;
|
||||
foreach($question->fraction as $fraction) {
|
||||
if ($fraction > 0) {
|
||||
$totalfraction += $fraction;
|
||||
}
|
||||
if ($fraction > $maxfraction) {
|
||||
$maxfraction = $fraction;
|
||||
}
|
||||
}
|
||||
switch ($question->qtype) {
|
||||
case SHORTANSWER:
|
||||
if ($maxfraction != 1) {
|
||||
$maxfraction = $maxfraction * 100;
|
||||
$errors[] = get_string("wronggrade", "importwebcbt", $nLine).get_string("fractionsnomax", "quiz", $maxfraction);
|
||||
$QuestionOK = FALSE;
|
||||
}
|
||||
break;
|
||||
|
||||
case MULTICHOICE:
|
||||
if ($question->single) {
|
||||
if ($maxfraction != 1) {
|
||||
$maxfraction = $maxfraction * 100;
|
||||
$errors[] = get_string("wronggrade", "importwebcbt", $nLine).get_string("fractionsnomax", "quiz", $maxfraction);
|
||||
$QuestionOK = FALSE;
|
||||
}
|
||||
}
|
||||
else {
|
||||
$totalfraction = round($totalfraction,2);
|
||||
if ($totalfraction != 1) {
|
||||
$totalfraction = $totalfraction * 100;
|
||||
$errors[] = get_string("wronggrade", "importwebcbt", $nLine).get_string("fractionsaddwrong", "quiz", $totalfraction);
|
||||
$QuestionOK = FALSE;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
if ($QuestionOK) {
|
||||
$questions[] = $question; // store it
|
||||
unset($question); // and prepare a new one
|
||||
}
|
||||
}
|
||||
$nQuestionStartLine = $nLine;
|
||||
}
|
||||
|
||||
if (eregi("^:TYPE:MC:1(.*)",$line,$webct_options)) {
|
||||
// Multiple Choice Question with only one good answer
|
||||
$question->qtype = MULTICHOICE;
|
||||
$question->name = "";
|
||||
$question->defaultgrade = 1;
|
||||
$question->single = 1; // Only one answer is allowed
|
||||
$question->image = ""; // No images with this format
|
||||
$ignore_lines = FALSE;
|
||||
continue;
|
||||
}
|
||||
|
||||
if (eregi("^:TYPE:MC:N(.*)",$line,$webct_options)) {
|
||||
// Multiple Choice Question with many good answers
|
||||
$question->qtype = MULTICHOICE;
|
||||
$question->name = "";
|
||||
$question->defaultgrade = 1;
|
||||
$question->single = 0; // Many answers allowed
|
||||
$question->image = ""; // No images with this format
|
||||
$ignore_lines = FALSE;
|
||||
continue;
|
||||
}
|
||||
|
||||
if (eregi("^:TYPE:S",$line)) {
|
||||
// Short Answer Question
|
||||
$question->qtype = SHORTANSWER;
|
||||
$question->name = "";
|
||||
$question->defaultgrade = 1;
|
||||
$question->usecase = 0; // Ignore case
|
||||
$question->image = ""; // No images with this format
|
||||
$ignore_lines = FALSE;
|
||||
continue;
|
||||
}
|
||||
|
||||
if (eregi("^:TYPE:M",$line)) {
|
||||
// Match Question
|
||||
$question->qtype = MATCH;
|
||||
$question->name = "";
|
||||
$question->defaultgrade = 1;
|
||||
$question->image = ""; // No images with this format
|
||||
$ignore_lines = TRUE; // match question processing is not debugged
|
||||
continue;
|
||||
}
|
||||
|
||||
if (eregi("^:TYPE:P",$line)) {
|
||||
// Paragraph Question
|
||||
$warnings[] = get_string("paragraphquestion", "importwebcbt", $nLine);
|
||||
$ignore_lines = TRUE; // do not process lines until next question
|
||||
continue;
|
||||
}
|
||||
|
||||
if (eregi("^:TYPE:C",$line)) {
|
||||
// Calculated Question
|
||||
$warnings[] = get_string("calculatedquestion", "importwebcbt", $nLine);
|
||||
$ignore_lines = TRUE; // do not process lines until next question
|
||||
continue;
|
||||
}
|
||||
|
||||
if (eregi("^:TYPE:",$line)) {
|
||||
// Unknow Question
|
||||
$warnings[] = get_string("unknowtype", "importwebcbt", $nLine);
|
||||
$ignore_lines = TRUE; // do not process lines until next question
|
||||
continue;
|
||||
}
|
||||
|
||||
if (eregi("^:CAT:",$line)) {
|
||||
// Category ignored
|
||||
continue;
|
||||
}
|
||||
|
||||
if ($ignore_lines) {
|
||||
continue;
|
||||
}
|
||||
|
||||
if (eregi("^:TITLE:(.*)",$line,$webct_options)) {
|
||||
$name = trim($webct_options[1]);
|
||||
if (strlen($name) > 255) {
|
||||
$name = substr($name,0,250)."...";
|
||||
$warnings[] = get_string("questionnametoolong", "importwebcbt", $nLine);
|
||||
}
|
||||
$question->name = $name;
|
||||
continue;
|
||||
}
|
||||
|
||||
if (eregi("^:IMAGE:(.*)",$line,$webct_options)) {
|
||||
$filename = trim($webct_options[1]);
|
||||
if (file_exists("$CFG->dataroot\\$filename")) {
|
||||
$question->image = $filename;
|
||||
}
|
||||
else {
|
||||
$warnings[] = get_string("imagemissing", "importwebcbt", $nLine);
|
||||
}
|
||||
continue;
|
||||
}
|
||||
|
||||
$bRawText = !eregi(":H$",$line); // false if next lines are coded in HTML
|
||||
|
||||
if (eregi("^:QUESTION",$line)) {
|
||||
$questiontext=""; // Grab next lines
|
||||
continue;
|
||||
}
|
||||
|
||||
if (eregi("^:ANSWER([0-9]+):([0-9\.]+)",$line,$webct_options)) {
|
||||
$answertext=""; // Grab next lines
|
||||
$currentchoice=$webct_options[1];
|
||||
$question->fraction[$currentchoice]=1.0*$webct_options[2];
|
||||
continue;
|
||||
}
|
||||
|
||||
if (eregi("^:L([0-9]+)",$line,$webct_options)) {
|
||||
$answertext=""; // Grab next lines
|
||||
$currentchoice=$webct_options[1];
|
||||
continue;
|
||||
}
|
||||
|
||||
if (eregi("^:R[0-9]+)",$line,$webct_options)) {
|
||||
$responstext=""; // Grab next lines
|
||||
$currentchoice=$webct_options[1];
|
||||
continue;
|
||||
}
|
||||
|
||||
if (eregi("^:REASON([0-9]+):?",$line,$webct_options)) {
|
||||
$feedbacktext=""; // Grab next lines
|
||||
$currentchoice=$webct_options[1];
|
||||
continue;
|
||||
}
|
||||
}
|
||||
|
||||
if (sizeof($errors) > 0) {
|
||||
echo "<p>".get_string("errorsdetected", "importwebcbt", sizeof($errors))."</p><ul>";
|
||||
foreach($errors as $error) {
|
||||
echo "<li>$error</li>";
|
||||
}
|
||||
echo "</ul>";
|
||||
}
|
||||
|
||||
if (sizeof($warnings) > 0) {
|
||||
echo "<p>".get_string("warningsdetected", "importwebcbt", sizeof($warnings))."</p><ul>";
|
||||
foreach($warnings as $warning) {
|
||||
echo "<li>$warning</li>";
|
||||
}
|
||||
echo "</ul>";
|
||||
}
|
||||
return $questions;
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
?>
|
||||
|
||||
Reference in New Issue
Block a user