[WWcvs] pg: Don't inherit the ColumnVector flag from Vector operands.

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

Log Message:
-----------
Don't inherit the ColumnVector flag from Vector operands.  (This fixes
a problem with using the result of matrix-vector multiplication
together with the ->ans_array method.)

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

Revision Data
-------------
Index: Matrix.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Value/Matrix.pm,v
retrieving revision 1.35
retrieving revision 1.36
diff -Llib/Value/Matrix.pm -Llib/Value/Matrix.pm -u -r1.35 -r1.36
--- lib/Value/Matrix.pm
+++ lib/Value/Matrix.pm
@@ -169,6 +169,14 @@
   Value::Error("Can't convert %s to %s",Value::showClass($x),Value::showClass($self));
 }
 
+#
+#  Don't inherit ColumnVector flag
+#
+sub noinherit {
+  my $self = shift;
+  return ("ColumnVector",$self->SUPER::noinherit);
+}
+
 ############################################
 #
 #  Operations on matrices