loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.142, 2005/12/22 03:39:36	version 1.143, 2006/01/03 17:46:35
Line 531 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};