version 1.29, 2003/11/21 18:18:04
|
version 1.32, 2004/10/07 22:12:47
|
Line 84 sub real_handler {
|
Line 84 sub real_handler {
|
my $res = $navmap->firstResource(); # temp resource to access constants |
my $res = $navmap->firstResource(); # temp resource to access constants |
|
|
# Header |
# Header |
my $title = $showPoints ? "Quick Points Display" : "Quick Completed Problems Display"; |
my $title = $showPoints ? "Points Display" : "Completed Problems Display"; |
$r->print(&Apache::loncommon::bodytag($title, '', '')); |
$r->print(&Apache::loncommon::bodytag($title, '', '')); |
|
|
if (!$showPoints && !$notshowSPRSlink ) { |
if (!$showPoints && !$notshowSPRSlink ) { |
Line 150 HEADER
|
Line 150 HEADER
|
# it's an "attempted" point |
# it's an "attempted" point |
if ($curRes->problemstatus($part) eq 'no' && |
if ($curRes->problemstatus($part) eq 'no' && |
($dateStatus != $curRes->ANSWER_OPEN)) { |
($dateStatus != $curRes->ANSWER_OPEN)) { |
$partsAttempted += $curRes->weight($part); |
my $status = $curRes->simpleStatus($part); |
$totalAttempted += $partsAttempted; |
if ($status == $curRes->ATTEMPTED) { |
|
$partsAttempted += $curRes->weight($part); |
|
$totalAttempted += $partsAttempted; |
|
} |
} else { |
} else { |
$score = $curRes->weight($part) * $curRes->awarded($part); |
$score = $curRes->weight($part) * $curRes->awarded($part); |
} |
} |
Line 283 HEADER
|
Line 286 HEADER
|
|
|
$r->print("</table></body></html>"); |
$r->print("</table></body></html>"); |
|
|
$navmap->untieHashes(); |
|
|
|
return OK; |
return OK; |
} |
} |
|
|