version 1.4, 2004/02/02 21:54:13
|
version 1.5, 2004/02/03 16:28:55
|
Line 171 sub AnalyzeScoreData {
|
Line 171 sub AnalyzeScoreData {
|
$Str.= '<tr><td>'.$bin->{'start'}.' - '.$bin->{'end'}.'</td>'. |
$Str.= '<tr><td>'.$bin->{'start'}.' - '.$bin->{'end'}.'</td>'. |
'<td>'.$bin->{'count'}.'</td></tr>'."\n"; |
'<td>'.$bin->{'count'}.'</td></tr>'."\n"; |
} |
} |
my $title = ''; |
# scale max to an integer. |
|
$max = 5*(int($max/5)+1); |
|
my $title = 'Correct Problems Plot'; |
$Str .= "</table><br />\n"; |
$Str .= "</table><br />\n"; |
$Str = "<br />\n".&Apache::loncommon::DrawBarGraph($title, |
$Str = "<br />\n".&Apache::loncommon::DrawBarGraph($title, |
'Num Correct Problems', |
'Num Correct Problems', |