[WWcvs] webwork2: add permission for viewing problem debugging info.

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

Log Message:
-----------
add permission for viewing problem debugging info.

Modified Files:
--------------
    webwork2/conf:
        global.conf.dist
    webwork2/lib/WeBWorK/ContentGenerator:
        Problem.pm

Revision Data
-------------
Index: global.conf.dist
===================================================================
RCS file: /webwork/cvs/system/webwork2/conf/global.conf.dist,v
retrieving revision 1.153
retrieving revision 1.154
diff -Lconf/global.conf.dist -Lconf/global.conf.dist -u -r1.153 -r1.154
--- conf/global.conf.dist
+++ conf/global.conf.dist
@@ -549,6 +549,8 @@
 	record_answers_after_due_date                   => undef,
 	record_answers_after_answer_date                => undef,
 	dont_log_past_answers                           => "professor",
+	# does the user get to see a dump of the problem?
+	view_problem_debugging_info                     => "ta",
 	
 	##### Behavior of the Hardcopy Processor #####
 	
Index: Problem.pm
===================================================================
RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/ContentGenerator/Problem.pm,v
retrieving revision 1.187
retrieving revision 1.188
diff -Llib/WeBWorK/ContentGenerator/Problem.pm -Llib/WeBWorK/ContentGenerator/Problem.pm -u -r1.187 -r1.188
--- lib/WeBWorK/ContentGenerator/Problem.pm
+++ lib/WeBWorK/ContentGenerator/Problem.pm
@@ -833,7 +833,11 @@
 	##### translation errors? #####
 
 	if ($pg->{flags}->{error_flag}) {
-		print $self->errorOutput($pg->{errors}, $pg->{body_text});
+		if ($authz->hasPermissions($user, "view_problem_debugging_info")) {
+			print $self->errorOutput($pg->{errors}, $pg->{body_text});
+		} else {
+			print $self->errorOutput($pg->{errors}, "You do not have permission to view the details of this error.");
+		}
 		print $editorLink;
 		return "";
 	}