version 1.119, 2005/03/14 20:28:21
|
version 1.120, 2005/03/15 21:22:38
|
Line 587 sub selected_sequences_with_assessments
|
Line 587 sub selected_sequences_with_assessments
|
sub { shift->is_map(); },1,0,1); |
sub { shift->is_map(); },1,0,1); |
my @sequences_with_assessments; |
my @sequences_with_assessments; |
for my $sequence ($navmap->getById('0.0'), @sequences) { |
for my $sequence ($navmap->getById('0.0'), @sequences) { |
if ($navmap->hasResource($sequence,sub { shift->is_problem(); }, 0)){ |
if ($navmap->hasResource($sequence,sub { shift->is_problem(); },0,1)){ |
push(@sequences_with_assessments,$sequence); |
push(@sequences_with_assessments,$sequence); |
} |
} |
} |
} |