loncom/interface/spreadsheet/studentcalc.pm - diff

Return to studentcalc.pm CVS log

Up to [LON-CAPA] / loncom / interface / spreadsheet

version 1.44, 2009/06/09 14:15:42	version 1.45, 2010/06/14 01:30:54
Line 100 sub initialize_sequence_cache {	Line 100 sub initialize_sequence_cache {
}	}
my @all_sequences = $navmap->retrieveResources(undef,	my @all_sequences = $navmap->retrieveResources(undef,
sub { shift->is_map(); },1,0,1);	sub { shift->is_map(); },1,0,1);
for my $sequence ($navmap->getById('0.0'), @all_sequences) {	my $toplevelseq = $navmap->getById('0.0');
if ($navmap->hasResource($sequence,sub { shift->is_problem(); }, 0,1)){	if (!grep(/^\Q$toplevelseq\E$/,@all_sequences)) {
push(@Sequences,$sequence);	unshift(@all_sequences,$toplevelseq);
&get_resources($sequence);	}
}	foreach my $sequence (@all_sequences) {
	if ($navmap->hasResource($sequence,sub { shift->is_problem(); }, 0,1)){
	push(@Sequences,$sequence);
	&get_resources($sequence);
	}
}	}
}	}