loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

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;
}	}
}	}