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

[albertel]

albertel		Thu Jul 15 15:20:41 2004 EDT

  Modified files:              
    /loncom/interface	lonquickgrades.pm 
  Log:
  - need to first check if it has been attempted before we say that it has been attempted BUG#3080
  
  
Index: loncom/interface/lonquickgrades.pm
diff -u loncom/interface/lonquickgrades.pm:1.30 loncom/interface/lonquickgrades.pm:1.31
--- loncom/interface/lonquickgrades.pm:1.30	Fri Nov 21 13:21:02 2003
+++ loncom/interface/lonquickgrades.pm	Thu Jul 15 15:20:41 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Quick Student Grades Display
 #
-# $Id: lonquickgrades.pm,v 1.30 2003/11/21 18:21:02 albertel Exp $
+# $Id: lonquickgrades.pm,v 1.31 2004/07/15 19:20:41 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -150,8 +150,11 @@
 		    # it's an "attempted" point
 		    if ($curRes->problemstatus($part) eq 'no' &&
 			($dateStatus != $curRes->ANSWER_OPEN)) {
-			$partsAttempted += $curRes->weight($part);
-			$totalAttempted += $partsAttempted;
+			my $status = $curRes->simpleStatus($part);
+			if ($status == $curRes->ATTEMPTED) {
+			    $partsAttempted += $curRes->weight($part);
+			    $totalAttempted += $partsAttempted;
+			}
 		    } else {
 			$score = $curRes->weight($part) * $curRes->awarded($part);
 		    }