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

[albertel]

albertel		Tue Jun 14 16:10:51 2005 EDT

  Modified files:              (Branch: version_1_1_1_s17)
    /loncom/auth	lonlogin.pm 
  Log:
  - we want the domain from the domain.tab file ot the one from the URL
  
  
Index: loncom/auth/lonlogin.pm
diff -u loncom/auth/lonlogin.pm:1.55.2.2 loncom/auth/lonlogin.pm:1.55.2.3
--- loncom/auth/lonlogin.pm:1.55.2.2	Wed Apr 27 21:25:08 2005
+++ loncom/auth/lonlogin.pm	Tue Jun 14 16:10:50 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.55.2.2 2005/04/28 01:25:08 albertel Exp $
+# $Id: lonlogin.pm,v 1.55.2.3 2005/06/14 20:10:50 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -111,7 +111,7 @@
     my $domain  = $r->dir_config('lonDefDomain');
     my $testdomain=(split(/\./,$ENV{'HTTP_HOST'}))[0];
     foreach my $posdom (values(%Apache::lonnet::hostdom)) {
-	if (lc($posdom) eq lc($testdomain)) { $domain=$testdomain; }
+	if (lc($posdom) eq lc($testdomain)) { $domain=$posdom; }
     }
     if (($ENV{'form.domain'}) && 
 	 ($Apache::lonnet::domaindescription{$ENV{'form.domain'}})) {