--- loncom/interface/statistics/lonsubmissiontimeanalysis.pm	2003/10/30 16:20:18	1.3
+++ loncom/interface/statistics/lonsubmissiontimeanalysis.pm	2003/12/10 23:06:57	1.5
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonsubmissiontimeanalysis.pm,v 1.3 2003/10/30 16:20:18 matthew Exp $
+# $Id: lonsubmissiontimeanalysis.pm,v 1.5 2003/12/10 23:06:57 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());
     #
@@ -354,14 +364,23 @@ sub ProblemSelector {
                 if ($ENV{'form.problemchoice'} eq $value) {
                     $checked = 'checked ';
                 }
+                my $title = $res->{'title'};
+                if (! defined($title) || $title eq '') {
+                    ($title) = ($res->{'src'} =~ m:/([^/]*)$:);
+                }
+#                &Apache::lonnet::logthis('title = :'.$title.':');
                 $seq_str .= '<tr><td>'.
   '<input type="radio" name="problemchoice" value="'.$value.'" '.$checked.'/>'.
   '</td><td>'.
-  '<a href="'.$res->{'src'}.'">'.$res->{'title'}.'</a> ';
+  '<a href="'.$res->{'src'}.'">'.$title.'</a> ';
             } else {
+                my $title = $res->{'title'};
+                if (! defined($title) || $title eq '') {
+                    ($title) = ($res->{'src'} =~ m:/([^/]*)$:);
+                }
                 $seq_str .= '<tr><td>'.
                     '&nbsp;'.'</td><td>'.
-                    '<a href="'.$res->{'src'}.'">'.$res->{'title'}.'</a>'.
+                    '<a href="'.$res->{'src'}.'">'.$title.'</a>'.
                     "</td></tr>\n";
                 foreach my $part (@{$res->{'parts'}}) {
                     my $value = &Apache::lonnet::escape