--- loncom/interface/domainprefs.pm 2008/12/17 22:13:22 1.76.2.2 +++ loncom/interface/domainprefs.pm 2008/12/18 17:06:00 1.76.2.3 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set domain-wide configuration settings # -# $Id: domainprefs.pm,v 1.76.2.2 2008/12/17 22:13:22 raeburn Exp $ +# $Id: domainprefs.pm,v 1.76.2.3 2008/12/18 17:06:00 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3611,10 +3611,18 @@ sub modify_quotas { } $resulttext .= ''; } + my %newenv; foreach my $item (@usertools) { if (ref($changes{$item}) eq 'HASH') { - my $hashid = $env{'user.name'}.':'.$env{'user.domain'}; - &Apache::lonnet::devalidate_cache_new('usertools.'.$item,$hashid); + my $newacc = + &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 .= '
  • '.$titles{$item}.''; + if (keys(%newenv)) { + &Apache::lonnet::appenv(\%newenv); + } } else { $resulttext = &mt('No changes made to availability of home pages, blogs, portfolios or default quotas'); }