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; |
|
} |
} |
} |
} |
} |
} |
} |