[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.87 and 1.92

version 1.87, 2004/06/04 21:42:18 version 1.92, 2004/07/22 17:33:29
Line 263  my @Fields = ( Line 263  my @Fields = (
              graphable => 'yes',               graphable => 'yes',
              long_title => 'Degree of Discrimination',               long_title => 'Degree of Discrimination',
              selectable => 'yes',               selectable => 'yes',
              defaultselected => 'no',               defaultselected => 'yes',
            },             },
 ##   duedate included for research purposes.  Commented out most of the time.  ##   duedate included for research purposes.  Commented out most of the time.
 #           { name => 'duedate',  #           { name => 'duedate',
Line 704  sub BuildProblemStatisticsPage { Line 704  sub BuildProblemStatisticsPage {
 sub output_sequence_statistics {  sub output_sequence_statistics {
     my ($r) = @_;      my ($r) = @_;
     my $c=$r->connection();      my $c=$r->connection();
     $r->print('<h2>'.&mt('Sequence Statistics').'</h2>');      $r->print('<h2>'.&mt('Sequence Statistics').
         &Apache::loncommon::help_open_topic('Statistics_Sequence').
         '</h2>');
     $r->print('<table border="0"><tr><td bgcolor="#777777">'."\n".      $r->print('<table border="0"><tr><td bgcolor="#777777">'."\n".
               '<table border="0" cellpadding="3">'."\n".                '<table border="0" cellpadding="3">'."\n".
               '<tr bgcolor="#FFFFE6">');                '<tr bgcolor="#FFFFE6">');
Line 817  sub statistics_html_table_data { Line 819  sub statistics_html_table_data {
         if (exists($field->{'special'}) && $field->{'special'} eq 'link') {          if (exists($field->{'special'}) && $field->{'special'} eq 'link') {
             $row .= '<a href="'.$data->{$field->{'name'}.'.link'}.'">';              $row .= '<a href="'.$data->{$field->{'name'}.'.link'}.'">';
         }          }
         if (exists($field->{'format'})) {          if (exists($field->{'format'}) && $data->{$field->{'name'}} !~ /[A-Z]/i) {
             $row .= sprintf($field->{'format'},$data->{$field->{'name'}});              $row .= sprintf($field->{'format'},$data->{$field->{'name'}});
         } else {          } else {
             $row .= $data->{$field->{'name'}};              $row .= $data->{$field->{'name'}};
Line 1387  sub compute_statistics_on_sequence { Line 1389  sub compute_statistics_on_sequence {
     foreach my $res (@{$seq->{'contents'}}) {      foreach my $res (@{$seq->{'contents'}}) {
         next if ($res->{'type'} ne 'assessment');          next if ($res->{'type'} ne 'assessment');
         foreach my $part (@{$res->{'parts'}}) {          foreach my $part (@{$res->{'parts'}}) {
               next if ($res->{'partdata'}->{$part}->{'Survey'});
             #              #
             # This is where all the work happens              # This is where all the work happens
             my $data = &get_statistics($seq,$res,$part,scalar(@StatsArray)+1);              my $data = &get_statistics($seq,$res,$part,scalar(@StatsArray)+1);
Line 1578  sub compute_discrimination_factor { Line 1581  sub compute_discrimination_factor {
         map {           map { 
             $_->[&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)];
       if (! @BottomSet || (@BottomSet == 1 && $BottomSet[0] eq '') ||
           ! @TopSet    || (@TopSet    == 1 && $TopSet[0]    eq '')) {
           return 'nan';
       }
     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);                                                    undef,$starttime,$endtime);
Removed from v.1.87  
changed lines
  Added in v.1.92

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