loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.141, 2005/12/20 19:07:10	version 1.143, 2006/01/03 17:46:35
Line 271 ENDENTERKEY	Line 271 ENDENTERKEY
'.course.helper.not.run'}) {	'.course.helper.not.run'}) {
$furl = "/adm/helper/course.initialization.helper";	$furl = "/adm/helper/course.initialization.helper";
# Send the user to the course they selected	# Send the user to the course they selected
} elsif ($env{'request.course.fn'}) {	} elsif ($env{'request.course.id'}) {
if ($env{'request.role.adv'}) {	if (&Apache::lonnet::allowed('whn',
	$env{'request.course.id'})) {
my $startpage = &courseloadpage($courseid);	my $startpage = &courseloadpage($courseid);
unless ($startpage eq 'firstres') {	unless ($startpage eq 'firstres') {
$msg = &mt('Entering course ....');	$msg = &mt('Entering course ....');
Line 530 ENDHEADER	Line 531 ENDHEADER
foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }	foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
if (!$allowed) {	if (!$allowed) {
$button=0;	$button=0;
$switchserver=&Apache::lonnet::escape('http://'.	$switchserver='otherserver='.$home.'&role='.$trolecode;
$Apache::lonnet::hostname{$home}.
'/adm/login?domain='.$env{'user.domain'}.
'&username='.$env{'user.name'}.
'&firsturl=/priv/'.$env{'user.name'}.'/');
}	}
#next if ($home eq 'no_host');	#next if ($home eq 'no_host');
$home = $Apache::lonnet::hostname{$home};	$home = $Apache::lonnet::hostname{$home};