[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.125 and 1.127

version 1.125, 2014/02/03 18:52:30 version 1.127, 2017/12/18 23:51:19
Line 183  my @Fields = ( Line 183  my @Fields = (
              format => '%d',               format => '%d',
              sortable  => 'yes',               sortable  => 'yes',
              graphable => 'yes',               graphable => 'yes',
              long_title => 'Minumum Number of Tries',               long_title => 'Minimum Number of Tries',
              selectable => 'yes',               selectable => 'yes',
              defaultselected => 'yes',               defaultselected => 'yes',
            },             },
Line 439  my @SeqFields = ( Line 439  my @SeqFields = (
              format => '%4.2f',               format => '%4.2f',
              sortable  => 'no',               sortable  => 'no',
              graphable => 'no',               graphable => 'no',
              long_title => 'Minumum Sequence Score',               long_title => 'Minimum Sequence Score',
              selectable => 'yes',               selectable => 'yes',
              defaultselected => 'no',               defaultselected => 'no',
            },             },
Line 494  my @SeqFields = ( Line 494  my @SeqFields = (
              format => '%4.2f',               format => '%4.2f',
              sortable  => 'no',               sortable  => 'no',
              graphable => 'no',               graphable => 'no',
              long_title => 'Minumum Number of Correct Problems',               long_title => 'Minimum Number of Correct Problems',
              selectable => 'yes',               selectable => 'yes',
              defaultselected => 'no',               defaultselected => 'no',
            },             },
Line 759  sub BuildProblemStatisticsPage { Line 759  sub BuildProblemStatisticsPage {
                   &Apache::lonstatistics::section_and_enrollment_description().                    &Apache::lonstatistics::section_and_enrollment_description().
                   '</p>');                    '</p>');
         my $count = 0;          my $count = 0;
           my $include_tools = 1;
         foreach my $seq (@sequences) {          foreach my $seq (@sequences) {
             my @resources =              my @resources =
                 &Apache::lonstathelpers::get_resources($navmap,$seq);                  &Apache::lonstathelpers::get_resources($navmap,$seq,$include_tools);
             $count += scalar(@resources);              $count += scalar(@resources);
         }          }
         if ($count > 10) {          if ($count > 10) {
Line 1469  sub write_headers { Line 1470  sub write_headers {
 ##################################################  ##################################################
 sub compute_statistics_on_sequence {  sub compute_statistics_on_sequence {
     my ($seq) = @_;      my ($seq) = @_;
       my $include_tools = 1;
     my @Data;      my @Data;
     foreach my $res (&Apache::lonstathelpers::get_resources($navmap,$seq)) {      foreach my $res (&Apache::lonstathelpers::get_resources($navmap,$seq,$include_tools)) {
         foreach my $part (@{$res->parts}) {          foreach my $part (@{$res->parts}) {
             next if (($res->is_survey($part)) || ($res->is_anonsurvey($part))) ;              next if (($res->is_survey($part)) || ($res->is_anonsurvey($part))) ;
             #              #
Line 1648  Returns: integer between -1 and 1 Line 1650  Returns: integer between -1 and 1
 ###############################################  ###############################################
 sub compute_discrimination_factor {  sub compute_discrimination_factor {
     my ($resource,$part,$seq) = @_;      my ($resource,$part,$seq) = @_;
       my $include_tools = 1;
     my $symb = $resource->symb;      my $symb = $resource->symb;
     my @Resources;      my @Resources;
     foreach my $res (&Apache::lonstathelpers::get_resources($navmap,$seq)){      foreach my $res (&Apache::lonstathelpers::get_resources($navmap,$seq,$include_tools)){
         next if ($res->symb eq $symb);          next if ($res->symb eq $symb);
         push (@Resources,$res->symb);          push (@Resources,$res->symb);
     }      }
Line 1714  sub compute_discrimination_factor { Line 1717  sub compute_discrimination_factor {
 ###############################################  ###############################################
 sub compute_sequence_statistics {  sub compute_sequence_statistics {
     my ($seq) = @_;      my ($seq) = @_;
       my $include_tools = 1;
     my $symb = $seq->symb;      my $symb = $seq->symb;
     my @Resources;      my @Resources;
     my $part_count;      my $part_count;
     foreach my $res (&Apache::lonstathelpers::get_resources($navmap,$seq)) {      foreach my $res (&Apache::lonstathelpers::get_resources($navmap,$seq,$include_tools)) {
         push (@Resources,$res->symb);          push (@Resources,$res->symb);
         $part_count += scalar(@{$res->parts});          $part_count += scalar(@{$res->parts});
     }      }
Removed from v.1.125  
changed lines
  Added in v.1.127

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