--- loncom/lonnet/perl/lonnet.pm	2001/08/09 14:03:42	1.145
+++ loncom/lonnet/perl/lonnet.pm	2001/08/09 16:43:06	1.146
@@ -896,7 +896,7 @@ sub rolesinit {
         my $author=0;
         map {
             %thesepriv=();
-            if (($_!~/^st/) && ($_!~/^ta/)) { $adv=1; }
+            if (($_!~/^st/) && ($_!~/^ta/) && ($_!~/^cm/)) { $adv=1; }
             if (($_=~/^au/) || ($_=~/^ca/)) { $author=1; }
             map {
                 if ($_ ne '') {