Log Message:
-----------
Correctly create Formula returning List when a list has formula
entries.
Modified Files:
--------------
pg/lib/Value:
List.pm
Revision Data
-------------
Index: List.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Value/List.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -Llib/Value/List.pm -Llib/Value/List.pm -u -r1.17 -r1.18
--- lib/Value/List.pm
+++ lib/Value/List.pm
@@ -30,8 +30,8 @@
$p = [$p,@_] if (ref($p) ne 'ARRAY' || scalar(@_) > 0);
my $type;
foreach my $x (@{$p}) {
- $isFormula = 1 if Value::isFormula($x);
$x = Value::makeValue($x) unless ref($x);
+ $isFormula = 1 if Value::isFormula($x);
if (Value::isValue($x)) {
if (!$type) {$type = $x->type}
else {$type = 'unknown' unless $type eq $x->type}
|
