[LON-CAPA-cvs] cvs: loncom(version_2_8_X) /interface loncommon.pm

[raeburn]

raeburn		Thu Dec 18 17:30:37 2008 EDT

  Modified files:              (Branch: version_2_8_X)
    /loncom/interface	loncommon.pm 
  Log:
  - Backport 1.724.
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.692.2.5 loncom/interface/loncommon.pm:1.692.2.6
--- loncom/interface/loncommon.pm:1.692.2.5	Mon Dec 15 08:28:23 2008
+++ loncom/interface/loncommon.pm	Thu Dec 18 17:30:36 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.692.2.5 2008/12/15 08:28:23 raeburn Exp $
+# $Id: loncommon.pm,v 1.692.2.6 2008/12/18 17:30:36 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -9488,6 +9488,11 @@
 	    }
 	}
 
+        foreach my $tool ('aboutme','blog','portfolio') {
+            $userenv{'availabletools.'.$tool} = 
+                &Apache::lonnet::usertools_access($username,$domain,$tool,'reload');
+        }
+
 	$env{'user.environment'} = "$lonids/$cookie.id";
 	
 	if (tie(my %disk_env,'GDBM_File',"$lonids/$cookie.id",