loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1241, 2013/10/06 20:33:51	version 1.1242, 2013/10/12 01:15:38
Line 1988 sub inst_userrules {	Line 1988 sub inst_userrules {

sub get_domain_defaults {	sub get_domain_defaults {
my ($domain,$ignore_cache) = @_;	my ($domain,$ignore_cache) = @_;
	return if (($domain eq '') \|\| ($domain eq 'public'));
my $cachetime = 606024;	my $cachetime = 606024;
unless ($ignore_cache) {	unless ($ignore_cache) {
my ($result,$cached)=&is_cached_new('domdefaults',$domain);	my ($result,$cached)=&is_cached_new('domdefaults',$domain);
Line 6204 sub usertools_access {	Line 6205 sub usertools_access {
}	}
return if (!defined($tools{$tool}));	return if (!defined($tools{$tool}));

if ((!defined($udom)) \|\| (!defined($uname))) {	if (($udom eq '') \|\| ($uname eq '')) {
$udom = $env{'user.domain'};	$udom = $env{'user.domain'};
$uname = $env{'user.name'};	$uname = $env{'user.name'};
}	}