loncom/auth/migrateuser.pm - diff

Return to migrateuser.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.15, 2009/04/14 23:52:07	version 1.16, 2009/07/23 17:40:29
Line 89 sub handler {	Line 89 sub handler {

my $extra_env = &sso_check(\%data);	my $extra_env = &sso_check(\%data);

	my %form;
	if ($data{'symb'} ne '') {
	$form{'symb'} = $data{'symb'};
	}

if (!$data{'role'}) {	if (!$data{'role'}) {
my $handle = &Apache::lonnet::check_for_valid_session($r);	my $handle = &Apache::lonnet::check_for_valid_session($r);
if ($handle) {	if ($handle) {
Line 107 sub handler {	Line 112 sub handler {
$desturl = $data{'origurl'};	$desturl = $data{'origurl'};
}	}
&Apache::lonauth::success($r,$data{'username'},$data{'domain'},	&Apache::lonauth::success($r,$data{'username'},$data{'domain'},
$home,$desturl,$extra_env);	$home,$desturl,$extra_env,\%form);

}	}
return OK;	return OK;
Line 118 sub handler {	Line 123 sub handler {
if ($data{'origurl'} ne '') {	if ($data{'origurl'} ne '') {
$next_url .= '&orgurl='.&escape($data{'origurl'});	$next_url .= '&orgurl='.&escape($data{'origurl'});
}	}
if ($data{'symb'} ne '') {
$next_url .= '&symb='.&escape($data{'symb'});
}

&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,\%form);
return OK;	return OK;
}	}