[LON-CAPA-cvs] cvs: loncom(version_2_11_X) /interface lonfeedback.pm

[raeburn]

raeburn		Mon Jan  4 03:43:30 2021 EDT

  Modified files:              (Branch: version_2_11_X)
    /loncom/interface	lonfeedback.pm 
  Log:
  - For 2.11
    Backport 1.384 
  
  
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.370.2.4 loncom/interface/lonfeedback.pm:1.370.2.5
--- loncom/interface/lonfeedback.pm:1.370.2.4	Mon Aug 12 16:51:07 2019
+++ loncom/interface/lonfeedback.pm	Mon Jan  4 03:43:30 2021
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.370.2.4 2019/08/12 16:51:07 raeburn Exp $
+# $Id: lonfeedback.pm,v 1.370.2.5 2021/01/04 03:43:30 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3170,7 +3170,7 @@
     if (($symb) && ($email)) {
         my $now = time;
         if ($env{'form.editdisc'}) {
-            $contrib{'ip'}=$ENV{'REMOTE_ADDR'};
+            $contrib{'ip'}=&Apache::lonnet::get_requestor_ip();
             $contrib{'host'}=$Apache::lonnet::perlvar{'lonHostID'};
             $contrib{'timestamp'} = $now;
             $contrib{'history'} = '';