version 1.36, 2006/03/26 22:48:34
|
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 LONCAPA; |
|
|
|
|
@Apache::studentcalc::ISA = ('Apache::Spreadsheet'); |
@Apache::studentcalc::ISA = ('Apache::Spreadsheet'); |
|
|
Line 99 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 115 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; |
} |
} |
Line 292 END
|
Line 294 END
|
'<a href="/adm/assesscalc?sname='.$self->{'name'}. |
'<a href="/adm/assesscalc?sname='.$self->{'name'}. |
'&sdomain='.$self->{'domain'}. |
'&sdomain='.$self->{'domain'}. |
'&filename='.$assess_filename. |
'&filename='.$assess_filename. |
'&usymb='.&Apache::lonnet::escape($resource->symb). |
'&usymb='.&escape($resource->symb). |
'">'.$resource->compTitle.'</a><br />'; |
'">'.$resource->compTitle.'</a><br />'; |
$row_output .= &assess_file_selector($rownum, |
$row_output .= &assess_file_selector($rownum, |
$assess_filename, |
$assess_filename, |
Line 300 END
|
Line 302 END
|
'</td>'; |
'</td>'; |
} else { |
} else { |
$row_output .= '<td><a href="'.$resource->src.'?symb='. |
$row_output .= '<td><a href="'.$resource->src.'?symb='. |
&Apache::lonnet::escape($resource->symb). |
&escape($resource->symb). |
'">Go To</a>'; |
'">Go To</a>'; |
$row_output .= '</td><td>'.$resource->compTitle.'</td>'; |
$row_output .= '</td><td>'.$resource->compTitle.'</td>'; |
} |
} |
Line 397 sub modify_cell {
|
Line 399 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 549 sub compute {
|
Line 553 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 - |
Line 570 sub compute {
|
Line 574 sub compute {
|
$assessSheet = Apache::assesscalc->new($self->{'name'}, |
$assessSheet = Apache::assesscalc->new($self->{'name'}, |
$self->{'domain'}, |
$self->{'domain'}, |
$assess_filename, |
$assess_filename, |
$resource->symb); |
$resource->symb, |
|
$self->{'section'}, |
|
$self->{'groups'}); |
my @exportdata = $assessSheet->export_data($r); |
my @exportdata = $assessSheet->export_data($r); |
# |
# |
if ($assessSheet->badcalc()) { |
if ($assessSheet->badcalc()) { |