|
version 1.171, 2006/12/01 21:52:29
|
version 1.172, 2006/12/05 02:55:56
|
|
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( |
![[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