[WWcvs] pg: make sure $permissionLevel is defined (since it was added recently)

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

Log Message:
-----------
make sure $permissionLevel is defined (since it was added recently)

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

Revision Data
-------------
Index: problemPanic.pl
===================================================================
RCS file: /webwork/cvs/system/pg/macros/problemPanic.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -Lmacros/problemPanic.pl -Lmacros/problemPanic.pl -u -r1.3 -r1.4
--- macros/problemPanic.pl
+++ macros/problemPanic.pl
@@ -131,6 +131,7 @@
 #  Save the panic level for the next time through.
 #
 sub Init {
+  $main::permissionLevel = 0 unless defined $main::permissionLevel;
   $allowReset = $main::permissionLevel > $main::PRINT_FILE_NAMES_PERMISSION_LEVEL;
   $isTeX = ($main::displayMode eq 'TeX');
   unless ($isTeX) {