[LON-CAPA-cvs] cvs: loncom /interface domainprefs.pm

[raeburn]

raeburn		Tue Dec  9 04:46:02 2008 EDT

  Modified files:              
    /loncom/interface	domainprefs.pm 
  Log:
  - Bug 5839 (Ability to disable About-Me page and Portfolio).
  After DC changes defaults for user tool availability, devalidate cache for current user. 
  
  
Index: loncom/interface/domainprefs.pm
diff -u loncom/interface/domainprefs.pm:1.72 loncom/interface/domainprefs.pm:1.73
--- loncom/interface/domainprefs.pm:1.72	Mon Dec  8 22:42:43 2008
+++ loncom/interface/domainprefs.pm	Tue Dec  9 04:46:02 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: domainprefs.pm,v 1.72 2008/12/08 22:42:43 raeburn Exp $
+# $Id: domainprefs.pm,v 1.73 2008/12/09 04:46:02 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3605,6 +3605,8 @@
             }
             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);
                     $resulttext .= '<li>'.$titles{$item}.'<ul>';
                     foreach my $type (@{$types},'default','_LC_adv') {
                         if ($changes{$item}{$type}) {