[WWcvs] pg: Make penalties cumulative (they were supposed to be, but weren't

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

Log Message:
-----------
Make penalties cumulative (they were supposed to be, but weren't

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

Revision Data
-------------
Index: problemPanic.pl
===================================================================
RCS file: /webwork/cvs/system/pg/macros/problemPanic.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -Lmacros/problemPanic.pl -Lmacros/problemPanic.pl -u -r1.6 -r1.7
--- macros/problemPanic.pl
+++ macros/problemPanic.pl
@@ -156,7 +156,7 @@
   );
   my $label = $options{label};
   my $level = $options{level};
-  $penalty[$buttonCount] = $penalty[$buttonCount] + $options{penalty};
+  $penalty[$buttonCount] = $penalty[$buttonCount-1] + $options{penalty};
   $penalty[$buttonCount] = 1 if $penalty[$buttonCount] > 1;
   return if $isTeX || $main::panicked >= $level;
   my $time = time();