MDL-7428 - Quiz regrade removes student answers from essay questions that have been...

diff --git a/lib/questionlib.php b/lib/questionlib.php
index 8b2e5961cee33a6dc72735636d8ceb9113b86868..c5c523be23418115c055eb96de7deeb20c4c6f01 100644 (file)
--- a/lib/questionlib.php
+++ b/lib/questionlib.php
@@ -1207,6 +1207,12 @@ function question_process_comment($question, &$state, &$attempt, $comment, $grad
     // to set the $state->changed flag.
     if (abs($state->last_graded->grade - $grade) > 0.002 ||
             $state->last_graded->event != QUESTION_EVENTMANUALGRADE) {
+
+        // We want to update existing state (rather than creating new one) if it
+        // was itself created by a manual grading event.
+        $state->update = ($state->event == QUESTION_EVENTMANUALGRADE) ? 1 : 0;
+
+        // Update the other parts of the state object.
         $state->raw_grade = $grade;
         $state->grade = $grade;
         $state->penalty = 0;
@@ -1214,10 +1220,6 @@ function question_process_comment($question, &$state, &$attempt, $comment, $grad
         $state->seq_number++;
         $state->event = QUESTION_EVENTMANUALGRADE;
 
-        // We want to update existing state (rather than creating new one) if it
-        // was itself created by a manual grading event.
-        $state->update = ($state->event == QUESTION_EVENTMANUALGRADE) ? 1 : 0;
-
         // Update the last graded state (don't simplify!)
         unset($state->last_graded);
         $state->last_graded = clone($state);