--- loncom/auth/migrateuser.pm 2020/03/15 23:04:11 1.46 +++ loncom/auth/migrateuser.pm 2020/05/24 11:25:29 1.47 @@ -1,7 +1,7 @@ # The LearningOnline Network # Starts a user off based of an existing token. # -# $Id: migrateuser.pm,v 1.46 2020/03/15 23:04:11 raeburn Exp $ +# $Id: migrateuser.pm,v 1.47 2020/05/24 11:25:29 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -827,14 +827,24 @@ sub handler { } } else { my $desturl = '/adm/roles'; - if ($data{'origurl'} ne '') { - $desturl = $data{'origurl'}; - if ($data{'lti.login'}) { - $desturl = $data{'origurl'}; + if ($data{'lti.login'}) { + if ($data{'lti.selfenrollrole'}) { + $desturl .= '?selectrole=1&'. + &escape($data{'lti.selfenrollrole'}).'=1'; + if ($data{'origurl'} ne '') { + $desturl .= '&orgurl='.$data{'origurl'}; + if ($data{'origurl'} =~ m{/default_\d+\.sequence$}) { + $desturl .= '&navmap=1'; + } + } + } elsif ($data{'origurl'} ne '') { + $desturl = $data{'origurl'}; if ($desturl =~ m{/default_\d+\.sequence$}) { $desturl .= (($desturl =~/\?/)?'&':'?').'navmap=1'; } } + } elsif ($data{'origurl'} ne '') { + $desturl = $data{'origurl'}; if ($data{'linkprot'}) { my ($linkprotector,$linkuri) = split(/:/,$data{'linkprot'},2); if ($linkprotector) {