|
version 1.442, 2010/05/23 10:45:46
|
version 1.444, 2010/06/18 19:19:33
|
|
Line 3877 sub dump_course_id_handler {
|
Line 3877 sub dump_course_id_handler {
|
| if ($items->{'owner'} eq $cloner) { |
if ($items->{'owner'} eq $cloner) { |
| $canclone = 1; |
$canclone = 1; |
| } |
} |
| } elsif ($cloner eq $udom.':'.$items->{'owner'}) { |
} elsif ($cloner eq $items->{'owner'}.':'.$udom) { |
| $canclone = 1; |
$canclone = 1; |
| } |
} |
| if ($canclone) { |
if ($canclone) { |
|
Line 7187 sub sethost {
|
Line 7187 sub sethost {
|
| eq &Apache::lonnet::get_host_ip($hostid)) { |
eq &Apache::lonnet::get_host_ip($hostid)) { |
| $currenthostid =$hostid; |
$currenthostid =$hostid; |
| $currentdomainid=&Apache::lonnet::host_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 ". |
| $perlvar{'lonHostID'}." refusing connection"); |
$perlvar{'lonHostID'}." refusing connection"); |
![[BACK]](/icons/back.gif){kind=icon}
Return to lond CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom