loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.63, 2003/03/03 19:17:51
+version 1.64, 2003/03/07 18:46:38
  Line 436  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;
+ }
  #######################################################
  #######################################################