'."\n");
$r->print(''."\n");
my $Str = '';
foreach (@Header) {
$Str .= ''.
''.
$_.' | ';
}
$r->print(''.$Str." \n");
$r->rflush();
#
foreach my $sequence (@Sequences) {
next if ($sequence->{'num_assess'}<1);
foreach my $resource (@{$sequence->{'contents'}}) {
next if ($resource->{'type'} ne 'assessment');
foreach my $part (@{$resource->{'parts'}}) {
my ($num,$tries,$mod,$mean,$Solved,$solved,$DegOfDiff,$STD,
$SKEW) = &Apache::loncoursedata::get_problem_statistics
(undef,$resource->{'symb'},$part,
$ENV{'request.course.id'});
if ($part == 0) {
$part = ' ';
}
my $wrongpercent = 0;
if (defined($num) && $num > 0) {
$wrongpercent=int(10*100*($num-$Solved+$solved)/$num)/10;
}
if ($show_container) {
$r->print(''.
''.$sequence->{'title'}.
' | '.
&statistics_html_table_data
($resource,$part,$num,$tries,$mod,$mean,$Solved,
$solved,$wrongpercent,$DegOfDiff,$STD,$SKEW).
" \n");
} else {
$r->print(''.&statistics_html_table_data
($resource,$part,$num,$tries,$mod,$mean,$Solved,
$solved,$wrongpercent,$DegOfDiff,$STD,$SKEW).
" \n");
}
}
}
}
$r->print(" \n");
$r->print(" |