[WWcvs] webwork2: HEAD backport: Call $r->param("user") only in scalar context

[Sam H. v. a. <act...@de...>]

Log Message:
-----------
HEAD backport: Call $r->param("user") only in scalar context (gage)

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

Modified Files:
--------------
    webwork2/lib/WeBWorK/ContentGenerator/Instructor:
        Assigner.pm

Revision Data
-------------
Index: Assigner.pm
===================================================================
RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/ContentGenerator/Instructor/Assigner.pm,v
retrieving revision 1.25
retrieving revision 1.25.2.1
diff -Llib/WeBWorK/ContentGenerator/Instructor/Assigner.pm -Llib/WeBWorK/ContentGenerator/Instructor/Assigner.pm -u -r1.25 -r1.25.2.1
--- lib/WeBWorK/ContentGenerator/Instructor/Assigner.pm
+++ lib/WeBWorK/ContentGenerator/Instructor/Assigner.pm
@@ -46,13 +46,15 @@
 	my $db = $r->db;
 	my $authz = $r->authz;
 	my $ce = $r->ce;
-
+	
+	my $user = $r->param('user');
+	
 	# 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 assign problem sets.")
-		unless $authz->hasPermissions($r->param("user"), "assign_problem_sets");
+		unless $authz->hasPermissions($user, "assign_problem_sets");
 
 	
 	print CGI::p("Select one or more sets and one or more users below to assign/unassign"