[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.47 and 1.48

version 1.47, 2003/03/27 19:26:33 version 1.48, 2003/03/28 15:20:59
Line 340  sub output_html_grouped_by_sequence { Line 340  sub output_html_grouped_by_sequence {
             foreach my $part (@{$resource->{'parts'}}) {              foreach my $part (@{$resource->{'parts'}}) {
                 $problem_num++;                  $problem_num++;
                 my ($num,$tries,$mod,$mean,$Solved,$solved,$DegOfDiff,$STD,                  my ($num,$tries,$mod,$mean,$Solved,$solved,$DegOfDiff,$STD,
                     $SKEW) = &Apache::loncoursedata::get_problem_statistics                      $SKEW) = &get_statistics($resource->{'symb'},$part);
                         (undef,$resource->{'symb'},$part,  
                          $ENV{'request.course.id'});  
                 #                  #
                 $part = ' ' if ($part == 0);                  $part = ' ' if ($part == 0);
                 #                  #
Line 425  sub output_html_ungrouped { Line 423  sub output_html_ungrouped {
             foreach my $part (@{$resource->{'parts'}}) {              foreach my $part (@{$resource->{'parts'}}) {
                 $problem_num++;                  $problem_num++;
                 my ($num,$tries,$mod,$mean,$Solved,$solved,$DegOfDiff,$STD,                  my ($num,$tries,$mod,$mean,$Solved,$solved,$DegOfDiff,$STD,
                     $SKEW) = &Apache::loncoursedata::get_problem_statistics                      $SKEW) = &get_statistics($resource->{'symb'},$part);
                         (undef,$resource->{'symb'},$part,  
                          $ENV{'request.course.id'});  
                 #                  #
                 $show_part = 1 if ($part ne '0');                  $show_part = 1 if ($part ne '0');
                 $part = ' ' if ($part == 0);                  $part = ' ' if ($part == 0);
Line 636  sub output_excel { Line 632  sub output_excel {
             foreach my $part (@{$resource->{'parts'}}) {              foreach my $part (@{$resource->{'parts'}}) {
                 $cols_output=0;                  $cols_output=0;
                 my ($num,$tries,$mod,$mean,$Solved,$solved,$DegOfDiff,$STD,                  my ($num,$tries,$mod,$mean,$Solved,$solved,$DegOfDiff,$STD,
                     $SKEW) = &Apache::loncoursedata::get_problem_statistics                      $SKEW) = &get_statistics($resource->{'symb'},$part);
                         (undef,$resource->{'symb'},$part,  
                          $ENV{'request.course.id'});  
                 #                  #
                 if (!defined($part) || $part eq '') {                  if (!defined($part) || $part eq '') {
                     $part = ' ';                      $part = ' ';
Line 750  sub plot_statistics { Line 744  sub plot_statistics {
         foreach my $resource (@{$sequence->{'contents'}}) {          foreach my $resource (@{$sequence->{'contents'}}) {
             next if ($resource->{'type'} ne 'assessment');              next if ($resource->{'type'} ne 'assessment');
             foreach my $part (@{$resource->{'parts'}}) {              foreach my $part (@{$resource->{'parts'}}) {
                 my @Results = &Apache::loncoursedata::get_problem_statistics                  my @Results= &get_statistics($resource->{'symb'},$part);
                         (undef,$resource->{'symb'},$part,  
                          $ENV{'request.course.id'});  
                 my ($num,$Solved,$solved) = @Results[0,4,5];                  my ($num,$Solved,$solved) = @Results[0,4,5];
                 my $wrongpercent = 0;                  my $wrongpercent = 0;
                 if (defined($num) && $num > 0) {                  if (defined($num) && $num > 0) {
Line 847  sub DrawGraph { Line 839  sub DrawGraph {
         (join('&', @GData)).'" border="1" />';          (join('&', @GData)).'" border="1" />';
 }  }
   
   sub get_statistics {
       my ($symb,$part) = @_;
       #
       my $courseid = $ENV{'request.course.id'};
       #
       my $students = \@Apache::lonstatistics::Students;
       if ($Apache::lonstatistics::SelectedSections[0] eq 'all') {
           $students = undef;
       }
       my @Results = &Apache::loncoursedata::get_problem_statistics
                           ($students,$symb,$part,$courseid);
       return @Results;
   }
   
 ###############################################  ###############################################
 ###############################################  ###############################################
   
Removed from v.1.47  
changed lines
  Added in v.1.48

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