version 1.163, 2016/08/14 16:13:22
|
version 1.164, 2017/12/18 23:51:14
|
Line 466 sub selected_sequences_with_assessments
|
Line 466 sub selected_sequences_with_assessments
|
|
|
my @sequences_with_assessments; |
my @sequences_with_assessments; |
foreach my $sequence (@sequences) { |
foreach my $sequence (@sequences) { |
if ($navmap->hasResource($sequence,sub { shift->is_problem(); },0,1)){ |
if ($navmap->hasResource($sequence,sub { shift->is_gradable(); },0,1)){ |
push(@sequences_with_assessments,$sequence); |
push(@sequences_with_assessments,$sequence); |
} |
} |
} |
} |