|
version 1.193, 2008/05/19 17:55:38
|
version 1.194, 2008/05/20 18:19:28
|
|
Line 137 sub handler {
|
Line 137 sub handler {
|
| # Is this an ad-hoc CC-role? |
# Is this an ad-hoc CC-role? |
| if (my ($domain,$coursenum) = |
if (my ($domain,$coursenum) = |
| ($envkey =~ m-^form\.cc\./($match_domain)/($match_courseid)$-)) { |
($envkey =~ m-^form\.cc\./($match_domain)/($match_courseid)$-)) { |
| # See if that is even allowed |
|
| my %crsenv=&Apache::lonnet::get('environment',['internal.courseowner'],$domain,$coursenum); |
|
| # First find course owner |
|
| my ($owneruser,$ownerdomain)=split(/\:/,$crsenv{'internal.courseowner'}); |
|
| # Check if course owner blocked cc-access |
|
| if (($owneruser) && ($ownerdomain)) { |
|
| my %blocked=&Apache::lonnet::get('environment',['domcoord.cc'],$ownerdomain,$owneruser); |
|
| if ($blocked{'domcoord.cc'} eq 'blocked') { |
|
| $env{'user.error.msg'}=':::1:Course owner '.$owneruser.' in domain '.$ownerdomain.' blocked domain coordinator access'; |
|
| last; |
|
| } |
|
| } |
|
| if ($dcroles{$domain}) { |
if ($dcroles{$domain}) { |
| &check_privs($domain,$coursenum,$then,$now,'cc'); |
&check_privs($domain,$coursenum,$then,$now,'cc'); |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonroles.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth