version 1.4, 2004/02/02 21:54:13
|
version 1.7, 2004/02/20 16:38:49
|
Line 71 sub BuildCorrectProblemsPage {
|
Line 71 sub BuildCorrectProblemsPage {
|
# |
# |
&Apache::lonstatistics::PrepareClasslist(); |
&Apache::lonstatistics::PrepareClasslist(); |
# |
# |
$r->print('<h2>'.&mt('Number of Correct Problems Plot').'</h2>'); |
|
$r->print(&CreateInterface()); |
$r->print(&CreateInterface()); |
# |
# |
my @Students = @Apache::lonstatistics::Students; |
my @Students = @Apache::lonstatistics::Students; |
Line 171 sub AnalyzeScoreData {
|
Line 170 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', |
Line 254 sub CreateInterface {
|
Line 255 sub CreateInterface {
|
## |
## |
## Environment variable initialization |
## Environment variable initialization |
my $Str; |
my $Str; |
|
$Str .= &Apache::lonhtmlcommon::breadcrumbs |
|
(undef,&mt('Correct Problems Plot')); |
$Str .= '<table cellspacing="5">'."\n"; |
$Str .= '<table cellspacing="5">'."\n"; |
$Str .= '<tr>'; |
$Str .= '<tr>'; |
$Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>'; |
$Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>'; |