version 1.28, 2003/09/25 19:22:14
|
version 1.30, 2003/11/21 18:21:02
|
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 |