[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_/);