loncom/interface/spreadsheet/studentcalc.pm - diff

Return to studentcalc.pm CVS log

Up to [LON-CAPA] / loncom / interface / spreadsheet

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