--- loncom/interface/statistics/lonproblemstatistics.pm	2003/12/08 19:37:44	1.62
+++ loncom/interface/statistics/lonproblemstatistics.pm	2004/02/03 20:44:06	1.66
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonproblemstatistics.pm,v 1.62 2003/12/08 19:37:44 matthew Exp $
+# $Id: lonproblemstatistics.pm,v 1.66 2004/02/03 20:44:06 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -147,7 +147,7 @@ my @Fields = (
              title  => '#YES',
              align  => 'right',
              color  => '#FFDDDD',
-             format => '%d',
+             format => '%4.1f',#             format => '%d',
              sortable  => 'yes',
              graphable => 'yes',
              long_title => 'Number of Students able to Solve' },
@@ -155,7 +155,7 @@ my @Fields = (
              title  => '#yes',
              align  => 'right',
              color  => '#FFDDDD',
-             format => '%d',
+             format => '%4.1f',#             format => '%d',
              sortable  => 'yes',
              graphable => 'yes',
              long_title => 'Number of Students given Override' },
@@ -208,6 +208,9 @@ my @OutputOptions =
 
 sub CreateInterface {
     my $Str = '';
+    $Str .= '<h2>Overall Problem Statistics'.
+        &Apache::loncommon::help_open_topic('Statistics_Overall_Key').
+        '</h2>'."\n";
     $Str .= '<table cellspacing="5">'."\n";
     $Str .= '<tr>';
     $Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>';
@@ -770,7 +773,8 @@ sub plot_statistics {
                                                      'Problem Number',
                                                      $yaxis,
                                                      $Max,
-                                                     undef,
+                                                     undef, # colors
+                                                     undef, # labels
                                                      \@Data)."</p>\n");
     #
     # Print out the data
@@ -785,12 +789,10 @@ sub get_statistics {
     my $symb = $resource->{'symb'};
     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
-                        ($students,$symb,$part,$courseid);
+                        (\@Apache::lonstatistics::SelectedSections,
+                         $Apache::lonstatistics::enrollment_status,
+                         $symb,$part,$courseid);
     $data->{'part'}        = $part;
     $data->{'problem_num'} = $problem_num;
     $data->{'container'}   = $sequence->{'title'};