version 1.55, 2003/11/12 16:55:40
|
version 1.55.2.2, 2005/04/28 01:25:08
|
Line 109 ENDFAILED
|
Line 109 ENDFAILED
|
my $iconpath= 'http://'.$ENV{'HTTP_HOST'}.':'.$port_to_use. |
my $iconpath= 'http://'.$ENV{'HTTP_HOST'}.':'.$port_to_use. |
$r->dir_config('lonIconsURL'); |
$r->dir_config('lonIconsURL'); |
my $domain = $r->dir_config('lonDefDomain'); |
my $domain = $r->dir_config('lonDefDomain'); |
|
my $testdomain=(split(/\./,$ENV{'HTTP_HOST'}))[0]; |
|
foreach my $posdom (values(%Apache::lonnet::hostdom)) { |
|
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'}})) { |
$domain=$ENV{'form.domain'}; |
$domain=$ENV{'form.domain'}; |