--- loncom/lonnet/perl/lonnet.pm	2001/12/22 21:46:02	1.193
+++ loncom/lonnet/perl/lonnet.pm	2001/12/27 17:00:30	1.194
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.193 2001/12/22 21:46:02 www Exp $
+# $Id: lonnet.pm,v 1.194 2001/12/27 17:00:30 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -64,7 +64,7 @@
 # 12/5 Guy Albertelli
 # 12/6,12/7,12/12 Gerd Kortemeyer
 # 12/18 Scott Harrison
-# 12/21,12/22 Gerd Kortemeyer
+# 12/21,12/22,12/27 Gerd Kortemeyer
 #
 ###
 
@@ -1554,7 +1554,7 @@ sub allowed {
    if ($thisallowed=~/C/) {
        my $rolecode=(split(/\./,$ENV{'request.role'}))[0];
        if ($ENV{'course.'.$ENV{'request.course.id'}.'.'.$priv.'.roles.denied'}
-	   =~/\,$rolecode\,/) {
+	   =~/$rolecode/) {
            &log($ENV{'user.domain'},$ENV{'user.name'},$ENV{'user.host'},
                 'Denied by role: '.$priv.' for '.$uri.' as '.$rolecode.' in '.
                 $ENV{'request.course.id'});