[LON-CAPA-cvs] cvs: loncom /interface lonquickgrades.pm
raeburn
lon-capa-cvs-allow@mail.lon-capa.org
Sun, 17 Aug 2008 23:25:44 -0000
raeburn Sun Aug 17 19:25:44 2008 EDT
Modified files:
/loncom/interface lonquickgrades.pm
Log:
Bug 5705.
- Stop bleeding status information to quickgrades if problemstatus set to 'no_feedback_ever'.
Index: loncom/interface/lonquickgrades.pm
diff -u loncom/interface/lonquickgrades.pm:1.41 loncom/interface/lonquickgrades.pm:1.42
--- loncom/interface/lonquickgrades.pm:1.41 Thu Dec 20 05:18:19 2007
+++ loncom/interface/lonquickgrades.pm Sun Aug 17 19:25:40 2008
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Quick Student Grades Display
#
-# $Id: lonquickgrades.pm,v 1.41 2007/12/20 10:18:19 bisitz Exp $
+# $Id: lonquickgrades.pm,v 1.42 2008/08/17 23:25:40 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -145,7 +145,8 @@
my $score = 0;
# If we're not telling status and the answer date isn't passed yet,
# it's an "attempted" point
- if ($curRes->problemstatus($part) eq 'no' &&
+ if ((($curRes->problemstatus($part) eq 'no') ||
+ ($curRes->problemstatus($part) eq 'no_feedback_ever')) &&
($dateStatus != $curRes->ANSWER_OPEN)) {
my $status = $curRes->simpleStatus($part);
if ($status == $curRes->ATTEMPTED) {