[WWcvs] pg: Folded in Mike's changes for status messages.

[dpvc v. a. <we...@ma...>]

Log Message:
-----------
Folded in Mike's changes for status messages.

Modified Files:
--------------
    pg/lib/Parser/Legacy:
        PGanswermacros.pl

Revision Data
-------------
Index: PGanswermacros.pl
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Parser/Legacy/PGanswermacros.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -Llib/Parser/Legacy/PGanswermacros.pl -Llib/Parser/Legacy/PGanswermacros.pl -u -r1.4 -r1.5
--- lib/Parser/Legacy/PGanswermacros.pl
+++ lib/Parser/Legacy/PGanswermacros.pl
@@ -4614,6 +4614,9 @@
 
 	$problem_state{num_of_correct_ans}++ if	$allAnswersCorrectQ	== 1;
 	$problem_state{num_of_incorrect_ans}++ if $allAnswersCorrectQ == 0;
+	
+	$problem_state{state_summary_msg} = '';  # an HTML formatted message printed at the bottom of the problem page
+	
 	(\%problem_result, \%problem_state);
 }
 
@@ -4713,6 +4716,8 @@
 	if ($record_problem_attempt	== 1) {
 		$problem_state{num_of_correct_ans}++ if	$allAnswersCorrectQ	== 1;
 		$problem_state{num_of_incorrect_ans}++ if $allAnswersCorrectQ == 0;
+		$problem_state{state_summary_msg} = '';  # an HTML formatted message printed at the bottom of the problem page
+	
 	}
 	else {
 		$problem_result{show_partial_correct_answers} =	0 ;	 # prevent partial correct answers from	being shown	for	syntax errors.
@@ -4786,6 +4791,9 @@
 
 	$problem_state{num_of_correct_ans}++ if	$total == $count;
 	$problem_state{num_of_incorrect_ans}++ if $total < $count ;
+	
+	$problem_state{state_summary_msg} = '';  # an HTML formatted message printed at the bottom of the problem page
+	
 	warn "Error	in grading this	problem	the	total $total is	larger than	$count"	if $total >	$count;
 	(\%problem_result, \%problem_state);
 }