[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');