loncom/auth/switchserver.pm - diff

Return to switchserver.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.16, 2007/09/08 02:43:33	version 1.17, 2007/09/29 04:03:46
Line 83 sub handler {	Line 83 sub handler {
['otherserver','role']);	['otherserver','role']);

my $switch_to=&Apache::lonnet::hostname($env{'form.otherserver'});	my $switch_to=&Apache::lonnet::hostname($env{'form.otherserver'});
if (!$env{'form.otherserver'}) {	if (! $env{'form.otherserver'}) {
$env{'form.otherserver'}=&Apache::lonnet::spareserver(30000,undef,1);	$env{'form.otherserver'} =
	&Apache::lonnet::find_existing_session($env{'user.domain'},
	$env{'user.name'});
	if (! $env{'form.otherserver'}) {
	$env{'form.otherserver'} =
	&Apache::lonnet::spareserver(30000,undef,1);
	}

$switch_to=&Apache::lonnet::hostname($env{'form.otherserver'});	$switch_to=&Apache::lonnet::hostname($env{'form.otherserver'});
}	}