|
version 1.1501, 2022/11/05 06:00:07
|
version 1.1502, 2022/11/23 02:55:37
|
|
Line 10334 sub assignrole {
|
Line 10334 sub assignrole {
|
| if ($role =~ /^cr\//) { |
if ($role =~ /^cr\//) { |
| my $cwosec=$url; |
my $cwosec=$url; |
| $cwosec=~s/^\/($match_domain)\/($match_courseid)\/.*/$1\/$2/; |
$cwosec=~s/^\/($match_domain)\/($match_courseid)\/.*/$1\/$2/; |
| unless (&allowed('ccr',$cwosec)) { |
if ((!&allowed('ccr',$cwosec)) && (!&allowed('ccr',$udom))) { |
| my $refused = 1; |
my $refused = 1; |
| if ($context eq 'requestcourses') { |
if ($context eq 'requestcourses') { |
| if (($env{'user.name'} ne '') && ($env{'user.domain'} ne '')) { |
if (($env{'user.name'} ne '') && ($env{'user.domain'} ne '')) { |
![[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