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

[raeburn]

raeburn		Sat Feb 10 14:53:30 2024 EDT

  Modified files:              
    /loncom/auth	migrateuser.pm 
  Log:
  - Bug 6907
  
  
Index: loncom/auth/migrateuser.pm
diff -u loncom/auth/migrateuser.pm:1.69 loncom/auth/migrateuser.pm:1.70
--- loncom/auth/migrateuser.pm:1.69	Sat Feb 10 14:12:33 2024
+++ loncom/auth/migrateuser.pm	Sat Feb 10 14:53:30 2024
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Starts a user off based of an existing token.
 #
-# $Id: migrateuser.pm,v 1.69 2024/02/10 14:12:33 raeburn Exp $
+# $Id: migrateuser.pm,v 1.70 2024/02/10 14:53:30 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -940,6 +940,8 @@
                     $info{'origurl'} = $data{'origurl'};
                     if ($checklaunch) {
                         $info{'checklaunch'} = 1;
+                    }
+                    if ($prevlaunch) {
                         $info{'prevlaunch'} = $prevlaunch;
                     }
                     my $token = &Apache::lonnet::tmpput(\%info,$r->dir_config('lonHostID'),'link');