version 1.28, 2003/09/25 19:22:14
|
version 1.31, 2004/07/15 19:20:41
|
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); |
} |
} |