--- loncom/interface/lonstatistics.pm	2003/10/21 20:24:52	1.87
+++ loncom/interface/lonstatistics.pm	2003/11/11 22:14:28	1.90
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstatistics.pm,v 1.87 2003/10/21 20:24:52 matthew Exp $
+# $Id: lonstatistics.pm,v 1.90 2003/11/11 22:14:28 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -48,6 +48,7 @@ Main handler for statistics and chart.
     use Apache::loncoursedata;
     use Apache::lonhtmlcommon;
     use Apache::lonproblemanalysis;
+    use Apache::lonsubmissiontimeanalysis;
     use Apache::lonproblemstatistics;
     use Apache::lonstudentassessment;
     use Apache::lonpercentage;
@@ -79,6 +80,7 @@ use Apache::loncommon;
 use Apache::loncoursedata;
 use Apache::lonhtmlcommon;
 use Apache::lonproblemanalysis();
+use Apache::lonsubmissiontimeanalysis();
 use Apache::lonproblemstatistics();
 use Apache::lonstudentassessment();
 use Apache::lonpercentage;
@@ -223,6 +225,7 @@ sub PrepareClasslist {
             @SelectedSections = ($ENV{'form.Section'});
         }
     }
+    &Apache::lonnet::logthis('@SelectedSections = '.join(',',@SelectedSections));
     @SelectedSections = ('all') if (! @SelectedSections);
     foreach (@SelectedSections) {
         if ($_ eq 'all') {
@@ -1048,11 +1051,16 @@ sub CreateMainMenu {
                      short_description => 
     &mt('Detailed statistics and graphs of student performance on problems.'),
                  },
-                   { internal_name => 'student_assessment',
-                     name => &mt('Problem Status Chart'),
+                   { internal_name => 'submissiontime_analysis',
+                     name => &mt('Submission Time Analysis'),
                      short_description => 
-    &mt('Brief view of each students performance in course.'),
+    &mt('Display and analysis of submission times on assessments.'),
                  },
+#                   { internal_name => 'student_assessment',
+#                     name => &mt('Problem Status Chart'),
+#                     short_description => 
+#    &mt('Brief view of each students performance in course.'),
+#                 },
                    # 'percentage'  => 'Correct-problems Plot',
                    # 'activitylog' => 'Activity Log',
                    );
@@ -1151,16 +1159,16 @@ sub handler {
             &Apache::loncoursedata::delete_caches($ENV{'requres.course.id'});
         }
         #
-        # Set up the statistics and chart environment
-        &PrepareClasslist();
-        &PrepareCourseData($r);
-        #
         # Begin form output
         $r->print('<form name="Statistics" ');
         $r->print('method="post" action="/adm/statistics">');
         $r->rflush();
         #
         my $GoToPage = $ENV{'form.reportSelected'};
+        #
+        # Set up the statistics and chart environment
+        &PrepareCourseData($r);
+        #
         $r->print('<input type="hidden" name="reportSelected" value="'.
                   $GoToPage.'">');
         if($GoToPage eq 'activitylog') {
@@ -1169,6 +1177,8 @@ sub handler {
             &Apache::lonproblemstatistics::BuildProblemStatisticsPage($r,$c);
         } elsif($GoToPage eq 'problem_analysis') {
             &Apache::lonproblemanalysis::BuildProblemAnalysisPage($r,$c);
+        } elsif($GoToPage eq 'submissiontime_analysis') {
+            &Apache::lonsubmissiontimeanalysis::BuildSubmissionTimePage($r,$c);
         } elsif($GoToPage eq 'student_assessment') {
             &Apache::lonstudentassessment::BuildStudentAssessmentPage($r,$c);
         } elsif($GoToPage eq 'DoDiffGraph' || $GoToPage eq 'PercentWrongGraph') {