--- loncom/auth/lonlogin.pm 2019/08/04 12:18:44 1.158.2.9 +++ loncom/auth/lonlogin.pm 2020/01/22 16:43:52 1.158.2.9.2.1 @@ -1,7 +1,7 @@ # The LearningOnline Network # Login Screen # -# $Id: lonlogin.pm,v 1.158.2.9 2019/08/04 12:18:44 raeburn Exp $ +# $Id: lonlogin.pm,v 1.158.2.9.2.1 2020/01/22 16:43:52 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'})) {