[WWcvs] webwork2: added check to ensure that permission level is numeric, fixing

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

Log Message:
-----------
added check to ensure that permission level is numeric, fixing bug #822.

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

Revision Data
-------------
Index: UserList.pm
===================================================================
RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/ContentGenerator/Instructor/UserList.pm,v
retrieving revision 1.73
retrieving revision 1.74
diff -Llib/WeBWorK/ContentGenerator/Instructor/UserList.pm -Llib/WeBWorK/ContentGenerator/Instructor/UserList.pm -u -r1.73 -r1.74
--- lib/WeBWorK/ContentGenerator/Instructor/UserList.pm
+++ lib/WeBWorK/ContentGenerator/Instructor/UserList.pm
@@ -1297,6 +1297,8 @@
 		%replaceOK = %allUserIDs;
 	}
 	
+	my $default_permission_level = $ce->{default_permission_level};
+	
 	my (@replaced, @added, @skipped);
 	
 	# get list of hashrefs representing lines in classlist file
@@ -1321,6 +1323,12 @@
 			next;
 		}
 		
+		# make sure permission level is numeric
+		unless ($record{permission} =~ m/^[+\-]?\d*$/) {
+			$self->addbadmessage("permission level '$record{permission}' for user '$user_id' is not an integer. using default permission level '$default_permission_level'.\n");
+			$record{permission} = $default_permission_level;
+		}
+		
 		my $User = $db->newUser(%record);
 		my $PermissionLevel = $db->newPermissionLevel(user_id => $user_id, permission => 0);
 		my $Password = $db->newPassword(user_id => $user_id, password => cryptPassword($record{student_id}));