Bug 5889 - Regrading a quiz wipes student answers. Thanks to Jean-Michel Vedrine...

diff --git a/lib/questionlib.php b/lib/questionlib.php
index f51e3f084b52dffc3b94c2f8d64ca13966e5dfbd..113af9c17a08efffe1fe6dc1934161832699b0b6 100644 (file)
--- a/lib/questionlib.php
+++ b/lib/questionlib.php
@@ -860,7 +860,7 @@ function regrade_question_in_attempt($question, $attempt, $cmoptions, $verbose=f
                 $action->event = $states[$j]->event;
             }
 
-            if ($action->event = QUESTION_EVENTMANUALGRADE) {
+            if ($action->event == QUESTION_EVENTMANUALGRADE) {
                 question_process_comment($question, $replaystate, $attempt, $states[$j]->comment, $states[$j]->grade);
             } else {