version 1.40, 2006/05/30 12:46:26
|
version 1.45, 2010/06/14 01:30:54
|
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 101 sub initialize_sequence_cache {
|
Line 100 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) { |
my $toplevelseq = $navmap->getById('0.0'); |
if ($navmap->hasResource($sequence,sub { shift->is_problem(); }, 0)){ |
if (!grep(/^\Q$toplevelseq\E$/,@all_sequences)) { |
push(@Sequences,$sequence); |
unshift(@all_sequences,$toplevelseq); |
&get_resources($sequence); |
} |
} |
foreach my $sequence (@all_sequences) { |
|
if ($navmap->hasResource($sequence,sub { shift->is_problem(); }, 0,1)){ |
|
push(@Sequences,$sequence); |
|
&get_resources($sequence); |
|
} |
} |
} |
} |
} |
|
|
Line 118 sub get_resources {
|
Line 121 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; |
} |
} |
Line 224 END
|
Line 227 END
|
} |
} |
$tableheader .="</tr>\n"; |
$tableheader .="</tr>\n"; |
if ($self->blackout()) { |
if ($self->blackout()) { |
$r->print('<font color="red" size="+2"><p>'. |
$r->print('<p class="LC_warning">'. |
&mt('Some computations are not available at this time.').'<br />'. |
&mt('Some computations are not available at this time.').'<br />'. |
&mt('There are problems whose status you are not allowed to view.'). |
&mt('There are problems whose status you are not allowed to view.'). |
'</font></p>'."\n"); |
'</p>'."\n"); |
} else { |
} else { |
$r->print($tableheader); |
$r->print($tableheader); |
# |
# |
# Print out template row |
# Print out template row |
if (exists($env{'request.role.adv'}) && $env{'request.role.adv'}) { |
if (exists($env{'request.role.adv'}) && $env{'request.role.adv'}) { |
$r->print('<tr><td>Template</td><td> </td>'. |
$r->print('<tr><td>'.&mt('Template').'</td><td> </td>'. |
$self->html_template_row($num_uneditable, |
$self->html_template_row($num_uneditable, |
$importcolor)."</tr>\n"); |
$importcolor)."</tr>\n"); |
} |
} |
Line 400 sub modify_cell {
|
Line 403 sub modify_cell {
|
$self->set_formula($cell,$formula); |
$self->set_formula($cell,$formula); |
} elsif ($cell !~ /^([A-z](\d+)|template_[A-z])$/) { |
} elsif ($cell !~ /^([A-z](\d+)|template_[A-z])$/) { |
return; |
return; |
|
} else { |
|
$self->set_formula($cell,$formula); |
} |
} |
$self->rebuild_stats(); |
$self->rebuild_stats(); |
return; |
return; |
Line 552 sub compute {
|
Line 557 sub compute {
|
} |
} |
$self->initialize_safe_space(); |
$self->initialize_safe_space(); |
&Apache::assesscalc::initialize_package($self->{'name'},$self->{'domain'}, |
&Apache::assesscalc::initialize_package($self->{'name'},$self->{'domain'}, |
$navmap); |
$navmap,$self); |
my %f = $self->formulas(); |
my %f = $self->formulas(); |
# |
# |
# Process the formulas list - |
# Process the formulas list - |