[BACK]Return to lonstudentsubmissions.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface / statistics

Diff for /loncom/interface/statistics/lonstudentsubmissions.pm between versions 1.61 and 1.64

version 1.61, 2010/08/24 14:05:19 version 1.64, 2011/11/18 21:08:22
Line 30  use strict; Line 30  use strict;
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::loncommon();  use Apache::loncommon();
 use Apache::lonhtmlcommon();  use Apache::lonhtmlcommon();
   use Apache::lonquickgrades();
 use Apache::loncoursedata();  use Apache::loncoursedata();
 use Apache::lonstatistics;  use Apache::lonstatistics;
 use Apache::lonlocal;  use Apache::lonlocal;
Line 61  sub BuildStudentSubmissionsPage { Line 62  sub BuildStudentSubmissionsPage {
     #      #
     &Apache::lonstatistics::PrepareClasslist();      &Apache::lonstatistics::PrepareClasslist();
     #      #
       $r->print( &Apache::lonhtmlcommon::breadcrumbs('Student Submission Reports'));
       &Apache::lonquickgrades::startGradeScreen($r,'statistics');
     $r->print(&CreateInterface());      $r->print(&CreateInterface());
     #      #
     my @Students = @Apache::lonstatistics::Students;      my @Students = @Apache::lonstatistics::Students;
Line 894  sub prepare_excel_output { Line 897  sub prepare_excel_output {
         last if ($c->aborted());          last if ($c->aborted());
         $cols_output = 0;          $cols_output = 0;
         my $student_row = $max_row;          my $student_row = $max_row;
         foreach my $field (@StudentColumns) {  
             if ($show_named) {  
                 $worksheet->write($student_row,$cols_output++,  
                                   $student->{$field});  
             } else {  
                 $worksheet->write($student_row,$cols_output++,  
                                       &mt('Anonymized'));  
             }  
         }  
         my $last_student_col = $cols_output-1;  
         foreach my $prob (@$Problems) {          foreach my $prob (@$Problems) {
             my $symb = $prob->symb();              my $symb = $prob->symb();
             foreach my $partid (@{$prob->parts}) {              foreach my $partid (@{$prob->parts}) {
Line 958  sub prepare_excel_output { Line 951  sub prepare_excel_output {
                 }                  }
             }              }
         }          }
         # Fill in the remaining rows with the students data          # Prepend current student's user information to all rows  
         for (my $row = $student_row+1;$row<$max_row;$row++) {          for (my $row = $student_row;$row<$max_row;$row++) {
             my $cols = 0;              my $cols = 0;
             foreach my $field (@StudentColumns) {              foreach my $field (@StudentColumns) {
                 if ($show_named) {                  if ($show_named) {
Line 1283  sub CreateInterface { Line 1276  sub CreateInterface {
     ##      ##
     ## Environment variable initialization      ## Environment variable initialization
     my $Str = '';      my $Str = '';
     $Str .= &Apache::lonhtmlcommon::breadcrumbs('Student Submission Reports');  
     $Str .= '<br />';      $Str .= '<br />';
     $Str .= &Apache::loncommon::start_data_table();      $Str .= &Apache::loncommon::start_data_table();
     $Str .= &Apache::loncommon::start_data_table_header_row();      $Str .= &Apache::loncommon::start_data_table_header_row();
Removed from v.1.61  
changed lines
  Added in v.1.64

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