[WWcvs] pg: Fixed problem with ordered=>"strict" in number_list_cmp()

[dpvc v. a. <we...@ma...>]

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);