--- loncom/auth/lonlogin.pm 2004/02/10 19:23:11 1.55.4.1 +++ loncom/auth/lonlogin.pm 2004/03/16 20:42:50 1.56 @@ -1,7 +1,7 @@ # The LearningOnline Network # Login Screen # -# $Id: lonlogin.pm,v 1.55.4.1 2004/02/10 19:23:11 albertel Exp $ +# $Id: lonlogin.pm,v 1.56 2004/03/16 20:42:50 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -68,7 +68,6 @@ sub handler { Already logged in - $bodytag

You are already logged in

Please either continue the current session or @@ -109,10 +108,6 @@ 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'};