[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.60 and 1.65

version 1.60, 2003/10/24 13:36:16 version 1.65, 2004/02/02 19:32:11
Line 51  package Apache::lonproblemstatistics; Line 51  package Apache::lonproblemstatistics;
   
 use strict;  use strict;
 use Apache::lonnet();  use Apache::lonnet();
   use Apache::loncommon();
 use Apache::lonhtmlcommon;  use Apache::lonhtmlcommon;
 use Apache::loncoursedata;  use Apache::loncoursedata;
 use Apache::lonstatistics;  use Apache::lonstatistics;
Line 146  my @Fields = ( Line 147  my @Fields = (
              title  => '#YES',               title  => '#YES',
              align  => 'right',               align  => 'right',
              color  => '#FFDDDD',               color  => '#FFDDDD',
              format => '%d',               format => '%4.1f',#             format => '%d',
              sortable  => 'yes',               sortable  => 'yes',
              graphable => 'yes',               graphable => 'yes',
              long_title => 'Number of Students able to Solve' },               long_title => 'Number of Students able to Solve' },
Line 154  my @Fields = ( Line 155  my @Fields = (
              title  => '#yes',               title  => '#yes',
              align  => 'right',               align  => 'right',
              color  => '#FFDDDD',               color  => '#FFDDDD',
              format => '%d',               format => '%4.1f',#             format => '%d',
              sortable  => 'yes',               sortable  => 'yes',
              graphable => 'yes',               graphable => 'yes',
              long_title => 'Number of Students given Override' },               long_title => 'Number of Students given Override' },
Line 207  my @OutputOptions = Line 208  my @OutputOptions =
   
 sub CreateInterface {  sub CreateInterface {
     my $Str = '';      my $Str = '';
       $Str .= '<h2>Overall Problem Statistics'.
           &Apache::loncommon::help_open_topic('Statistics_Overall_Key').
           '</h2>'."\n";
     $Str .= '<table cellspacing="5">'."\n";      $Str .= '<table cellspacing="5">'."\n";
     $Str .= '<tr>';      $Str .= '<tr>';
     $Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>';      $Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>';
Line 265  Main interface to problem statistics. Line 269  Main interface to problem statistics.
 sub BuildProblemStatisticsPage {  sub BuildProblemStatisticsPage {
     my ($r,$c)=@_;      my ($r,$c)=@_;
     #      #
       my %Saveable_Parameters = ('Status' => 'scalar',
                                  'statsoutputmode' => 'scalar',
                                  'Section' => 'array',
                                  'StudentData' => 'array',
                                  'Maps' => 'array');
       &Apache::loncommon::store_course_settings('statistics',
                                                 \%Saveable_Parameters);
       &Apache::loncommon::restore_course_settings('statistics',
                                                   \%Saveable_Parameters);
       #
       &Apache::lonstatistics::PrepareClasslist();
       #
     my ($interface,$output_mode,$show) = &CreateInterface();      my ($interface,$output_mode,$show) = &CreateInterface();
     $r->print($interface);      $r->print($interface);
     $r->print('<input type="hidden" name="statsfirstcall" value="no" />');      $r->print('<input type="hidden" name="statsfirstcall" value="no" />');
Line 517  sub output_excel { Line 533  sub output_excel {
     if (length($sheetname) > 31) {      if (length($sheetname) > 31) {
         $sheetname = substr($sheetname,0,31);          $sheetname = substr($sheetname,0,31);
     }      }
     $excel_sheet = $excel_workbook->addworksheet($sheetname);      $excel_sheet = $excel_workbook->addworksheet(
                          &Apache::loncommon::clean_excel_name($sheetname)
                                                    );
     #      #
     # 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++,
Line 755  sub plot_statistics { Line 773  sub plot_statistics {
                                                      'Problem Number',                                                       'Problem Number',
                                                      $yaxis,                                                       $yaxis,
                                                      $Max,                                                       $Max,
                                                      undef,                                                       undef, # colors
                                                        undef, # labels
                                                      \@Data)."</p>\n");                                                       \@Data)."</p>\n");
     #      #
     # Print out the data      # Print out the data
Removed from v.1.60  
changed lines
  Added in v.1.65

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