[WWcvs] webwork-modperl: new regexp matching can now match on permission level

[Robert V. D. v. a. <act...@de...>]

Log Message:
-----------
new regexp matching can now match on permission level too

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

Revision Data
-------------
Index: UserList.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/UserList.pm,v
retrieving revision 1.61
retrieving revision 1.62
diff -Llib/WeBWorK/ContentGenerator/Instructor/UserList.pm -Llib/WeBWorK/ContentGenerator/Instructor/UserList.pm -u -r1.61 -r1.62
--- lib/WeBWorK/ContentGenerator/Instructor/UserList.pm
+++ lib/WeBWorK/ContentGenerator/Instructor/UserList.pm
@@ -622,6 +622,12 @@
 		my @userIDs;
 		foreach my $record (@userRecords) {
 			next unless $record;
+
+			# add permission level to user record hash so we can match it if necessary
+			if ($field eq "permission") {
+				my $permissionLevel = $db->getPermissionLevel($record->user_id);
+        	                $record->{permission} = $permissionLevel->permission;
+			}
 			push @userIDs, $record->user_id if $record->{$field} =~ /^$regex/i;
 		}
 		$self->{visibleUserIDs} = \@userIDs;