[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

[raeburn]

raeburn		Sun Apr 18 02:24:05 2021 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - Bug 6914
    Session migration for switch to/from VPN and non-VPN access can preserve
    currently active role.
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1447 loncom/lonnet/perl/lonnet.pm:1.1448
--- loncom/lonnet/perl/lonnet.pm:1.1447	Sun Apr 18 02:08:47 2021
+++ loncom/lonnet/perl/lonnet.pm	Sun Apr 18 02:24:05 2021
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1447 2021/04/18 02:08:47 raeburn Exp $
+# $Id: lonnet.pm,v 1.1448 2021/04/18 02:24:05 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -740,6 +740,9 @@
     if (ref($userhashref) eq 'HASH') {
         $userhashref->{'name'} = $disk_env{'user.name'};
         $userhashref->{'domain'} = $disk_env{'user.domain'};
+        if ($disk_env{'request.role'}) {
+            $userhashref->{'role'} = $disk_env{'request.role'};
+        }
         $userhashref->{'lti'} = $disk_env{'request.lti.login'};
         if ($userhashref->{'lti'}) {
             $userhashref->{'ltitarget'} = $disk_env{'request.lti.target'};