Fixed a NASTY little bug that sometimes occurred when

re-grading quizzes with random questions in them.

(everyone got set to zero)

diff --git a/mod/quiz/lib.php b/mod/quiz/lib.php
index 96d9a85227c6f1569320a686197a3e0fb35330bf..c6dc4a4cd46bf24f78e46eb8d5172a4be58dfed3 100644 (file)
--- a/mod/quiz/lib.php
+++ b/mod/quiz/lib.php
@@ -363,8 +363,16 @@ function quiz_get_attempt_responses($attempt) {
     foreach ($responses as $key => $response) {
         if ($response->qtype == RANDOM) {
             $responses[$key]->random = $response->answer;
-            $responses[$key]->answer = explode(",",$responses[$response->answer]->answer);
             $responses[$response->answer]->delete = true;
+
+            $realanswer = $responses[$response->answer]->answer;
+
+            if (is_array($realanswer)) {
+                $responses[$key]->answer = $realanswer;
+            } else {
+                $responses[$key]->answer = explode(",", $realanswer);
+            }
+
         } else if ($response->qtype == NUMERICAL or $response->qtype == SHORTANSWER) {
             $responses[$key]->answer = array($response->answer);
         } else {