From 8bb3fac17c9470a4d64f8e8766be2f460d0bf6c7 Mon Sep 17 00:00:00 2001
From: tjhunt <tjhunt>
Date: Wed, 30 Jan 2008 18:18:36 +0000
Subject: [PATCH] MDL-13110 - Manually grading random questions does not work.
 Fix thanks to Ken Burres.

---
 question/type/questiontype.php        | 3 ++-
 question/type/random/questiontype.php | 1 +
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/question/type/questiontype.php b/question/type/questiontype.php
index 079a622696..8f5ad1c75e 100644
--- a/question/type/questiontype.php
+++ b/question/type/questiontype.php
@@ -852,7 +852,8 @@ class default_questiontype {
 
         if (isset($options->questioncommentlink) && $context && has_capability('mod/quiz:grade', $context)) {
             $strcomment = get_string('commentorgrade', 'quiz');
-            $commentlink = '<div class="commentlink">'.link_to_popup_window ($options->questioncommentlink.'?attempt='.$state->attempt.'&amp;question='.$question->id,
+            $question_to_comment = isset($question->randomquestionid) ? $question->randomquestionid : $question->id;
+            $commentlink = '<div class="commentlink">'.link_to_popup_window ($options->questioncommentlink.'?attempt='.$state->attempt.'&amp;question='.$question_to_comment,
                              'commentquestion', $strcomment, 450, 650, $strcomment, 'none', true).'</div>';
         }
 
diff --git a/question/type/random/questiontype.php b/question/type/random/questiontype.php
index 6aaef2dc1d..17f80e22a5 100644
--- a/question/type/random/questiontype.php
+++ b/question/type/random/questiontype.php
@@ -258,6 +258,7 @@ class random_qtype extends default_questiontype {
     function print_question(&$question, &$state, &$number, $cmoptions, $options) {
         global $QTYPES;
         $wrappedquestion = &$state->options->question;
+        $wrappedquestion->randomquestionid = $question->id;
         $QTYPES[$wrappedquestion->qtype]
          ->print_question($wrappedquestion, $state, $number, $cmoptions, $options);
     }
-- 
2.39.5