loncom/auth/migrateuser.pm - diff

Return to migrateuser.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.8, 2006/06/02 21:43:52	version 1.10, 2007/01/12 15:44:27
Line 55 sub sso_check {	Line 55 sub sso_check {
if ($data->{'sso.login'}) {	if ($data->{'sso.login'}) {
$extra_env{'request.sso.login'} = $data->{'sso.login'};	$extra_env{'request.sso.login'} = $data->{'sso.login'};
}	}
	if ($data->{'sso.reloginserver'}) {
	$extra_env{'request.sso.reloginserver'} =
	$data->{'sso.reloginserver'};
	}
return \%extra_env;	return \%extra_env;
}	}

Line 84 sub handler {	Line 88 sub handler {

if (!$data{'role'}) {	if (!$data{'role'}) {
&Apache::lonauth::success($r,$data{'username'},$data{'domain'},	&Apache::lonauth::success($r,$data{'username'},$data{'domain'},
$home,'/adm/roles',\$extra_env);	$home,'/adm/roles',$extra_env);
return OK;	return OK;
}	}

Line 92 sub handler {	Line 96 sub handler {


&Apache::lonauth::success($r,$data{'username'},$data{'domain'},$home,	&Apache::lonauth::success($r,$data{'username'},$data{'domain'},$home,
$next_url,\$extra_env);	$next_url,$extra_env);
return OK;	return OK;
}	}