--- loncom/lontrans.pm 2021/08/08 20:51:33 1.34 +++ loncom/lontrans.pm 2021/10/06 19:38:29 1.35 @@ -1,7 +1,7 @@ # The LearningOnline Network # URL translation for User Files # -# $Id: lontrans.pm,v 1.34 2021/08/08 20:51:33 raeburn Exp $ +# $Id: lontrans.pm,v 1.35 2021/10/06 19:38:29 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -99,11 +99,13 @@ sub handler { my %user; my $handle = &Apache::lonnet::check_for_valid_session($r,undef,\%user); if (($handle) && ($user{'name'} ne '') && ($user{'domain'} ne '')) { - my $token = &get_token($r,$remote_ip,\%user); - unless ($token eq '') { - $r->internal_redirect("/adm/migrateuser?token=$token"); - $r->set_handlers('PerlHandler'=> undef); - return DECLINED; + unless (($user{'name'} eq 'public') && ($user{'domain'} eq 'public')) { + my $token = &get_token($r,$remote_ip,\%user); + unless ($token eq '') { + $r->internal_redirect("/adm/migrateuser?token=$token"); + $r->set_handlers('PerlHandler'=> undef); + return DECLINED; + } } } }