loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.556, 2018/12/13 03:23:05	version 1.557, 2019/02/11 17:01:34
Line 7722 sub set_client_info {	Line 7722 sub set_client_info {
my $clientserverhomeID = &Apache::lonnet::get_server_homeID($clienthost);	my $clientserverhomeID = &Apache::lonnet::get_server_homeID($clienthost);
my $homedom = &Apache::lonnet::host_domain($clientserverhomeID);	my $homedom = &Apache::lonnet::host_domain($clientserverhomeID);
my $samedom = 0;	my $samedom = 0;
if ($perlvar{'lonDefDom'} eq $homedom) {	if ($perlvar{'lonDefDomain'} eq $homedom) {
$samedom = 1;	$samedom = 1;
}	}
my $intdom = &Apache::lonnet::internet_dom($clientserverhomeID);	my $intdom = &Apache::lonnet::internet_dom($clientserverhomeID);