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

[raeburn]

raeburn		Sun Apr 15 00:14:19 2018 EDT

  Modified files:              
    /loncom/auth	migrateuser.pm 
  Log:
  - Bug 6754 LON-CAPA as LTI Provider
    - Display folder contents listing if LTI launch is for a sequence file.
  
  
Index: loncom/auth/migrateuser.pm
diff -u loncom/auth/migrateuser.pm:1.29 loncom/auth/migrateuser.pm:1.30
--- loncom/auth/migrateuser.pm:1.29	Sat Apr 14 02:30:11 2018
+++ loncom/auth/migrateuser.pm	Sun Apr 15 00:14:19 2018
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Starts a user off based of an existing token.
 #
-# $Id: migrateuser.pm,v 1.29 2018/04/14 02:30:11 raeburn Exp $
+# $Id: migrateuser.pm,v 1.30 2018/04/15 00:14:19 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -483,6 +483,11 @@
     my $next_url='/adm/roles?selectrole=1&'.&escape($data{'role'}).'=1';
     if ($data{'origurl'} ne '') {
         $next_url .= '&orgurl='.&escape($data{'origurl'});
+        if ($data{'lti.login'}) {
+            if ($data{'origurl'} =~ m{/default_\d+\.sequence$}) {
+                $next_url .= '&navmap=1';
+            }
+        }
     }
     &Apache::lonauth::success($r,$data{'username'},$data{'domain'},$home,
 			      $next_url,$extra_env,\%form);