Log Message:
-----------
minor cleanup -- removed a variable that had been defined twice.
Modified Files:
--------------
webwork-modperl/lib/WeBWorK/ContentGenerator:
Grades.pm
Revision Data
-------------
Index: Grades.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/ContentGenerator/Grades.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -Llib/WeBWorK/ContentGenerator/Grades.pm -Llib/WeBWorK/ContentGenerator/Grades.pm -u -r1.11 -r1.12
--- 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 ;
|
