[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.81 and 1.83

version 1.81, 2004/04/01 21:35:52 version 1.83, 2004/04/06 15:45:13
Line 461  sub parse_field_selection { Line 461  sub parse_field_selection {
             }              }
         }          }
     }      }
       #
       # Always show all the sequence statistics (for now)
       foreach my $field (@SeqFields) {
           $field->{'selected'} = 'yes';
       }
     return;      return;
 }  }
   
Line 818  sub sequence_html_header { Line 823  sub sequence_html_header {
 sub sequence_html_output {  sub sequence_html_output {
     my ($seq) = @_;      my ($seq) = @_;
     my $data = $SeqStat{$seq->{'symb'}};      my $data = $SeqStat{$seq->{'symb'}};
 #    $SeqStat{$symb}->{'max'}  
 #    $SeqStat{$symb}->{'min'}  
 #    $SeqStat{$symb}->{'mean'}  
 #    $SeqStat{$symb}->{'std'}  
 #    $SeqStat{$symb}->{'count'}  
 #    $SeqStat{$symb}->{'max_possible'}  
     my $row = '<tr>';      my $row = '<tr>';
     foreach my $field (@SeqFields) {      foreach my $field (@SeqFields) {
 #        next if ($field->{'selected'} ne 'yes');          next if ($field->{'selected'} ne 'yes');
         $row .= '<td bgcolor="'.$field->{'color'}.'"';          $row .= '<td bgcolor="'.$field->{'color'}.'"';
         if (exists($field->{'align'})) {          if (exists($field->{'align'})) {
             $row .= ' align="'.$field->{'align'}.'"';              $row .= ' align="'.$field->{'align'}.'"';
Line 1184  sub Excel_output { Line 1183  sub Excel_output {
     }      }
     my $excel_sheet = $excel_workbook->addworksheet(      my $excel_sheet = $excel_workbook->addworksheet(
         &Apache::loncommon::clean_excel_name($sheetname));          &Apache::loncommon::clean_excel_name($sheetname));
       #
       my $format = &Apache::loncommon::define_excel_formats($excel_workbook);
     ##      ##
     ## Begin creating excel sheet      ## Begin creating excel sheet
     ##      ##
Line 1191  sub Excel_output { Line 1192  sub Excel_output {
     #      #
     # Put the course description in the header      # Put the course description in the header
     $excel_sheet->write($rows_output,$cols_output++,      $excel_sheet->write($rows_output,$cols_output++,
                    $ENV{'course.'.$ENV{'request.course.id'}.'.description'});                     $ENV{'course.'.$ENV{'request.course.id'}.'.description'},
                           $format->{'h1'});
     $cols_output += 3;      $cols_output += 3;
     #      #
     # Put a description of the sections listed      # Put a description of the sections listed
     my $sectionstring = '';      my $sectionstring = '';
     my @Sections = @Apache::lonstatistics::SelectedSections;      $excel_sheet->write($rows_output,$cols_output++,
     if (scalar(@Sections) > 1) {                          &Apache::lonstathelpers::sections_description
         if (scalar(@Sections) > 2) {                              (@Apache::lonstatistics::SelectedSections),
             my $last = pop(@Sections);                          $format->{'h3'});
             $sectionstring = "Sections ".join(', ',@Sections).', and '.$last;      $cols_output += scalar(@Apache::lonstatistics::SelectedSections);
         } else {  
             $sectionstring = "Sections ".join(' and ',@Sections);  
         }  
     } else {  
         if ($Sections[0] eq 'all') {  
             $sectionstring = "All sections";  
         } else {  
             $sectionstring = "Section ".$Sections[0];  
         }  
     }  
     $excel_sheet->write($rows_output,$cols_output++,$sectionstring);  
     $cols_output += scalar(@Sections);  
     #      #
     # Time restrictions      # Time restrictions
     my $time_string;      my $time_string;
Line 1228  sub Excel_output { Line 1218  sub Excel_output {
         # See note above about lonlocal:locallocaltime          # See note above about lonlocal:locallocaltime
         $time_string .= 'Data collected before '.localtime($endtime).'.';          $time_string .= 'Data collected before '.localtime($endtime).'.';
     }      }
       if (defined($time_string)) {
           $excel_sheet->write($rows_output,$cols_output++,$time_string);
           $cols_output+= 5;
       }
     #      #
     # Put the date in there too      # Put the date in there too
     $excel_sheet->write($rows_output,$cols_output++,      $excel_sheet->write($rows_output,$cols_output++,
Line 1235  sub Excel_output { Line 1229  sub Excel_output {
     #      #
     $rows_output++;       $rows_output++; 
     $cols_output=0;      $cols_output=0;
     #      ##
     # Long Headers      ## Sequence Statistics
     foreach my $field (@Fields) {      ## 
         next if ($field->{'name'} eq 'problem_num');      &write_headers($excel_sheet,$format,\$rows_output,\$cols_output,
         next if ($field->{'selected'} ne 'yes');                     \@SeqFields);
         if (exists($field->{'long_title'})) {      foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {
           next if ($seq->{'num_assess'} < 1);
           my $data = $SeqStat{$seq->{'symb'}};
           $cols_output=0;
           foreach my $field (@SeqFields) {
               next if ($field->{'selected'} ne 'yes');
             $excel_sheet->write($rows_output,$cols_output++,              $excel_sheet->write($rows_output,$cols_output++,
                                 $field->{'long_title'});                                  $data->{$field->{'name'}});
         } else {  
             $excel_sheet->write($rows_output,$cols_output++,'');  
         }          }
           $rows_output++;
           $cols_output=0;
     }      }
       ##
       ## Resource Statistics
       ##
     $rows_output++;      $rows_output++;
     $cols_output=0;      $cols_output=0;
     # Brief headers      &write_headers($excel_sheet,$format,\$rows_output,\$cols_output,
     foreach my $field (@Fields) {                     \@Fields);
         next if ($field->{'selected'} ne 'yes');      #
         next if ($field->{'name'} eq 'problem_num');  
         # Use english for excel as I am not sure how well excel handles   
         # other character sets....  
         $excel_sheet->write($rows_output,$cols_output++,$field->{'title'});  
     }  
     $rows_output++;  
     foreach my $data (@StatsArray) {      foreach my $data (@StatsArray) {
         $cols_output=0;          $cols_output=0;
         foreach my $field (@Fields) {          foreach my $field (@Fields) {
Line 1267  sub Excel_output { Line 1263  sub Excel_output {
                                 $data->{$field->{'name'}});                                  $data->{$field->{'name'}});
         }          }
         $rows_output++;          $rows_output++;
           $cols_output=0;
     }      }
     #      #
     $excel_workbook->close();      $excel_workbook->close();
Line 1279  sub Excel_output { Line 1276  sub Excel_output {
     return;      return;
 }  }
   
   ##
   ## &write_headers
   ##
   sub write_headers {
       my ($excel_sheet,$format,$rows_output,$cols_output,$Fields) = @_;
       ##
       ## First the long titles
       foreach my $field (@{$Fields}) {
           next if ($field->{'name'} eq 'problem_num');
           next if ($field->{'selected'} ne 'yes');
           if (exists($field->{'long_title'})) {
               $excel_sheet->write($$rows_output,${$cols_output},
                                   $field->{'long_title'},
                                   $format->{'bold'});
           } else {
               $excel_sheet->write($$rows_output,${$cols_output},'');
           }
           ${$cols_output}+= 1;
       }
       ${$cols_output} =0;
       ${$rows_output}+=1;
       ##
       ## Then the short titles
       foreach my $field (@{$Fields}) {
           next if ($field->{'selected'} ne 'yes');
           next if ($field->{'name'} eq 'problem_num');
           # Use english for excel as I am not sure how well excel handles 
           # other character sets....
           $excel_sheet->write($$rows_output,$$cols_output,
                               $field->{'title'},
                               $format->{'bold'});
           $$cols_output+=1;
       }
       ${$cols_output} =0;
       ${$rows_output}+=1;
       return;
   }
   
 ##################################################  ##################################################
 ##################################################  ##################################################
 ##  ##
Line 1312  sub compute_all_statistics { Line 1347  sub compute_all_statistics {
     foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {      foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {
         last if ($c->aborted);          last if ($c->aborted);
         next if ($seq->{'num_assess'} < 1);          next if ($seq->{'num_assess'} < 1);
           &compute_sequence_statistics($seq);
         &compute_statistics_on_sequence($seq);          &compute_statistics_on_sequence($seq);
     }      }
 }  }
Line 1415  sub get_statistics { Line 1451  sub get_statistics {
         $data->{'deg_of_disc'} =           $data->{'deg_of_disc'} = 
             &compute_discrimination_factor($resource,$part,$sequence);              &compute_discrimination_factor($resource,$part,$sequence);
     }      }
       #
       # Store in metadata if computations were done for all students
       if ($Apache::lonstatistics::SelectedSections[0] eq 'all' &&
           $data->{'num_students'} > 1) {
           my %storestats;
           #
           my $urlres=(&Apache::lonnet::decode_symb($resource->{'symb'}))[2];
           my ($dom,$user) = $urlres=~/^(\w+)\/(\w+)/; 
           my $preamble = $courseid.'___'.$urlres.'___';
           #
           $storestats{$preamble.'timestamp'}  = time;
           $storestats{$preamble.'stdno'}      = $data->{'num_students'};
           $storestats{$preamble.'avetries'}   = $data->{'mean_tries'};
           $storestats{$preamble.'difficulty'} = $data->{'deg_of_diff'};
           if ($SelectedFields{'deg_of_disc'}) {
               $storestats{$preamble.'discrimination'} = $data->{'deg_of_disc'};
           }
           #
           &Apache::lonnet::put('nohist_resevaldata',\%storestats,$dom,$user);
       }
     return $data;      return $data;
 }  }
   
Line 1442  sub compute_discrimination_factor { Line 1498  sub compute_discrimination_factor {
     }      }
     #      #
     # rank      # rank
       my ($starttime,$endtime) = &Apache::lonstathelpers::get_time_limits();
     my $ranking =       my $ranking = 
         &Apache::loncoursedata::rank_students_by_scores_on_resources          &Apache::loncoursedata::rank_students_by_scores_on_resources
         (\@Resources,          (\@Resources,
          \@Apache::lonstatistics::SelectedSections,           \@Apache::lonstatistics::SelectedSections,
          $Apache::lonstatistics::enrollment_status,undef);           $Apache::lonstatistics::enrollment_status,undef,
            $starttime,$endtime);
     #      #
     # compute their percent scores on the problems in the sequence,      # compute their percent scores on the problems in the sequence,
     my $number_to_grab = int(scalar(@{$ranking})/4);      my $number_to_grab = int(scalar(@{$ranking})/4);
Line 1458  sub compute_discrimination_factor { Line 1516  sub compute_discrimination_factor {
             $_->[&Apache::loncoursedata::RNK_student()];               $_->[&Apache::loncoursedata::RNK_student()]; 
           } @{$ranking}[($num_students-$number_to_grab)..($num_students-1)];            } @{$ranking}[($num_students-$number_to_grab)..($num_students-1)];
     my ($bottom_sum,$bottom_max) =       my ($bottom_sum,$bottom_max) = 
         &Apache::loncoursedata::get_sum_of_scores($resource,$part,\@BottomSet);          &Apache::loncoursedata::get_sum_of_scores($resource,$part,\@BottomSet,
                                                     undef,$starttime,$endtime);
     my ($top_sum,$top_max) =       my ($top_sum,$top_max) = 
         &Apache::loncoursedata::get_sum_of_scores($resource,$part,\@TopSet);          &Apache::loncoursedata::get_sum_of_scores($resource,$part,\@TopSet,
                                                     undef,$starttime,$endtime);
     my $deg_of_disc;      my $deg_of_disc;
     if ($top_max == 0 || $bottom_max==0) {      if ($top_max == 0 || $bottom_max==0) {
         $deg_of_disc = 'nan';          $deg_of_disc = 'nan';
Line 1530  sub compute_sequence_statistics { Line 1590  sub compute_sequence_statistics {
     $SeqStat{$symb}->{'countmax'} = $cmax;      $SeqStat{$symb}->{'countmax'} = $cmax;
     $SeqStat{$symb}->{'countmin'} = $cmin;      $SeqStat{$symb}->{'countmin'} = $cmin;
     $SeqStat{$symb}->{'countstd'} = $cSTD;      $SeqStat{$symb}->{'countstd'} = $cSTD;
       $SeqStat{$symb}->{'countmean'} = $cMean;
     $SeqStat{$symb}->{'count'} = $ccount;      $SeqStat{$symb}->{'count'} = $ccount;
     $SeqStat{$symb}->{'items'} = $K;      $SeqStat{$symb}->{'items'} = $K;
     $SeqStat{$symb}->{'KR-21'}=$kr_21;      $SeqStat{$symb}->{'KR-21'}=$kr_21;
   
     return;      return;
 }  }
   
Removed from v.1.81  
changed lines
  Added in v.1.83

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