--- loncom/interface/statistics/loncorrectproblemplot.pm 2004/12/10 20:41:39 1.14 +++ loncom/interface/statistics/loncorrectproblemplot.pm 2011/01/17 00:19:41 1.25 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: loncorrectproblemplot.pm,v 1.14 2004/12/10 20:41:39 matthew Exp $ +# $Id: loncorrectproblemplot.pm,v 1.25 2011/01/17 00:19:41 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -28,9 +28,10 @@ package Apache::loncorrectproblemplot; use strict; -use Apache::lonnet(); +use Apache::lonnet; use Apache::loncommon(); use Apache::lonhtmlcommon(); +use Apache::lonquickgrades(); use Apache::loncoursedata(); use Apache::lonstatistics; use Apache::lonstathelpers; @@ -59,13 +60,17 @@ sub BuildCorrectProblemsPage { my ($r,$c)=@_; # my %Saveable_Parameters = ('Status' => 'scalar', - 'Section' => 'array'); + 'Section' => 'array', + 'Groups' => 'array'); &Apache::loncommon::store_course_settings('correct_problems_plot', \%Saveable_Parameters); &Apache::loncommon::restore_course_settings('correct_problems_plot', \%Saveable_Parameters); # &Apache::lonstatistics::PrepareClasslist(); + + $r->print(&Apache::lonhtmlcommon::breadcrumbs('Correct Problems Plot')); + &Apache::lonquickgrades::startGradeScreen($r,'statistics'); # $r->print(&CreateInterface()); # @@ -73,7 +78,7 @@ sub BuildCorrectProblemsPage { # if (@Students < 1) { $r->print('
'. + &mt('Problem weights do not reflect individual student settings.') + .'
'. 'Range | Count |
---|
".&Apache::loncommon::DrawBarGraph($title.' N = '.$sum,
- 'Correct Problems (max possible = '.$total_parts.')',
- 'Number of students',
- $max,
- undef, # colors
- \@Xdata,
- \@Ydata).
- "\n
\n".$Str;
+ $Str = "\n
".
+ &Apache::loncommon::DrawBarGraph($title.' ('.$sum.' students)',
+ 'Correct Problems (max possible = '.$maximum.')',
+ 'Number of students',
+ $max,undef, # colors
+ \@Xdata,\@Ydata).
+ "\n
\n".$Str;
$Str .= '
'; # - $Str .= '
'.&mt('Sections').' | '; - $Str .= ''.&mt('Enrollment Status').' | '; - $Str .= ''.&mt('Sequences and Folders').' | '; - $Str .= ''. - &Apache::lonstathelpers::limit_by_time_form().' | '; - $Str .= ''.&mt('Sections').' | '; + $Str .= ''.&mt('Groups').' | '; + $Str .= ''.&mt('Access Status').' | '; + $Str .= ''.&mt('Sequences and Folders').' | '; + $Str .= ''.&mt('Time Period').' | '; + $Str .= &Apache::loncommon::end_data_table_header_row(); # - $Str .= '
---|---|---|---|---|---|---|---|
'."\n"; + $Str .= &Apache::loncommon::start_data_table_row(); + $Str .= ' | '."\n"; $Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5); $Str .= ' | '; # - $Str .= ''; + $Str .= ' | '."\n"; + $Str .= &Apache::lonstatistics::GroupSelect('Group','multiple',5); + $Str .= ' | '; + $Str .= ''; $Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5); - $Str .= ' | '."\n"; + $Str .= ' | '."\n"; # - my $only_seq_with_assessments = sub { - my $s=shift; - if ($s->{'num_assess'} < 1) { - return 0; - } else { - return 1; - } - }; - $Str .= &Apache::lonstatistics::MapSelect('Maps','multiple,all',5, - $only_seq_with_assessments); + $Str .= ''."\n"; + $Str .= &Apache::lonstatistics::map_select('Maps','multiple,all',5); + $Str .= ' | '; + # + $Str .= ''."\n"; + $Str .= &Apache::lonstathelpers::limit_by_time_form(); $Str .= ' | '; # - $Str .= '
' + .&mt('Status: [_1]', + '') + .'
'; + $Str .= ''; ## return $Str; }