loncom/auth/migrateuser.pm - diff

Return to migrateuser.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.6, 2006/05/15 17:45:46	version 1.7, 2006/06/02 19:38:21
Line 49 sub goto_login {	Line 49 sub goto_login {
}	}


	sub sso_check {
	my ($data) = @_;
	if ($data->{'sso.login'}) {
	&Apache::lonnet::appenv(('request.sso.login' =>
	$data->{'sso.login'} ));
	}
	}

sub handler {	sub handler {
my ($r) = @_;	my ($r) = @_;

Line 74 sub handler {	Line 82 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');	$home,'/adm/roles');
	&sso_check(\%data);
return OK;	return OK;
}	}

Line 82 sub handler {	Line 91 sub handler {

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