version 1.12, 2004/10/06 14:21:57
|
version 1.13, 2004/12/10 20:14:16
|
Line 110 sub BuildCorrectProblemsPage {
|
Line 110 sub BuildCorrectProblemsPage {
|
} |
} |
} |
} |
} |
} |
|
} else { |
|
$title = "All Problems"; |
|
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()){ |
|
foreach my $res (@{$seq->{'contents'}}) { |
|
next if ($res->{'type'} ne 'assessment'); |
|
$total_parts += scalar(@{$res->{'parts'}}); |
|
} |
|
} |
} |
} |
my ($starttime,$endtime) = &Apache::lonstathelpers::get_time_limits(); |
my ($starttime,$endtime) = &Apache::lonstathelpers::get_time_limits(); |
if (defined($starttime) || defined($endtime)) { |
if (defined($starttime) || defined($endtime)) { |
Line 186 sub AnalyzeScoreData {
|
Line 194 sub AnalyzeScoreData {
|
$Str .= "</table><br />\n"; |
$Str .= "</table><br />\n"; |
$title = &HTML::Entities::decode($title); |
$title = &HTML::Entities::decode($title); |
$Str = "\n<p>".&Apache::loncommon::DrawBarGraph($title.' N = '.$sum, |
$Str = "\n<p>".&Apache::loncommon::DrawBarGraph($title.' N = '.$sum, |
'Num Correct Problems (max:'.$total_parts.')', |
'Correct Problems (max possible = '.$total_parts.')', |
'Number of students', |
'Number of students', |
$max, |
$max, |
undef, # colors |
undef, # colors |