--- loncom/interface/lonstatistics.pm	2003/03/03 19:17:51	1.63
+++ loncom/interface/lonstatistics.pm	2003/03/07 18:46:38	1.64
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstatistics.pm,v 1.63 2003/03/03 19:17:51 matthew Exp $
+# $Id: lonstatistics.pm,v 1.64 2003/03/07 18:46:38 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -436,6 +436,33 @@ sub SetSelectedMaps {
     }
 }
 
+
+#######################################################
+#######################################################
+
+=pod
+
+=item &Sequences_with_Assess()
+
+Returns an array containing the subset of @Sequences which contain
+assessments.
+
+=cut
+
+#######################################################
+#######################################################
+sub Sequences_with_Assess {
+    my @Sequences_to_Show;
+    foreach my $map_symb (@SelectedMaps) {
+        foreach my $sequence (@Sequences) {
+            next if ($sequence->{'symb'} ne $map_symb && $map_symb ne 'all');
+            next if ($sequence->{'num_assess'} < 1);
+            push (@Sequences_to_Show,$sequence);
+        }
+    }
+    return @Sequences_to_Show;
+}
+
 #######################################################
 #######################################################