--- loncom/lonnet/perl/lonnet.pm	2001/05/28 16:38:14	1.125
+++ loncom/lonnet/perl/lonnet.pm	2001/05/28 21:15:37	1.126
@@ -902,6 +902,7 @@ sub rolesinit {
             $userroles.='user.priv.'.$_.'='.$thesestr."\n";
         } keys %allroles;            
         $userroles.='user.adv='.$adv."\n";
+        $ENV{'user.adv'}=$adv;
     }
     return $userroles;  
 }