--- loncom/auth/lonlogin.pm	2003/11/12 16:55:40	1.55
+++ loncom/auth/lonlogin.pm	2004/01/27 23:40:31	1.55.2.1
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.55 2003/11/12 16:55:40 www Exp $
+# $Id: lonlogin.pm,v 1.55.2.1 2004/01/27 23:40:31 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -109,6 +109,10 @@ ENDFAILED
     my $iconpath= 'http://'.$ENV{'HTTP_HOST'}.':'.$port_to_use.
                   $r->dir_config('lonIconsURL');
     my $domain  = $r->dir_config('lonDefDomain');
+    my $testdomain=(split(/\./,$ENV{'HTTP_HOST'}))[0];
+    foreach my $posdom (values(%Apache::lonnet::hostdom)) {
+	if ($posdom eq $testdomain) { $domain=$testdomain; }
+    }
     if (($ENV{'form.domain'}) && 
 	 ($Apache::lonnet::domaindescription{$ENV{'form.domain'}})) {
 	$domain=$ENV{'form.domain'};