![[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.1084, 2010/09/24 03:15:04 | version 1.1085, 2010/09/24 13:15:47 |
|---|---|
| Line 5065 sub is_course_owner { | Line 5065 sub is_course_owner { |
| sub is_advanced_user { | sub is_advanced_user { |
| my ($udom,$uname) = @_; | my ($udom,$uname) = @_; |
| if ($udom ne '' && $uname ne '') { | |
| if (($udom eq $env{'user.domain'}) && ($uname eq $env{'user.name'})) { | |
| return $env{'user.adv'}; | |
| } | |
| } | |
| my %roleshash = &get_my_roles($uname,$udom,'userroles',undef,undef,undef,1); | my %roleshash = &get_my_roles($uname,$udom,'userroles',undef,undef,undef,1); |
| my %allroles; | my %allroles; |
| my $is_adv; | my $is_adv; |