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

version 1.63.2.3, 2011/11/22 01:34:39 version 1.65, 2011/11/21 20:12:36
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 62  sub BuildStudentSubmissionsPage { Line 63  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 1265  sub CreateInterface { Line 1268  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();
Line 1355  sub CreateInterface { Line 1357  sub CreateInterface {
 }  }
   
 sub get_student_columns {  sub get_student_columns {
     my ($show_named) = @_;      my ($show_named) = @_; 
     my @student_columns;      my @student_columns;
     if ($show_named) {      if ($show_named) {
         @student_columns = @Apache::lonstatistics::SelectedStudentData;          @student_columns = @Apache::lonstatistics::SelectedStudentData;
Line 1366  sub get_student_columns { Line 1368  sub get_student_columns {
         @student_columns = ('username');          @student_columns = ('username');
     }      }
     return @student_columns;      return @student_columns;
 }  } 
   
 1;  1;
   
Removed from v.1.63.2.3  
changed lines
  Added in v.1.65

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