loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.138, 2007/06/06 17:30:40	version 1.139, 2008/02/22 18:19:38
Line 707 sub selected_sequences_with_assessments	Line 707 sub selected_sequences_with_assessments
#	#
my @sequences = $navmap->retrieveResources(undef,	my @sequences = $navmap->retrieveResources(undef,
sub { shift->is_map(); },1,0,1);	sub { shift->is_map(); },1,0,1);
	my $toplevelseq = $navmap->getById('0.0');
	if (!grep(/^\Q$toplevelseq\E$/,@sequences)) {
	unshift(@sequences,$toplevelseq);
	}

my @sequences_with_assessments;	my @sequences_with_assessments;
for my $sequence ($navmap->getById('0.0'), @sequences) {	foreach my $sequence (@sequences) {
if ($navmap->hasResource($sequence,sub { shift->is_problem(); },0,1)){	if ($navmap->hasResource($sequence,sub { shift->is_problem(); },0,1)){
push(@sequences_with_assessments,$sequence);	push(@sequences_with_assessments,$sequence);
}	}