version 1.487, 2006/12/05 02:55:51
|
version 1.488, 2006/12/06 11:36:52
|
Line 6292 sub construct_course {
|
Line 6292 sub construct_course {
|
my ($user,$domain) = split(':',$args->{'keyauth'}); |
my ($user,$domain) = split(':',$args->{'keyauth'}); |
$user = &LONCAPA::clean_username($user); |
$user = &LONCAPA::clean_username($user); |
$domain = &LONCAPA::clean_username($domain); |
$domain = &LONCAPA::clean_username($domain); |
if ($user ne '' && $domain ne ''); |
if ($user ne '' && $domain ne '') { |
$cenv{'keyauth'}=$user.':'.$domain; |
$cenv{'keyauth'}=$user.':'.$domain; |
} |
} |
} |
} |