loncom/interface/statistics/lonstudentassessment.pm - diff

Return to lonstudentassessment.pm CVS log

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

version 1.174, 2014/03/28 14:43:26	version 1.176, 2019/03/20 03:39:48
Line 605 sub count_parts {	Line 605 sub count_parts {
sub get_resources {	sub get_resources {
my ($navmap,$sequence) = @_;	my ($navmap,$sequence) = @_;
my @resources = $navmap->retrieveResources($sequence,	my @resources = $navmap->retrieveResources($sequence,
sub { shift->is_problem(); },	sub { shift->is_gradable(); },
0,0,0);	0,0,0);
return @resources;	return @resources;
}	}
Line 2144 sub student_performance_on_sequence {	Line 2144 sub student_performance_on_sequence {
}	}
if ($randompick) {	if ($randompick) {
my @uniquetotals = keys(%ptsfreq);	my @uniquetotals = keys(%ptsfreq);
if ((@uniquetotals = 1) && ($ptsfreq{$uniquetotals[0]} > 0)) {	if ((@uniquetotals == 1) && ($ptsfreq{$uniquetotals[0]} > 0)) {
$max = $max * $randompick/$ptsfreq{$uniquetotals[0]};	$max = $max * $randompick/$ptsfreq{$uniquetotals[0]};
}	}
}	}