version 1.20, 2003/06/25 19:29:43
|
version 1.24, 2003/08/07 17:26:45
|
Line 63 sub real_handler {
|
Line 63 sub real_handler {
|
&Apache::loncommon::no_cache($r); |
&Apache::loncommon::no_cache($r); |
$r->send_http_header; |
$r->send_http_header; |
|
|
my $showPoints = $ENV{'course.'.$ENV{'request.course.id'}.'.grading'} eq 'standard'; |
my $showPoints = |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.grading'} eq 'standard'; |
|
|
# Create the nav map |
# Create the nav map |
my $navmap = Apache::lonnavmaps::navmap->new( |
my $navmap = Apache::lonnavmaps::navmap->new(); |
$ENV{"request.course.fn"}.".db", |
|
$ENV{"request.course.fn"}."_parms.db", 1, 0, 1); |
|
|
|
if (!defined($navmap)) { |
if (!defined($navmap)) { |
my $requrl = $r->uri; |
my $requrl = $r->uri; |
Line 96 HEADER
|
Line 95 HEADER
|
|
|
$r->rflush(); |
$r->rflush(); |
|
|
$navmap->init(); |
|
|
|
# End navmap using boilerplate |
# End navmap using boilerplate |
|
|
my $iterator = $navmap->getIterator(undef, undef, undef, 1); |
my $iterator = $navmap->getIterator(undef, undef, undef, 1); |
Line 135 HEADER
|
Line 132 HEADER
|
my $stack = $iterator->getStack(); |
my $stack = $iterator->getStack(); |
|
|
for my $part (@{$parts}) { |
for my $part (@{$parts}) { |
|
if ($curRes->getCompletionStatus($part) == $curRes->EXCUSED()) { |
|
next; |
|
} |
if ($showPoints) { |
if ($showPoints) { |
my $score = $curRes->weight($part) * $curRes->awarded($part); |
my $score = $curRes->weight($part) * $curRes->awarded($part); |
$partsRight += $score; |
$partsRight += $score; |
Line 151 HEADER
|
Line 151 HEADER
|
$partsCount++; |
$partsCount++; |
if ($status == $curRes->CORRECT || |
if ($status == $curRes->CORRECT || |
$status == $curRes->CORRECT_BY_OVERRIDE || |
$status == $curRes->CORRECT_BY_OVERRIDE || |
$status == $curRes->EXCUSED || |
|
$status == $curRes->ANSWER_SUBMITTED) { |
$status == $curRes->ANSWER_SUBMITTED) { |
$partsRight++; |
$partsRight++; |
$totalRight++; |
$totalRight++; |