--- loncom/auth/migrateuser.pm 2018/12/07 23:10:44 1.39 +++ loncom/auth/migrateuser.pm 2018/12/07 23:33:55 1.41 @@ -1,7 +1,7 @@ # The LearningOnline Network # Starts a user off based of an existing token. # -# $Id: migrateuser.pm,v 1.39 2018/12/07 23:10:44 raeburn Exp $ +# $Id: migrateuser.pm,v 1.41 2018/12/07 23:33:55 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -127,7 +127,7 @@ sub canhost { my %roleshash = &Apache::lonnet::get_my_roles($uname,$udom,'userroles','',['ca','aa'],\@possdoms); if (keys(%roleshash)) { foreach my $key (keys(%roleshash)) { - my $audom = (split(/:/,$key))[1]; + my $audom = (split(/:/,$key))[1]; if ((&Apache::lonnet::will_trust('othcoau',$udom,$audom)) && (&Apache::lonnet::will_trust('coaurem',$audom,$udom))) { $canhost = 1; @@ -626,7 +626,7 @@ sub handler { return &goto_login($r,$udom,\%data); } } - + my $rolemsg; if ($data{'role'}) { $rolemsg = "role: $data{'role'}";