[LON-CAPA-cvs] cvs: loncom /auth lonlogin.pm

albertel lon-capa-cvs@mail.lon-capa.org
Thu, 03 Apr 2003 21:53:51 -0000


albertel		Thu Apr  3 16:53:51 2003 EDT

  Modified files:              
    /loncom/auth	lonlogin.pm 
  Log:
  - forgot a part when commiting a configuarable lonhttpd port
  
  
  
Index: loncom/auth/lonlogin.pm
diff -u loncom/auth/lonlogin.pm:1.39 loncom/auth/lonlogin.pm:1.40
--- loncom/auth/lonlogin.pm:1.39	Wed Apr  2 09:57:32 2003
+++ loncom/auth/lonlogin.pm	Thu Apr  3 16:53:51 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.39 2003/04/02 14:57:32 www Exp $
+# $Id: lonlogin.pm,v 1.40 2003/04/03 21:53:51 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -66,8 +66,11 @@
     }
 
     my $fullgraph=($ENV{'form.interface'} ne 'textual');
-
-    my $iconpath= 'http://'.$ENV{'HTTP_HOST'}.':8080'.
+    my $port_to_use=$r->dir_config('lonhttpdPort');
+    if (!defined($port_to_use)) {
+	$port_to_use='8080';
+    }
+    my $iconpath= 'http://'.$ENV{'HTTP_HOST'}.':'.$port_to_use.
                   $r->dir_config('lonIconsURL');
     my $domain  = $r->dir_config('lonDefDomain');
     my $role    = $r->dir_config('lonRole');