From d396ba798f04ef2fe119d78c6be5f3b2ecde7434 Mon Sep 17 00:00:00 2001
From: moodler <moodler>
Date: Fri, 19 Mar 2004 14:51:29 +0000
Subject: [PATCH] Multianswer cloze questions now show feedback (you need to
 hover your mouse over the answers)

---
 mod/quiz/lib.php | 142 +++++++++++++++++++++++++----------------------
 1 file changed, 77 insertions(+), 65 deletions(-)

diff --git a/mod/quiz/lib.php b/mod/quiz/lib.php
index f09ac0aa73..a01573e264 100644
--- a/mod/quiz/lib.php
+++ b/mod/quiz/lib.php
@@ -837,70 +837,82 @@ function quiz_print_question($number, $question, $grade, $quizid,
            // For this question type, we better print the image on top:
            quiz_print_possible_question_image($quizid, $question);
 
-            $qtextremaining = format_text($question->questiontext, $question->questiontextformat, NULL, $courseid);
-            // The regex will recognize text snippets of type {#X} where the X can be any text not containg } or white-space characters.
-            while (ereg('\{#([^[:space:]}]*)}', $qtextremaining, $regs)) {
-
-                $qtextsplits = explode($regs[0], $qtextremaining, 2);
-                echo $qtextsplits[0];
-                $qtextremaining = $qtextsplits[1];
+           $qtextremaining = format_text($question->questiontext, $question->questiontextformat, NULL, $courseid);
+
+           // The regex will recognize text snippets of type {#X} 
+           // where the X can be any text not containg } or white-space characters.
+
+           while (ereg('\{#([^[:space:]}]*)}', $qtextremaining, $regs)) {
+               $qtextsplits = explode($regs[0], $qtextremaining, 2);
+               echo $qtextsplits[0];
+               $qtextremaining = $qtextsplits[1];
+
+               $multianswer = get_record('quiz_multianswers', 'question', $question->id, 'positionkey', $regs[1]);
+
+               $inputname= " name=\"q{$realquestion->id}ma$multianswer->id\" ";
+
+               if (!empty($response) && ereg('(.[^-]*)-(.+)', array_shift($response), $responseitems)) {
+                   $responsefractiongrade = (float)$responseitems[1];
+                   $actualresponse = $responseitems[2];
+
+                   if (1.0 == $responsefractiongrade) {
+                       $style = 'style="background-color:lime"';
+                   } else if (0.0 < $responsefractiongrade) {
+                       $style = 'style="background-color:yellow"';
+                   } else if ('' != $actualresponse) {
+                       // The response must have been totally wrong:
+                       $style = 'style="background-color:red"';
+                   } else { 
+                       // There was no response given
+                       $style = '';
+                   }
+               } else {
+                   $responsefractiongrade = 0.0;
+                   $actualresponse = '';
+                   $style = '';
+               }
 
-                $multianswer = get_record('quiz_multianswers',
-                                          'question', $question->id,
-                                          'positionkey', $regs[1]);
-                
-                $inputname= " name=\"q{$realquestion->id}ma$multianswer->id\" ";
-                
-                if (!empty($response)
-                    && ereg('(.[^-]*)-(.+)', array_shift($response), $responseitems))
-                {
-                    $responsefractiongrade = (float)$responseitems[1];
-                    $actualresponse = $responseitems[2];
-
-                    if (1.0 == $responsefractiongrade) {
-                        $style = 'style="background-color:lime"';
-                    } else if (0.0 < $responsefractiongrade) {
-                        $style = 'style="background-color:yellow"';
-                    } else if ('' != $actualresponse) {
-                        // The response must have been totally wrong:
-                        $style = 'style="background-color:red"';
-                    } else { 
-                        // There was no response given
-                        $style = '';
-                    }
-                } else {
-                    $responsefractiongrade = 0.0;
-                    $actualresponse = '';
-                    $style = '';
-                }
+               $feedbackitem = '';
+               switch ($multianswer->answertype) {
+                   case SHORTANSWER:
+                   case NUMERICAL:
+                       if (isset($feedback[$regs[1]-1])) {
+                           $title = " title=\"".s($feedback[$regs[1]-1])."\" ";
+                       } else {
+                           $title = "";
+                       }
+                       echo " <input $style $title $inputname value=\"$actualresponse\" type=\"text\" size=\"12\" /> ";
+                       break;
+                   case MULTICHOICE:
+                       $outputoptions = '';
+                       $answers = get_records_list("quiz_answers", "id", $multianswer->answers);
+                       $outputoptions .= '<option></option>'; // Default empty option 
+                       foreach ($answers as $answer) {
+                           if ($answer->id == $actualresponse) {
+                               $selected = 'selected';
+                               $feedbackitem = $answer->feedback;
+                           } else {
+                               $selected = '';
+                           }
+                           $outputoptions .= "<option value=\"$answer->id\" $selected>$answer->answer</option>";
+                       }
+                       if ($feedbackitem) {
+                           echo "<select title=\"".s($feedbackitem)."\" $style $inputname>";
+                       } else {
+                           echo "<select $style $inputname>";
+                       }
+                       echo $outputoptions;
+                       echo '</select>';
+                       break;
+                   default:
+                       error("Unable to recognized answertype $answer->answertype");
+                       break;
+               }
+           }
 
-                switch ($multianswer->answertype) {
-                    case SHORTANSWER:
-                    case NUMERICAL:
-                        echo " <input $style $inputname value=\"$actualresponse\" type=\"text\" size=\"8\" /> ";
-                    break;
-                    case MULTICHOICE:
-                        echo (" <select $style $inputname>");
-                        $answers = get_records_list("quiz_answers", "id", $multianswer->answers);
-                        echo ('<option></option>'); // Default empty option 
-                        foreach ($answers as $answer) {
-                            if ($answer->id == $actualresponse) {
-                                $selected = 'selected';
-                            } else {
-                                $selected = '';
-                            }
-                            echo "<option value=\"$answer->id\" $selected>$answer->answer</option>";
-                        }
-                        echo ("</select> ");
-                    break;
-                    default:
-                        error("Unable to recognized answertype $answer->answertype");
-                    break;
-                }
-            }
-            // Print the final piece of question text:
-            echo $qtextremaining;
-            break;
+           // Print the final piece of question text:
+           echo $qtextremaining;
+           break;
 
        case RANDOM:
            // This can only happen if it is a recently added question
@@ -1048,7 +1060,6 @@ function quiz_print_quiz_questions($quiz, $results=NULL, $questions=NULL, $shuff
             }
         }
 
-
         print_simple_box_start("center", "90%");
         quiz_print_question($count, $question, $grades[$question->id]->grade, $quiz->id, 
                             $feedback, $response, $actualgrades, $correct, 
@@ -1687,6 +1698,7 @@ function quiz_grade_attempt_question_result($question,
                     $grade = $potentialgrade;
                 }
             }
+
             break;
 
         case NUMERICAL:
@@ -1831,12 +1843,12 @@ function quiz_grade_attempt_question_result($question,
                     if ($multianswer->id == $qarr[0]) {
                         $subquestion->qtype = $multianswer->answertype;
                         $subquestion->grade = $multianswer->norm;
-                        $subresult = quiz_grade_attempt_question_result
-                                ($subquestion, $multianswer->subanswers, true);
+                        $subresult = quiz_grade_attempt_question_result($subquestion, $multianswer->subanswers, true);
                         break;
                     }
                 }
 
+
                 // Summarize subquestion results:
                 $grade += $subresult->grade;
                 $feedback[] = $subresult->feedback[0];
-- 
2.39.5