Log Message:
-----------
Prevent empty answers that are marked as correct from being counted as
unanswered blanks. This avoids the "all the above are correct/at
least one of the above are NOT correct" problem, and suppresses the "n
questions remain unanswered" message when the empty questions are
counted as correct.
Modified Files:
--------------
webwork-modperl/lib/WeBWorK/ContentGenerator:
Problem.pm
Revision Data
-------------
Index: Problem.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/ContentGenerator/Problem.pm,v
retrieving revision 1.185
retrieving revision 1.186
diff -Llib/WeBWorK/ContentGenerator/Problem.pm -Llib/WeBWorK/ContentGenerator/Problem.pm -u -r1.185 -r1.186
--- lib/WeBWorK/ContentGenerator/Problem.pm
+++ lib/WeBWorK/ContentGenerator/Problem.pm
@@ -250,7 +250,7 @@
my $answerMessage = $showMessages ? $answerResult->{ans_message} : "";
$answerMessage =~ s/\n/<BR>/g;
$numCorrect += $answerScore >= 1;
- $numBlanks++ unless $studentAnswer =~/\S/; # unless student answer contains entry
+ $numBlanks++ unless $studentAnswer =~/\S/ || $answerScore >= 1; # unless student answer contains entry
my $resultString = $answerScore >= 1 ? "correct" :
$answerScore > 0 ? int($answerScore*100)."% correct" :
"incorrect";
|
