--- loncom/auth/lonlogin.pm 2018/09/03 22:20:42 1.158.2.6.2.2 +++ loncom/auth/lonlogin.pm 2019/02/06 17:32:59 1.158.2.6.2.3 @@ -1,7 +1,7 @@ # The LearningOnline Network # Login Screen # -# $Id: lonlogin.pm,v 1.158.2.6.2.2 2018/09/03 22:20:42 raeburn Exp $ +# $Id: lonlogin.pm,v 1.158.2.6.2.3 2019/02/06 17:32:59 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -51,6 +51,11 @@ sub handler { if (!defined($env{'form.firsturl'})) { &Apache::lonacc::get_posted_cgi($r,['firsturl']); } + if (!defined($env{'form.firsturl'})) { + if ($ENV{'REDIRECT_URL'} =~ m{^/+tiny/+$LONCAPA::match_domain/+\w+$}) { + $env{'form.firsturl'} = $ENV{'REDIRECT_URL'}; + } + } # -- check if they are a migrating user if (defined($env{'form.token'})) {