[LON-CAPA-cvs] cvs: loncom /auth lonlogin.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Tue, 28 Feb 2006 16:42:42 -0000
albertel Tue Feb 28 11:42:42 2006 EDT
Modified files:
/loncom/auth lonlogin.pm
Log:
- BUG#4654
Index: loncom/auth/lonlogin.pm
diff -u loncom/auth/lonlogin.pm:1.71 loncom/auth/lonlogin.pm:1.72
--- loncom/auth/lonlogin.pm:1.71 Wed Dec 28 11:46:47 2005
+++ loncom/auth/lonlogin.pm Tue Feb 28 11:42:42 2006
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Login Screen
#
-# $Id: lonlogin.pm,v 1.71 2005/12/28 16:46:47 albertel Exp $
+# $Id: lonlogin.pm,v 1.72 2006/02/28 16:42:42 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -129,7 +129,7 @@
my $domain = $r->dir_config('lonDefDomain');
my $testdomain=(split(/\./,$ENV{'HTTP_HOST'}))[0];
foreach my $posdom (&Apache::lonnet::current_machine_domains()) {
- if ($posdom eq $testdomain) { $domain=$testdomain; }
+ if (lc($posdom) eq lc($testdomain)) { $domain=$posdomain; }
}
if (($env{'form.domain'}) &&
($Apache::lonnet::domaindescription{$env{'form.domain'}})) {