version 1.368, 2007/04/03 00:49:55
|
version 1.369, 2007/04/04 00:02:50
|
Line 6174 sub sethost {
|
Line 6174 sub sethost {
|
if (&Apache::lonnet::get_host_ip($perlvar{'lonHostID'}) |
if (&Apache::lonnet::get_host_ip($perlvar{'lonHostID'}) |
eq &Apache::lonnet::get_host_ip($hostid)) { |
eq &Apache::lonnet::get_host_ip($hostid)) { |
$currenthostid =$hostid; |
$currenthostid =$hostid; |
$currentdomainid=&Apache::lonnet::domain($hostid); |
$currentdomainid=&Apache::lonnet::host_domain($hostid); |
&logthis("Setting hostid to $hostid, and domain to $currentdomainid"); |
&logthis("Setting hostid to $hostid, and domain to $currentdomainid"); |
} else { |
} else { |
&logthis("Requested host id $hostid not an alias of ". |
&logthis("Requested host id $hostid not an alias of ". |