version 1.3, 2004/02/02 21:52:28
|
version 1.6, 2004/02/20 16:24:20
|
Line 45 my @SubmitButtons = (
|
Line 45 my @SubmitButtons = (
|
text => 'Update Student Data' }, |
text => 'Update Student Data' }, |
); |
); |
|
|
|
######################################################### |
|
######################################################### |
|
|
|
=pod |
|
|
|
=item &BuildCorrectProblemsPage |
|
|
|
Entry point from lonstatistics to the correct problems plot page. |
|
|
|
=cut |
|
|
|
######################################################### |
|
######################################################### |
|
|
sub BuildCorrectProblemsPage { |
sub BuildCorrectProblemsPage { |
my ($r,$c)=@_; |
my ($r,$c)=@_; |
# |
# |
Line 57 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 157 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 240 sub CreateInterface {
|
Line 255 sub CreateInterface {
|
## |
## |
## Environment variable initialization |
## Environment variable initialization |
my $Str; |
my $Str; |
|
$Str .= &Apache::lonhtmlcommon::breadcrumbs(undef,'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>'; |