[LON-CAPA-cvs] cvs: loncom(version_2_10_X) /interface lonnavmaps.pm

raeburn raeburn@source.lon-capa.org
Thu, 10 Mar 2011 23:18:18 -0000


raeburn		Thu Mar 10 23:18:18 2011 EDT

  Modified files:              (Branch: version_2_10_X)
    /loncom/interface	lonnavmaps.pm 
  Log:
  - Backport 1.457.
  
  
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.444.2.3 loncom/interface/lonnavmaps.pm:1.444.2.4
--- loncom/interface/lonnavmaps.pm:1.444.2.3	Thu Dec 30 21:32:17 2010
+++ loncom/interface/lonnavmaps.pm	Thu Mar 10 23:18:18 2011
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.444.2.3 2010/12/30 21:32:17 raeburn Exp $
+# $Id: lonnavmaps.pm,v 1.444.2.4 2011/03/10 23:18:18 raeburn Exp $
 
 #
 # Copyright Michigan State University Board of Trustees
@@ -5002,7 +5002,7 @@
                 my $taskstatus = $self->taskstatus();
                 $is_correct = (($taskstatus eq 'pass') || 
                                ($self->solved() =~ /^correct_/));
-                $got_grade = ($self->solved() =~ /^(?:pass|fail)$/);
+                $got_grade = ($taskstatus =~ /^(?:pass|fail)$/);
             } else {
                 $got_grade = 1;
                 $is_correct = ($self->solved() =~ /^correct_/);