|
version 1.71, 2005/12/28 16:46:47
|
version 1.72, 2006/02/28 16:42:42
|
|
Line 129 ENDFAILED
|
Line 129 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 (&Apache::lonnet::current_machine_domains()) { |
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'}) && |
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