--- loncom/interface/lonstatistics.pm 2004/03/01 16:39:19 1.100
+++ loncom/interface/lonstatistics.pm 2004/06/04 17:41:35 1.102
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonstatistics.pm,v 1.100 2004/03/01 16:39:19 matthew Exp $
+# $Id: lonstatistics.pm,v 1.102 2004/06/04 17:41:35 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -471,13 +471,22 @@ assessments.
#######################################################
#######################################################
sub Sequences_with_Assess {
+ my ($mode) = @_;
+ $mode = 'selected' if (! defined($mode));
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);
+ foreach my $sequence (@Sequences) {
+ next if ($sequence->{'num_assess'} < 1);
+ if ($mode eq 'all') {
push (@Sequences_to_Show,$sequence);
+ } elsif ($mode eq 'selected') {
+ foreach my $map_symb (@SelectedMaps) {
+ if ($sequence->{'symb'} eq $map_symb || $map_symb eq 'all'){
+ push (@Sequences_to_Show,$sequence);
+ last; # Only put it in once
+ }
+ }
}
+
}
return @Sequences_to_Show;
}
@@ -971,7 +980,10 @@ sub DisplayClasslist {
$Str .= '