version 1.368, 2007/04/03 00:49:55
|
version 1.370, 2007/04/04 00:03:40
|
Line 4619 sub inst_usertypes_handler {
|
Line 4619 sub inst_usertypes_handler {
|
my ($cmd, $domain, $client) = @_; |
my ($cmd, $domain, $client) = @_; |
my $res; |
my $res; |
my $userinput = $cmd.":".$domain; # For logging purposes. |
my $userinput = $cmd.":".$domain; # For logging purposes. |
my (%typeshash,@order); |
my (%typeshash,@order,$result); |
if (&localenroll::inst_usertypes($domain,\%typeshash,\@order) eq 'ok') { |
eval { |
|
local($SIG{__DIE__})='DEFAULT'; |
|
$result=&localenroll::inst_usertypes($domain,\%typeshash,\@order); |
|
}; |
|
if ($result eq 'ok') { |
if (keys(%typeshash) > 0) { |
if (keys(%typeshash) > 0) { |
foreach my $key (keys(%typeshash)) { |
foreach my $key (keys(%typeshash)) { |
$res.=&escape($key).'='.&escape($typeshash{$key}).'&'; |
$res.=&escape($key).'='.&escape($typeshash{$key}).'&'; |
Line 6174 sub sethost {
|
Line 6178 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 ". |