--- loncom/interface/loncoursedata.pm	2003/06/25 19:25:54	1.80
+++ loncom/interface/loncoursedata.pm	2003/07/14 13:10:39	1.81
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursedata.pm,v 1.80 2003/06/25 19:25:54 www Exp $
+# $Id: loncoursedata.pm,v 1.81 2003/07/14 13:10:39 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -161,6 +161,10 @@ sub get_sequence_assessment_data {
             $title = $previous->title();
             $symb  = $previous->symb();
             $src   = $previous->src();
+            # pick up the filename if there is no title available
+            if (! defined($title) || $title eq '') {
+                ($title) = ($src=~/\/([^\/]*)$/);
+            }
             $randompick = $previous->randompick();
             my $newmap = { title    => $title,
                            src      => $src,
@@ -1371,9 +1375,9 @@ sub get_problem_statistics {
     }
     #
     $dbh->do('DROP TABLE '.$stats_table);  # May return an error
-#
-# Store in metadata
-#
+    #
+    # Store in metadata
+    #
     if ($num) {
 	my %storestats=();
 
@@ -1387,9 +1391,9 @@ sub get_problem_statistics {
 	$urlres=~/^(\w+)\/(\w+)/; 
 	&Apache::lonnet::put('nohist_resevaldata',\%storestats,$1,$2); 
     }
-#
-# Return result
-#
+    #
+    # Return result
+    #
     return { num_students => $num,
              tries        => $tries,
              max_tries    => $mod,
@@ -1399,7 +1403,7 @@ sub get_problem_statistics {
              num_solved   => $Solved,
              num_override => $solved,
              per_wrong    => $wrongpercent,
-             deg_of_diff  => $DegOfDiff }
+             deg_of_diff  => $DegOfDiff };
 }
 
 sub execute_SQL_request {