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); |
|
} |
} |
} |
} |
} |
|
|