[WWcvs] pg: Use ijkAnyDimension in the check for parallel vectors as well.

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

Log Message:
-----------
Use ijkAnyDimension in the check for parallel vectors as well.

Modified Files:
--------------
    pg/lib/Value:
        Vector.pm

Revision Data
-------------
Index: Vector.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Value/Vector.pm,v
retrieving revision 1.36
retrieving revision 1.37
diff -Llib/Value/Vector.pm -Llib/Value/Vector.pm -u -r1.36 -r1.37
--- lib/Value/Vector.pm
+++ lib/Value/Vector.pm
@@ -189,7 +189,13 @@
   my $context =  $self->context;
   my $sameDirection = shift;
   my @u = $U->value; my @v = $V->value;
-  return 0 unless  scalar(@u) == scalar(@v);
+  if (scalar(@u) != scalar(@v)) {
+    return 0 unless
+       ($U->getFlag("ijk") || $V->getFlag("ijk")) &&
+       ($U->getFlag("ijkAnyDimension") || $V->getFlag("ijkAnyDimension"));
+    if (scalar(@u) < scalar(@v)) {push(@u,0 x (scalar(@v)-scalar(@u)))}
+                            else {push(@v,0 x (scalar(@u)-scalar(@v)))}
+  }
   my $k = ''; # will be scaling factor for u = k v
   foreach my $i (0..$#u) {
     #