[BACK]Return to lonproblemstatistics.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface / statistics

Diff for /loncom/interface/statistics/lonproblemstatistics.pm between versions 1.62 and 1.67

version 1.62, 2003/12/08 19:37:44 version 1.67, 2004/02/20 16:24:20
Line 147  my @Fields = ( Line 147  my @Fields = (
              title  => '#YES',               title  => '#YES',
              align  => 'right',               align  => 'right',
              color  => '#FFDDDD',               color  => '#FFDDDD',
              format => '%d',               format => '%4.1f',#             format => '%d',
              sortable  => 'yes',               sortable  => 'yes',
              graphable => 'yes',               graphable => 'yes',
              long_title => 'Number of Students able to Solve' },               long_title => 'Number of Students able to Solve' },
Line 155  my @Fields = ( Line 155  my @Fields = (
              title  => '#yes',               title  => '#yes',
              align  => 'right',               align  => 'right',
              color  => '#FFDDDD',               color  => '#FFDDDD',
              format => '%d',               format => '%4.1f',#             format => '%d',
              sortable  => 'yes',               sortable  => 'yes',
              graphable => 'yes',               graphable => 'yes',
              long_title => 'Number of Students given Override' },               long_title => 'Number of Students given Override' },
Line 208  my @OutputOptions = Line 208  my @OutputOptions =
   
 sub CreateInterface {  sub CreateInterface {
     my $Str = '';      my $Str = '';
       $Str .= &Apache::lonhtmlcommon::breadcrumbs
           (undef,'Overall Problem Statistics','Statistics_Overall_Key');
     $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 770  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 785  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'};
Removed from v.1.62  
changed lines
  Added in v.1.67

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>