version 1.1240, 2013/10/06 14:20:36
|
version 1.1242, 2013/10/12 01:15:38
|
Line 356 sub get_remote_globals {
|
Line 356 sub get_remote_globals {
|
} |
} |
|
|
sub remote_devalidate_cache { |
sub remote_devalidate_cache { |
my ($lonhost,$name,$id) = @_; |
my ($lonhost,$cachekeys) = @_; |
my $response = &reply('devalidatecache:'.&escape($name).':'.&escape($id),$lonhost); |
my $items; |
|
return unless (ref($cachekeys) eq 'ARRAY'); |
|
my $cachestr = join('&',@{$cachekeys}); |
|
my $response = &reply('devalidatecache:'.&escape($cachestr),$lonhost); |
return $response; |
return $response; |
} |
} |
|
|
Line 1985 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 = 60*60*24; |
my $cachetime = 60*60*24; |
unless ($ignore_cache) { |
unless ($ignore_cache) { |
my ($result,$cached)=&is_cached_new('domdefaults',$domain); |
my ($result,$cached)=&is_cached_new('domdefaults',$domain); |
Line 6201 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'}; |
} |
} |