[WWcvs] webwork-modperl: minor cleanup -- removed a variable that had been

[Mike G. v. a. <we...@ma...>]

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 ;