[LON-CAPA-cvs] cvs: loncom /auth lonlogin.pm

[raeburn]

raeburn		Fri Jan 12 15:26:39 2018 EDT

  Modified files:              
    /loncom/auth	lonlogin.pm 
  Log:
  - Bug 6400 Tiny URL for deep-linking
  
  
Index: loncom/auth/lonlogin.pm
diff -u loncom/auth/lonlogin.pm:1.171 loncom/auth/lonlogin.pm:1.172
--- loncom/auth/lonlogin.pm:1.171	Mon Sep 25 00:36:30 2017
+++ loncom/auth/lonlogin.pm	Fri Jan 12 15:26:39 2018
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.171 2017/09/25 00:36:30 raeburn Exp $
+# $Id: lonlogin.pm,v 1.172 2018/01/12 15:26:39 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -51,6 +51,11 @@
     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'})) {