Log Message:
-----------
Minor changes
Modified Files:
--------------
pg/lib/Value:
AnswerChecker.pm
Revision Data
-------------
Index: AnswerChecker.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Value/AnswerChecker.pm,v
retrieving revision 1.123
retrieving revision 1.124
diff -Llib/Value/AnswerChecker.pm -Llib/Value/AnswerChecker.pm -u -r1.123 -r1.124
--- lib/Value/AnswerChecker.pm
+++ lib/Value/AnswerChecker.pm
@@ -30,9 +30,9 @@
# Internal use.
# Set default flags for the answer checker in this object
-# showTypeWarnings => 1
-# showEqualErrors => 1
-# ignoreStrings => 1
+# showTypeWarnings => 1
+# showEqualErrors => 1
+# ignoreStrings => 1
# studentsMustReduceUnions => 1
# showUnionReduceWarnings => 1
#
@@ -241,6 +241,7 @@
return eval {$self == $other} unless ref($ans->{checker}) eq 'CODE';
my @equal = eval {&{$ans->{checker}}($self,$other,$ans,$nth,@_)};
if (!defined($equal) && $@ ne '' && (!$context->{error}{flag} || $ans->{showAllErrors})) {
+ $nth = "" if ref($nth) eq 'AnswerHash';
$context->setError(["<I>An error occurred while checking your$nth answer:</I>\n".
'<DIV STYLE="margin-left:1em">%s</DIV>',$@],'',undef,undef,$CMP_ERROR);
warn "Please inform your instructor that an error occurred while checking your answer";
@@ -1785,7 +1786,7 @@
my @P = (map {(scalar(@{$_}) == 1)? $_->[0]: $self->Package("Point")->make(@{$_})} @{$self->{test_points}});
my @i = sort {$P[$a] <=> $P[$b]} (0..$#P);
foreach $p (@P) {if (Value::isValue($p) && $p->length > 2) {$p = $p->string; $p =~ s|,|,<br />|g}}
- my $zeroLevelTol = $self->getFlag('zeroLevelTol');
+ my $zeroLevelTol = $self->{context}{flags}{zeroLevelTol};
$self->{context}{flags}{zeroLevelTol} = 0; # always show full resolution in the tables below
my $names = join(',',@names); $names = '('.$names.')' if scalar(@names) > 1;
|
