[WWcvs] pg: Allow formula to be point-valued (if promotePoints is 1)

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

Log Message:
-----------
Allow formula to be point-valued (if promotePoints is 1)

Modified Files:
--------------
    pg/macros:
        parserParametricLine.pl

Revision Data
-------------
Index: parserParametricLine.pl
===================================================================
RCS file: /webwork/cvs/system/pg/macros/parserParametricLine.pl,v
retrieving revision 1.17
retrieving revision 1.18
diff -Lmacros/parserParametricLine.pl -Lmacros/parserParametricLine.pl -u -r1.17 -r1.18
--- macros/parserParametricLine.pl
+++ macros/parserParametricLine.pl
@@ -91,7 +91,7 @@
   } else {
     $line = $context->Package("Formula")->new($context,shift);
     Value::Error("Your formula doesn't look like a parametric line")
-      unless $line->type eq 'Vector';
+      unless $line->type eq 'Vector' || $line->type eq "Point";
     $t = shift || (keys %{$line->{variables}})[0];
     Value::Error("A line can't be just a constant vector") unless $t;
     $p = $context->Package("Point")->new($context,$line->eval($t=>0));