loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.101, 2004/04/01 18:49:39	version 1.102, 2004/06/04 17:41:35
Line 471 assessments.	Line 471 assessments.
#######################################################	#######################################################
#######################################################	#######################################################
sub Sequences_with_Assess {	sub Sequences_with_Assess {
	my ($mode) = @_;
	$mode = 'selected' if (! defined($mode));
my @Sequences_to_Show;	my @Sequences_to_Show;
foreach my $map_symb (@SelectedMaps) {	foreach my $sequence (@Sequences) {
foreach my $sequence (@Sequences) {	next if ($sequence->{'num_assess'} < 1);
next if ($sequence->{'symb'} ne $map_symb && $map_symb ne 'all');	if ($mode eq 'all') {
next if ($sequence->{'num_assess'} < 1);
push (@Sequences_to_Show,$sequence);	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;	return @Sequences_to_Show;
}	}