--- loncom/lonnet/perl/lonnet.pm	2001/08/04 14:45:28	1.137
+++ loncom/lonnet/perl/lonnet.pm	2001/08/04 19:07:31	1.138
@@ -896,7 +896,7 @@ sub rolesinit {
         my $author=0;
         map {
             %thesepriv=();
-            if ($_!~/^st/) { $adv=1; }
+            if (($_!~/^st/) && ($_!~/^ta/)) { $adv=1; }
             if (($_=~/^au/) || ($_=~/^ca/)) { $author=1; }
             map {
                 if ($_ ne '') {