[LON-CAPA-cvs] cvs: loncom /interface lonquickgrades.pm

bowersj2 lon-capa-cvs@mail.lon-capa.org
Mon, 22 Sep 2003 21:05:15 -0000


bowersj2		Mon Sep 22 17:05:15 2003 EDT

  Modified files:              
    /loncom/interface	lonquickgrades.pm 
  Log:
  This should fix lonquickgrades.pm. (And it looks like I kept my spacing 
  on the $r when I merged the changes... *shrug*)
  
  
Index: loncom/interface/lonquickgrades.pm
diff -u loncom/interface/lonquickgrades.pm:1.26 loncom/interface/lonquickgrades.pm:1.27
--- loncom/interface/lonquickgrades.pm:1.26	Mon Sep 22 16:05:20 2003
+++ loncom/interface/lonquickgrades.pm	Mon Sep 22 17:05:15 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Quick Student Grades Display
 #
-# $Id: lonquickgrades.pm,v 1.26 2003/09/22 20:05:20 albertel Exp $
+# $Id: lonquickgrades.pm,v 1.27 2003/09/22 21:05:15 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -58,9 +58,9 @@
 
     # Send header, don't cache this page
     if ($ENV{'browser.mathml'}) {
-        &Apache::loncommon::content_type($r,'text/xml');
+        &Apache::loncommon::content_type($r, 'text/xml');
     } else {
-        &Apache::loncommon::content_type($r,'text/html');
+        &Apache::loncommon::content_type($r, 'text/html');
     }
     &Apache::loncommon::no_cache($r);
     $r->send_http_header;
@@ -148,12 +148,12 @@
 		    }
 		    $totalParts += $curRes->weight($part);
 		} else {
-		    my $status = $curRes->getCompletionStatus($part);
+		    my $status = $curRes->simpleStatus($part);
 		    my $thisright = 0;
 		    $partsCount++;
 		    if ($status == $curRes->CORRECT || 
-			$status == $curRes->CORRECT_BY_OVERRIDE || 
-			$status == $curRes->ANSWER_SUBMITTED) {
+			$status == $curRes->INCORRECT || 
+			$status == $curRes->ATTEMPTED) {
 			$partsRight++;
 			$totalRight++;
 			$thisright = 1;