Fix to detect the different ANSWER format used for Shortanswers bug 1182

diff --git a/mod/quiz/format/webct/format.php b/mod/quiz/format/webct/format.php
index d1269f0f6dfd1c4442012f64a9bd641967cc6053..10c168d083903434f98db929d102133c2977f066 100644 (file)
--- a/mod/quiz/format/webct/format.php
+++ b/mod/quiz/format/webct/format.php
@@ -151,7 +151,7 @@ class quiz_file_format extends quiz_default_format {
                         $errors[] = get_string("missingquestion", "quiz", $nQuestionStartLine);
                         $QuestionOK = FALSE;
                     }
-                    if (empty($question->answer)) {  // a question must have at least 1 answer
+                    if (sizeof($question->answer) < 1) {  // a question must have at least 1 answer
                        $errors[] = get_string("missinganswer", "quiz", $nQuestionStartLine);
                        $QuestionOK = FALSE;
                     }
@@ -303,6 +303,13 @@ class quiz_file_format extends quiz_default_format {
                 continue;
             }
 
+            if (eregi("^:ANSWER([0-9]+):([^:]+):([0-9\.]+):(.*)",$line,$webct_options)) {      /// SHORTANSWER
+                $currentchoice=$webct_options[1];
+                $answertext=$webct_options[2];            // Start gathering next lines
+                $question->fraction[$currentchoice]=($webct_options[3]/100);
+                continue;
+            }
+
             if (eregi("^:L([0-9]+)",$line,$webct_options)) {
                 $answertext="";                 // Start gathering next lines
                 $currentchoice=$webct_options[1];