loncom/interface/statistics/longradinganalysis.pm - diff

Return to longradinganalysis.pm CVS log

Up to [LON-CAPA] / loncom / interface / statistics

version 1.1, 2006/02/14 16:05:46	version 1.2, 2006/02/14 16:34:46
Line 158 sub task_analysis {	Line 158 sub task_analysis {
my %data = &Apache::lonnet::restore($problem->symb(),	my %data = &Apache::lonnet::restore($problem->symb(),
$env{'request.course.id'},	$env{'request.course.id'},
$sdom,$sname);	$sdom,$sname);
	my $last_grader;
foreach my $ver (0..$data{'version'}) {	foreach my $ver (0..$data{'version'}) {
if (exists($data{"$ver:resource.0.regrader"})	if (exists($data{"$ver:resource.0.regrader"})
&& $data{"$ver:resource.0.regrader"} =~ /\S/) {	&& $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,	&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
&mt('last student'));	&mt('last student'));