version 1.28, 2003/09/25 19:22:14
|
version 1.33, 2004/12/11 23:33:05
|
Line 67 sub real_handler {
|
Line 67 sub real_handler {
|
|
|
my $showPoints = |
my $showPoints = |
$ENV{'course.'.$ENV{'request.course.id'}.'.grading'} eq 'standard'; |
$ENV{'course.'.$ENV{'request.course.id'}.'.grading'} eq 'standard'; |
|
my $notshowSPRSlink = |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.grading'} eq 'external'; |
|
|
# Create the nav map |
# Create the nav map |
my $navmap = Apache::lonnavmaps::navmap->new(); |
my $navmap = Apache::lonnavmaps::navmap->new(); |
Line 82 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) { |
if (!$showPoints && !$notshowSPRSlink ) { |
$r->print(<<HEADER); |
$r->print(<<HEADER); |
<p>This screen shows how many problems (or problem parts) you have completed, and |
<p>This screen shows how many problems (or problem parts) you have completed, and |
how many you have not yet done. You can also look at <a href="/adm/studentcalc">a detailed |
how many you have not yet done. You can also look at <a href="/adm/studentcalc">a detailed |
Line 148 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 165 HEADER
|
Line 170 HEADER
|
my $status = $curRes->simpleStatus($part); |
my $status = $curRes->simpleStatus($part); |
my $thisright = 0; |
my $thisright = 0; |
$partsCount++; |
$partsCount++; |
if ($status == $curRes->CORRECT || |
if ($status == $curRes->CORRECT ) { |
$status == $curRes->INCORRECT ) { |
|
$partsRight++; |
$partsRight++; |
$totalRight++; |
$totalRight++; |
$thisright = 1; |
$thisright = 1; |
Line 281 HEADER
|
Line 285 HEADER
|
|
|
$r->print("</table></body></html>"); |
$r->print("</table></body></html>"); |
|
|
$navmap->untieHashes(); |
|
|
|
return OK; |
return OK; |
} |
} |
|
|