version 1.42, 2006/12/21 02:54:19
|
version 1.43, 2007/07/06 19:50:00
|
Line 59 use Apache::assesscalc();
|
Line 59 use Apache::assesscalc();
|
use HTML::Entities(); |
use HTML::Entities(); |
use Time::HiRes; |
use Time::HiRes; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA; |
use LONCAPA; |
|
|
|
|
Line 102 sub initialize_sequence_cache {
|
Line 101 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) { |
for my $sequence ($navmap->getById('0.0'), @all_sequences) { |
if ($navmap->hasResource($sequence,sub { shift->is_problem(); }, 0)){ |
if ($navmap->hasResource($sequence,sub { shift->is_problem(); }, 0,1)){ |
push(@Sequences,$sequence); |
push(@Sequences,$sequence); |
&get_resources($sequence); |
&get_resources($sequence); |
} |
} |
Line 118 sub get_resources {
|
Line 117 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_problem(); }, |
0,0,0); |
0,0,1); |
$res_memoize{$seq->symb()}=\@resources; |
$res_memoize{$seq->symb()}=\@resources; |
return @resources; |
return @resources; |
} |
} |