--- loncom/auth/lonlogin.pm	2020/10/26 01:52:15	1.181
+++ loncom/auth/lonlogin.pm	2020/12/18 15:23:03	1.182
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.181 2020/10/26 01:52:15 raeburn Exp $
+# $Id: lonlogin.pm,v 1.182 2020/12/18 15:23:03 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -605,7 +605,7 @@ ENDSCRIPT
         my $omitextra;
         if ($headextra_exempt ne '') {
             my @exempt = split(',',$headextra_exempt);
-            my $ip = $ENV{'REMOTE_ADDR'};
+            my $ip = &Apache::lonnet::get_requestor_ip();
             if (grep(/^\Q$ip\E$/,@exempt)) {
                 $omitextra = 1;
             }
@@ -848,7 +848,7 @@ sub check_loginvia {
     my $output;
     if ($loginvia ne '') {
         my $noredirect;
-        my $ip = $ENV{'REMOTE_ADDR'};
+        my $ip = &Apache::lonnet::get_requestor_ip();   
         if ($ip eq '127.0.0.1') {
             $noredirect = 1;
         } else {