|
version 1.55.2.1, 2004/01/27 23:40:31
|
version 1.55.2.2, 2005/04/28 01:25:08
|
|
Line 111 ENDFAILED
|
Line 111 ENDFAILED
|
| my $domain = $r->dir_config('lonDefDomain'); |
my $domain = $r->dir_config('lonDefDomain'); |
| my $testdomain=(split(/\./,$ENV{'HTTP_HOST'}))[0]; |
my $testdomain=(split(/\./,$ENV{'HTTP_HOST'}))[0]; |
| foreach my $posdom (values(%Apache::lonnet::hostdom)) { |
foreach my $posdom (values(%Apache::lonnet::hostdom)) { |
| if ($posdom eq $testdomain) { $domain=$testdomain; } |
if (lc($posdom) eq lc($testdomain)) { $domain=$testdomain; } |
| } |
} |
| if (($ENV{'form.domain'}) && |
if (($ENV{'form.domain'}) && |
| ($Apache::lonnet::domaindescription{$ENV{'form.domain'}})) { |
($Apache::lonnet::domaindescription{$ENV{'form.domain'}})) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonlogin.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth