version 1.486, 2006/12/05 01:51:48
|
version 1.487, 2006/12/05 02:55:51
|
Line 6289 sub construct_course {
|
Line 6289 sub construct_course {
|
# if specified, key authority is not course, but user |
# if specified, key authority is not course, but user |
# only active if keyaccess is yes |
# only active if keyaccess is yes |
if ($args->{'keyauth'}) { |
if ($args->{'keyauth'}) { |
$args->{'keyauth'}=~s/[^\w\@]//g; |
my ($user,$domain) = split(':',$args->{'keyauth'}); |
if ($args->{'keyauth'}) { |
$user = &LONCAPA::clean_username($user); |
$cenv{'keyauth'}=$args->{'keyauth'}; |
$domain = &LONCAPA::clean_username($domain); |
|
if ($user ne '' && $domain ne ''); |
|
$cenv{'keyauth'}=$user.':'.$domain; |
} |
} |
} |
} |
|
|