From: Mike G. v. a. <we...@ma...> - 2005-02-06 16:18:55
|
Log Message: ----------- Backporting minor corrections in code Tags: ---- rel-2-1-patches Modified Files: -------------- webwork2/lib/WeBWorK/ContentGenerator: Grades.pm Revision Data ------------- Index: Grades.pm =================================================================== RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/ContentGenerator/Grades.pm,v retrieving revision 1.9.2.2 retrieving revision 1.9.2.3 diff -Llib/WeBWorK/ContentGenerator/Grades.pm -Llib/WeBWorK/ContentGenerator/Grades.pm -u -r1.9.2.2 -r1.9.2.3 --- lib/WeBWorK/ContentGenerator/Grades.pm +++ lib/WeBWorK/ContentGenerator/Grades.pm @@ -295,16 +295,15 @@ $longStatus = 'X '; } - my $incorrect = $problemRecord->num_incorrect; $string .= $longStatus; - $twoString .= threeSpaceFill($incorrect); + $twoString .= threeSpaceFill($num_correct); my $probValue = $problemRecord->value; $probValue = 1 unless defined($probValue) and $probValue ne ""; # FIXME?? set defaults here? $total += $probValue; $totalRight += round_score($status*$probValue) if $valid_status; } - + my $avg_num_attempts = ($num_of_problems) ? $num_of_attempts/$num_of_problems : 0; my $successIndicator = ($avg_num_attempts) ? ($totalRight/$total)**2/$avg_num_attempts : 0 ; |