version 1.55.2.3, 2005/06/14 20:10:50
|
version 1.55.4.1, 2004/02/10 19:23:11
|
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 (lc($posdom) eq lc($testdomain)) { $domain=$posdom; } |
if ($posdom eq $testdomain) { $domain=$testdomain; } |
} |
} |
if (($ENV{'form.domain'}) && |
if (($ENV{'form.domain'}) && |
($Apache::lonnet::domaindescription{$ENV{'form.domain'}})) { |
($Apache::lonnet::domaindescription{$ENV{'form.domain'}})) { |