Log Message:
-----------
Fixed problem with ordered=>"strict" in number_list_cmp()
Modified Files:
--------------
pg/macros:
extraAnswerEvaluators.pl
Revision Data
-------------
Index: extraAnswerEvaluators.pl
===================================================================
RCS file: /webwork/cvs/system/pg/macros/extraAnswerEvaluators.pl,v
retrieving revision 1.18
retrieving revision 1.19
diff -Lmacros/extraAnswerEvaluators.pl -Lmacros/extraAnswerEvaluators.pl -u -r1.18 -r1.19
--- macros/extraAnswerEvaluators.pl
+++ macros/extraAnswerEvaluators.pl
@@ -418,18 +418,18 @@
sub number_list_cmp {
my $list = shift;
-
+
my %num_params = @_;
-
+
my $mode = $num_params{mode} || 'std';
my %options = (debug => $num_params{debug});
-
+
#
# Get an apppropriate context based on the mode
#
my $oldContext = Context();
my $context = mode2context($mode, %num_params);
-
+
#$context->strings->clear;
if ($num_params{strings}) {
foreach my $string (@{$num_params{strings}}) {
@@ -439,14 +439,14 @@
defined($context->strings->get($string));
}
}
-
- $options{ordered} = 1 if(defined($num_params{ordered}) and $opts{ordered});
+
+ $options{ordered} = 1 if defined($num_params{ordered});
# These didn't exist before in number_list_cmp so they behaved like
# in List()->cmp. Now they can be optionally set
for my $o qw( showHints partialCredit showLengthHints ) {
$options{$o} = $num_params{$o} || 0;
}
-
+
Context($context);
my $ans_eval = List($list)->cmp(%options);
Context($oldContext);
|
