![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl|
Return to lonnet.pm CVS log | Up to [LON-CAPA] / loncom / lonnet / perl |
| version 1.125, 2001/05/28 16:38:14 | version 1.126, 2001/05/28 21:15:37 |
|---|---|
| Line 902 sub rolesinit { | Line 902 sub rolesinit { |
| $userroles.='user.priv.'.$_.'='.$thesestr."\n"; | $userroles.='user.priv.'.$_.'='.$thesestr."\n"; |
| } keys %allroles; | } keys %allroles; |
| $userroles.='user.adv='.$adv."\n"; | $userroles.='user.adv='.$adv."\n"; |
| $ENV{'user.adv'}=$adv; | |
| } | } |
| return $userroles; | return $userroles; |
| } | } |