From: moodler <moodler>
Date: Sun, 11 Jan 2004 02:43:16 +0000 (+0000)
Subject: WebCT Import format!!  (untested)
X-Git-Url: http://git.mjollnir.org/gw?a=commitdiff_plain;h=998ebd420ab6c71aa1ac555287ce7ffcd4db8672;p=moodle.git

WebCT Import format!!  (untested)

Contribution from Denis Rebaud!
---

diff --git a/mod/quiz/format/webct/format.php b/mod/quiz/format/webct/format.php
index 1b8ded9dc1..d8a910d18a 100644
--- a/mod/quiz/format/webct/format.php
+++ b/mod/quiz/format/webct/format.php
@@ -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;
+    }
 }
 
 ?>