--- loncom/interface/lonstatistics.pm 2005/02/25 02:37:49 1.115 +++ loncom/interface/lonstatistics.pm 2005/02/25 19:48:00 1.116 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonstatistics.pm,v 1.115 2005/02/25 02:37:49 matthew Exp $ +# $Id: lonstatistics.pm,v 1.116 2005/02/25 19:48:00 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -509,7 +509,7 @@ sub get_selected_maps { =pod -=item &sequences_with_assessments +=item &selected_sequences_with_assessments Retrieve the sequences which were selected by the user to show. @@ -523,7 +523,7 @@ Returns: an array containing a navmap ob ####################################################### ####################################################### -sub sequences_with_assessments { +sub selected_sequences_with_assessments { my ($mode) = @_; $mode = 'selected' if (! defined($mode)); my $navmap = Apache::lonnavmaps::navmap->new(); @@ -545,7 +545,7 @@ sub sequences_with_assessments { if ($mode eq 'all') { push (@sequences_to_show,$sequence); } elsif ($mode eq 'selected') { - foreach my $map_symb (&get_selected_maps()) { + foreach my $map_symb (&get_selected_maps('Maps')) { if ($sequence->symb eq $map_symb || $map_symb eq 'all'){ push (@sequences_to_show,$sequence); last; # Only put it in once @@ -618,7 +618,7 @@ sub map_select { $form .= ">all\n"; # # Loop through the sequences - my @sequences = &sequences_with_assessments(); + my @sequences = &selected_sequences_with_assessments(); my $navmap; if (!ref($sequences[0])) { return $sequences[0];