[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.54 and 1.55.2.1

version 1.54, 2003/06/16 15:54:58 version 1.55.2.1, 2003/10/28 20:08:23
Line 75  my @Fields = ( Line 75  my @Fields = (
            { name   => 'part',              { name   => 'part', 
              title  => 'Part',               title  => 'Part',
              align  => 'left',               align  => 'left',
              color  => '#FFFFE6' },               color  => '#FFFFE6',
                },
            { name   => 'num_students',             { name   => 'num_students',
              title  => '#Stdnts',               title  => '#Stdnts',
              align  => 'right',               align  => 'right',
Line 131  my @Fields = ( Line 132  my @Fields = (
              format => '%5.2f',               format => '%5.2f',
              sortable  => 'yes',               sortable  => 'yes',
              graphable => 'yes',               graphable => 'yes',
              long_title => 'Degree of Difficulty' },               long_title => 'Degree of Difficulty'.
                              '[ 1 - ((#YES+#yes) / Tries) ]'},
            { name   => 'num_solved',             { name   => 'num_solved',
              title  => '#YES',               title  => '#YES',
              align  => 'right',               align  => 'right',
Line 155  my @Fields = ( Line 157  my @Fields = (
              format => '%4.1f',               format => '%4.1f',
              sortable  => 'yes',               sortable  => 'yes',
              graphable => 'yes',               graphable => 'yes',
              long_title => 'Percent Wrong' },               long_title => 'Percent of students whose final answer is wrong' },
 );  );
   
 ###############################################  ###############################################
Line 645  sub output_excel { Line 647  sub output_excel {
     $rows_output++;       $rows_output++; 
     $cols_output=0;      $cols_output=0;
     #      #
     # Add the headers      # Long Headersheaders
       foreach my $field (@Fields) {
           next if ($field->{'name'} eq 'problem_num');
           if (exists($field->{'long_title'})) {
               $excel_sheet->write($rows_output,$cols_output++,
                                   $field->{'long_title'});
           } else {
               $excel_sheet->write($rows_output,$cols_output++,'');
           }
       }
       $rows_output++;
       $cols_output=0;
       # Brief headers
     foreach my $field (@Fields) {      foreach my $field (@Fields) {
         next if ($field->{'name'} eq 'problem_num');          next if ($field->{'name'} eq 'problem_num');
         $excel_sheet->write($rows_output,$cols_output++,$field->{'title'});          $excel_sheet->write($rows_output,$cols_output++,$field->{'title'});
Line 855  sub DrawGraph { Line 869  sub DrawGraph {
     $title = '' if (! defined($title));      $title = '' if (! defined($title));
     $xaxis = '' if (! defined($xaxis));      $xaxis = '' if (! defined($xaxis));
     $yaxis = '' if (! defined($yaxis));      $yaxis = '' if (! defined($yaxis));
       $title = &Apache::lonnet::escape($title);
       $xaxis = &Apache::lonnet::escape($xaxis);
       $yaxis = &Apache::lonnet::escape($yaxis);
     #      #
     my $sendValues = join(',', @$values);      my $sendValues = join(',', @$values);
     my $sendCount = scalar(@$values);      my $sendCount = scalar(@$values);
Removed from v.1.54  
changed lines
  Added in v.1.55.2.1

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