--- loncom/interface/statistics/lonsubmissiontimeanalysis.pm	2003/10/29 18:59:46	1.2
+++ loncom/interface/statistics/lonsubmissiontimeanalysis.pm	2003/11/11 22:14:28	1.4
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonsubmissiontimeanalysis.pm,v 1.2 2003/10/29 18:59:46 matthew Exp $
+# $Id: lonsubmissiontimeanalysis.pm,v 1.4 2003/11/11 22:14:28 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -69,6 +69,16 @@ sub render_resource {
 
 sub BuildSubmissionTimePage {
     my ($r,$c)=@_;
+    #
+    my %Saveable_Parameters = ('Status' => 'scalar',
+                               'Section' => 'array');
+    &Apache::loncommon::store_course_settings('submissiontime_analysis',
+                                              \%Saveable_Parameters);
+    &Apache::loncommon::restore_course_settings('submissiontime_analysis',
+                                                \%Saveable_Parameters);
+    #
+    &Apache::lonstatistics::PrepareClasslist();    
+    #
     $r->print('<h2>'.&mt('Submission Time Plots').'</h2>');
     $r->print(&CreateInterface());
     #
@@ -261,7 +271,7 @@ sub analyze_times {
 sub successful_submission {
     my ($row) = @_;
     if (ref($row) eq 'ARRAY') {
-        return $row->[1];
+        return $row->[&Apache::loncoursedata::RT_awarded()];
     }
     return undef;
     return 0;
@@ -270,7 +280,7 @@ sub successful_submission {
 sub get_time_from_row {
     my ($row) = @_;
     if (ref($row) eq 'ARRAY') {
-        return $row->[3];
+        return $row->[&Apache::loncoursedata::RT_timestamp()];
     } 
     return undef;
 }
@@ -278,7 +288,7 @@ sub get_time_from_row {
 sub get_tries_from_row {
     my ($row) = @_;
     if (ref($row) eq 'ARRAY') {
-        return $row->[2];
+        return $row->[&Apache::loncoursedata::RT_tries()];
     }
     return undef;
 }