From: moodler <moodler>
Date: Mon, 22 Sep 2003 16:03:30 +0000 (+0000)
Subject: Fixed a NASTY little bug that sometimes occurred when
X-Git-Url: http://git.mjollnir.org/gw?a=commitdiff_plain;h=0a660b03e0a5ebb53adb9f080b6b563d425b3d02;p=moodle.git

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 96d9a85227..c6dc4a4cd4 100644
--- 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 {