loncom/interface/statistics/lonproblemanalysis.pm - diff

Return to lonproblemanalysis.pm CVS log

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

version 1.11, 2002/11/22 03:46:57	version 1.12, 2002/11/22 03:56:05
Line 348 sub OpStatus {	Line 348 sub OpStatus {

foreach my $id (@$ids) {	foreach my $id (@$ids) {
my ($part, $response) = split(/\./, $id);	my ($part, $response) = split(/\./, $id);
=pod	#=pod
my %reshash=&Apache::lonnet::restore($symb,$courseID,$udom,$uname);	my %reshash=&Apache::lonnet::restore($symb,$courseID,$udom,$uname);
if ($reshash{'version'}) {	if ($reshash{'version'}) {
my $tries=0;	my $tries=0;
Line 370 sub OpStatus {	Line 370 sub OpStatus {
my %submission=&Apache::lonnet::str2hash($Resp);	my %submission=&Apache::lonnet::str2hash($Resp);
foreach (keys %submission) {	foreach (keys %submission) {
my $Ansr = $analyzeData->{"$Id1.$Id2.foil.value.$_"};	my $Ansr = $analyzeData->{"$Id1.$Id2.foil.value.$_"};
if ($submission{$_}) {	if($submission{$_} eq $Ansr) {
if ($submission{$_} eq $Ansr) {	&Decide("true", $foil_to_concept->{$_},
&Decide("true",$_,$time );	$time, $ConceptData);
}	} else {
else {&Decide("false",$_,$time );}	&Decide("false", $foil_to_concept->{$_},
}	$time, $ConceptData);
	}
}	}
}	}
}	}
}	}
}	}
=cut	#=cut
	=pod
my $time=$cache->{$student.':'.$problemID.':'.$part.':timestamp'};	my $time=$cache->{$student.':'.$problemID.':'.$part.':timestamp'};
my @submissions = split(':::', $cache->{$student.':'.$problemID.':'.	my @submissions = split(':::', $cache->{$student.':'.$problemID.':'.
$part.':'.$response.	$part.':'.$response.
Line 402 sub OpStatus {	Line 403 sub OpStatus {
}	}
}	}
}	}
	=cut

}	}

return;	return;