[WWcvs] pg: HEAD backport: Fixed index problem with matrix multiplciation (dpvc)

[Sam H. v. a. <we...@ma...>]

Log Message:
-----------
HEAD backport: Fixed index problem with matrix multiplciation (dpvc)

Tags:
----
rel-2-1-patches

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.12
retrieving revision 1.12.2.1
diff -Llib/Value/Matrix.pm -Llib/Value/Matrix.pm -u -r1.12 -r1.12.2.1
--- lib/Value/Matrix.pm
+++ lib/Value/Matrix.pm
@@ -233,9 +233,9 @@
   #
   my @l = $l->value; my @r = $r->value;
   my @M = ();
-  foreach my $j (0..$dr[1]-1) {
+  foreach my $i (0..$dl[0]-1) {
     my @row = ();
-    foreach my $i (0..$dl[0]-1) {
+    foreach my $j (0..$dr[1]-1) {
       my $s = 0;
       foreach my $k (0..$dl[1]-1) {$s += $l[$i]->[$k] * $r[$k]->[$j]}
       push(@row,$s);