|
version 1.170, 2006/11/23 01:49:41
|
version 1.172, 2006/12/05 02:55:56
|
|
Line 126 sub handler {
|
Line 126 sub handler {
|
| if ($numdc > 0) { |
if ($numdc > 0) { |
| foreach my $envkey (keys %env) { |
foreach my $envkey (keys %env) { |
| if (my ($domain,$coursenum) = |
if (my ($domain,$coursenum) = |
| ($envkey =~ m-^form\.cc\./($match_domain)/($match_username)$-)) { |
($envkey =~ m-^form\.cc\./($match_domain)/($match_courseid)$-)) { |
| if ($dcroles{$domain}) { |
if ($dcroles{$domain}) { |
| &check_privs($domain,$coursenum,$then,$now); |
&check_privs($domain,$coursenum,$then,$now); |
| } |
} |
|
Line 165 sub handler {
|
Line 165 sub handler {
|
| my $authnum=$cnum; |
my $authnum=$cnum; |
| if ($env{'course.'.$cdom.'_'.$cnum.'.keyauth'}) { |
if ($env{'course.'.$cdom.'_'.$cnum.'.keyauth'}) { |
| ($authnum,$authdom)= |
($authnum,$authdom)= |
| split(/\W/,$env{'course.'.$cdom.'_'.$cnum.'.keyauth'}); |
split(/:/,$env{'course.'.$cdom.'_'.$cnum.'.keyauth'}); |
| } |
} |
| # check with key authority |
# check with key authority |
| unless (&Apache::lonnet::validate_access_key( |
unless (&Apache::lonnet::validate_access_key( |
|
Line 988 sub display_cc_role {
|
Line 988 sub display_cc_role {
|
| my $advanced = $env{'user.adv'}; |
my $advanced = $env{'user.adv'}; |
| my $tryagain = $env{'form.tryagain'}; |
my $tryagain = $env{'form.tryagain'}; |
| unless ($rolekey =~/^error\:/) { |
unless ($rolekey =~/^error\:/) { |
| if ($rolekey =~ m-^user\.role.cc\./($match_domain)/($match_username)$-) { |
if ($rolekey =~ m-^user\.role.cc\./($match_domain)/($match_courseid)$-) { |
| my $tcourseid = $1.'_'.$2; |
my $tcourseid = $1.'_'.$2; |
| my $trolecode = 'cc./'.$1.'/'.$2; |
my $trolecode = 'cc./'.$1.'/'.$2; |
| my $twhere; |
my $twhere; |
![[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