loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.76.2.2, 2008/12/17 22:13:22	version 1.76.2.3, 2008/12/18 17:06:00
Line 3611 sub modify_quotas {	Line 3611 sub modify_quotas {
}	}
$resulttext .= '</ul></li>';	$resulttext .= '</ul></li>';
}	}
	my %newenv;
foreach my $item (@usertools) {	foreach my $item (@usertools) {
if (ref($changes{$item}) eq 'HASH') {	if (ref($changes{$item}) eq 'HASH') {
my $hashid = $env{'user.name'}.':'.$env{'user.domain'};	my $newacc =
&Apache::lonnet::devalidate_cache_new('usertools.'.$item,$hashid);	&Apache::lonnet::usertools_access($env{'user.name'},
	$env{'user.domain'},
	$item,'reload');
	if ($env{'environment.tools.'.$item} ne '') {
	if ($env{'environment.availabletools.'.$item} ne $newacc) {
	$newenv{'environment.availabletools.'.$item} = $newacc;
	}
	}
$resulttext .= '<li>'.$titles{$item}.'<ul>';	$resulttext .= '<li>'.$titles{$item}.'<ul>';
foreach my $type (@{$types},'default','_LC_adv') {	foreach my $type (@{$types},'default','_LC_adv') {
if ($changes{$item}{$type}) {	if ($changes{$item}{$type}) {
Line 3635 sub modify_quotas {	Line 3643 sub modify_quotas {
}	}
}	}
$resulttext .= '</ul>';	$resulttext .= '</ul>';
	if (keys(%newenv)) {
	&Apache::lonnet::appenv(\%newenv);
	}
} else {	} else {
$resulttext = &mt('No changes made to availability of home pages, blogs, portfolios or default quotas');	$resulttext = &mt('No changes made to availability of home pages, blogs, portfolios or default quotas');
}	}