--- loncom/interface/lonquickgrades.pm 2003/09/25 19:22:14 1.28 +++ loncom/interface/lonquickgrades.pm 2003/11/21 18:18:04 1.29 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Quick Student Grades Display # -# $Id: lonquickgrades.pm,v 1.28 2003/09/25 19:22:14 bowersj2 Exp $ +# $Id: lonquickgrades.pm,v 1.29 2003/11/21 18:18:04 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -67,6 +67,8 @@ sub real_handler { my $showPoints = $ENV{'course.'.$ENV{'request.course.id'}.'.grading'} eq 'standard'; + my $notshowSPRSlink = + $ENV{'course.'.$ENV{'request.course.id'}.'.grading'} eq 'external'; # Create the nav map my $navmap = Apache::lonnavmaps::navmap->new(); @@ -85,7 +87,7 @@ sub real_handler { my $title = $showPoints ? "Quick Points Display" : "Quick Completed Problems Display"; $r->print(&Apache::loncommon::bodytag($title, '', '')); - if (!$showPoints) { + if (!$showPoints && !$notshowSPRSlink ) { $r->print(<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 detailed