--- loncom/interface/statistics/longradinganalysis.pm	2006/02/14 16:05:46	1.1
+++ loncom/interface/statistics/longradinganalysis.pm	2006/02/14 16:34:46	1.2
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: longradinganalysis.pm,v 1.1 2006/02/14 16:05:46 albertel Exp $
+# $Id: longradinganalysis.pm,v 1.2 2006/02/14 16:34:46 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -158,12 +158,21 @@ sub task_analysis {
 	my %data =  &Apache::lonnet::restore($problem->symb(),
 					     $env{'request.course.id'},
 					     $sdom,$sname);
+	my $last_grader;
 	foreach my $ver (0..$data{'version'}) {
 	    if (exists($data{"$ver:resource.0.regrader"})
 		&& $data{"$ver:resource.0.regrader"} =~ /\S/) {
-		$graders{$data{"$ver:resource.0.regrader"}}++;
+		$last_grader=$data{"$ver:resource.0.regrader"};
 	    }
+	    if (exists($data{"$ver:resource.0.version"})
+		&& $last_grader =~ /\S/) {
+		$graders{$last_grader}++;
+	    }
+	}
+	if ($last_grader =~ /\S/) {
+	    $graders{$last_grader}++;
 	}
+
 	&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
                                                  &mt('last student'));