loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.972, 2008/11/25 18:20:11	version 1.974, 2008/11/29 09:57:43
Line 2619 sub get_course_adv_roles {	Line 2619 sub get_course_adv_roles {
}	}
} else {	} else {
my $key=&plaintext($role);	my $key=&plaintext($role);
if ($section) { $key.=' (Section '.$section.')'; }	if ($section) { $key.=' ('.&Apache::lonlocal::mt('Section [_1]',$section).')'; }
if ($returnhash{$key}) {	if ($returnhash{$key}) {
$returnhash{$key}.=','.$username.':'.$domain;	$returnhash{$key}.=','.$username.':'.$domain;
} else {	} else {
Line 8543 sub get_dns {	Line 8543 sub get_dns {
}	}
return $domain{$name}{$what};	return $domain{$name}{$what};
}	}

	sub domain_info {
	&load_domain_tab() if (!$loaded);
	return %domain;
	}

}	}


Line 8620 sub get_dns {	Line 8626 sub get_dns {
return %name_to_host;	return %name_to_host;
}	}

	sub all_host_domain {
	&load_hosts_tab() if (!$loaded);
	return %hostdom;
	}

sub is_library {	sub is_library {
&load_hosts_tab() if (!$loaded);	&load_hosts_tab() if (!$loaded);