--- loncom/interface/statistics/lonstudentsubmissions.pm	2011/11/22 01:34:39	1.63.2.3
+++ loncom/interface/statistics/lonstudentsubmissions.pm	2011/11/21 20:12:36	1.65
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstudentsubmissions.pm,v 1.63.2.3 2011/11/22 01:34:39 raeburn Exp $
+# $Id: lonstudentsubmissions.pm,v 1.65 2011/11/21 20:12:36 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -30,6 +30,7 @@ use strict;
 use Apache::lonnet;
 use Apache::loncommon();
 use Apache::lonhtmlcommon();
+use Apache::lonquickgrades();
 use Apache::loncoursedata();
 use Apache::lonstatistics;
 use Apache::lonlocal;
@@ -62,6 +63,8 @@ sub BuildStudentSubmissionsPage {
     #
     &Apache::lonstatistics::PrepareClasslist();
     #
+    $r->print( &Apache::lonhtmlcommon::breadcrumbs('Student Submission Reports'));
+    &Apache::lonquickgrades::startGradeScreen($r,'statistics');
     $r->print(&CreateInterface());
     #
     my @Students = @Apache::lonstatistics::Students;
@@ -1265,7 +1268,6 @@ sub CreateInterface {
     ##
     ## Environment variable initialization
     my $Str = '';
-    $Str .= &Apache::lonhtmlcommon::breadcrumbs('Student Submission Reports');
     $Str .= '<br />';
     $Str .= &Apache::loncommon::start_data_table();
     $Str .= &Apache::loncommon::start_data_table_header_row();
@@ -1355,7 +1357,7 @@ sub CreateInterface {
 }
 
 sub get_student_columns {
-    my ($show_named) = @_;
+    my ($show_named) = @_; 
     my @student_columns;
     if ($show_named) {
         @student_columns = @Apache::lonstatistics::SelectedStudentData;
@@ -1366,7 +1368,7 @@ sub get_student_columns {
         @student_columns = ('username');
     }
     return @student_columns;
-}
+} 
 
 1;