[Openwebwork-cvs] webwork-modperl: Removed a warn statement Made sure that

[Mike G. v. a. <act...@de...>]

Log Message:
-----------
Removed a warn statement

Made sure that r->param('user') is only called in scalar 
context.

Modified Files:
--------------
    webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor:
        PGProblemEditor.pm

Revision Data
-------------
Index: PGProblemEditor.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/PGProblemEditor.pm,v
retrieving revision 1.49
retrieving revision 1.50
diff -Llib/WeBWorK/ContentGenerator/Instructor/PGProblemEditor.pm -Llib/WeBWorK/ContentGenerator/Instructor/PGProblemEditor.pm -u -r1.49 -r1.50
--- lib/WeBWorK/ContentGenerator/Instructor/PGProblemEditor.pm
+++ lib/WeBWorK/ContentGenerator/Instructor/PGProblemEditor.pm
@@ -323,7 +323,6 @@
 			my $sourceFilePath = $self->{problemPath};
 			# strip off template directory prefix
 			$sourceFilePath =~ s|^$ce->{courseDirs}->{templates}/||;
-			warn "setting sourceFilePath to $sourceFilePath";
 			if ($action eq 'save_as') { # redirect to myself
 				my $edit_level = $r->param("edit_level") || 0;
 				$edit_level++;
@@ -537,10 +536,10 @@
  
 	# Check permissions
 	return CGI::div({class=>"ResultsWithError"}, "You are not authorized to access the Instructor tools.")
-		unless $authz->hasPermissions($r->param("user"), "access_instructor_tools");
+		unless $authz->hasPermissions($user, "access_instructor_tools");
 	
 	return CGI::div({class=>"ResultsWithError"}, "You are not authorized to modify problems.")
-		unless $authz->hasPermissions($r->param("user"), "modify_student_data");
+		unless $authz->hasPermissions($user, "modify_student_data");
 
 	
 	# Gathering info