loncom/lontrans.pm - diff

Return to lontrans.pm CVS log

Up to [LON-CAPA] / loncom

version 1.34, 2021/08/08 20:51:33	version 1.35, 2021/10/06 19:38:29
Line 99 sub handler {	Line 99 sub handler {
my %user;	my %user;
my $handle = &Apache::lonnet::check_for_valid_session($r,undef,\%user);	my $handle = &Apache::lonnet::check_for_valid_session($r,undef,\%user);
if (($handle) && ($user{'name'} ne '') && ($user{'domain'} ne '')) {	if (($handle) && ($user{'name'} ne '') && ($user{'domain'} ne '')) {
my $token = &get_token($r,$remote_ip,\%user);	unless (($user{'name'} eq 'public') && ($user{'domain'} eq 'public')) {
unless ($token eq '') {	my $token = &get_token($r,$remote_ip,\%user);
$r->internal_redirect("/adm/migrateuser?token=$token");	unless ($token eq '') {
$r->set_handlers('PerlHandler'=> undef);	$r->internal_redirect("/adm/migrateuser?token=$token");
return DECLINED;	$r->set_handlers('PerlHandler'=> undef);
	return DECLINED;
	}
}	}
}	}
}	}