--- loncom/lonnet/perl/lonnet.pm	2001/05/26 19:57:47	1.124
+++ loncom/lonnet/perl/lonnet.pm	2001/05/28 16:38:14	1.125
@@ -103,7 +103,7 @@
 # 3/15,3/19 Scott Harrison
 # 3/19,3/20 Gerd Kortemeyer
 # 3/22,3/27,4/2,4/16,4/17 Scott Harrison
-# 5/26 Gerd Kortemeyer
+# 5/26,5/28 Gerd Kortemeyer
 #
 package Apache::lonnet;
 
@@ -881,8 +881,10 @@ sub rolesinit {
             }
           } 
         } split(/&/,$rolesdump);
+        my $adv=0;
         map {
             %thesepriv=();
+            if ($_ ne 'st') { $adv=1; }
             map {
                 if ($_ ne '') {
 		    my ($privilege,$restrictions)=split(/&/,$_);
@@ -899,6 +901,7 @@ sub rolesinit {
             map { $thesestr.=':'.$_.'&'.$thesepriv{$_}; } keys %thesepriv;
             $userroles.='user.priv.'.$_.'='.$thesestr."\n";
         } keys %allroles;            
+        $userroles.='user.adv='.$adv."\n";
     }
     return $userroles;  
 }