version 1.45, 2010/06/14 01:30:54
|
version 1.47, 2017/12/31 15:27:03
|
Line 105 sub initialize_sequence_cache {
|
Line 105 sub initialize_sequence_cache {
|
unshift(@all_sequences,$toplevelseq); |
unshift(@all_sequences,$toplevelseq); |
} |
} |
foreach my $sequence (@all_sequences) { |
foreach my $sequence (@all_sequences) { |
if ($navmap->hasResource($sequence,sub { shift->is_problem(); }, 0,1)){ |
if ($navmap->hasResource($sequence,sub { shift->is_gradable(); }, 0,1)){ |
push(@Sequences,$sequence); |
push(@Sequences,$sequence); |
&get_resources($sequence); |
&get_resources($sequence); |
} |
} |
Line 120 sub get_resources {
|
Line 120 sub get_resources {
|
} |
} |
return () if (! defined($navmap) || ! ref($navmap)); |
return () if (! defined($navmap) || ! ref($navmap)); |
my @resources = $navmap->retrieveResources($seq, |
my @resources = $navmap->retrieveResources($seq, |
sub { shift->is_problem(); }, |
sub { shift->is_gradable(); }, |
0,0,1); |
0,0,1); |
$res_memoize{$seq->symb()}=\@resources; |
$res_memoize{$seq->symb()}=\@resources; |
return @resources; |
return @resources; |
Line 307 END
|
Line 307 END
|
} else { |
} else { |
$row_output .= '<td><a href="'.$resource->src.'?symb='. |
$row_output .= '<td><a href="'.$resource->src.'?symb='. |
&escape($resource->symb). |
&escape($resource->symb). |
'">Go To</a>'; |
'"><span class="LC_nobreak">'.&mt('Go To').'</span></a>'; |
$row_output .= '</td><td>'.$resource->compTitle.'</td>'; |
$row_output .= '</td><td>'.$resource->compTitle.'</td>'; |
} |
} |
if ($self->blackout() && $self->{'blackout_rows'}->{$rownum}>0) { |
if ($self->blackout() && $self->{'blackout_rows'}->{$rownum}>0) { |