--- loncom/auth/lonlogin.pm	2018/12/26 20:10:21	1.177
+++ loncom/auth/lonlogin.pm	2018/12/27 18:14:38	1.178
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.177 2018/12/26 20:10:21 raeburn Exp $
+# $Id: lonlogin.pm,v 1.178 2018/12/27 18:14:38 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -852,12 +852,13 @@ sub check_loginvia {
 
 sub redirect_page {
     my ($desthost,$path,$linkprot) = @_;
+    my $hostname = &Apache::lonnet::hostname($desthost);
     my $protocol = $Apache::lonnet::protocol{$desthost};
     $protocol = 'http' if ($protocol ne 'https');
     unless ($path =~ m{^/}) {
         $path = '/'.$path;
     }
-    my $url = $protocol.'://'.&Apache::lonnet::hostname($desthost).$path;
+    my $url = $protocol.'://'.$hostname.$path;
     if ($env{'form.firsturl'} ne '') {
         $url .='?firsturl='.$env{'form.firsturl'};
     }