--- loncom/interface/lonquickgrades.pm	2005/01/01 18:54:52	1.34
+++ loncom/interface/lonquickgrades.pm	2005/12/20 15:02:13	1.37
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Quick Student Grades Display
 #
-# $Id: lonquickgrades.pm,v 1.34 2005/01/01 18:54:52 www Exp $
+# $Id: lonquickgrades.pm,v 1.37 2005/12/20 15:02:13 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -34,6 +34,7 @@ use Apache::Constants qw(:common :http);
 use POSIX;
 use Apache::loncommon;
 use Apache::lonlocal;
+use Apache::lonnet;
 
 sub handler {
     my $r = shift;
@@ -47,7 +48,7 @@ sub real_handler {
 
     # Handle header-only request
     if ($r->header_only) {
-        if ($ENV{'browser.mathml'}) {
+        if ($env{'browser.mathml'}) {
             &Apache::loncommon::content_type($r,'text/xml');
         } else {
             &Apache::loncommon::content_type($r,'text/html');
@@ -57,7 +58,7 @@ sub real_handler {
     }
 
     # Send header, don't cache this page
-    if ($ENV{'browser.mathml'}) {
+    if ($env{'browser.mathml'}) {
         &Apache::loncommon::content_type($r, 'text/xml');
     } else {
         &Apache::loncommon::content_type($r, 'text/html');
@@ -66,16 +67,16 @@ sub real_handler {
     $r->send_http_header;
 
     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';
+        $env{'course.'.$env{'request.course.id'}.'.grading'} eq 'external';
 
     # Create the nav map
     my $navmap = Apache::lonnavmaps::navmap->new();
 
     if (!defined($navmap)) {
         my $requrl = $r->uri;
-        $ENV{'user.error.msg'} = "$requrl:bre:0:0:Navamp initialization failed.";
+        $env{'user.error.msg'} = "$requrl:bre:0:0:Navamp initialization failed.";
         return HTTP_NOT_ACCEPTABLE;
     }
 
@@ -170,7 +171,8 @@ HEADER
 		    my $status = $curRes->simpleStatus($part);
 		    my $thisright = 0;
 		    $partsCount++;
-		    if ($status == $curRes->CORRECT ) {
+		    if ($status == $curRes->CORRECT ||
+			$status == $curRes->PARTIALLY_CORRECT ) {
 			$partsRight++;
 			$totalRight++;
 			$thisright = 1;
@@ -273,7 +275,7 @@ HEADER
         $r->print("$topLevelRight / $topLevelParts</td></tr>");
     }
 
-    unless ($notshowSPRSlink) {
+    if ($showPoints) {
 	my $maxHelpLink = Apache::loncommon::help_open_topic("Quick_Grades_Possibly_Correct");
 
 	$title = $showPoints ? "Points" : "Parts Done";