[LON-CAPA-cvs] cvs: loncom(version_2_11_X) /auth lonroles.pm

[raeburn]

raeburn		Mon Jan  4 03:50:53 2021 EDT

  Modified files:              (Branch: version_2_11_X)
    /loncom/auth	lonroles.pm 
  Log:
  - For 2.11
    Backport 1.344
  
  
Index: loncom/auth/lonroles.pm
diff -u loncom/auth/lonroles.pm:1.269.2.37 loncom/auth/lonroles.pm:1.269.2.38
--- loncom/auth/lonroles.pm:1.269.2.37	Tue Feb  4 01:55:50 2020
+++ loncom/auth/lonroles.pm	Mon Jan  4 03:50:53 2021
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # User Roles Screen
 #
-# $Id: lonroles.pm,v 1.269.2.37 2020/02/04 01:55:50 raeburn Exp $
+# $Id: lonroles.pm,v 1.269.2.38 2021/01/04 03:50:53 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -495,6 +495,7 @@
 				 my $end_page=&Apache::loncommon::end_page();
 				 my $buttontext=&mt('Enter Course');
 				 my $message=&mt('Successfully registered key');
+                                 my $ip = &Apache::lonnet::get_requestor_ip();
 				 my $assignresult=
 				     &Apache::lonnet::assign_access_key(
 						     $env{'form.newkey'},
@@ -503,7 +504,7 @@
                                                      $env{'user.domain'},
 						     $env{'user.name'},
                                                      &mt('Assigned from [_1] at [_2] for [_3]'
-                                                        ,$ENV{'REMOTE_ADDR'}
+                                                        ,$ip
                                                         ,&Apache::lonlocal::locallocaltime()
                                                         ,$trolecode)
                                                      );