--- loncom/lonnet/perl/lonnet.pm	2004/11/02 22:13:13	1.557
+++ loncom/lonnet/perl/lonnet.pm	2004/11/02 23:22:47	1.558
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.557 2004/11/02 22:13:13 albertel Exp $
+# $Id: lonnet.pm,v 1.558 2004/11/02 23:22:47 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2469,7 +2469,6 @@ sub rolesinit {
         my $author=0;
         foreach (keys %allroles) {
             %thesepriv=();
-            if (($_!~/^st/) && ($_!~/^ta/) && ($_!~/^cm/)) { $adv=1; }
             if (($_=~/^au/) || ($_=~/^ca/)) { $author=1; }
             foreach (split(/:/,$allroles{$_})) {
                 if ($_ ne '') {
@@ -2481,6 +2480,7 @@ sub rolesinit {
 			    $thesepriv{$privilege}.=$restrictions;
                         }
                     }
+		    if ($thesepriv{'adv'} eq 'F') { $adv=1; }
                 }
             }
             $thesestr='';