[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.90

version 1.87, 2004/06/04 21:42:18 version 1.90, 2004/07/12 19:30:12
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 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);
Removed from v.1.87  
changed lines
  Added in v.1.90

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