loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.50, 2003/02/03 18:03:52	version 1.51, 2003/02/04 16:25:37
Line 310 ENDHEADER	Line 310 ENDHEADER
my $home = &Apache::lonnet::homeserver($trest,$tdom);	my $home = &Apache::lonnet::homeserver($trest,$tdom);
if ($home ne $r->dir_config('lonHostID')) {	if ($home ne $r->dir_config('lonHostID')) {
$button=0;	$button=0;
$switchserver='http://'.	$switchserver=&Apache::lonnet::escape('http://'.
$Apache::lonnet::hostname{$home}.'/priv/'.$trest;	$Apache::lonnet::hostname{$home}.
	'/adm/login?domain='.$ENV{'user.domain'}.
	'&username='.$ENV{'user.name'}.
	'&firsturl=/priv/'.$trest);
}	}
#next if ($home eq 'no_host');	#next if ($home eq 'no_host');
$home = $Apache::lonnet::hostname{$home};	$home = $Apache::lonnet::hostname{$home};
Line 325 ENDHEADER	Line 328 ENDHEADER
($ENV{'user.name'},$ENV{'user.domain'});	($ENV{'user.name'},$ENV{'user.domain'});
if ($home ne $r->dir_config('lonHostID')) {	if ($home ne $r->dir_config('lonHostID')) {
$button=0;	$button=0;
$switchserver='http://'.	$switchserver=&Apache::lonnet::escape('http://'.
$Apache::lonnet::hostname{$home}.'/priv/'.	$Apache::lonnet::hostname{$home}.
$ENV{'user.name'};	'/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};