[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.63 and 1.66

version 1.63, 2003/12/09 21:14:23 version 1.66, 2004/02/03 20:44:06
Line 208  my @OutputOptions = Line 208  my @OutputOptions =
   
 sub CreateInterface {  sub CreateInterface {
     my $Str = '';      my $Str = '';
       $Str .= '<h2>Overall Problem Statistics'.
           &Apache::loncommon::help_open_topic('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 770  sub plot_statistics { Line 773  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 789  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.63  
changed lines
  Added in v.1.66

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