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}));
|
