version 1.64, 2004/01/28 14:38:40
|
version 1.69, 2004/03/01 16:39:19
|
Line 208 my @OutputOptions =
|
Line 208 my @OutputOptions =
|
|
|
sub CreateInterface { |
sub CreateInterface { |
my $Str = ''; |
my $Str = ''; |
$Str .= '<h2>Overall Problem Statistics'. |
$Str .= &Apache::lonhtmlcommon::breadcrumbs |
&Apache::loncommon::help_open_topic('Statistics_Overall_Key'). |
(undef,'Overall Problem Statistics','Statistics_Overall_Key'); |
'</h2>'."\n"; |
|
$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>'; |
Line 773 sub plot_statistics {
|
Line 772 sub plot_statistics {
|
'Problem Number', |
'Problem Number', |
$yaxis, |
$yaxis, |
$Max, |
$Max, |
undef, |
undef, # colors |
|
undef, # labels |
\@Data)."</p>\n"); |
\@Data)."</p>\n"); |
# |
# |
# Print out the data |
# Print out the data |
Line 788 sub get_statistics {
|
Line 788 sub get_statistics {
|
my $symb = $resource->{'symb'}; |
my $symb = $resource->{'symb'}; |
my $courseid = $ENV{'request.course.id'}; |
my $courseid = $ENV{'request.course.id'}; |
# |
# |
my $students = \@Apache::lonstatistics::Students; |
|
if ($Apache::lonstatistics::SelectedSections[0] eq 'all') { |
|
$students = undef; |
|
} |
|
my $data = &Apache::loncoursedata::get_problem_statistics |
my $data = &Apache::loncoursedata::get_problem_statistics |
($students,$symb,$part,$courseid); |
(\@Apache::lonstatistics::SelectedSections, |
|
$Apache::lonstatistics::enrollment_status, |
|
$symb,$part,$courseid); |
$data->{'part'} = $part; |
$data->{'part'} = $part; |
$data->{'problem_num'} = $problem_num; |
$data->{'problem_num'} = $problem_num; |
$data->{'container'} = $sequence->{'title'}; |
$data->{'container'} = $sequence->{'title'}; |