From 0a660b03e0a5ebb53adb9f080b6b563d425b3d02 Mon Sep 17 00:00:00 2001
From: moodler <moodler>
Date: Mon, 22 Sep 2003 16:03:30 +0000
Subject: [PATCH] Fixed a NASTY little bug that sometimes occurred when
 re-grading quizzes with random questions in them.

(everyone got set to zero)
---
 mod/quiz/lib.php | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

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 {
-- 
2.39.5